Need help. with locating my IP ADD. Current code giving error!

[pedie]

I have search here and there...am trying to let vba give me my IP address though i know where it is located. Please tell me when this is going wrong
getting error message "File not found"!

Option Explicit
 Sub IPtest()
    Dim wsh As Object
    Dim RegEx As Object, RegM As Object
    Dim FSO As Object, fil As Object
    Dim ts As Object, txtAll As String, TempFil As String
    Set wsh = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set RegEx = CreateObject("vbscript.regexp")
    TempFil = "C:\myip.txt"
     ' Save ipconfig info to temporary file
    wsh.Run "%comspec% /c ipconfig > " & TempFil, 0, True
    With RegEx
        .Pattern = "(\d{1,3}\.){3}\d{1,3}"
        .Global = False
    End With
    Set fil = FSO.GetFile(TempFil)
     ' Access temporary file
    Set ts = fil.OpenAsTextStream(1)
    txtAll = ts.ReadAll
    Set RegM = RegEx.Execute(txtAll)
     ' Return IP address to Activesheet cell A1 by parsing text
    ActiveSheet.Range("A1").Value = RegM(0)
    ActiveSheet.Range("A1").EntireColumn.AutoFit
    ts.Close
     ' Remove temp file
    Kill TempFil
     
    Set ts = Nothing
    Set wsh = Nothing
    Set fil = Nothing
    Set FSO = Nothing
    Set RegM = Nothing
    Set RegEx = Nothing
End Sub

 

[meldoc]

Pedie

Unless you have administrative rights, to save in that location, the code will fail on the line below, try changing this line

TempFil = "C:\myip.txt"

To something like this, alter for your location of course.

TempFil = "C:\Users\Desk\Documents\myip.txt"

 

[pedie]

Sure..tryin it now.

Thanks Brian!

 

[pedie]

It gave me a number which does not match the IP address from the website....is there different IP for internet and local IP something like that???
or just one IP...otherwise this code is giving me a wrong IP add

Ped

 

[pedie]

Brian, thank alot!!!!
It is giving correct IP add...

Thanks alot!

to validate it i type window > run > type 'cmd' hit enter> type ipconfig hit enter...worked..!!!

 

[meldoc]

I can't answer that, I don't use the the net other than for browsing, see if the link helps.

http://whatismyipaddress.com/

EDIT: Glad you got it.

 

[pedie]

yes..it worked. Thanks alot!!!

Even you can try it...in cells(1) it gives us the Users IP address