$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 connect to HostA's HKEY_LOCAL_MACHINE key: $^E\n";
 #$lista=$Registry->{"HKEY_LOCAL_MACHINE/Software/ODBC/ODBC.INI"}or  die "$^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"}
 }