如何在VB脚本中PingIP

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")