Use WSH para chamar o comando Ping do sistema, redirecionar os resultados do Ping para um arquivo de texto e, em seguida, exibir o arquivo de texto na página da web.
Primeiro, crie um arquivo .BAT (por exemplo: myPing.BAT:). Este arquivo deve ser chamado em ASP.
ping -a %1 > d:/INetPub/cgi-bin/%2.txt
(%1) é o endereço a ser pingado no futuro, (%2) é o arquivo que armazena os resultados do ping. A seguir está o código do ASP:
<%
Definir FileSys = Server.CreateObject(Scripting.FileSystemObject)
NomeArquivo = FileSys.GetTempName
Definir WShShell = Server.CreateObject(WScript.Shell)
IP = xxx.xxx.xxx.xxx 'O endereço que você deseja executar ping
RetCode = WShShell.Run(d:/Inetpub/cgi-bin/myPing.bat & IP & & Nome do arquivo, 1, Verdadeiro)
se RetCode = 0 Então
'nenhum erro
outro
Response.Redirect PingErrors.htm
terminar se
Definir TextFile = FileSys.OpenTextFile(d:/InetPub/cgi-bin/ & FileName & .txt, 1)
TextBuffer = TextFile.ReadAll
Para i = 1 para Len(TextBuffer)
Se Mid(TextBuffer,i,1) = chr(13) Então
Resposta.Write(
)
outro
Response.Write(Mid(TextBuffer,i,1))
terminar se
Próximo
Arquivo de texto.Fechar
FileSys.DeleteFile d:/Inetpub/cgi-bin/ & FileName & .txt
%>