Win2000 시스템에서는 Wscript.Shell 개체의 Exec 메서드를 통해 명령을 실행할 수 있습니다.
간단한 코드는 다음과 같습니다.
<% Response.Buffer = true %>
<%
url = " www.topronet.com "
objWShell = CreateObject("WScript.Shell") 설정
objCmd = objWShell.Exec("ping " & url) 설정
strPResult = objCmd.StdOut.Readall()
set objCmd = 없음: objWShell = 없음 설정
strStatus = "오프라인"
if InStr(strPResult,"TTL=")>0이면 strStatus = "Online"
response.write url & "상태는: " & strStatus
response.write ".<br>" & 교체(strPResult,vbCrLf,"<br>")
response.write "<br><hr>Ci Qinqiang이 작성했습니다.
<a href='http://blog.csdn.net/cqq' target='_blank'>
http://blog.csdn.net을 방문해 주셔서 감사합니다. /cqq</a>"
%>
XP 시스템 또는 Windows.NET Server 시스템에서는 WMI를 사용하여 이를 달성할 수 있으며
코드는 다음과 같습니다.
<%
url = " www.topronet.com "
WMI = "winmgmts:{impersonationLevel=impersonate}"
wqlQuery = "WHERE 주소에서 Win32_PingStatus 상태 코드 선택" & _
" = '" & URL & "'"
PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48) 설정
Response.write URL 및 "상태"
PingResult의 각 결과에 대해
clng(result.StatusCode)>0이면
response.write "오프라인"
또 다른
response.write "온라인"
종료하면
다음
%>
물론 해당 구성 요소를 직접 작성하거나 기성 구성 요소를 사용하여 이러한 기능을 구현할 수도 있으므로
여기서는 자세히 설명하지 않겠습니다.