Harlan,
$Bill Luebkert wrote:
Harlan Carvey wrote:
$Bill,
Thanks...but that doesn't get me any closer to figuring out what the issue is...any thoughts along those lines?
All I can tell you is that it worked OK for me. XP Pro - Perl 811. If all else fails, consider a reboot and then maybe a re-install of Perl if that fails.
Could you try out my lil test script? It uses Win32::Registry instead of Win32::TieRegistry. I don't have the remote part in it, but shouldn't be a prob to add it...
use strict; use warnings; use Win32::Registry;
my $Host = $ENV{COMPUTERNAME};
my $Key;
my $KeyName = "SYSTEM\\CurrentControlSet\\Enum";
print "INFO: Test if \"$KeyName\" on $Host exists and is readable\n";
if (! $HKEY_LOCAL_MACHINE->Open( $KeyName, $Key ) ) {
print "\"$KeyName\" does not exist or is not readable on $Host\n";
} else {
print "\"$KeyName\" on $Host exists and is readable\n";
}
$Key->Close() or warn "Could not close \"$KeyName\" on $Host\n" if defined $Key;
Alex _______________________________________________ Perl-Win32-Admin mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
