Dim IP As String = "192.168."
 
        For N1 As Integer = 1 To 255
            For N2 As Integer = 1 To 255
 
                Try
                    If My.Computer.Network.Ping(IP & N1 & "." & N2, 100) Then
                        Console.WriteLine(IP & N1 & "." & N2)
                    End If
                Catch ex As Exception
                    Console.WriteLine("Fehler: {0}", ex.Message)
                End Try
 
            Next N2
        Next N1