Dim Address() As IPAddress Dim str As String = Dns.GetHostName() Address = Dns.GetHostEntry(str).AddressList