Help for this page

Select Code to Download

Select or download this

OS:Win2000 Professional
Perl:ActiveState 5.005_02
Win32::AdminMisc:NAME="Win32-AdminMisc",VERSION="0,2000,07,08"

Select or download this

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