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