Локальная сеть
Добавлено: 2005-01-20 0:45:01
как мне перезагрузить, а лучше выключить(если можно) удаленный компьютер, не устанавливая на него никаких дополнительных программ???
Иногда, правильный удар в бубен, приводит в чувство целое племя...
https://forum.lissyara.su/
Код: Выделить всё
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