quinta-feira, novembro 23, 2017
Breaking News
Home » Programação/ Scripts » VBS – Ping com data e hora

VBS – Ping com data e hora

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

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!

Corrijindo o problema de sincronização do relógio em computadores com dual boot

Neste artigo abordamos a solução de computadores dual boot onde se perde a data e a hora

5 comentários

  1. Luciano

    bem interessante, mas nem precisa tudo isso, achei a dica do cara:

    http://brportable.blogspot.com.br/2012/03/ping-com-data-e-hora.html

  2. Luciano

    interessante, mas achei um negocio mais simples, veja dica do cara
    brportable.blogspot.com.br/2012/03/ping-com-data-e-hora.html

  3. Então Luciano, o ping -s é bacana também, mas o que fazer o resultado em numeros gigantes 70742985?

  4. pode ser feito em PowerShell também:
    test-connection NOMEPC -count 2 -delay 60 | select @{n=’TimeStamp’;e={Get-Date}},__SERVER, Address, ProtocolAddress, ResponseTime | out-file c:\temp\test-connection.txt -append

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