LISTING 1: Ping_List Subroutine



Private Sub Ping_List()



Dim iListCount As Integer

Dim i As Integer

Dim iPingResults As Integer

Dim lPingTime As Long

Dim sIP As String

Dim iTemp As Integer




List_PingStatus.Clear




iListCount = List_IP.ListCount



For i = 0 To iListCount - 1



List_PingStatus.AddItem "Pinging " & List_IP.List(i)

List_PingStatus.ListIndex = List_PingStatus.ListCount - 1

DoEvents




sIP = Space(16)


iPingResults = ping(List_IP.List(i), sIP, 64, lPingTime, 2000, 0)

If iPingResults = 0 Then


iTemp = InStr(sIP, Chr$(0))


List_PingStatus.AddItem "Ping to: " & Mid$(sIP, 1, _


iTemp - 1) & "  took: " & Str(lPingTime) & " ms"

Else



If SSCheck_Beep.Value = True Then Beep

List_PingStatus.AddItem "Ping to: " & List_IP.List(i) & _
" Failed. Return code: " & Str$(iPingResults)

End If



List_PingStatus.ListIndex = List_PingStatus.ListCount - 1

DoEvents



Next i



End Sub