如何在VB腳本中Ping IP

函數代碼如下，通訊成功返回True，通訊失敗返回False：

Function PingIP(IP)
	Dim objWMIService   '定義SWbemServices對象
	Dim colItems  'SWbem對象集合
	Dim objItem  'Swbem單個對象
	Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_PingStatus Where Address='"& IP &"'") 
	For Each objItem In colItems
		If objItem.StatusCode = 0 Then
			PingIP = True
		Else
			PingIP = False
		End If
	Next
end Function

　　

使用方式：

msgbox PingIP("172.16.15.23")