domingo, dezembro 9, 2018
Breaking News
Home » Programação/ Scripts » VBS – Ping Alert Simples

VBS – Ping Alert Simples

Olá Pessoal, já faz um bom tempo que não coloco um VBS aqui no site. Então, segue um pequeno e simples ping alert, que pode ser modificado, acrescentando mais opções.

 
strComputers = “192.168.1.7,192.168.1.1” ‘ – Local onde serão escritos os IPs ou nomes para serem pingados.
arrComputers = split(strComputers, “,”)
For Each strComputer in arrComputers
Set objPing = GetObject(“winmgmts:{impersonationLevel=impersonate}”)._
ExecQuery(“select * from Win32_PingStatus where address = ‘” & _
strComputer & “‘”)
For Each objPingStatus in objPing
If IsNull(objPingStatus.StatusCode) or objPingStatus.StatusCode<>0 Then
if strFailedPings <> “” then strFailedPings = strFailedPings & vbcrlf
strFailedPings = strFailedPings & strComputer
End If
Next
Next
IF strFailedPings = “” then
wscript.echo “Todos os Hosts responderam ao Ping”
ELSE
wscript.echo “Os seguintes Hosts não responderam ao Ping:” & _
vbcrlf & vbcrlf & strFailedPings
END IF

Sobre Diego Duarte

Diego Duarte atua como coordenador de suporte, é apaixonado por TI e arranha um violãozinho nos finais de semana

3 comentários

  1. joel

    Bom dia Diego, não consegui executar seu script poderia me dar uma força?

  2. joel

    estou com problemas para obter a resposta do ping e como fazer o teste logico pela string, gostaria de saber qual seria o comando que busca a resposta

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *