VB.Net by API/System.Net/IPHostEntry

IPHostEntry.AddressList

<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets

Public Class Tester

   Public Shared Sub Main

       Try
           Dim myIPHostEntry As IPHostEntry = Dns.Resolve("www.google.ru")
           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

 </source>