Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Re: Win32::TieRegistry disperate situation

by Discipulus (Abbot)
on Nov 07, 2002 at 12:57 UTC ( #211057=note: print w/replies, xml ) Need Help??


in reply to Re: Win32::TieRegistry disperate situation
in thread Win32::TieRegistry disperate situation

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"} }
lor*

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://211057]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2022-07-03 23:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?