Function Ping(strHost)
Dim colItems, objItem, intVal
Ping = False
Set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
(" select * from Win32_PingStatus where address = '" & strHost & "'")
For Each objItem In colItems
If IsNull(objItem.StatusCode) Then
intVal = -1
Else
intval = objItem.StatusCode
End If
Ping = intVal
Exit For
Next
set colItems = Nothing
End Function