(VBScript) api.db-ip.com IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the api.db-ip.com REST API.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
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

' {
'   "ipAddress": "149.250.207.170",
'   "continentCode": "EU",
'   "continentName": "Europe",
'   "countryCode": "DE",
'   "countryName": "Germany",
'   "stateProv": "Baden-W\u00fcrttemberg",
'   "city": "B\u00f6blingen"
' }

ipAddress = json.StringOf("ipAddress")
continentCode = json.StringOf("continentCode")
continentName = json.StringOf("continentName")
countryCode = json.StringOf("countryCode")
countryName = json.StringOf("countryName")
stateProv = json.StringOf("stateProv")
city = json.StringOf("city")

outFile.Close