(VBScript) ipinfo.io IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the ipinfo.io 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")

http.Login = "ACCESS_TOKEN"
http.Password = ""
http.Accept = "application/json"

' Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
jsonStr = http.QuickGetStr("https://ipinfo.io/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

' Note: This is the output for the free trial account.
' 
' {
'   "ip": "149.250.207.170",
'   "city": "",
'   "region": "",
'   "country": "DE",
'   "loc": "51.2993,9.4910",
'   "org": "AS15854 EntServ Deutschland GmbH"
' }

' A full response would look like this:

' {
'   "ip": "66.87.125.72",
'   "hostname": "66-87-125-72.pools.spcsdns.net",
'   "city": "Southbridge",
'   "region": "Massachusetts",
'   "country": "US",
'   "loc": "42.0707,-72.0440",
'   "postal": "01550",
'   "asn": {
'     "asn": "AS10507",
'     "name": "Sprint Personal Communications Systems",
'     "domain": "spcsdns.net",
'     "route": "66.87.125.0/24",
'     "type": "isp"
'   },
'   "company": {
'     "name": "Sprint Springfield POP",
'     "domain": "sprint.com",
'     "type": "isp"
'   },  
'   "carrier": {
'     "name": "Sprint",
'     "mcc": "310",
'     "mnc": "120"
'   }
' }
' 

ip = json.StringOf("ip")
hostname = json.StringOf("hostname")
city = json.StringOf("city")
region = json.StringOf("region")
country = json.StringOf("country")
loc = json.StringOf("loc")
postal = json.StringOf("postal")
asnAsn = json.StringOf("asn.asn")
asnName = json.StringOf("asn.name")
asnDomain = json.StringOf("asn.domain")
asnRoute = json.StringOf("asn.route")
asnType = json.StringOf("asn.type")
companyName = json.StringOf("company.name")
companyDomain = json.StringOf("company.domain")
companyType = json.StringOf("company.type")
carrierName = json.StringOf("carrier.name")
carrierMcc = json.StringOf("carrier.mcc")
carrierMnc = json.StringOf("carrier.mnc")

outFile.Close