dim computer
set fso = CreateObject(“Scripting.FileSystemObject”)
const ForREAding = 1
set leia = fso.opentextFile(“c:maquinas.txt”,ForREAding)
Do until leia.AtEndOfStream
computer=leia.readline
set wshell = CreateObject(“Wscript.Shell”)
Wshell.run “shutdown -r -f -m ” & computer
loop
Obs: Você deve criar um arquivos txt com o ip das máquinas Ex:c:maquinas.txt e infomar este caminho no script