quinta-feira, novembro 23, 2017
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 NOC, toca um violãozinho nas horas vagas e tenta eternamente entender o que o fez escolher TI

Veja também!

Aol quer reinventar o email com ALTO

  A AOL iniciou as primeiras operações do Alto, um novo gerenciador de emails totalmente …

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

Este artigo lhe foi útil? comente e ajude outros acrescentando seu ponto de vista!