VBScript

Find My External Public IP Address

See more HTTP Examples

To find your external public IP address (not your LAN IP address, such as 192.168.1.* or 172.16.16.*, etc), your application would need to send a request to an HTTP server that can report back on the origin IP address. You can easily write a simple script on your own web server to do it, or you can use a service such as ipify.org.

This example shows how to send a request to the ipify.org endpoint to get your public IP address.

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set http = CreateObject("Chilkat.Http")
my_ip_address = http.QuickGetStr("https://api.ipify.org")
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("My Public IP Address: " & my_ip_address)

outFile.Close