ScriptsVBS & VBA

Ping Alert em vbs

88 views
4 Comentários
0
(0)

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

O que você achou disso?

Média da classificação 0 / 5. Número de votos: 0

Nenhum voto até agora! Seja o primeiro a avaliar este post.

Como você achou esse post útil...

Ajude o site a crescer compartilhando o conteúdo

Lamentamos que este post não tenha sido útil para você!

Vamos melhorar este post!

Diga-nos, como podemos melhorar este post?

Tags:

Artigos Relacionados

4 Comentários. Deixe novo

Gostou do conteúdo? Deixe seu comentário

Veja também

Menu