Intellipro - Automating QTP Test Automation - Downloads - General - Ping

General Function - Ping

This function checks that you can get through to the host you require.

If you find an error, or have a suggestion for improvement, Email me and I'll fix it.

Download it Here (right-click and then save target as).

(NOTE - you can just cut & paste from below, but the formatting will have multiple spaces instead of tabs).

'=========================================================================

Function zGen_Ping(sHost)

'This function checks that you can get through to the host you require

'Example usage:
'    'Check we have internet...
'    If Not zGen_Ping("www.google.com") Then
'        Msgbox "Not connected to Internet",vbCritical,"Fatal Error:"
'        Call ExitTest()
'    End If

    Print "Gen_Ping : " & sHost

    Dim oPing, oRetStatus

    Set oPing = GetObject("winmgmts:").ExecQuery ("select * from Win32_PingStatus where address = '" & sHost & "'")

    For Each oRetStatus In oPing

        If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then

            Print "Gen_Ping Failed - Status code :" & oRetStatus.StatusCode

            zGen_Ping = False

        Else

            Print "Gen_Ping OK - Bytes : " & vbTab & oRetStatus.BufferSize
            Print "Gen_Ping OK - Time(ms) : " & vbTab & oRetStatus.ResponseTime
            Print "Gen_Ping OK - TTL(s) : " & vbTab & oRetStatus.ResponseTimeToLive

            zGen_Ping = True

        End If

    Next

    Set oPing = Nothing

End Function

'=========================================================================