Obtaining Real IP Address

[chetty]

I need to find out how to obtaining a real IP address from our cable service, all web requests are intercepted by a web cache so it looks like your IP is different to what it actually is, I have been told that I can have a piece of code that sits on my server then send some sort of request to the server which will return me I true IP address and also the address of the cache

Could someone tell me how to do this please

Regards

Chetty

[chetty]

As in this link but this show the address of my local cache

Thanks

[MalcolmCarmen]

Are you sure your browser wasn't just configured by their software to use a proxy, and that it's not actively filtering HTTP traffic to re-route it? (such a thing seems a bit processing-intensive).

As for your question, if the modem is directly hooked up to your system, just start > run > "cmd" > "ipconfig"

[dglienna]

This pops up a msgbox:

Option Explicit
' Add Microsoft Internet Transfer Control
 
Dim pubIPA As String, pos1 As Long, pos2 As Long
      
Private Sub Form_Load()
    Text2.Text = Inet1.OpenURL("http://vbnet.mvps.org/resources/tools/getpublicip.shtml", icString)
    pos1 = InStr(Text2.Text, "var ip =")
    pos1 = InStr(pos1 + 1, Text2.Text, "'", vbTextCompare) + 1
    pos2 = InStr(pos1 + 1, Text2.Text, "'", vbTextCompare)
    pubIPA = Mid$(Text2.Text, pos1, pos2 - pos1)
    MsgBox pubIPA, vbInformation
    Unload Me
End Sub