Tt

 Function Ping(strip)

Dim objshell, boolcode

Set objshell = CreateObject("Wscript.Shell")

boolcode = objshell.Run("ping -n 1 -w 1000 " & strip, 0, True)

If boolcode = 0 Then

    Ping = True

Else

    Ping = False

End If

End Function

Function rsp_time(target)

Set wmi = GetObject("winmgmts://./root/cimv2")

qry = "SELECT * FROM Win32_PingStatus WHERE address='" & target & "'"

rspTime = 0

cnt = 0

    For Each pingStatus In wmi.ExecQuery(qry)

        If pingStatus.StatusCode = 0 Then

            rspTime = rspTime + pingStatus.ResponseTime

            cnt = cnt + 1

        End If

    Next

    rsp_time = rs

pTime / cnt

End Function