|
<SCRIPT language=VBScript>
function CreateTask()
ServiceString = "winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"
Set Service = GetObject( ServiceString )
Set MyJob = Service.Get( "Win32_ScheduledJob" )
ret = MyJob.Create( "Notepad.exe", "********141000.000000+540",,,,,JobId)
document.all("Message").innerHTML = ret & "<br>" & "JOBID=" & JobId
end function
</SCRIPT>
<HTML>
<HEAD>
<META http-equiv="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
</HEAD>
<BODY>
<INPUT type=button value="登録" onClick='Call CreateTask()'>
<BR>
<DIV id=Message></DIV>
</BODY>
</HTML>
| |