(AutoIt) MYOB: Get List of Company Files

Gets a list of company files.

For more information, see https://developer.myob.com/api/accountright/v2/company-files/

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

$oHttp.AuthToken = "ACCESS_TOKEN"

$oHttp.Accept = "application/json"

$oHttp.SetRequestHeader "x-myobapi-key","MYOB_API_KEY"
$oHttp.SetRequestHeader "x-myobapi-version","v2"

Local $strResp = $oHttp.QuickGetStr("https://ar1.api.myob.com/accountright")
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response Status Code: " & $oHttp.LastStatus & @CRLF)

$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.Load($strResp)
$oJsonResponse.EmitCompact = False
ConsoleWrite($oJsonResponse.Emit() & @CRLF)

If ($oHttp.LastStatus <> 200) Then
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

; Sample output...
; (See the parsing code below..)
; 
; Use the this online tool to generate parsing code from sample JSON: 
; Generate Parsing Code from JSON

; {
;   "Id": "d2014f64-ffdf-487b-8d12-67a20976aca6",
;   "Name": "Internal Sandbox API",
;   "LibraryPath": "Internal Sandbox API",
;   "ProductVersion": "2013.0",
;   "ProductLevel": {
;     "Code": 20,
;     "Name": "Standard"
;   },
;   "CheckedOutDate": "2013-06-11T01:47:47.0065514",
;   "CheckedOutBy": "developers@myob.com",
;   "Uri": "{cf_uri}",
;   "Country": "AU"
; }
; 

Local $sId
Local $sName
Local $sLibraryPath
Local $sProductVersion
Local $iProductLevelCode
Local $sProductLevelName
Local $sCheckedOutDate
Local $sCheckedOutBy
Local $sUri
Local $sCountry

$sId = $oJsonResponse.StringOf("Id")
$sName = $oJsonResponse.StringOf("Name")
$sLibraryPath = $oJsonResponse.StringOf("LibraryPath")
$sProductVersion = $oJsonResponse.StringOf("ProductVersion")
$iProductLevelCode = $oJsonResponse.IntOf("ProductLevel.Code")
$sProductLevelName = $oJsonResponse.StringOf("ProductLevel.Name")
$sCheckedOutDate = $oJsonResponse.StringOf("CheckedOutDate")
$sCheckedOutBy = $oJsonResponse.StringOf("CheckedOutBy")
$sUri = $oJsonResponse.StringOf("Uri")
$sCountry = $oJsonResponse.StringOf("Country")