[Debraj]

Imports System
Imports System.Net.Dns

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim shostname As String
		shostname = System.Net.Dns.GetHostName
		Console.WriteLine("Your Machine Name = " & shostname)
		'Call Get IPAddress
		Console.WriteLine("Your IP = " & GetIPAddress())
		TextBox1.Text = shostname
		TextBox2.Text = "" & GetIPAddress()

	End Sub

	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

Enjoy

[zakary]

you should post this in the Code Snippets to the right under Visual Basic

[Galaxy_Stranger]

I'm having problems getting this to work. It's telling me that "imports" is a syntax error - I'm sure it's something else that's affecting it.

Also, it's saying that "(.AddressList(0).Address)" "

J(1515): 'Public Property Address() As Long' is obsolete: 'IPAddress.Address is address family dependant, use Equals method for comparison.'

Admittedly, I'm just trying to plug this into my code. I don't understand what I need to change to get it to work.