WSH를 사용하여 시스템의 Ping 명령을 호출하고 Ping 결과를 텍스트 파일로 리디렉션한 다음 웹 페이지에 텍스트 파일을 표시합니다.
먼저 .BAT 파일을 만듭니다(예: myPing.BAT:). 이 파일은 ASP에서 호출되어야 합니다.
ping -a %1 > d:/INetPub/cgi-bin/%2.txt
(%1)은 앞으로 ping할 주소이고, (%2)는 ping 결과를 저장하는 파일입니다. 다음은 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)
RetCode = 0이면
'오류 없음
또 다른
응답.리디렉션 PingErrors.htm
종료하면
TextFile = FileSys.OpenTextFile(d:/InetPub/cgi-bin/ & FileName & .txt, 1) 설정
TextBuffer = TextFile.ReadAll
i = 1에서 Len(TextBuffer)까지
Mid(TextBuffer,i,1) = chr(13)이면
응답.쓰기(
)
또 다른
응답.쓰기(Mid(TextBuffer,i,1))
종료하면
다음
텍스트파일.닫기
FileSys.DeleteFile d:/Inetpub/cgi-bin/ & 파일 이름 & .txt
%>