VBScript

ipapi.co IPv4 Geolocation Lookup

See more Geolocation Examples

Demonstrates how to lookup Geolocation data for an IPv4 address using the ipapi.co REST 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("https://ipapi.co/149.250.207.170/json")
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

' {
'   "ip": "149.250.207.170",
'   "city": "B�blingen",
'   "region": "Baden-W�rttemberg",
'   "region_code": null,
'   "country": "DE",
'   "country_name": "Germany",
'   "continent_code": "EU",
'   "in_eu": true,
'   "postal": null,
'   "latitude": null,
'   "longitude": null,
'   "timezone": null,
'   "utc_offset": null,
'   "country_calling_code": "+49",
'   "currency": "EUR",
'   "languages": "de",
'   "asn": "AS15854",
'   "org": "EntServ Deutschland GmbH"
' }

ip = json.StringOf("ip")
city = json.StringOf("city")
region = json.StringOf("region")
region_code = json.StringOf("region_code")
country = json.StringOf("country")
country_name = json.StringOf("country_name")
continent_code = json.StringOf("continent_code")
in_eu = json.BoolOf("in_eu")
postal = json.StringOf("postal")
latitude = json.StringOf("latitude")
longitude = json.StringOf("longitude")
timezone = json.StringOf("timezone")
utc_offset = json.StringOf("utc_offset")
country_calling_code = json.StringOf("country_calling_code")
currency = json.StringOf("currency")
languages = json.StringOf("languages")
asn = json.StringOf("asn")
org = json.StringOf("org")

outFile.Close