Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) SugarCRM AuthenticateDemonstrates how to authenticate to the SugarCRM REST v10 API. This is how an OAuth2 access token is obtained.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set rest = CreateObject("Chilkat_9_5_0.Rest") success = rest.Connect("your.site.domain",443,1,1) If (success <> 1) Then outFile.WriteLine(rest.LastErrorText) WScript.Quit End If success = rest.AddHeader("Cache-Control","no-cache") ' The following code creates the JSON request body. ' The JSON created by this code is shown below. set jsonReq = CreateObject("Chilkat_9_5_0.JsonObject") success = jsonReq.UpdateString("grant_type","password") success = jsonReq.UpdateString("client_id","sugar") success = jsonReq.UpdateString("client_secret","CLIENT_SECRET") success = jsonReq.UpdateString("username","admin") success = jsonReq.UpdateString("password","password") success = jsonReq.UpdateString("platform","custom_api") ' The JSON request body created by the above code: ' { ' "grant_type": "password", ' "client_id": "sugar", ' "client_secret": "CLIENT_SECRET", ' "username": "admin", ' "password": "password", ' "platform": "custom_api" ' } set sbReq = CreateObject("Chilkat_9_5_0.StringBuilder") success = jsonReq.EmitSb(sbReq) success = rest.AddHeader("Content-Type","application/json") set sbJson = CreateObject("Chilkat_9_5_0.StringBuilder") success = rest.FullRequestSb("POST","/rest/v10/oauth2/token",sbReq,sbJson) If (success <> 1) Then outFile.WriteLine(rest.LastErrorText) WScript.Quit End If If (rest.ResponseStatusCode <> 200) Then outFile.WriteLine("Received error response code: " & rest.ResponseStatusCode) outFile.WriteLine("Response body:") outFile.WriteLine(sbJson.GetAsString()) WScript.Quit End If set json = CreateObject("Chilkat_9_5_0.JsonObject") success = json.LoadSb(sbJson) ' The following code parses the JSON response. ' A sample JSON response is shown below the sample code. access_token = json.StringOf("access_token") expires_in = json.IntOf("expires_in") token_type = json.StringOf("token_type") scope = json.IsNullOf("scope") refresh_token = json.StringOf("refresh_token") refresh_expires_in = json.IntOf("refresh_expires_in") download_token = json.StringOf("download_token") ' A sample JSON response body that is parsed by the above code: ' { ' "access_token": "c6d495c9-bb25-81d2-5f81-533ef6479f9b", ' "expires_in": 3600, ' "token_type": "bearer", ' "scope": null, ' "refresh_token": "cbc40e67-12bc-4b56-a1d9-533ef62f2601", ' "refresh_expires_in": 1209600, ' "download_token": "cc5d1a9f-6627-3349-96e5-533ef6b1a493" ' } outFile.WriteLine("Example Completed.") outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.