(AutoIt) Xero Get Full Set of Tenants

Check the full set of tenants you've been authorized to access

For more information, see https://developer.xero.com/documentation/oauth2/auth-flow

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

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

$oHttp = ObjCreate("Chilkat.Http")

$oJsonToken = ObjCreate("Chilkat.JsonObject")
Local $bSuccess = $oJsonToken.LoadFile("qa_data/tokens/xero-access-token.json")
If ($bSuccess = False) Then
    ConsoleWrite($oJsonToken.LastErrorText & @CRLF)
    Exit
EndIf

$oHttp.AuthToken = $oJsonToken.StringOf("access_token")

$oHttp.Accept = "application/json"

Local $oResp = $oHttp.QuickRequest("GET","https://api.xero.com/connections")
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response Status Code: " & $oResp.StatusCode & @CRLF)

$oJarr = ObjCreate("Chilkat.JsonArray")
$oJarr.Load($oResp.BodyStr)
$oJarr.EmitCompact = False
ConsoleWrite($oJarr.Emit() & @CRLF)

If ($oResp.StatusCode <> 200) Then
    ConsoleWrite("Failed." & @CRLF)

    Exit
EndIf

; Sample response
; Use this online tool to generate parsing code from sample JSON: 
; Generate Parsing Code from JSON

; [
;     {
;         "id": "c869f3b7-6435-4c7e-8cb2-122721b04a69",
;         "tenantId": "45e4708e-d862-4111-ab3a-dd8cd03913e1",
;         "tenantType": "ORGANISATION",
;         "createdDateUtc": "2020-02-02T19:17:58.1117990",
;         "updatedDateUtc": "2020-02-02T19:17:58.1117990"
;     },
;     {
;         "id": "74305bf3-12e0-45e2-8dc8-e3ec73e3b1f9",
;         "tenantId": "c3d5e782-2153-4cda-bdb4-cec791ceb90d",
;         "tenantType": "ORGANISATION",
;         "createdDateUtc": "2020-01-30T01:33:36.2717380",
;         "updatedDateUtc": "2020-02-02T19:21:08.5739590"
;     }
; ]

Local $oJson
Local $sId
Local $sTenantId
Local $sTenantType
Local $sCreatedDateUtc
Local $sUpdatedDateUtc

Local $i = 0
Local $iCount_i = $oJarr.Size
While $i < $iCount_i
    $oJson = $oJarr.ObjectAt($i)
    $sId = $oJson.StringOf("id")
    $sTenantId = $oJson.StringOf("tenantId")
    $sTenantType = $oJson.StringOf("tenantType")
    $sCreatedDateUtc = $oJson.StringOf("createdDateUtc")
    $sUpdatedDateUtc = $oJson.StringOf("updatedDateUtc")

    $i = $i + 1
Wend