Visual FoxPro

Azure REST API Access Token

See more Azure OAuth2 Examples

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]

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lcStrResponseBody
LOCAL lnRespStatusCode
LOCAL loJson

lnSuccess = 0

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

loRest = CreateObject('Chilkat.Rest')

* URL: https://login.microsoftonline.com/TENANT_ID/oauth2/token
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("login.microsoftonline.com",lnPort,lnBTls,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? "ConnectFailReason: " + STR(loRest.ConnectFailReason)
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
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")
* Note: The resource must match the API for which you're using the access token..
loRest.AddQueryParam("resource","https://management.azure.com/")

lcStrResponseBody = loRest.FullRequestFormUrlEncoded("POST","/TENANT_ID/oauth2/token")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

lnRespStatusCode = loRest.ResponseStatusCode
IF (lnRespStatusCode >= 400) THEN
    ? "Response Status Code = " + STR(lnRespStatusCode)
    ? "Response Header:"
    ? loRest.ResponseHeader
    ? "Response Body:"
    ? lcStrResponseBody
    RELEASE loRest
    CANCEL
ENDIF

loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(lcStrResponseBody)
loJson.EmitCompact = 0
? 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