strComputer = "." 
Set fso = WScript.CreateObject("Scripting.FileSystemObject") 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set objScheduledJob = objWMIService.Get("Win32_ScheduledJob") 
Set objSWbemDateTime = CreateObject("WbemScripting.SWbemDateTime") 
objSWbemDateTime.SetVarDate(DateAdd("n",  1 , Now())) 
Res = objScheduledJob.Create("%WINDIR%\System32\cscript.exe c:\outlook.vbs", objSWbemDateTime.Value, False,  0 ,  0 , True, intJobID) 
If Res <>  0  Then 
WScript.Quit 
End If

Сбой при запуске команды At1.job из-за ошибки 
Не удается найти указанный файл.