![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Xero Get Full Set of TenantsCheck the full set of tenants you've been authorized to access Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://developer.xero.com/documentation/oauth2/auth-flow
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) success = 0 ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set http = CreateObject("Chilkat.Http") set jsonToken = CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/xero-access-token.json") If (success = 0) Then outFile.WriteLine(jsonToken.LastErrorText) WScript.Quit End If http.AuthToken = jsonToken.StringOf("access_token") http.Accept = "application/json" set resp = CreateObject("Chilkat.HttpResponse") success = http.HttpNoBody("GET","https://api.xero.com/connections",resp) If (success = 0) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If outFile.WriteLine("Response Status Code: " & resp.StatusCode) set jarr = CreateObject("Chilkat.JsonArray") success = jarr.Load(resp.BodyStr) jarr.EmitCompact = 0 outFile.WriteLine(jarr.Emit()) If (resp.StatusCode <> 200) Then outFile.WriteLine("Failed.") WScript.Quit End If ' 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" ' } ' ] i = 0 count_i = jarr.Size Do While i < count_i ' json is a Chilkat.JsonObject Set json = jarr.ObjectAt(i) id = json.StringOf("id") tenantId = json.StringOf("tenantId") tenantType = json.StringOf("tenantType") createdDateUtc = json.StringOf("createdDateUtc") updatedDateUtc = json.StringOf("updatedDateUtc") i = i + 1 Loop outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.