Imports System<br>
Imports System.Net<br>
Module Module1<br>
Sub Main()<br>
Dim i As Integer<br>
Dim currentMachine As String<br>
currentMachine = Dns.GetHostName()<br>
Console.WriteLine("Host Name: " + currentMachine)<br>
Dim iphe As IPHostEntry<br>
iphe = Dns.GetHostByName(currentMachine)<br>
Dim ipAddresses() As IPAddress = iphe.AddressList<br>
For i = 0 To ipAddresses.GetUpperBound(0)<br>
Console.Write("IP Addresses {0}: {1} ", i, ipAddresses(i).ToString)<br>
Next i<br>
End Sub<br>
End Module<br>