VB program to get external IP address of a PC??? 2

[Paladyr]

Does anyone have any example code that shows how to get the external IP address of the PC running the program? Thanks!

 

[paulbent]

See this kb article:

http://support.microsoft.com/support/kb/articles/q160/2/15.asp

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk

 

[mattKnight]

or of course,

you could just read the LocalIP property of the MSWinsock Control!

dim strMyComputerIP as string

strMyComputerIP = Winsock1.LocalIP

Take Care

Matt
If at first you don't succeed, skydiving is not for you.

 

[Paladyr]

This would be on a PC that is on a LAN, so the winsock control would give me the "local" and not "external" ip. At least I think that is what would happen.

 

[AndyWatt]

<Caveman Technology>
An extremely crude method might be to IPCONFIG /ALL to a text file and then parse that for the information you want.
</Caveman Technology>

Andy
&quot;Logic is invincible because in order to combat logic it is necessary to use logic.&quot; -- Pierre Boutroux
&quot;A computer program does what you tell it to do, not what you want it to do.&quot; -- Greer's Third Law

 

[Paladyr]

Just tried the microsoft article, that's definitely an internal IP. Any other ideas?

 

[Paladyr]

IPCONFIG would give me the internal IP as well. Tough question eh? .

 

[Paladyr]

http://www.ostrosoft.com/OIT/external_ip.asp

Check it out, I'm gonna try this.

 

[strongm]

' Assumes you have an Internet Transfer Control on your form
Private Function getExternalIP() As String
Dim myDoc As String

myDoc = Inet1.OpenURL(&quot;

http://www.whatismyip.com/&quot;)

With New RegExp
.MultiLine = True
.Pattern = &quot;(\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3})&quot;
If .Test(myDoc) Then
getExternalIP = .Execute(myDoc).Item(0).SubMatches(0)
End If
End With
End Function

 

[Paladyr]

What is the RegExp variable?

 

[strongm]

Sorry. Should have said. You need to add a reference toto the Microsoft VBScript Regular Expressions Library

 

[Paladyr]

SWEET!!! U r the man!