Need a macro to Identify a users IP address

Hello all.

Is there a macro command that will Identify the persons IP address (the
person who is running the macro)? And then display it in a message box
(though with the macro Im sure I could figure this part out).

thanks =)

Hi havocdragon,

Are you looking for the machine's internal or external IP address? If the
former, there's probably an API call to get the internal IP address. If the
latter, then here's a function that will do what you're looking for. Keep
in mind that it relies upon an external URL (myipaddress.com), so if that
page ever changes or the site is taken down, this will not work anymore.

Public Function sGetPublicIPAddress()
Dim x As Object
Dim sResponse As String
Dim lStart As Long
Dim lEnd As Long

Set x = CreateObject("Microsoft.XMLHTTP")

With x
.Open "GET", "http://myipaddress.com"
.send
Do Until .readyState = 4
DoEvents
Loop
sResponse = .responseText
End With

Set x = Nothing

If Len(sResponse) Then
lStart = InStr(1, sResponse, "<b>") + 3
lEnd = InStr(lStart, sResponse, "</b>") - 1

If lEnd > lStart Then sGetPublicIPAddress = _
Mid$(sResponse, lStart, lEnd - lStart + 1)
End If
End Function

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


havocdragon wrote:
> Hello all.
>
> Is there a macro command that will Identify the persons IP address
> (the person who is running the macro)? And then display it in a
> message box (though with the macro Im sure I could figure this part
> out).
>
> thanks =)

Actually I do need the internal one =). I am unfamilliar with API's though.
Any idea where to look on this?

"Jake Marx" wrote:

> Hi havocdragon,
>
> Are you looking for the machine's internal or external IP address? If the
> former, there's probably an API call to get the internal IP address. If the
> latter, then here's a function that will do what you're looking for. Keep
> in mind that it relies upon an external URL (myipaddress.com), so if that
> page ever changes or the site is taken down, this will not work anymore.
>
> Public Function sGetPublicIPAddress()
> Dim x As Object
> Dim sResponse As String
> Dim lStart As Long
> Dim lEnd As Long
>
> Set x = CreateObject("Microsoft.XMLHTTP")
>
> With x
> .Open "GET", "http://myipaddress.com"
> .send
> Do Until .readyState = 4
> DoEvents
> Loop
> sResponse = .responseText
> End With
>
> Set x = Nothing
>
> If Len(sResponse) Then
> lStart = InStr(1, sResponse, "<b>") + 3
> lEnd = InStr(lStart, sResponse, "</b>") - 1
>
> If lEnd > lStart Then sGetPublicIPAddress = _
> Mid$(sResponse, lStart, lEnd - lStart + 1)
> End If
> End Function
>
> --
> Regards,
>
> Jake Marx
> MS MVP - Excel
> www.longhead.com
>
> [please keep replies in the newsgroup - email address unmonitored]
>
>
> havocdragon wrote:
> > Hello all.
> >
> > Is there a macro command that will Identify the persons IP address
> > (the person who is running the macro)? And then display it in a
> > message box (though with the macro Im sure I could figure this part
> > out).
> >
> > thanks =)
>
>

havocdragon wrote:
> Actually I do need the internal one =). I am unfamilliar with API's
> though. Any idea where to look on this?

You could try something like this:

http://www.source-code.biz/snippets/vbasic/8.htm

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]