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マネージャで権限を確認してください。