MsgBox fncPing("192.168.1.1") Function fncPing(host) Set objWMI = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMI.ExecQuery("select * from Win32_PingStatus where address ='" & host & "'") For Each objItem In colItems If objItem.StatusCode = 0 Then fncPing = True Else fncPing = False End If Next Set objItem = Nothing Set colItems = Nothing Set objWMI = Nothing End Functionhttp://happy44s.blogspot.jp/2012/03/vbscriptping.html
こういうことらしい。
大変便利なソースでございまする。
MsgBox fncPing("192.168.1.1")
Msgboxでは、fncPingを呼び出している。
そして引数は192.168.1.1
要するに、192.168.1.1にPINGを打つ。
そしてFunction fncPingの中を見る。
ステータスコードが0のときは問題なく
PINGが打てたときだ。
そのため、0の場合はfncPingにはTrueを返す。
それ以外はFalse。
そのため、MsgboxではFalseが表示される。