(AutoIt) Isabel Connect List Accounts

See more Ibanity Examples

Get a list of accounts.

For more information, see https://documentation.ibanity.com/isabel-connect/api#list-accounts

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

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

$oHttp = ObjCreate("Chilkat.Http")

; Implements the following CURL command:

; curl -X GET https://api.ibanity.com/isabel-connect/accounts \
; --cert certificate.pem:qwertyuiop1 \
; --key private_key.pem  \
; -H "Authorization: Bearer access_token_1603365407" \
; -H "Accept: application/vnd.api+json"  

; Ibanity provides the certificate + private key in PFX format.  This example will use the .pfx instead of the pair of PEM files.
; (It is also possible to implement using Chilkat with the PEM files, but PFX is easier.)
Local $bSuccess = $oHttp.SetSslClientCertPfx("qa_data/pfx/my_ibanity_certificate.pfx","my_pfx_password")
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

; Load the previously obtained access token.
$oJsonToken = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJsonToken.LoadFile("qa_data/tokens/isabel_access_token.json")
If ($bSuccess = False) Then
    ConsoleWrite("No existing access token." & @CRLF)
    Exit
EndIf

; This causes the "Authorization: Bearer ***" header to be added to the HTTP request.
$oHttp.AuthToken = $oJsonToken.StringOf("access_token")

$oHttp.Accept = "application/vnd.api+json"

Local $sJsonStr = $oHttp.QuickGetStr("https://api.ibanity.com/isabel-connect/accounts")
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.Load($sJsonStr)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oHttp.LastStatus
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oHttp.LastResponseHeader & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

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

; {
;   "data": [
;     {
;       "id": "93ecb1fdbfb7848e7b7896c0f2d207aed3d8b4c1",
;       "type": "account"
;     }
;   ],
;   "meta": {
;     "paging": {
;       "offset": 0,
;       "total": 1
;     }
;   }
; }

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

Local $sId
Local $sV_type

Local $iMetaPagingOffset = $oJResp.IntOf("meta.paging.offset")
Local $iMetaPagingTotal = $oJResp.IntOf("meta.paging.total")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("data")
While $i < $iCount_i
    $oJResp.I = $i
    $sId = $oJResp.StringOf("data[i].id")
    $sV_type = $oJResp.StringOf("data[i].type")
    $i = $i + 1
Wend