(Excel) Bluzone Get Project Details

Get a project by its id

For more information, see https://bluzone.io/portal/static/docs/index.html#_getprojectbyprojectid

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' Implements the following CURL command:

' curl -X GET \
'   https://bluzone.io/portal/papis/v1/projects/YOUR_PROJECT_ID_HERE/ \
'   -H 'bzid: YOUR_API_KEY_HERE'

http.SetRequestHeader "bzid","YOUR_API_KEY_HERE"

Dim sbResponseBody As Chilkat.StringBuilder
Set sbResponseBody = Chilkat.NewStringBuilder
success = http.QuickGetSb("https://bluzone.io/portal/papis/v1/projects/YOUR_PROJECT_ID_HERE/",sbResponseBody)
If (success = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim jResp As Chilkat.JsonObject
Set jResp = Chilkat.NewJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Debug.Print "Response Body:"
Debug.Print jResp.Emit()


respStatusCode = http.LastStatus
Debug.Print "Response Status Code = "; respStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Header:"
    Debug.Print http.LastHeader
    Debug.Print "Failed."
    Exit Sub
End If

' Sample JSON response:

' {
'   "projectId": 36845,
'   "name": "My Project",
'   "description": "Default Project for admin@chilkatsoft.com, created on Thu Jun 06 17:18:11 GMT 2019.",
'   "status": null,
'   "owner": {
'     "username": "admin@chilkatsoft.com",
'     "emailAddress": null
'   },
'   "defaultUuidValue": "1b4b243c-59aa-405f-90b5-0c434cac1345",
'   "enableLocusMaps": false,
'   "mapProviderType": "GOOGLE",
'   "enableAdvancedPackets": false,
'   "enabledPacketTypes": "sBv2",
'   "enableDataUnload": false,
'   "enableScanConsumer": false,
'   "enablePolicyConsumer": false,
'   "enableLocationConsumer": false,
'   "enableEmail": true,
'   "firmwareUpdateStrategy": "MANUAL",
'   "deviceJobConcurrency": -1,
'   "mapProviderApiKey": null,
'   "wakeupUuid": null,
'   "reportEmailList": [
'   ],
'   "reportTimezone": "Etc/GMT",
'   "language": "en",
'   "blufiHostnameNaming": "DEFAULT",
'   "dateCreated": 1559841491000,
'   "dateUpdated": 1559841491000,
'   "enableStreamProducer": true,
'   "enableMetricStorage": true
' }

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

projectId = jResp.IntOf("projectId")
name = jResp.StringOf("name")
description = jResp.StringOf("description")
status = jResp.StringOf("status")
ownerUsername = jResp.StringOf("owner.username")
ownerEmailAddress = jResp.StringOf("owner.emailAddress")
defaultUuidValue = jResp.StringOf("defaultUuidValue")
enableLocusMaps = jResp.BoolOf("enableLocusMaps")
mapProviderType = jResp.StringOf("mapProviderType")
enableAdvancedPackets = jResp.BoolOf("enableAdvancedPackets")
enabledPacketTypes = jResp.StringOf("enabledPacketTypes")
enableDataUnload = jResp.BoolOf("enableDataUnload")
enableScanConsumer = jResp.BoolOf("enableScanConsumer")
enablePolicyConsumer = jResp.BoolOf("enablePolicyConsumer")
enableLocationConsumer = jResp.BoolOf("enableLocationConsumer")
enableEmail = jResp.BoolOf("enableEmail")
firmwareUpdateStrategy = jResp.StringOf("firmwareUpdateStrategy")
deviceJobConcurrency = jResp.IntOf("deviceJobConcurrency")
mapProviderApiKey = jResp.StringOf("mapProviderApiKey")
wakeupUuid = jResp.StringOf("wakeupUuid")
reportTimezone = jResp.StringOf("reportTimezone")
language = jResp.StringOf("language")
blufiHostnameNaming = jResp.StringOf("blufiHostnameNaming")
dateCreated = jResp.IntOf("dateCreated")
dateUpdated = jResp.IntOf("dateUpdated")
enableStreamProducer = jResp.BoolOf("enableStreamProducer")
enableMetricStorage = jResp.BoolOf("enableMetricStorage")
i = 0
count_i = jResp.SizeOfArray("reportEmailList")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop