реализация пинга с помощью WMI.
Функция вернет истину при нормальном пинге
Function WMIPing(strAdr As String) As Boolean
Dim objPing As Object
Dim objStatus As Object
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
ExecQuery("select * from Win32_PingStatus where address = '" & strAdr & "'")
For Each objStatus In objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
WMIPing = False
Else
WMIPing = True
End If
Next