ahandler wrote:
Would be nice!!!
Please post it!
Regards Andreas
Sub schReboot()
Dim strComputer2, objWMIService, job, colScheduledJobs, objNewJob, errJobCreated, JobId
strComputer2 = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer2 & "\root\cimv2")
Set colScheduledJobs = objWMIService.ExecQuery _
("Select * from Win32_ScheduledJob")
For Each job In colScheduledJobs
If InStr(job.Command, LCase("shutdown"))Then
Exit Sub
End If
Next
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
("shutdown.exe /f /r", "********002500.000000-420", _
True , 1 Or 2 Or 4 Or 8 Or 16 Or 32 Or 64, , True, JobId)
End sub