Let other users know how useful this tip is by rating it below. Got a tip or code of your own you'd like to share? Submit it here!
One of the many namespaces in the Base Class Framework is the System.Net namespace. It provides a simple programming interface to many of the protocols found on the network today. One of the classes of the namespace is DNS, which provides simple domain name resolution functionality.
The following example demonstrates the use of System.NET.DNS namespace to get the computer Name and its IP address:
Option Strict Off
Imports system
Imports System.Net.DNS
Public Class GetIP
Shared Function GetIPAddress() As String
Dim oAddr As System.Net.IPAddress
Dim sAddr As String
With system.Net.DNS.GetHostByName(system.Net.DNS.GetHostName())
oAddr = New System.Net.IPAddress(.AddressList(0).Address)
sAddr = oAddr.ToString
End With
GetIPAddress = sAddr
End Function
Shared Sub main()
Dim shostname As String
shostname = system.Net.DNS.GetHostName
console.writeline("Your Machine Name = " & shostname)
'Call Get IPAddress
console.writeline("Your IP = " & GetIPAddress)
End Sub
End Class
Compile the file as: vbc getip.vb /r:system.net.dll. Execute the getip.exe and the computer's name and IP will be printed on the console.
Source: DotNetExtreme.com
This was first published in February 2003