VBScript

ip-api.com IPv4 Geolocation Lookup

See more Geolocation Examples

Demonstrates how to lookup Geolocation data for an IPv4 address using the ip-api.com API. 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)

success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set http = CreateObject("Chilkat.Http")

' Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
jsonStr = http.QuickGetStr("http://ip-api.com/json/149.250.207.170")
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

set json = CreateObject("Chilkat.JsonObject")
json.EmitCompact = 0
success = json.Load(jsonStr)

outFile.WriteLine(json.Emit())

' Sample output:
' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

' {
'   "as": "AS15854 Hewlett Packard GmbH",
'   "city": "B�blingen",
'   "country": "Germany",
'   "countryCode": "DE",
'   "isp": "Triaton Frankfurt",
'   "lat": 48.6779,
'   "lon": 8.97297,
'   "org": "EntServ Deutschland GmbH",
'   "query": "149.250.207.170",
'   "region": "BW",
'   "regionName": "Baden-W�rttemberg",
'   "status": "success",
'   "timezone": "Europe/Berlin",
'   "zip": "71034"
' }

as = json.StringOf("as")
city = json.StringOf("city")
country = json.StringOf("country")
countryCode = json.StringOf("countryCode")
isp = json.StringOf("isp")
lat = json.StringOf("lat")
lon = json.StringOf("lon")
org = json.StringOf("org")
query = json.StringOf("query")
region = json.StringOf("region")
regionName = json.StringOf("regionName")
status = json.StringOf("status")
timezone = json.StringOf("timezone")
zip = json.StringOf("zip")

outFile.Close