Finding IP address

[Guest]

hi, im making a program that uses the IP address of the computer its on, but
i dont kno how to programmaticly find it.....can anyone point me in the rite
direction? thanks

 

[Phil G.]

Imports System.Net

Dim HostIP As IPAddress
HostIP = Dns.GetHostByName(Dns.GetHostName).AddressList.GetValue(0)

Rgds, Phil

 

[Guest]

awsome thank you

 

[ThunderMusic]

and if the computer is behind a router, is there a way to know the
public(Internet) IP?

thanks

 

[Ken Tucker [MVP]]

Hi,

http://www.windowsformsdatagridhelp.com/default.aspx?ID=b08dadba-a85a-4d7b-b6af-a311e93c13c3

Ken

 

[Guest]

Here is the same but in c#

using System.Net;
//
IPHostEntry o = Dns.GetHostByName( Dns.GetHostName() );
MessageBox.Show("Your IP address is : " +o.AddressList[0] );

good luck !

craig kelly-soens - Windows Vista WinFx XAML .Net Evangelist
http://www.XpectWorld.com - customised "super-easy to use" Windows Vista
based software & consultancy

 

[Guest]

Is there a way to programatically get the router IP address, if the LAN is on
a router?
--
Michael Bragg, President
eSolTec, Inc.
a 501(C)(3) organization
MS Authorized MAR
looking for used laptops for developmentally disabled.

 

[Terry Olsen]

You could get it from WMI.

WIN32_NetworkAdapterConfiguration.DefaultIpGateway

Is there a way to programatically get the router IP address, if the LAN is
on
a router?
--
Michael Bragg, President
eSolTec, Inc.
a 501(C)(3) organization
MS Authorized MAR
looking for used laptops for developmentally disabled.

 

[Peter Huang [MSFT]]

Hi

I agree Terry's suggestion, here I provide the code snippet for your
reference.

'NOTE: You need add reference to System.Management.dll first.
Dim mc As System.Management.ManagementClass
Dim mo As ManagementObject
mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo In moc
If mo.Item("IPEnabled") = True Then
Debug.WriteLine("Network Adapter MAC address " &
mo.Item("MacAddress").ToString())
Debug.WriteLine("Gateway(Rounter): ")
Dim ss() As String = mo.Item("DefaultIpGateway")
For Each s As String In ss
Debug.WriteLine(" " + s)
Next
End If
Next

You may have a try, and if you have other concern, please feel free to let
me know.

Best regards,

Peter Huang

Microsoft Online Community Support
==================================================
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.

 

[Guest]

Peter,

Thank you for your code snippet. It is greatly appreciated. Now I'm
wondering how to get the information from the Immediate window into a label
container please
--
Michael Bragg, President
eSolTec, Inc.
a 501(C)(3) organization
MS Authorized MAR
looking for used laptops for developmentally disabled.

 

[Peter Huang [MSFT]]

Hi Michael,

For the other Debug.Print, it is simple.
Change the Debug.WriteLine to LabelX.Text =

For the code below.

For Each s As String In ss
Debug.WriteLine(" " + s)
Next

We need to decided how many labels or which element we want in the ss
string array.
e.g.
If ss.Length > 1 Then
Label1.Text = ss(0)
End If

You may have a try and let me know the result.

Best regards,

Peter Huang

Microsoft Online Community Support
==================================================
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.