(VBScript) AbuseIPDB Check Endpoint

The check endpoint accepts a single IP address (v4 or v6). Optionally you may set the maxAgeInDays parameter to only return reports within the last x amount of days.

For more information, see https://docs.abuseipdb.com/?shell#check-endpoint

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 assumes 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")

' Implements the following CURL command:

' curl -G https://api.abuseipdb.com/api/v2/check \
'   --data-urlencode "ipAddress=118.25.6.39" \
'   -d maxAgeInDays=90 \
'   -d verbose \
'   -H "Key: $YOUR_API_KEY" \
'   -H "Accept: application/json"

' Use the following online tool to generate HTTP code from a CURL command
' Convert a cURL Command to HTTP Source Code

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest")
set req = CreateObject("Chilkat.HttpRequest")
req.HttpVerb = "GET"
req.Path = "/api/v2/check"
req.ContentType = "application/x-www-form-urlencoded"
req.AddParam "maxAgeInDays","90"
req.AddParam "verbose",""
req.AddParam "ipAddress","118.25.6.39"

req.AddHeader "Key","$YOUR_API_KEY"
req.AddHeader "Accept","application/json"

' resp is a Chilkat.HttpResponse
Set resp = http.SynchronousRequest("api.abuseipdb.com",443,1,req)
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 jResp = CreateObject("Chilkat.JsonObject")
success = jResp.Load(resp.BodyStr)
jResp.EmitCompact = 0

outFile.WriteLine("Response Body:")
outFile.WriteLine(jResp.Emit())

respStatusCode = resp.StatusCode
outFile.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
    outFile.WriteLine("Response Header:")
    outFile.WriteLine(resp.Header)
    outFile.WriteLine("Failed.")

    WScript.Quit
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'   "data": {
'     "ipAddress": "118.25.6.39",
'     "isPublic": true,
'     "ipVersion": 4,
'     "isWhitelisted": false,
'     "abuseConfidenceScore": 1,
'     "countryCode": "CN",
'     "usageType": "Data Center\/Web Hosting\/Transit",
'     "isp": "Tencent Cloud Computing (Beijing) Co. Ltd",
'     "domain": "tencent.com",
'     "hostnames": [
'     ],
'     "countryName": "China",
'     "totalReports": 2,
'     "numDistinctUsers": 1,
'     "lastReportedAt": "2021-04-03T18:55:00+00:00",
'     "reports": [
'       {
'         "reportedAt": "2021-03-10T10:07:53+00:00",
'         "comment": "SSH login attempts with user root.",
'         "categories": [
'           18,
'           22
'         ],
'         "reporterId": 54484,
'         "reporterCountryCode": "CN",
'         "reporterCountryName": "China"
'       },
'       {
'         "reportedAt": "2021-03-09T09:47:57+00:00",
'         "comment": "SSH login attempts with user root.",
'         "categories": [
'           18,
'           22
'         ],
'         "reporterId": 54484,
'         "reporterCountryCode": "CN",
'         "reporterCountryName": "China"
'       }
'     ]
'   }
' }

' Sample code for parsing the JSON response...
' Use the following online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON

dataIpAddress = jResp.StringOf("data.ipAddress")
dataIsPublic = jResp.BoolOf("data.isPublic")
dataIpVersion = jResp.IntOf("data.ipVersion")
dataIsWhitelisted = jResp.BoolOf("data.isWhitelisted")
dataAbuseConfidenceScore = jResp.IntOf("data.abuseConfidenceScore")
dataCountryCode = jResp.StringOf("data.countryCode")
dataUsageType = jResp.StringOf("data.usageType")
dataIsp = jResp.StringOf("data.isp")
dataDomain = jResp.StringOf("data.domain")
dataCountryName = jResp.StringOf("data.countryName")
dataTotalReports = jResp.IntOf("data.totalReports")
dataNumDistinctUsers = jResp.IntOf("data.numDistinctUsers")
dataLastReportedAt = jResp.StringOf("data.lastReportedAt")
i = 0
count_i = jResp.SizeOfArray("data.hostnames")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("data.reports")
Do While i < count_i
    jResp.I = i
    reportedAt = jResp.StringOf("data.reports[i].reportedAt")
    comment = jResp.StringOf("data.reports[i].comment")
    reporterId = jResp.IntOf("data.reports[i].reporterId")
    reporterCountryCode = jResp.StringOf("data.reports[i].reporterCountryCode")
    reporterCountryName = jResp.StringOf("data.reports[i].reporterCountryName")
    j = 0
    count_j = jResp.SizeOfArray("data.reports[i].categories")
    Do While j < count_j
        jResp.J = j
        intVal = jResp.IntOf("data.reports[i].categories[j]")
        j = j + 1
    Loop
    i = i + 1
Loop

outFile.Close