Alex,
Here's what I got when I ran your script:
INFO: Test if "SYSTEM\CurrentControlSet\Enum" on
MM129752-PC exists and is reada
ble
"SYSTEM\CurrentControlSet\Enum" on MM129752-PC exists
and is readable
Harlan
--- Alexander Apprich <[EMAIL PROTECTED]>
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;
>
> Alex
>
=====
------------------------------------------
Harlan Carvey, CISSP
"Windows Forensics and Incident Recovery"
http://www.windows-ir.com
http://windowsir.blogspot.com
------------------------------------------
_______________________________________________
Perl-Win32-Admin mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
