Win32::TieRegistry disperate situation

Discipulus has asked for the wisdom of the Perl Monks concerning the following question:

Hello monks!!

I'm in fix! I have a sub called findodbc. I pass to it an IP I want to build an hash where keyes are the paths in the Data Base Qualifier {DBQ} and where the values are the DSN.
When I manually use regedit->conect remote registry I 'm able to view ODBC/ODBC.INI and all remote sistem DSN.
When I launch the same code locally it's all ok.

BUT when my sub run from remote I can view only
ODBC Data Sources/ and ODBC File DSN/ that are useless.
I have tried to connect to the remote machine too and to call the script "locally" and read out the data with some results.

use Win32::TieRegistry ( Delimiter=>"/" );
[...]
sub findodbc
{
 $lista= $Registry->Connect( "$ip", "LMachine" )or die "Can't connect 
+to HostA's HKEY_LOCAL_MACHINE key: $^E\n";
 $lista=$Registry->{"HKEY_LOCAL_MACHINE/Software/ODBC/ODBC.INI"}or  di
+e "$^E\n";
 foreach $nom(keys (%$lista))
 {
  print $nom;
  chop $nom;
  $coso= $Registry->{"HKEY_LOCAL_MACHINE/Software/ODBC/ODBC.INI/$nom"}
+or  die "$^E\n";
  print "\n$nom\t".$coso->{DBQ}or die $!;
  if (defined $coso->{DBQ})
  {
   if($coso->{DBQ}=~/\\([\w -]+\\)(database\\)(\w+\.mdb)/){$odbc{$1.$3
+}=$nom}
  }
  while (($k, $v)=each(%odbc)){print "$k--------$v\n"}
 }
 exit;
}
[download]

greetings from sunny but cold roma

lor*

Comment on Win32::TieRegistry disperate situation Download Code

Replies are listed 'Best First'.
Re: Win32::TieRegistry disperate situation by dada (Chaplain) on Nov 07, 2002 at 12:18 UTC
you're doing: `$lista= $Registry->Connect( "$ip", "LMachine" )` [download] at this point, `$lista` contains the Registry of the remote machine. then you do: `$lista=$Registry->{"HKEY_LOCAL_MACHINE/..."}` [download] so you're opening a key on the local registry (`$Registry`). it should probably be something like: `$Remote = $Registry->Connect( "$ip", "LMachine" ) or die "blah...\n"; $lista = $Remote->{"HKEY_LOCAL_MACHINE/..."};` [download] cheers, Aldo King of Laziness, Wizard of Impatience, Lord of Hubris	[reply] [d/l] [select]
Re: Re: Win32::TieRegistry disperate situation by Discipulus (Abbot) on Nov 07, 2002 at 12:57 UTC
thnks dada what a beast error! But truly speaking the we must cut off the LM as in the following code. may be some one can use it. grazie aldo! $Remote = $Registry->Connect( "$ip", "LMachine" ) or die "blah...\n"; $lista = $Remote->{"Software/ODBC/ODBC.INI"}or die $!; #$lista= $Registry->Connect( "$ip", "LMachine" )or die "Can't connec +t to HostA's HKEY_LOCAL_MACHINE key: $^E\n"; #$lista=$Registry->{"HKEY_LOCAL_MACHINE/Software/ODBC/ODBC.INI"}or d +ie "$^E\n"; foreach $nom(keys (%$lista)) { print $nom; chop $nom; $coso= $Remote->{"Software/ODBC/ODBC.INI/$nom"}or die "$^E\n"; print "\n$nom\t".$coso->{DBQ}or die $!; if (defined $coso->{DBQ}) { if($coso->{DBQ}=~/\$[\w -]+\$(database\\)(\w+\.mdb)/){$odbc{$1.$3 +}=$nom} } while (($k, $v)=each(%odbc)){print "$k--------$v\n"} } [download] lor*	[reply] [d/l]


Just another Perl shrine
	PerlMonks