В системе Win2000 команды могут выполняться с помощью метода Exec объекта Wscript.Shell.
Простой код выглядит следующим образом:
<% Response.Buffer = true %>.
<%
URL = " www.topronet.com "
Установите objWSShell = CreateObject("WScript.Shell")
Установите objCmd = objWShell.Exec("ping" & url)
strPResult = objCmd.StdOut.Readall()
установить objCmd = ничего: Установить objWSShell = ничего
strStatus = "оффлайн"
если InStr(strPResult,"TTL=")>0, то strStatus = "В сети"
response.write url & "Статус: " & strStatus
response.write ".<br>" & replace(strPResult,vbCrLf,"<br>")
response.write "<br><hr>Написано Ци Циньцяном, добро пожаловать на
<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 = «ВЫБЕРИТЕ код состояния из адреса Win32_PingStatus WHERE» & _
" = '" & URL & "'"
set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)
Response.write URL и «статус»
Для каждого результата в PingResult
если clng(result.StatusCode)>0, то
ответ.напишите «оффлайн»
еще
ответ.напишите "онлайн"
конец, если
Следующий
%>
Конечно, мы также можем написать соответствующие компоненты самостоятельно или использовать какие-то готовые компоненты для реализации таких функций,
поэтому я не буду здесь вдаваться в подробности.