[deepred]

Hrust2010,

Выключить все станции в домене:

Код:

Echo on& Chcp1251 & CLS

Set "Domain=Mshome"

for /f %%a in ('"net view /domain:%Domain% | Find /i "\\""') ^
Do Shutdown /p /m %%a
pause

Выключить выборочно станции:

Код:

Echo on& Chcp1251 & CLS
Set machine1="pc1"
Set machine2="pc2"
...
Set machine4="pc4"

for /f "tokens=2 delims==" %%a in ('set machine') ^
Do Shutdown /p /m \\%%~a
pause

Используя WSH (*.vbs)

Код:

Dim OpSysSet, Flags
Dim IntErrlevel

  arrTargetComps = Array("Comp1","Comp2","Comp3")

     For Each strTargetComp In arrTargetComps

         Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//" & strTargetComp ).ExecQuery("select * from Win32_OperatingSystem where Primary=true")


  ' 0-Logoff, 1-Shutdown, 2-Reboot, 4-Force
  ' 8-Power Off, 16-Force If Hung 

          Flags       =  1 ' Выключаем
          IntErrlevel =  0

          For Each OpSys In OpSysSet
              OpSys.Win32Shutdown Flags,IntErrlevel
          Next

      Next

Пара примеров для vbs:
http://gallery.technet.microsoft.com...1-eace6ff99bcd
http://gallery.technet.microsoft.com...1-7c30388c1adb