(PowerBuilder) Microsoft Graph -- List Users

See more Microsoft Graph Examples

Retrieve a list of Microsoft Graph user objects.

For more information, see https://docs.microsoft.com/en-us/graph/api/user-list?view=graph-rest-1.0&tabs=http

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

integer li_rc
oleobject loo_Http
oleobject loo_Req
string ls_Url
oleobject loo_Resp
integer li_StatusCode
oleobject loo_Json
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.

// Get an access token with the required scope using client credentials...
// See How to Create Microsoft Graph App (in Azure Portal) for Client Credentials Authentication
loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat_9_5_0.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat_9_5_0.HttpRequest")

loo_Req.AddParam("client_secret","CLIENT_SECRET")
loo_Req.AddParam("client_id","CLIENT_ID")
loo_Req.AddParam("scope","https://graph.microsoft.com/.default")
loo_Req.AddParam("grant_type","client_credentials")

// Use your own tenant ID, for example 4d8fdd66-66d1-43b0-ae5c-e31b4b7de5cd
ls_Url = "https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token"
loo_Resp = loo_Http.PostUrlEncoded(ls_Url,loo_Req)
if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Req
    return
end if

li_StatusCode = loo_Resp.StatusCode
Write-Debug "Response status code = " + string(li_StatusCode)

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

loo_Json.Load(loo_Resp.BodyStr)
destroy loo_Resp

// -----------------------------------------------------
// Use the access token obtained from above.
// Note: We don't need to re-fetch a new access token every time.  An access token is valid 
// for some amount of time, typically an hour (3600 seconds)

// Use your previously obtained access token here:
loo_Http.AuthToken = loo_Json.StringOf("access_token")

Write-Debug "access token: " + loo_Http.AuthToken

loo_SbResponse = create oleobject
li_rc = loo_SbResponse.ConnectToNewObject("Chilkat_9_5_0.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_Http
    destroy loo_Req
    destroy loo_Json
    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_Http
destroy loo_Req
destroy loo_Json
destroy loo_SbResponse