VBScriptでPing

VBSCript で Ping を撃ちたい時のサンプル。

リモート端末にVBScriptで処理を実施したいと考えたのですが、端末が起動しているかどうかを確認してからしたい処理がありました。

そこで、スクリプト内にpingを撃って、疎通結果をTrue/Falseで返す関数にしました。

WMI(Windows Management Instrumentation)を利用しています（=Windows環境です）。


Ping.vbs------------------------------------------------

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 Function

---------------------------------------------------


とさ。