Only on Experts-Exchange: Sign-up for a free-trial and we'll send you your permanent license!
Here is what you get: 30 Nodes | Unlimited Sensors | No Time Restrictions | Absolutely FREE!
Act now. This offer ends July 14, 2017.
Set objShell = CreateObject("Wscript.Shell") set objWMI = GetObject("winmgmts:\\.\root\cimv2") set colScheduledJobs = objWMI.ExecQuery("Select * from Win32_ScheduledJob") For each objJob in colScheduledJobs If InStr(UCase(objJob.command),"SHUTDOWN") > 0 Then booFound = True Next If Not booFound Then objShell.Run("%systemroot%\system32\at 19:00 shutdown.exe -s -f -t 30")
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.