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