Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 =) |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need a macro to Identify a users IP address
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 =) |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need a macro to Identify a users IP address
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 =) |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need a macro to Identify a users IP address
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] |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro needed to identify value and delete row if value below targe | New Users to Excel | |||
Identify address of cell containing specific data | Excel Discussion (Misc queries) | |||
Need to identify active worksheet in macro | Excel Worksheet Functions | |||
identify the name of the activecell not its address | Excel Programming | |||
How do you identify if a worksheet is in the last position in a Macro? | Excel Programming |