RE: Registry woes

[Timothy Johnson]

What if you change LMachine to HKEY_LOCAL_MACHINE?

-----Original Message-----
From: Eric Hennessey [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, November 20, 2002 11:39 AM
To: [EMAIL PROTECTED]
Subject: Registry woes

To all those who replied to my previous post, thanks...you got me pointed in the right direction.  Here's the problem I'm having now.

 

The following code works great on the local machine if I remove the //$host/ from the path name in the Open methods, but fails on the first Open attempt when I try to run it against a remote machine.  Any ideas?

 

use Win32::TieRegistry (Delimiter => "/");

 

my $key;
my $host = "ajax";

 

if ($key = $Registry->Open("//$host/LMachine/SOFTWARE/FOO/BAR/")) {

 

  $key->CreateKey("Eric//") or
    print "$^E\n";

 

  $key = $Registry->Open("//$host/LMachine/SOFTWARE/FOO/BAR/Eric/");

 

  $key->SetValue("MACAddress", "BIGMAC") or
    print "$^E\n";

 

} else {
  print "Error: $^E\n";
}