Remote Registry

[Jarrod Ramsey]

I am trying to pull registry information from other computers.  This is one
way I am trying to do it.

        use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>1 );
    $Registry->Delimiter("/");                  # Set delimiter to "/".
    $swKey= $Registry->{"HKEY_LOCAL_MACHINE/Software/"};
    $winKey= $swKey->{"Microsoft/Windows/CurrentVersion/"};
    
    $userKey= $Registry->
      {"CUser/Software/Microsoft/Windows/CurrentVersion/"};
    $remoteKey= $Registry->{"//HPOND190/LMachine/"};


# Reading values 
    $progDir= $winKey->{"/ProgramFilesDir"};    # "C:\\Program Files"
    $tip21= $winKey->{"Explorer/Tips//21"};     # Text of tip #21.


    $winKey->ArrayValues(1);
    ( $devPath, $type )= $winKey->{"/DevicePath"};
    
    print $progDir . "\n";
    print $tip21 . "\n";

but so far it only prints out the memory address.

Jarrod Ramsey




**********************************************************************
This email and any files transmitted with it are confidential
and intended solely for the individual or entity to 
whom they are addressed.  If you have received this email 
in error destroy it immediately.
**********************************************************************
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin