Select Code to Download

D:\>at 20:20 /interactive /every:5 calc
Added a new job with job ID = 2
...
==>0
==>1/8
Job 2 is calc

use strict;
use Win32::AdminMisc;
...
        print join(", ", @DOM);
    }
}

D:\Personal\perl\admin\tst>perl -w am.pl
==>2/8
...
4Job 3 is calc
This job will run on the following days of the month:
4, 18