Исходное сообщение Хакер_ру
есть ли команда для cmd.exe которая отрубает компьютер от сети, или выключает его? дома два компа, а канал под инет один, и очень задалбливает когда младший брат качает всякое гавно и у меня сеть тормозит=\

Разберешься?

dim OpSysSet, obj,d,dn
Set Shell = CreateObject("WScript.Shell")
On Error Resume Next
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}//./root/cimv2").ExecQuery _
("SELECT * FROM Win32_OperatingSystem" &_
" WHERE Primary=true")

For Each obj In OpSysSet
obj.Win32Shutdown(8)
Next