Ping Alert em vbs

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