reg02.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:54 2010 from reg02.pl 2006/10/07 2 KB.

#!/Perl
print "Hello, World...\n";
###use Win32API::Registry::regConstant("HKEY_LOCAL_MACHINE");
use Win32::Registry;
use Win32::TieRegistry( Delimiter => "#", ArrayValues => 0 );
$pound = $Registry->Delimiter("/");
$Subkey = 'Software\ES-Computing\EditPlus 2\Recent File List';
##$diskKey = $Registry->{"LMachine/System/Disk/"}
##   or  die "Can't read LMachine/System/Disk key: $^E\n";
$diskKey = $Registry->{"LMachine/System/"}
    or  die "Can't read LMachine/System key: $^E\n";
##$data = $diskKey->{"/Information"}
##    or  die "Can't read LMachine/System/Disk//Information value: $^E\n";
$data = $diskKey->{"CurrentControlSet"}
    or  die "Can't read LMachine/System/CurrentControlSet value: $^E\n";
##$remoteKey = $Registry->{"//ServerA/LMachine/System/"}
##    or  die "Can't read //ServerA/LMachine/System/ key: $^E\n";
##$remoteData = $remoteKey->{"Disk//Information"}
##  or  die "Can't read ServerA's System/Disk//Information value: $^E\n";
foreach $entry (  keys(%$diskKey)  ) {
   print "entry = $entry \n";
}
foreach $subKey (  $diskKey->SubKeyNames  ) {
   print "subkeys = $subKey \n";
}
foreach $cs ( keys(%$data)  ) {
   print " cs = $cs ...\n";
}
##$epKey = $Registry->{"LMachine/Software/ES-Computing/EditPlus 2/Recent File List"}
##   or die "Can't read LMachine/Software/ES-Computing/EditPlus 2/Recent File List value: $^E\n";
$epKey = $Registry->{"CUser/Software/ES-Computing/EditPlus 2/Recent File List"}
   or die "Can't read CUser/Software/ES-Computing/EditPlus 2/ value: $^E\n";
foreach $subKey (  $epKey->SubKeyNames  ) {
   print "subkeys = $subKey \n";
}
foreach $entry (  keys(%$epKey)  ) {
   $data = $epKey->{$entry};
   print "entry = $entry, data = $data\n";
}
#foreach $ep ( keys( %$epKey) ) {
#   print " ep = $ep ...\n";
#}
$ms = $Registry->{"LMachine/Software/Microsoft/"};
$tips = $ms->{"Windows/CurrentVersion/Explorer/Tips/"};
$tip18 = $tips->{"/18"};
print "tips [$tip18]\n";
##$diskKey->AllowSave( 1 );
##$diskKey->RegSaveKey( "C:/TEMP/DiskReg", [] );

index -|- top