Mega Code Archive

 

Categories / VB.Net by API / System Net

 

Dns GetHostName()

Imports System.Environment Imports System.Net    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 End Class