Terry Olsen wrote:
I used a web service to do it: You can view the code here:
http://boycot.no-ip.com/vb/GetInetIP.htm
Thank-you Terry for your reply. I also use something similar (see
below) and I guess I've now had to resign myself to the fact that it
can't be done any other way from within the Private Network. It's
surprising though, as one would expect that a standard would have been
developed by now to retrieve such information directly from the Router,
oh well, maybe in the future....???
My current method -
Dim WebAccessClient As New System.Net.WebClient
Dim sIP as String =
WebAccessClient.DownloadString("http://www.whatismyip.com/")
WebAccessClient.Dispose()
Dim iFin As Integer
sIP = sIP.ToUpper
Dim iStart As Integer = sIP.IndexOf("YOUR IP IS ")
If iStart 0 Then
iStart += 12
iFin = (sIP.IndexOf("</H1>", iStart)) + 1
sIP = Strings.Mid(sIP, iStart, iFin - iStart)
End If
ShaneO
There are 10 kinds of people - Those who understand Binary and those who
don't.