25.04.2009, 07:52
общий
это ответ
Здравствуйте, Norov Abdusaid Murodovich!
Set WMIServiceObject = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")
For Each ComputerObject In WMIServiceObject.InstancesOf("Win32_OperatingSystem")
ComputerObject.Win32Shutdown(5)
Next