ใช้ WSH เพื่อเรียกคำสั่ง Ping ของระบบ เปลี่ยนเส้นทางผลลัพธ์ Ping ไปยังไฟล์ข้อความ จากนั้นแสดงไฟล์ข้อความบนเว็บเพจ วิธีการเฉพาะมีดังนี้:
ขั้นแรก สร้างไฟล์ .BAT (เช่น myPing.BAT:) ไฟล์นี้ควรถูกเรียกใน ASP
ปิง -a %1 > d:/INetPub/cgi-bin/%2.txt
(%1) คือที่อยู่ที่จะส่ง Ping ในอนาคต (%2) คือไฟล์ที่เก็บผลลัพธ์การ Ping ต่อไปนี้คือรหัสของ ASP:
-
ตั้งค่า FileSys = Server.CreateObject (Scripting.FileSystemObject)
FileName = FileSys.GetTempName
ตั้งค่า WshShell = Server.CreateObject(WScript.Shell)
IP = xxx.xxx.xxx.xxx 'ที่อยู่ที่คุณต้องการส่ง Ping
RetCode = WshShell.Run(d:/Inetpub/cgi-bin/myPing.bat & IP & & ชื่อไฟล์, 1, จริง)
ถ้า RetCode = 0 แล้ว
'ไม่มีข้อผิดพลาด
อื่น
การตอบสนอง เปลี่ยนเส้นทาง PingErrors.htm
สิ้นสุดถ้า
ตั้งค่า TextFile = FileSys.OpenTextFile(d:/InetPub/cgi-bin/ & FileName & .txt, 1)
TextBuffer = TextFile.ReadAll
สำหรับ i = 1 ถึง Len (TextBuffer)
ถ้า Mid(TextBuffer,i,1) = chr(13) แล้ว
ตอบกลับเขียน(
-
อื่น
Response.Write (กลาง (TextBuffer, i,1))
สิ้นสุดถ้า
ต่อไป
ไฟล์ข้อความปิด
FileSys.DeleteFile d:/Inetpub/cgi-bin/ & ชื่อไฟล์ & .txt
-