Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim strHostName As String
Try
strHostName = Dns.GetHostByAddress("68.129.2.123").HostName
Console.WriteLine(strHostName)
Catch exfe As FormatException
Console.WriteLine(exfe.Message)
Catch exse As SocketException
Console.WriteLine(exse.Message)
End Try
End Sub
End Class
|