Re: Win32::TieRegistry

[Jorge Goncalvez]

Hi, i have this snippet (perl module) which uses Win32::registry(obsolete) but 
it didn't worked very well,I wonder how to get his job with Win32::tieRegistry.

package NIC98;
 require Win32::Registry;
  

sub GetNICName()
{

  my $Register = "System\\CurrentControlSet\\Services\\Class\\Net\\";

  $::HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;

  my @keys;
  $hkey->GetKeys(\@keys);

  my @nic;
  foreach (@keys)
  {
    if($::HKEY_LOCAL_MACHINE->Open("System\\CurrentControlSet\\"
            . "Services\\Class\\Net\\$_", $hkey))
    {
          my %values;
                  $hkey->GetValues(\%values);
      next if exists $values{PointToPointIP} && $values{PointToPointIP}->[2] == 
1;
      next unless exists $values{DriverDesc};
      
      # build interface name ala Unix
      my $_netif = sprintf "eth%d", $_;
      push @nic, $_netif;
    }
  }
 
  return @nic;
   $::HKEY_LOCAL_MACHINE->Close();
}

1;


Thanks for your precious help.




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]