Utilice WSH para llamar al comando Ping del sistema, redirigir los resultados del Ping a un archivo de texto y luego mostrar el archivo de texto en la página web. El método específico es el siguiente:
Primero, cree un archivo .BAT (por ejemplo: myPing.BAT:). Este archivo debe llamarse en ASP. El código del archivo es el siguiente:
ping -a %1 > d:/INetPub/cgi-bin/%2.txt
(%1) es la dirección a la que se hará ping en el futuro, (%2) es el archivo que almacena los resultados del ping. El siguiente es el código de ASP:
<%
Establecer FileSys = Server.CreateObject(Scripting.FileSystemObject)
Nombre de archivo = FileSys.GetTempName
Establecer WShShell = Server.CreateObject(WScript.Shell)
IP = xxx.xxx.xxx.xxx 'La dirección a la que desea hacer ping
RetCode = WShShell.Run(d:/Inetpub/cgi-bin/myPing.bat & IP & & FileName, 1, Verdadero)
si RetCode = 0 entonces
'sin errores
demás
Respuesta.Redireccionamiento PingErrors.htm
terminar si
Establecer TextFile = FileSys.OpenTextFile(d:/InetPub/cgi-bin/ & FileName & .txt, 1)
TextBuffer = ArchivoDeTexto.ReadAll
Para i = 1 a Len(TextBuffer)
Si Mid(TextBuffer,i,1) = chr(13) Entonces
Respuesta.Escribir(
)
demás
Respuesta.Escribir(Mid(TextBuffer,i,1))
terminar si
Próximo
Archivo de texto.Cerrar
FileSys.DeleteFile d:/Inetpub/cgi-bin/ & Nombre de archivo & .txt
%>