Your technology certification is waiting. Enroll in Cloud Class ®
If Ping("192.168.2.2") Then
MsgBox "Passed", vbOKOnly
MsgBox "Failed", vbOKOnly
Public Function Ping(ByVal ComputerIP As String) As Boolean
'You can use also name of computer
' Return TRUE, if pin was successful
Dim oPingResult As Variant
For Each oPingResult In GetObject("winmgmts://./root/cimv2").ExecQuery _
("SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'")
If IsObject(oPingResult) Then
If oPingResult.StatusCode = 0 Then
Ping = True
'Debug.Print "ResponseTime", oPingResult.ResponseTime 'You can also return ping time
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.