Utilisez WSH pour appeler la commande Ping du système, redirigez le résultat Ping vers un fichier texte, puis affichez le fichier texte sur la page Web. La méthode spécifique est la suivante :
Commencez par créer un fichier .BAT (par exemple : myPing.BAT :). Ce fichier doit être appelé en ASP. Le code du fichier est le suivant :
ping -a %1 > d:/INetPub/cgi-bin/%2.txt
(%1) est l'adresse à envoyer par ping à l'avenir, (%2) est le fichier qui stocke les résultats du ping. Voici le code d'ASP :
<%
Définir FileSys = Server.CreateObject (Scripting.FileSystemObject)
NomFichier = FileSys.GetTempName
Définir WShShell = Server.CreateObject (WScript.Shell)
IP = xxx.xxx.xxx.xxx 'L'adresse à laquelle vous souhaitez envoyer un ping
RetCode = WShShell.Run(d:/Inetpub/cgi-bin/myPing.bat & IP & & FileName, 1, True)
si RetCode = 0 Alors
'pas d'erreur
autre
Réponse.Redirection PingErrors.htm
finir si
Définir TextFile = FileSys.OpenTextFile(d:/InetPub/cgi-bin/ & FileName & .txt, 1)
TextBuffer = TextFile.ReadAll
Pour i = 1 à Len(TextBuffer)
Si Mid(TextBuffer,i,1) = chr(13) Alors
Réponse.Write(
)
autre
Réponse.Write(Mid(TextBuffer,i,1))
finir si
Suivant
TextFile.Fermer
FileSys.DeleteFile d:/Inetpub/cgi-bin/ & FileName & .txt
%>