LOCAL oJobs As NetScheduleJobs, oJob As NetScheduleJob
oJobs = CREATEOBJECT("NetScheduleJobs")

oJob = CREATEOBJECT("NetScheduleJob")
WITH oJob
*        .jobtime = 9.5 * 3600 * 1000 && 09:30 AM
*        .SetDOM(5, 20) && payroll days :)
*        .SetDOW(0, 3) && Monday to Thursday
        .jobtime = (60 + VAL(SYS(2))) * 1000 && now + 1 minute
        .jobcommand = "notepad.exe"
ENDWITH

IF NOT oJobs.AddJob(oJob)
        ? "Error:", oJobs.errorcode
ENDIF

FOR EACH oJob IN oJobs
        WITH oJob
                ? "ID=" + TRANSFORM(.jobid) + ", " +;
                        .jobcommand
        ENDWITH
NEXT