Win32::FormatMessage : FormatMessage « Win32 « Perl

1. Perl
2. Win32
3. FormatMessage

Win32::FormatMessage

  

#!/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";
   }
}

   
    
  

Related examples in the same category