Xojo Plugin

Azure OAuth2 Client Credentials Grant Flow

See more OAuth2 Examples

Demonstrates how to get an OAuth2 access token for an Azure Registered App using the Client Credentials Grant Flow.

Note: Your Azure app must be registered as a single-tenant app to use client credentials.

Xojo Plugin

Dim success As Boolean
success = False

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

Dim http As New Chilkat.Http

Dim req As New Chilkat.HttpRequest
req.AddParam "client_secret","CLIENT_SECRET"
req.AddParam "client_id","CLIENT_ID"

// See Understanding Scopes in Azure OAuth2 Client Credentials Flow
req.AddParam "scope","https://graph.microsoft.com/.default"

req.AddParam "grant_type","client_credentials"

// Note: Your Azure app must be registered as a single-tenant app to use client credentials.
// Use your own tenant ID, for example 4d8fdd66-66d1-43b0-ae5c-e31b4b7de5cd
Dim url As String
url = "https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token"

req.HttpVerb = "POST"
req.ContentType = "application/x-www-form-urlencoded"

Dim resp As New Chilkat.HttpResponse
success = http.HttpReq(url,req,resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim statusCode As Int32
statusCode = resp.StatusCode
System.DebugLog("Response status code = " + Str(statusCode))

Dim json As New Chilkat.JsonObject
success = json.Load(resp.BodyStr)

json.EmitCompact = False
System.DebugLog(json.Emit())

// Sample successful output:

// {
//   "token_type": "Bearer",
//   "expires_in": 3599,
//   "ext_expires_in": 3599,
//   "access_token": "eyJ0eX...K0jOERg"
// }

If (statusCode = 200) Then
    success = json.WriteFile("qa_data/tokens/azureClientCredentialsToken.json")
    System.DebugLog("Success.")
Else
    System.DebugLog("Failed.")
End If