Help for this page

Select Code to Download

Select or download this

#=============================
# Win32::AdminMisc
...
foreach $Number (keys(%Jobs)){
    print "Job $Number is $Jobs{$Number}->{Command}\n";
}

Select or download this

#=============================
# Win32::Lanman
...
    Win32::NetAdmin::GetServers($pdc, $domain, 0x00008000, \@servers3)
+ || print "Unable to read NetBios 8000.";
    @servers = (@servers1, @servers2, @servers3);
    }