Dans le système Win2000, les commandes peuvent être exécutées via la méthode Exec de l'objet Wscript.Shell.
Le code simple est le suivant :
<% Response.Buffer = true %>.
<%
url = " www.topronet.com "
Définir objWShell = CreateObject("WScript.Shell")
Définir objCmd = objWShell.Exec("ping " & url)
strPResult = objCmd.StdOut.Readall()
set objCmd = rien : Set objWShell = rien
strStatus = "hors ligne"
si InStr(strPResult,"TTL=")>0 alors strStatus = "En ligne"
réponse.écrire l'url & "Le statut est : " & strStatus
réponse.write ".<br>" & replace(strPResult,vbCrLf,"<br>")
réponse.write "<br><hr>Écrit par Ci Qinqiang, bienvenue pour visiter
<a href='http://blog.csdn.net/cqq' target='_blank'>
http://blog.csdn.net /cqq</a>"
%>
Dans le système XP ou le système Windows.NET Server, vous pouvez utiliser WMI pour y parvenir,
le code est le suivant :
<%
url = " www.topronet.com "
WMI = "winmgmts : {impersonationLevel=impersonate}"
wqlQuery = "SELECT StatusCode FROM Win32_PingStatus WHERE Adresse" & _
" = '" & URL & "'"
set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)
Réponse.écrire l'URL et le "statut"
Pour chaque résultat dans PingResult
si clng(result.StatusCode)>0 alors
réponse.write "hors ligne"
autre
réponse.écrire "en ligne"
finir si
Suivant
%>
Bien sûr, nous pouvons également écrire nous-mêmes les composants correspondants ou utiliser des composants prêts à l'emploi pour réaliser de telles fonctions,
je n'entrerai donc pas dans les détails ici.