Perl

...now browsing by category

 

Windows Registry mit Perl auslesen

Freitag, März 26th, 2010

Mit dem folgenden Code Schnippsel läßt sich der Wert eines Windows Registry Keys mit Perl auslesen:

use Win32::Registry;
my $key = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders";
$HKEY_LOCAL_MACHINE->Open( $key, $registry )
or die "Can't open registry.";
$registry->QueryValueEx( "Common AppData", $type, $value )
or die "registry query failed.";
die "wrong value type" unless $type == 1;
print "AllUserProfile: $value\n";
$registry->Close();