Alexander Apprich wrote:
> 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;
Works for me.
PS: You can avoid the ugly escaping if you use single quotes or qq :
print "'$KeyName' does not exist or is not readable on $Host\n";
print qq{"$KeyName" does not exist or is not readable on $Host\n};
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Admin mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
