Dalam sistem Win2000, perintah dapat dijalankan melalui metode Exec pada objek Wscript.Shell
Kode sederhananya adalah sebagai berikut:
<% Response.Buffer = true %>
<%
url = " www.topronet.com "
Setel objWShell = CreateObject("WScript.Shell")
Setel objCmd = objWShell.Exec("ping " & url)
strPResult = objCmd.StdOut.Readall()
setel objCmd = tidak ada: Setel objWShell = tidak ada
strStatus = "luring"
jika InStr(strPResult,"TTL=")>0 maka strStatus = "Online"
respon.tulis url & "Statusnya adalah: " & strStatus
respon.tulis ".<br>" & ganti(strPResult,vbCrLf,"<br>")
respon.write "<br><hr>Ditulis oleh Ci Qinqiang, selamat datang untuk mengunjungi
<a href='http://blog.csdn.net/cqq' target='_blank'>
http://blog.csdn.net /cqq</a>"
%>
Dalam sistem XP atau sistem Windows.NET Server, Anda dapat menggunakan WMI untuk mencapai hal ini,
kodenya adalah sebagai berikut:
<%
url = " www.topronet.com "
WMI = "winmgmts:{impersonationLevel=impersonate}"
wqlQuery = "PILIH Kode Status DARI Win32_PingStatus DIMANA Alamat" & _
" = '" & url & "'"
atur PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)
Respon.tulis url & "status"
Untuk Setiap hasil di PingResult
jika clng(result.StatusCode)>0 maka
respon.tulis "offline"
kalau tidak
respon.tulis "online"
berakhir jika
Berikutnya
%>
Tentu saja, kita juga dapat menulis sendiri komponen terkait atau menggunakan beberapa komponen siap pakai untuk mencapai fungsi tersebut,
jadi saya tidak akan membahas detailnya di sini.