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
(Ruby) Dynamics CRM OAuth2 Access TokenDemonstrates how to get a Microsoft Dynamics CRM OAuth2 access token from a desktop (installed) application or script.
require 'chilkat' # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. oauth2 = Chilkat::CkOAuth2.new() # This should be the port in the localhost redirect URL for your app. # Important: Make sure the redirect URI in your Azure app registration # is exactly "http://localhost:3017/". Don't forget the ending "/" char. # The redirect URL would look like "http://localhost:3017/" if the port number is 3017. oauth2.put_ListenPort(3017) # Get the endpoints from the Azure Portal in the "endpoints" section of App Registrations.. # The DYNAMICS-ENDPOINT-GUID is a Tenant dynamics-endpoint-guid such as 1b54e7ee-d61b-4f12-a621-a6b2805b98c2 oauth2.put_AuthorizationEndpoint("https://login.microsoftonline.com/DYNAMICS-ENDPOINT-GUID/oauth2/authorize") oauth2.put_TokenEndpoint("https://login.microsoftonline.com/DYNAMICS-ENDPOINT-GUID/oauth2/token") # Replace these with actual values. oauth2.put_ClientId("DYNAMICS-CRM-CLIENT-ID") oauth2.put_ClientSecret("DYNAMICS-CRM-SECRET-KEY") oauth2.put_Resource("https://mydynamicsdomain.api.crm.dynamics.com") oauth2.put_RedirectAllowHtml("<html><body><p>Thank you for granting access.</p></bod></html>") oauth2.put_RedirectDenyHtml("<html><body><p>Maybe next time...</p></bod></html>") # Begin the OAuth2 three-legged flow. This returns a URL that should be loaded in a browser. url = oauth2.startAuth() if (oauth2.get_LastMethodSuccess() != true) print oauth2.lastErrorText() + "\n"; exit end # We can pre-check the URL by sending a GET to catch any up-front errors. # If we receive JSON with an error in response, then we don't proceed any farther. # If we receive an HTML response, and the response status = 200, then all should be OK. # We can proceed by displaying an interactive browser loaded with the url. http = Chilkat::CkHttp.new() sbPreCheck = Chilkat::CkStringBuilder.new() success = http.QuickGetSb(url,sbPreCheck) if ((http.get_LastStatus() != 200) or (sbPreCheck.StartsWith("{",true) != true)) print "JSON Error Response:" + "\n"; print sbPreCheck.getAsString() + "\n"; exit end # If the HTTP request itself failed, then examine the error. if (success == false) print http.lastErrorText() + "\n"; exit end # OK.. the pre-flight check seems OK, go ahead with getting the interactive user authorization.. # At this point, your application should load the URL in a browser. # For example, # in C#: System.Diagnostics.Process.Start(url); # in Java: Desktop.getDesktop().browse(new URI(url)); # in VBScript: Set wsh=WScript.CreateObject("WScript.Shell") # wsh.Run url # in Xojo: ShowURL(url) (see http://docs.xojo.com/index.php/ShowURL) # in Dataflex: Runprogram Background "c:\Program Files\Internet Explorer\iexplore.exe" sUrl # The GitHub account owner would interactively accept or deny the authorization request. # Add the code to load the url in a web browser here... # Add the code to load the url in a web browser here... # Add the code to load the url in a web browser here... # Now wait for the authorization. # We'll wait for a max of 30 seconds. numMsWaited = 0 while (numMsWaited < 30000) and (oauth2.get_AuthFlowState() < 3) oauth2.SleepMs(100) numMsWaited = numMsWaited + 100 end # If there was no response from the browser within 30 seconds, then # the AuthFlowState will be equal to 1 or 2. # 1: Waiting for Redirect. The OAuth2 background thread is waiting to receive the redirect HTTP request from the browser. # 2: Waiting for Final Response. The OAuth2 background thread is waiting for the final access token response. # In that case, cancel the background task started in the call to StartAuth. if (oauth2.get_AuthFlowState() < 3) oauth2.Cancel() print "No response from the browser!" + "\n"; exit end # Check the AuthFlowState to see if authorization was granted, denied, or if some error occurred # The possible AuthFlowState values are: # 3: Completed with Success. The OAuth2 flow has completed, the background thread exited, and the successful JSON response is available in AccessTokenResponse property. # 4: Completed with Access Denied. The OAuth2 flow has completed, the background thread exited, and the error JSON is available in AccessTokenResponse property. # 5: Failed Prior to Completion. The OAuth2 flow failed to complete, the background thread exited, and the error information is available in the FailureInfo property. if (oauth2.get_AuthFlowState() == 5) print "OAuth2 failed to complete." + "\n"; print oauth2.failureInfo() + "\n"; exit end if (oauth2.get_AuthFlowState() == 4) print "OAuth2 authorization was denied." + "\n"; print oauth2.accessTokenResponse() + "\n"; exit end if (oauth2.get_AuthFlowState() != 3) print "Unexpected AuthFlowState:" + oauth2.get_AuthFlowState().to_s() + "\n"; exit end print "OAuth2 authorization granted!" + "\n"; print "Access Token = " + oauth2.accessToken() + "\n"; # Get the full JSON response: json = Chilkat::CkJsonObject.new() json.Load(oauth2.accessTokenResponse()) json.put_EmitCompact(false) # The JSON response looks like this: # { # "token_type": "Bearer", # "scope": "user_impersonation", # "expires_in": "3599", # "ext_expires_in": "0", # "expires_on": "1524783438", # "not_before": "1524779538", # "resource": "https://mydomain.api.crm.dynamics.com", # "access_token": "...", # "refresh_token": "...", # "id_token": "..." # } # If an "expires_on" member does not exist, then add the JSON member by # getting the current system date/time and adding the "expires_in" seconds. # This way we'll know when the token expires. if (json.HasMember("expires_on") != true) dtExpire = Chilkat::CkDateTime.new() dtExpire.SetFromCurrentSystemTime() dtExpire.AddSeconds(json.IntOf("expires_in")) json.AppendString("expires_on",dtExpire.getAsUnixTimeStr(false)) end print json.emit() + "\n"; # Save the JSON to a file for future requests. fac = Chilkat::CkFileAccess.new() fac.WriteEntireTextFile("qa_data/tokens/dynamicsCrm.json",json.emit(),"utf-8",false) |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.