如何在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")