ScriptsVBS & VBA

VBS – Ping com data e hora

88 views
9 Comentários
0
(0)

Bom, é comum algumas vezes precisarmos monitorar uma conexão de rede, um site, ou um servidor através do PING. Que tal gravarmos os resultados do ping em um arquivo de texto e adicionarmos a data e a hora?
Para tanto, abra um arquivo de texto, copie e cole o script abaixo, salve o aquivo como .vbs

Altere as linhas abaixo a seu gosto, mediante os comentários:

on error resume next
 
Public Sub Grava(comp)
Const ForAppending = 8
 
‘Colocar o local onde irá salvar o log
arq_ext = “StatusPing.txt”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set arq_int = fso.OpenTextFile(arq_ext , ForAppending, true)
arq_int.write (comp & vbcrlf)
arq_int.close
End Sub
 
Public Sub Ping()
 
data = now()
 
‘Colocar o IP que deseja realizar o PING
aMachines = (“200.200.200.200”)
 
Set objPing = GetObject(“winmgmts:{impersonationLevel=impersonate}”)._
ExecQuery(“select * from Win32_PingStatus where address = ‘”& amachines & “‘”)
 
For Each objStatus in objPing
 
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
 
result = (“Não foi possível efetuar ping – ” & data)
 
grava(result)
 
else
 
result = (“Ping OK – ” & data)
 
grava(result)
 
 
 
end if
 
next
 
End Sub
 
Do
While Counter < 2
Ping()
Counter = Counter + 1
‘Definir de quanto em quanto tempo será executado, para cinco minutos alterar o valor abaixo para 300000
wscript.sleep (5000)
Wend
Counter = 0
Loop Until Counter = 2
Espero que lhes seja util. até a proxima.
Caso deseje um ping com data e hora em PowerShell, clique aqui
Gostaria de saber mais sobre ping? clique aqui
Precisa fazer um alerta de ping? acredito que este artigo pode lhe ajudar: clique aqui
créditos do script: http://social.technet.microsoft.com/profile/bruno%20m.%20cunha/?ws=usercard-mini

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

9 Comentários. Deixe novo

Gostou do conteúdo? Deixe seu comentário

Veja também

Menu