Amigo, desculpa, mas ainda nao esta funcionando.
Aparece FIM, mas é como se nada fosse enviado para estação.
MCP
'Ping terminais listados em txt e executa caso ping ok
'Forum scripts administrativos
Data = Date()
DtAt = Split(data,"/",-1)
DataLog = DtAt(0)&DtAt(1)&DtAt(2)
'Local do arquivo de LOG
TempFilename = "./Logshutdown "&DataLog&".txt"
'Lista dos computadores
strComputadores = "c:\Computadores.txt"
'Cria objetos
Set objFSO = createobject("scripting.filesystemobject")
Set Arquivo = objFSO.CreateTextFile(Tempfilename)
Set Arq = objFSO.OpenTextFile(strcomputadores,1)
Set WshShell = WScript.CreateObject("WScript.Shell")
DO until arq.atEndOfStream
'On Error Resume Next
strOPing = Ping(arq.readline)
strHost = arq.readline
if strOPing = True then
'WSHShell.Run "shutdown -m \\" & strHost , 1, false
WSHShell.Run "shutdown /s /f /m \\"& strHost &" /c Desligamento Automatico - Salve seu trabalho imediatamente"
arquivo.writeline "Terminal " & strHost & " encontrado, enviado comando de desligar as " & Time()
Else
'Wscript.Echo "Ping OFF"
arquivo.writeline "Terminal " & strHost & " não pode ser encontrado"
end if
Loop
Arq.close()
Wscript.echo "Fim"
'--------------------------------
'Função Ping via WMI
'--------------------------------
Function Ping(strHost)
dim objPing, objRetStatus
set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_PingStatus where address = '" & strHost & "'")
for each objRetStatus in objPing
if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode <> 0 then
Ping = False
else
Ping = True
end if
next
End Function
'------------
Verifique esse, informe se der algum erro......
[]s,
" Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
