Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Win32Shutdown(1)Next