No sistema Win2000, os comandos podem ser executados através do método Exec do objeto Wscript.Shell.
O código simples é o seguinte:
<% Response.Buffer = true %>.
<%
url = " www.topronet.com "
Definir objWShell = CreateObject("WScript.Shell")
Definir objCmd = objWShell.Exec("ping " & url)
strPResult = objCmd.StdOut.Readall()
definir objCmd = nada: Definir objWShell = nada
strStatus = "off-line"
se InStr(strPResult,"TTL=")>0 então strStatus = "Online"
url de resposta.write & "O status é: " & strStatus
resposta.write ".<br>" & substituir(strPResult,vbCrLf,"<br>")
response.write "<br><hr>Escrito por Ci Qinqiang, bem-vindo a visitar
<a href='http://blog.csdn.net/cqq' target='_blank'>
http://blog.csdn.net /cqq</a>"
%>
No sistema XP ou no sistema Windows.NET Server, você pode usar o WMI para conseguir isso,
o código é o seguinte:
<%
url = " www.topronet.com "
WMI = "winmgmts:{impersonationLevel=impersonate}"
wqlQuery = "SELECIONE StatusCode FROM Win32_PingStatus WHERE Endereço" & _
" = '" & url & "'"
definir PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)
Response.write URL e "status"
Para cada resultado em PingResult
se clng(result.StatusCode)>0 então
resposta.write "off-line"
outro
resposta.escreva "online"
terminar se
Próximo
%>
Claro, também podemos escrever nós mesmos os componentes correspondentes ou usar alguns componentes prontos para realizar tais funções,
por isso não entrarei em detalhes aqui.