ASPでPingをする方法です。WMIを使用します。
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set PingSet = objWMIService.ExecQuery("Select * from Win32_PingStatus Where Address = '127.0.0.1'")
for each Ping In PingSet
select case Ping.StatusCode
case 0
Response.write "Success"
case 11010
Response.write "Request Timed Out"
case else
Response.write "Error"
end select
next
エラー'80041003'が発生する場合。
ASPを実行している権限に問題がある場合があります。IISマネージャで権限を確認してください。
