How to obtain the public IP address of a machine outside the firewall

[Ed Willis]

We have several offices that have a DSL or Cable modem where the IP address
is dynamic and changes often. I created a VB app that obtains the IP address
but it obtains the IP address within the firewall and we need the public IP
address of the machine outside the firewall so we can use Remote Desktop
connection for problem resolution etc.

Here is my current code:
Dim myWorkstation As String = System.Net.Dns. GetHostName()

Dim IPAdress As String =
System.Net.Dns. Resolve(myWorks tation).Address List(0).ToStrin g

Dim MachineName As String = Environment.Mac hineName

How can I obtain the other IP address?

Thanks.

[Fred Nelson]

Ed:

I have been able to do it with:

Request.ServerV ariables.Item(" REMOTE_HOST")

In web applications that I have written.

Hope that helps!

Fred

"Ed Willis" <ed*******@acsi .orgnospam> wrote in message
news:eZ******** ******@TK2MSFTN GP09.phx.gbl...

We have several offices that have a DSL or Cable modem where the IP address is dynamic and changes often. I created a VB app that obtains the IP address but it obtains the IP address within the firewall and we need the public IP address of the machine outside the firewall so we can use Remote Desktop
connection for problem resolution etc.

Here is my current code:
Dim myWorkstation As String = System.Net.Dns. GetHostName()

Dim IPAdress As String =
System.Net.Dns. Resolve(myWorks tation).Address List(0).ToStrin g

Dim MachineName As String = Environment.Mac hineName

How can I obtain the other IP address?

Thanks.

[Ed Willis]

How can you do it in a Web Service?

"Fred Nelson" <fr**@smartybir d.com> wrote in message
news:ui******** *****@TK2MSFTNG P12.phx.gbl...

Ed:

I have been able to do it with:

Request.ServerV ariables.Item(" REMOTE_HOST")

In web applications that I have written.

Hope that helps!

Fred

"Ed Willis" <ed*******@acsi .orgnospam> wrote in message
news:eZ******** ******@TK2MSFTN GP09.phx.gbl...

We have several offices that have a DSL or Cable modem where the IP

address

is dynamic and changes often. I created a VB app that obtains the IP

address

but it obtains the IP address within the firewall and we need the public

IP

address of the machine outside the firewall so we can use Remote Desktop
connection for problem resolution etc.

Here is my current code:
Dim myWorkstation As String = System.Net.Dns. GetHostName()

Dim IPAdress As String =
System.Net.Dns. Resolve(myWorks tation).Address List(0).ToStrin g

Dim MachineName As String = Environment.Mac hineName

How can I obtain the other IP address?

Thanks.

[Ed Willis]

Dim objHttpRequest As HttpRequest

Dim objHttpContext As HttpContext

Dim FirewallIPAddre ss As String

objHttpContext = HttpContext.Cur rent()

objHttpRequest = objHttpContext. Request

FirewallIPAddre ss = objHttpRequest. ServerVariables ("REMOTE_HOS T")

There it is. Just add it to the web service method.

"Ed Willis" <ed*******@acsi .orgnospam> wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

How can you do it in a Web Service?

"Fred Nelson" <fr**@smartybir d.com> wrote in message
news:ui******** *****@TK2MSFTNG P12.phx.gbl...

Ed:

I have been able to do it with:

Request.ServerV ariables.Item(" REMOTE_HOST")

In web applications that I have written.

Hope that helps!

Fred

"Ed Willis" <ed*******@acsi .orgnospam> wrote in message
news:eZ******** ******@TK2MSFTN GP09.phx.gbl...

We have several offices that have a DSL or Cable modem where the IP

address

is dynamic and changes often. I created a VB app that obtains the IP

address

but it obtains the IP address within the firewall and we need the public

IP

address of the machine outside the firewall so we can use Remote

Desktop connection for problem resolution etc.

Here is my current code:
Dim myWorkstation As String = System.Net.Dns. GetHostName()

Dim IPAdress As String =
System.Net.Dns. Resolve(myWorks tation).Address List(0).ToStrin g

Dim MachineName As String = Environment.Mac hineName

How can I obtain the other IP address?

Thanks.

[Raul Costa]

Try this:

<%
Option Explicit

Dim m_strExternalIP
Dim m_strInternalIP

m_strExternalIP = getExternalIP()
m_strInternalIP = Request.ServerV ariables("LOCAL _ADDR")

function getExternalIP()
Const m_IP = "http://www.ShowMyIP.co m/xml"
Dim objXML
Set objXML = CreateObject("M SXML2.DomDocume nt")
with objXML
.resolveExterna ls = true
.async = false
.load(m_IP)
getExternalIP = .documentElemen t.SelectSingleN ode("ip").text
end with
Set objXML = Nothing
end function

%>

This was the only way to get my true IP.

Hope this helps:

Raul Costa
nospan_jrpcosta _at_hotmail_dot _com (Remove nospan_ and replace _at_ with @
and _dot_ with . )