Dim IP1 As String
Dim IP2 As String
Dim IPKomplett As String
Dim Ausgabe As String
 
Private Declare Function IsDestinationReachable Lib _
  "Sensapi.dll" Alias "IsDestinationReachableA" _
  (ByVal lpszDestination As String, _
  lpQOCInfo As QOCINFO) As Long
 
Private Type QOCINFO
  dwSize As Long
  dwFlags As Long
  dwInSpeed As Long
  dwOutSpeed As Long
End Type
 
 
Public Function Ping(ByVal IP As String) As Boolean
  Dim QuestStruct As QOCINFO
  Dim lReturn As Long
 
  QuestStruct.dwSize = Len(QuestStruct)
 
  lReturn = IsDestinationReachable(IP, QuestStruct)
 
  If lReturn = 1 Then
    Ping = True
  Else
    Ping = False
  End If
 
End Function

Private Sub Command1_Click()
 
IP1 = "152.3.32."
IP2 = 0
 
Text1.Text = "processing..."
 
Do
 
    IP2 = IP2 + 1
 
    IPKomplett = IP1 + IP2
 
    Text1.Text = IPKomplett    
 
        If (Ping(IPKomplett)) = True Then
 
            Ausgabe = Ausgabe + IPKomplett + " Belegt..." + vbCrLf
 
        Else
 
            Ausgabe = Ausgabe + IPKomplett + " Frei..." + vbCrLf
 
        End If
 
 
Loop Until IP2 = 3
 
Text1.Text = Ausgabe
 
End Sub