Локальная сеть
Добавлено: 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