Im Win2000-System können Befehle über die Exec-Methode des Wscript.Shell-Objekts ausgeführt werden.
Der einfache Code lautet wie folgt:
<% Response.Buffer = true %>
<%
url = " www.topronet.com "
Setze objWShell = CreateObject("WScript.Shell")
Setze objCmd = objWShell.Exec("ping " & url)
strPResult = objCmd.StdOut.Readall()
set objCmd = Nothing: Setze objWShell = Nothing
strStatus = "offline"
if InStr(strPResult,"TTL=")>0 then strStatus = "Online"
Response.write URL & „Der Status ist:“ & strStatus
Response.write ".<br>" & replace(strPResult,vbCrLf,"<br>")
Response.write „<br><hr>Geschrieben von Ci Qinqiang, willkommen bei
<a href='http://blog.csdn.net/cqq' target='_blank'>
http://blog.csdn.net /cqq</a>"
%>
In XP-Systemen oder Windows.NET Server-Systemen können Sie WMI verwenden, um dies zu erreichen.
Der Code lautet wie folgt:
<%
url = " www.topronet.com "
WMI = „winmgmts:{impersonationLevel=impersonate}“
wqlQuery = „SELECT StatusCode FROM Win32_PingStatus WHERE Address“ & _
" = '" & URL & "'"
set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)
Response.write-URL und „Status“
Für jedes Ergebnis in PingResult
wenn clng(result.StatusCode)>0 dann
Response.write „offline“
anders
Response.write „online“
Ende wenn
Nächste
%>
Natürlich können wir entsprechende Komponenten auch selbst schreiben oder einige vorgefertigte Komponenten verwenden, um solche Funktionen zu erreichen,
daher werde ich hier nicht auf Details eingehen.