(Classic ASP) 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.

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://docs.microsoft.com/en-us/azure/active-directory/develop/v2-oauth2-client-creds-grant-flow

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

set http = Server.CreateObject("Chilkat.Http")

set req = Server.CreateObject("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
url = "https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token"

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

set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpReq(url,req,resp)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

statusCode = resp.StatusCode
Response.Write "<pre>" & Server.HTMLEncode( "Response status code = " & statusCode) & "</pre>"

set json = Server.CreateObject("Chilkat.JsonObject")
success = json.Load(resp.BodyStr)

json.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' 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")
    Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>"
End If


%>
</body>
</html>