Dim sAddr As String Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName) sAddr = CType(h.AddressList.GetValue(0), IPAddress).ToString