Win32 Perl


            #!/usr/bin/perl -w
use Win32::NetAdmin;
get_servers(\%win9x_systems, SV_TYPE_WINDOWS);
print "\n\nWindows 9x\n";
print_hash( \%win9x_systems );
sub print_error {
    print Win32::FormatMessage( Win32::GetLastError() );
}
sub get_servers {
   my($hash_ref) = $_[0];
   my($flags)    = $_[1];
   my($status);
   $status = Win32::NetAdmin::GetServers( '', '', $flags, $hash_ref );
   if ( ! $status ) {
      print_error();
   }
   return $status;
}   
sub print_hash {
   my($hash_ref) = $_[0];
  
   my(@keys) = keys( %$hash_ref );
   my($key);
   
   my(@sorted) = sort( @keys );
   
   foreach $key (@sorted) {
      print "$key $$hash_ref{$key}\n";
   }
}