Visual Basic 6.0

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.

Visual Basic 6.0

Dim success As Long
success = 0

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

Dim http As New ChilkatHttp

Dim req As New ChilkatHttpRequest
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 ChilkatHttpResponse
success = http.HttpReq(url,req,resp)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim statusCode As Long
statusCode = resp.StatusCode
Debug.Print "Response status code = " & statusCode

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

json.EmitCompact = 0
Debug.Print 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")
    Debug.Print "Success."
Else
    Debug.Print "Failed."
End If