; Function scheduletask

Function scheduletask($name, $comp, $date, $time, $type, $cmd, optional $prms, optional $user, optional $pw, optional $comment, optional $typeargs, optional $jt) 

Dim $jtexe[3], $shellcmd, $path 



If $name='' OR $comp='' OR $date='' OR $time='' OR $type='' OR $cmd='' 

Exit 87 

EndIf 



; create an array of potential filepaths to jt.exe 

$jtexe[0]=$jt 

$jtexe[1]=@STARTDIR+'\jt.exe' 

$jtexe[2]=@SCRIPTDIR+'\jt.exe' 

$jtexe[3]=@CURDIR+'\jt.exe' 

$path=Split('%PATH%',';') 

For Each $jt In $path 

ReDim preserve $jtexe[Ubound($jtexe)+1] 

$jtexe[Ubound($jtexe)]=Join(Split($jt+'\jt.exe','\\'),'\') 

Next 



; check each filepath for the presence of jt.exe 

For Each $jt In $jtexe 

If Exist($jt) AND NOT (GetFileAttr($jt) & 16) AND Ubound($jtexe)+1 

$jtexe=$jt 

EndIf 

Next 

Select 

Case Ubound($jtexe)+1 

Exit 2 

Case NOT Exist($jtexe) 

Exit 2 

EndSelect 



If Left($comp,2)<>'\\' 

$comp='\\'+$comp 

EndIf 



If Right($name,4)<>'.job' 

$name=$name+'.job' 

EndIf 



; delete a potentially existing task 

$shellcmd = $jtexe 

If $user AND $pw 

$shellcmd = $shellcmd+ ' /SC "'+$user+'" "'+$pw+'"' 

EndIf 

$shellcmd = $shellcmd+ ' /SM '+$comp 

$shellcmd = $shellcmd+ ' /SD "'+$name+'"' 



Shell '%COMSPEC% /e:1024 /c '+$shellcmd+' >NUL 2>NUL' 



$shellcmd = $jtexe 



If $user AND $pw 

$shellcmd = $shellcmd+ ' /SC "'+$user+'" "'+$pw+'"' 

EndIf 



$shellcmd = $shellcmd+ ' /SM '+$comp 

$shellcmd = $shellcmd+ ' /SJ ApplicationName="'+$cmd+'"' 



If $prms 

$shellcmd = $shellcmd+ ' Parameters="'+$prms+'"' 

EndIf 



$shellcmd = $shellcmd+ ' WorkingDirectory="%SYSTEMROOT%"' 

$shellcmd = $shellcmd+ ' Comment="'+$comment+'"' 

$shellcmd = $shellcmd+ ' Creator="'+@userid+'"' 

$shellcmd = $shellcmd+ ' Priority=Normal' 

$shellcmd = $shellcmd+ ' MaxRunTime=3600000' 

$shellcmd = $shellcmd+ ' DontStartIfOnBatteries=0' 

$shellcmd = $shellcmd+ ' KillIfGoingOnBatteries=0' 

$shellcmd = $shellcmd+ ' RunOnlyIfLoggedOn=0' 

$shellcmd = $shellcmd+ ' SystemRequired=0' 

$shellcmd = $shellcmd+ ' DeleteWhenDone=1' 

$shellcmd = $shellcmd+ ' Suspend=0' 

$shellcmd = $shellcmd+ ' StartOnlyIfIdle=0' 

$shellcmd = $shellcmd+ ' KillOnIdleEnd=0' 

$shellcmd = $shellcmd+ ' RestartOnIdleResume=0' 

$shellcmd = $shellcmd+ ' Hidden=0' 

$shellcmd = $shellcmd+ ' TaskFlags=0' 



$shellcmd = $shellcmd+ ' /CTJ StartDate='+$date 

$shellcmd = $shellcmd+ ' StartTime='+$time 

$shellcmd = $shellcmd+ ' HasEndDate=0' 

$shellcmd = $shellcmd+ ' KillAtDuration=0' 

$shellcmd = $shellcmd+ ' Disabled=0' 

$shellcmd = $shellcmd+ ' Type='+$type 

If $typeargs 

$shellcmd = $shellcmd+ ' TypeArguments='+$typeargs 

EndIf 

$shellcmd = $shellcmd+ ' /SAJ "'+$name+'"' 



Shell '%COMSPEC% /e:1024 /c '+$shellcmd+' >NUL 2>NUL' 

$scheduletask=@ERROR 

Exit @ERROR 

EndFunction