Visual FoxPro

Dynamics CRM Oauth2 Client Credentials

See more Dynamics CRM Examples

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

LOCAL lnSuccess
LOCAL loHttp
LOCAL loReq
LOCAL lcUrl
LOCAL loResp
LOCAL lnStatusCode
LOCAL loJson

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Pass the client ID/secret using Basic HTTP authentication.
loHttp.Login = "CLIENT_ID"
loHttp.Password = "CLIENT_SECRET"
loHttp.BasicAuth = 1

loReq = CreateObject('Chilkat.HttpRequest')
loReq.AddParam("client_secret","CLIENT_SECRET")
loReq.AddParam("client_id","CLIENT_ID")
loReq.AddParam("scope","https://yourdynamicsdomain.crm3.dynamics.com/.default")
loReq.AddParam("grant_type","client_credentials")

* Use your own tenant ID, for example 4d8fdd66-66d1-43b0-ae5c-e31b4b7de5cd
lcUrl = "https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token"
loReq.HttpVerb = "POST"
loReq.ContentType = "application/x-www-form-urlencoded"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpReq(lcUrl,loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loResp
    CANCEL
ENDIF

lnStatusCode = loResp.StatusCode
? "Response status code = " + STR(lnStatusCode)

loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)

loJson.EmitCompact = 0
? loJson.Emit()

IF (lnStatusCode = 200) THEN
    loJson.WriteFile("qa_data/tokens/dynamicsCrmClientCredentialsToken.json")
    ? "Success."
ELSE
    ? "Failed."
ENDIF

RELEASE loHttp
RELEASE loReq
RELEASE loResp
RELEASE loJson