Can VB retrieve my dynamic IP from my Linksys router?

[DrDave1958]

I have a DSL modem > Linksys router > PC. What I think I want to do (feel free to suggest alternatives) is write a VB program to retrieve my dynamic IP address (WAN), (which my ISP feels the need to change every couple of days), then email it in a text file or something equivalent. I have (some) experience writing VB code, but I'm not advanced by any means.

Maybe there's some software available to grab the IP?

I remote in to my home PC from work occaisionally and of course I can't when the IP has changed without trying 255 different IP addresses (The first three sets are always the same, e.g. xxx.xxx.xxx.1-255).

Thanks for any ideas,
-Dave-

[AzKidd69]

why not try a dynamic dns provider such as no-ip.com or dynip.com

here's a bunch more to look @ http://www.google.com/search?sourcei...8&q=dynamic+ip

you are trying to do exactly what they are used for....

[vass0922]

If you want to do it just as a project to give it a shot...
what you could do is maybe make a HTTP request to www.whatismyip.com and parse through the response for your IP.

Az's response is by far the easiest and most common method

[amtrac24]

I dont know how well you know vb but here goes...

Open or start a new project

->Project
-->Components

->go down to Microsoft Winsock ver. bla bla (check that off and hit ok)

->Put the tool from the tool menu on the form.

The code on the form is as follows:


Private Sub Form_Load()
Dim strIP As String

strIP = Winsock1.LocalIP

End Sub


Basically all you are doing is throwing your ip address into a variable called strIP...if you have any questions post back or e-mail me

[vass0922]

amtrac, you forgot he needs to get his routable IP.. not the local IP
His local machine will have a 192.168.1.x IP which is useless out on the internet. He needs to know the IP his ISP gives him.

[Creosote]

I tried it. It doesn't return my IP for my LAN. I got a 169.xxx.xxx.xxx so I assume its my routers IP or something.

[DrDave1958]

I'm not sure what you're actually after Creosote but here's the solution I ended up with which retrieves my WAN IP and then emails it to my Hotmail account thru Oulook Express. I then run it everyday in scheduled task.


----------------------------------------------------
Public My_IP As String
Public MY_date As Date

Private Sub Send_My_IP()
Dim b1 As Boolean
Call MessageCall
b1 = False
MAPISession1.SignOn
MAPISession1.DownLoadMail = False
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.RecipAddress = "Smee@hotmail.com"
.AddressResolveUI = True
.ResolveName
.MsgSubject = "Home IP at " & Time & " on " & Date
.MsgNoteText = "My home IP is " & My_IP & " on " & Date
.Send False
End With
MAPISession1.SignOff
End Sub

Private Sub Form_Load()
Call Send_My_IP
End
End Sub

Sub MessageCall()
MY_date = Date + Time
My_IP = MessageLoad("www.showmyip.com/simple/")
End Sub

Function MessageLoad(URL As String) As String
Dim IEApp As Object
Dim IEDocument As Object
Dim i As Long
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate URL
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
MessageLoad = IEDocument.Body.innerText
IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
End Function
--------------------------------------------------------

Outlook Express has to be setup to not prompt you for sending mail.

-Dave-

[Creosote]

I was saying I tried amtrac24's solution and it's not giving me my local LAN address.

Your solution looks cool. Here is another solution to send the email with CDO if you want to try that too.

http://support.microsoft.com/?id=286431

[vass0922]

169.254.x.x is a BS IP MS gives to a network card that is set to DHCP but can't reach a DHCP server.
Chances are you got the IP of a network interface with no IP.
(there's about 10 on any given win2k/XP machine stupid WAN interfaces that it hides from the user)