(Tcl) Dynamics CRM Oauth2 Client Credentials

Get an OAuth2 access token for Dynamics CRM using client credentials.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Pass the client ID/secret using Basic HTTP authentication.
CkHttp_put_Login $http "CLIENT_ID"
CkHttp_put_Password $http "CLIENT_SECRET"
CkHttp_put_BasicAuth $http 1

set req [new_CkHttpRequest]

CkHttpRequest_AddParam $req "client_secret" "CLIENT_SECRET"
CkHttpRequest_AddParam $req "client_id" "CLIENT_ID"
CkHttpRequest_AddParam $req "scope" "https://yourdynamicsdomain.crm3.dynamics.com/.default"
CkHttpRequest_AddParam $req "grant_type" "client_credentials"

# Use your own tenant ID, for example 4d8fdd66-66d1-43b0-ae5c-e31b4b7de5cd
set url "https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token"
# resp is a CkHttpResponse
set resp [CkHttp_PostUrlEncoded $http $url $req]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    exit
}

set statusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response status code = $statusCode"

set json [new_CkJsonObject]

CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]
delete_CkHttpResponse $resp

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

if {$statusCode == 200} then {
    CkJsonObject_WriteFile $json "qa_data/tokens/dynamicsCrmClientCredentialsToken.json"
    puts "Success."
} else {
    puts "Failed."
}


delete_CkHttp $http
delete_CkHttpRequest $req
delete_CkJsonObject $json