How to change default printer in Windows using Perl

D

Domenico Discepola

Hello. Can someone point me in the right direction on changing my default
Windows printer using Perl?

TIA
 
D

Domenico Discepola

Domenico Discepola said:
Hello. Can someone point me in the right direction on changing my default
Windows printer using Perl?
Answered my own question:

#!perl
use strict;
use warnings;
use diagnostics;
use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>1 );

#Get value of default printer
my $def_printer = $Registry->{"HKEY_CURRENT_USER/Software/Microsoft/Windows
NT/CurrentVersion/Windows/Device"};
my $aaa = $$def_printer[0];
print "original: [$aaa]";

my $ch = "\\\\vaudprint\\VaudIT,winspool,Ne05:";
my $userkey = $Registry->{"HKEY_CURRENT_USER/Software/Microsoft/Windows
NT/CurrentVersion/Windows"};
$userkey->{ "/device"} = $ch;

$def_printer = $Registry->{"HKEY_CURRENT_USER/Software/Microsoft/Windows
NT/CurrentVersion/Windows/Device"};
print "new: [$$def_printer[0]]\n";
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

Forum statistics

Threads
473,731
Messages
2,569,432
Members
44,834
Latest member
BuyCannaLabsCBD

Latest Threads

Top