(PowerBuilder) Microsoft Graph -- List Users (Automatic OAuth2 Client Credentials)

Simplify OAuth2 client credentials by using Chilkat to automatically obtain the necessary access token. This example demonstrates the technique with the Microsoft Graph API's "List Users" request.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Json
oleobject loo_Http
oleobject loo_SbResponse
integer li_Success
string ls_Odata_id
string ls_DisplayName
string ls_GivenName
string ls_JobTitle
string ls_Mail
string ls_MobilePhone
string ls_OfficeLocation
string ls_PreferredLanguage
string ls_Surname
string ls_UserPrincipalName
string ls_Id
integer j
integer li_Count_j
string ls_Odata_context
integer i
integer li_Count_i

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

// Instead of directly sending a POST request to obtain an OAuth2 access token, 
// you can provide Chilkat with the necessary information to automatically fetch 
// the token using the Client Credentials flow. During the first HTTP request, 
// Chilkat will obtain the token if it doesn't have one yet, and then use it for 
// all subsequent requests. When the token is expired or about to expire, Chilkat 
// will automatically obtain a new one, eliminating the need for your application 
// to manage token expiration and renewal manually. This approach also reduces the 
// number of HTTP requests by utilizing valid tokens as long as possible.

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.UpdateString("client_secret","CLIENT_SECRET")
loo_Json.UpdateString("client_id","CLIENT_ID")
loo_Json.UpdateString("token_endpoint","https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token")
loo_Json.UpdateString("scope","https://graph.microsoft.com/.default")

loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

// Provide the information to let Chilkat automatically obtain the access token.
loo_Http.AuthToken = loo_Json.Emit()

loo_SbResponse = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbResponse.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Http.QuickGetSb("https://graph.microsoft.com/v1.0/users",loo_SbResponse)
if li_Success <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Json
    destroy loo_Http
    destroy loo_SbResponse
    return
end if

loo_Json.LoadSb(loo_SbResponse)
loo_Json.EmitCompact = 0

Write-Debug "Status code = " + string(loo_Http.LastStatus)
if loo_Http.LastStatus <> 200 then
    Write-Debug loo_Json.Emit()
    Write-Debug "Failed."
end if

Write-Debug loo_Json.Emit()

// Sample output
// {
//   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users",
//   "value": [
//     {
//       "@odata.id": "https://graph.microsoft.com/v2/6d8ddd66-68d1-43b0-af5c-e31b4b7dd5cd/directoryObjects/fca490d8-5918-4201-8079-c5dcbeafcdc9/Microsoft.DirectoryServices.User",
//       "businessPhones": [
//       ],
//       "displayName": "Joe Sample",
//       "givenName": "Joe",
//       "jobTitle": null,
//       "mail": null,
//       "mobilePhone": null,
//       "officeLocation": null,
//       "preferredLanguage": null,
//       "surname": "Sample",
//       "userPrincipalName": "admin_chilkatsoft.com#EXT#@adminchilkatsoft.onmicrosoft.com",
//       "id": "fca490d8-5918-4201-8079-c5dcbeafcdc9"
//     }
//   ]
// }

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

ls_Odata_context = loo_Json.StringOf("~"@odata.context~"")
i = 0
li_Count_i = loo_Json.SizeOfArray("value")
do while i < li_Count_i
    loo_Json.I = i
    ls_Odata_id = loo_Json.StringOf("value[i].~"@odata.id~"")
    ls_DisplayName = loo_Json.StringOf("value[i].displayName")
    ls_GivenName = loo_Json.StringOf("value[i].givenName")
    ls_JobTitle = loo_Json.StringOf("value[i].jobTitle")
    ls_Mail = loo_Json.StringOf("value[i].mail")
    ls_MobilePhone = loo_Json.StringOf("value[i].mobilePhone")
    ls_OfficeLocation = loo_Json.StringOf("value[i].officeLocation")
    ls_PreferredLanguage = loo_Json.StringOf("value[i].preferredLanguage")
    ls_Surname = loo_Json.StringOf("value[i].surname")
    ls_UserPrincipalName = loo_Json.StringOf("value[i].userPrincipalName")
    ls_Id = loo_Json.StringOf("value[i].id")
    j = 0
    li_Count_j = loo_Json.SizeOfArray("value[i].businessPhones")
    do while j < li_Count_j
        loo_Json.J = j
        j = j + 1
    loop
    i = i + 1
loop


destroy loo_Json
destroy loo_Http
destroy loo_SbResponse