Imports System.Net



Module Module1

    Sub Main()

        Dim Hostname As String = Dns.GetHostName

        Dim i As Integer
        Dim ip As String


        For i = 1 To 255

            ip = "193.63.128." & i

            Try

                Hostname = Dns.GetHostByAddress(ip.ToString).HostName

                Console.WriteLine(ip & Chr(9) & Hostname)

            Catch ex As Exception

                Hostname = Nothing
                Console.WriteLine(ip)

            End Try

        Next i

    End Sub

End Module