Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Try
Dim myIPHostEntry As IPHostEntry = Dns.Resolve("www.google.com")
Dim myIPAddresses() As IPAddress = myIPHostEntry.AddressList
Dim myIPAddress As IPAddress
Dim strIPAddressList As String
For Each myIPAddress In myIPAddresses
Console.WriteLine(myIPAddress.ToString)
Next
Catch ex As SocketException
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
72.14.253.147
72.14.253.103
72.14.253.99
72.14.253.104