'***************************************************************** '*******ShutDown.vbs*************v3******************************* '***************************************************************** '***************************************************************** sObject ="winmgmts:{(Shutdown)}//./root/cimv2" sQuery ="select * from Win32_OperatingSystem where Primary=true" minutes =InputBox("How many minutes till ShutDown?") If minutes <>"" Then     WScript.Sleep(minutes*60000)     for each opSys in ( GetObject(sObject).ExecQuery(sQuery) )         opSys.Shutdown()     next end if '*****************************************************************