Solved: Showing IP Address

[slamet Harto]

Hi Guys,

Can you advise me on how to detect user IP address.
If it is possible thru vba, please send me a sample code.

Many thanks in advance.
Rgds, Harto

[CCkfm2000]

check this link out http://puremis.net/excel/code/079.shtml

[Bob Phillips]

This shorter version works for me

[vba]

Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
Debug.Print IPConfig.IPAddress(i)
Next
End If
Next
[/vba]

[slamet Harto]

Dear All,

Thanks a lot. That's work fine.

unbelievable, bob! you are a master.

Best,
Harto

[Dragonlancer]

This shorter version works for me

[vba]

Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
Debug.Print IPConfig.IPAddress(i)
Next
End If
Next
[/vba]

What reference in VBA should we use for this to work?

Sincerely,

DragonLancer

[Oorang]

/me gives bob stars