Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim ipAddr As IPAddress
Dim remoteHostEntry As IPHostEntry
Try
ipAddr = IPAddress.Parse("68.178.206.138")
remoteHostEntry = Dns.GetHostByAddress(ipAddr)
Console.WriteLine(remoteHostEntry.HostName)
Catch ex As SocketException
Console.WriteLine(ex.StackTrace.ToString)
End Try
End Sub
End Class
|