En el sistema Win2000, los comandos se pueden ejecutar a través del método Exec del objeto Wscript.Shell.
El código simple es el siguiente:
<% Response.Buffer = true %>.
<%
URL = " www.topronet.com "
Establecer objWShell = CreateObject("WScript.Shell")
Establecer objCmd = objWShell.Exec ("ping" y URL)
strPResult = objCmd.StdOut.Readall()
establecer objCmd = nada: establecer objWShell = nada
strStatus = "fuera de línea"
si InStr(strPResult,"TTL=")>0 entonces strStatus = "En línea"
respuesta.escribir URL & "El estado es: " & strStatus
respuesta.escribir ".<br>" y reemplazar (strPResult,vbCrLf,"<br>")
Response.write "<br><hr>Escrito por Ci Qinqiang, bienvenido a visitar
<a href='http://blog.csdn.net/cqq' target='_blank'>
http://blog.csdn.net /cqq</a>"
%>
En el sistema XP o el sistema Windows.NET Server, puede usar WMI para lograr esto,
el código es el siguiente:
<%
URL = " www.topronet.com "
WMI = "winmgmts:{impersonationLevel=suplantar}"
wqlQuery = "SELECCIONE el código de estado DESDE Win32_PingStatus DONDE Dirección" & _
" = '" & URL & "'"
establecer PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)
Respuesta.escribir URL y "estado"
Para cada resultado en PingResult
si clng(resultado.StatusCode)>0 entonces
respuesta.escribir "fuera de línea"
demás
respuesta.escribir "en línea"
terminar si
Próximo
%>
Por supuesto, también podemos escribir los componentes correspondientes nosotros mismos o utilizar algunos componentes ya preparados para lograr dichas funciones,
por lo que no entraré en detalles aquí.