strComputer = "."
objWMIService = GetObject("winmgmts:" ;
    + "{impersonationLevel=impersonate}!\\" ;
    + strComputer + "\root\cimv2") 
JobID = "Test"
objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreate = objNewJob.Create("Notepad.exe", "********143000.000000-420", .T. , 63 , ,.T., JobId) 
If errJobCreate =  0 
    ?"Job created successfully: " + CHR( 13 )+CHR( 10 ) ;
        + "Notepad.exe scheduled to run repeately at 14.30 (2:30 P.M.) PST" +CHR( 13 )+CHR( 10 ) ;
        + "on Mon, Wed, and Fri."
Else
    ?"Job not created. Error code = " + errJobCreate
EndIf