Я долго искал способ выключить компьютер в Windows XP:

Например: функция ExitWindows() вообще сдохла, а ExitWindowsEx() делает только LOGOFF.

И однажды нашёл на одном форуме:

Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, _
(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
 "Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
   ObjOperatingSystem.Reboot ' Для перезагрузки
Next

и:

Dim strComputer As String

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & _ 
"{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _ 
"Select * from Win32_OperatingSystem")

For Each ObjOperatingSystem In colOperatingSystems

ObjOperatingSystem.ShutDown 'Для выключения

Next

Примечание: Данный код работает и для VBScript:

P.S. Пробуйте, у меня работает безотказно.

Добавлено: 22 Сентября 2013 12:47:13 Добавил: Андрей Ковальчук Нравится 0

Добавить