Public Class Tester Public Shared Sub Main Dim hostname As String = Dns.GetHostName() Dim ipaddress As String = CType(Dns.GetHostByName(hostname).AddressList.GetValue(0), IPAddress).ToString
Console.WriteLine("Computer Name: " & hostname & " IP Address: " & ipaddress) End Sub