ในระบบ Win2000 คำสั่งสามารถดำเนินการผ่านเมธอด Exec ของอ็อบเจ็กต์ Wscript.Shell
รหัสอย่างง่ายมีดังนี้:
<% Response.Buffer = true %>
-
url = " www.topronet.com "
ตั้ง objWShell = CreateObject("WScript.Shell")
ตั้งค่า objCmd = objWShell.Exec("ping " & url)
strPResult = objCmd.StdOut.Readall()
set objCmd = ไม่มีอะไร: ตั้งค่า objWShell = ไม่มีอะไร
strStatus = "ออฟไลน์"
ถ้า InStr(strPResult,"TTL=")>0 ดังนั้น strStatus = "ออนไลน์"
response.write url & "สถานะคือ:" & strStatus
response.write ".<br>" & แทนที่ (strPResult,vbCrLf,"<br>")
response.write "<br><hr>เขียนโดย Ci Qinqiang ยินดีต้อนรับสู่
<a href='http://blog.csdn.net/cqq' target='_blank'>
http://blog.csdn.net /cqq</a>"
-
ในระบบ XP หรือระบบเซิร์ฟเวอร์ Windows.NET คุณสามารถใช้ WMI เพื่อให้บรรลุเป้าหมายนี้ได้
รหัสจะเป็นดังนี้:
<%
url = " www.topronet.com "
WMI = "winmgmts:{impersonationLevel=impersonate}"
wqlQuery = "เลือกรหัสสถานะจาก Win32_PingStatus ที่อยู่ที่อยู่" & _
" = '" & URL & "'"
ตั้งค่า PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)
Response.write url & "สถานะ"
สำหรับแต่ละผลลัพธ์ใน PingResult
ถ้า clng(result.StatusCode)>0 แล้ว
ตอบกลับเขียนว่า "ออฟไลน์"
อื่น
ตอบกลับเขียน "ออนไลน์"
สิ้นสุดถ้า
ต่อไป
-
แน่นอนว่าเรายังสามารถเขียนส่วนประกอบที่เกี่ยวข้องด้วยตนเองหรือใช้ส่วนประกอบสำเร็จรูปบางอย่างเพื่อให้ได้ฟังก์ชันดังกล่าว
ดังนั้นฉันจะไม่ลงรายละเอียดที่นี่