Gunakan WSH untuk memanggil perintah Ping sistem, mengarahkan hasil Ping ke file teks, dan kemudian menampilkan file teks di halaman web. Metode spesifiknya adalah sebagai berikut:
Pertama, buat file .BAT (misalnya: myPing.BAT :). File ini harus dipanggil dalam ASP. Kode filenya adalah sebagai berikut:
ping -a %1 > d:/INetPub/cgi-bin/%2.txt
(%1) adalah alamat yang akan diping nantinya, (%2) adalah file yang menyimpan hasil ping. Berikut kode ASPnya:
<%
Setel FileSys = Server.CreateObject(Scripting.FileSystemObject)
Nama File = FileSys.GetTempName
Setel WShShell = Server.CreateObject(WScript.Shell)
IP = xxx.xxx.xxx.xxx 'Alamat yang ingin Anda ping
RetCode = WShShell.Run(d:/Inetpub/cgi-bin/myPing.bat & IP & & Nama File, 1, Benar)
jika RetCode = 0 Lalu
'tidak ada kesalahan
kalau tidak
Respon.Redirect PingErrors.htm
berakhir jika
Setel File Teks = FileSys.OpenTextFile(d:/InetPub/cgi-bin/ & Nama File & .txt, 1)
TextBuffer = File Teks.BacaSemua
Untuk i = 1 hingga Len(TextBuffer)
Jika Mid(TextBuffer,i,1) = chr(13) Maka
Respon.Tulis(
)
kalau tidak
Respon.Tulis(Pertengahan(TextBuffer,i,1))
berakhir jika
Berikutnya
TextFile.Tutup
FileSys.DeleteFile d:/Inetpub/cgi-bin/ & Nama File & .txt
%>