Используйте WSH для вызова системной команды Ping, перенаправьте результат Ping в текстовый файл, а затем отобразите текстовый файл на веб-странице. Конкретный метод заключается в следующем:
Сначала создайте файл .BAT (например: myPing.BAT:). Этот файл должен называться в ASP. Код файла следующий:
ping -a %1 > d:/INetPub/cgi-bin/%2.txt
(%1) — это адрес, который будет проверяться в будущем, (%2) — это файл, в котором хранятся результаты проверки связи. Ниже приведен код ASP:
<%
Установите FileSys = Server.CreateObject(Scripting.FileSystemObject)
ИмяФайла = FileSys.GetTempName
Установите WShShell = Server.CreateObject(WScript.Shell)
IP = xxx.xxx.xxx.xxx 'Адрес, который вы хотите проверить
RetCode = WShShell.Run(d:/Inetpub/cgi-bin/myPing.bat & IP & & FileName, 1, True)
если Реткод = 0 Тогда
'нет ошибки
еще
Response.Redirect PingErrors.htm
конец, если
Установить TextFile = FileSys.OpenTextFile(d:/InetPub/cgi-bin/ & FileName & .txt, 1)
ТекстБуфер = ТекстовыйФайл.ЧитатьВсе
Для i = 1 до Len(TextBuffer)
Если Mid(TextBuffer,i,1) = chr(13) Тогда
Ответ.Записать(
)
еще
Response.Write(Mid(TextBuffer,i,1))
конец, если
Следующий
ТекстФайл.Закрыть
FileSys.DeleteFile d:/Inetpub/cgi-bin/ & FileName & .txt
%>