(Lianja) Azure REST API Access Token

Demonstrates how to request an Azure REST API OAUTH2 access token.

Note: In order to access resources a Service Principal needs to be created in your Tenant. It is really convenient to do it via AZ CLI:

az ad sp create-for-rbac --name [APP_NAME] --password [CLIENT_SECRET]

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loRest = createobject("CkRest")

// URL: https://login.microsoftonline.com/TENANT_ID/oauth2/token
llBTls = .T.
lnPort = 443
llBAutoReconnect = .T.
llSuccess = loRest.Connect("login.microsoftonline.com",lnPort,llBTls,llBAutoReconnect)
if (llSuccess <> .T.) then
    ? "ConnectFailReason: " + str(loRest.ConnectFailReason)
    ? loRest.LastErrorText
    release loRest
    return
endif

// Add query params to the request.
loRest.AddQueryParam("grant_type","client_credentials")
loRest.AddQueryParam("client_id","APP_ID")
loRest.AddQueryParam("client_secret","CLIENT_SECRET")
loRest.AddQueryParam("resource","https://management.azure.com/")

lcStrResponseBody = loRest.FullRequestFormUrlEncoded("POST","/TENANT_ID/oauth2/token")
if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    return
endif

lnRespStatusCode = loRest.ResponseStatusCode
if (lnRespStatusCode >= 400) then
    ? "Response Status Code = " + str(lnRespStatusCode)
    ? "Response Header:"
    ? loRest.ResponseHeader
    ? "Response Body:"
    ? lcStrResponseBody
    release loRest
    return
endif

loJson = createobject("CkJsonObject")
loJson.Load(lcStrResponseBody)
loJson.EmitCompact = .F.
? loJson.Emit()

// The result is an access token such as the following:

// {
//   "token_type": "Bearer",
//   "expires_in": "3600",
//   "ext_expires_in": "3600",
//   "expires_on": "1557864616",
//   "not_before": "1557860716",
//   "resource": "https://management.azure.com/",
//   "access_token": "eyJ0eXAiOiJKV1QiL ... 20UFDDOHEyUg"
// }

// We'll save this JSON to a file for other examples to use..
loJson.WriteFile("qa_data/tokens/azureToken.json")


release loRest
release loJson