Windows NT/2000/XP/2003/2008 PageActive Server Page > WMIを使用してPing
WMIを使用してPing




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


キャラ&ホビー格安通販 あみあみ