<%
rem ***********************************************************
rem * 建立對象
rem ***********************************************************
Set Pinger = Server.CreateObject("AspPing.Conn")
rem ***********************************************************
rem * 設定要ping的主機
rem ***********************************************************
Pinger.RemoteHost = "www.microsoft.com"
rem ***********************************************************
rem * ping遠程主機的次數,可選
rem * 預設值為 1
rem ***********************************************************
Pinger.PingCount = 2
rem ***********************************************************
rem * Ping 然後獲得ping的結果
rem ***********************************************************
Response.Write "<pre>" & Pinger.Ping & "</pre>"
rem ***********************************************************
rem * 釋放對象
rem ***********************************************************
Set Pinger = nothing