(PowerBuilder) List Groups

List all the groups available in an organization, including but not limited to Office 365 Groups.

See https://docs.microsoft.com/en-us/graph/api/group-list?view=graph-rest-1.0 for more information.

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

integer li_rc
oleobject loo_Http
oleobject loo_JsonToken
integer li_Success
string ls_StrResponse
oleobject loo_Json
string ls_OdataContext
integer i
integer li_Count_i
string ls_Id
string ls_DeletedDateTime
string ls_Classification
string ls_CreatedDateTime
string ls_Description
string ls_DisplayName
string ls_Mail
integer li_MailEnabled
string ls_MailNickname
string ls_OnPremisesLastSyncDateTime
string ls_OnPremisesSecurityIdentifier
string ls_OnPremisesSyncEnabled
string ls_PreferredDataLocation
string ls_RenewedDateTime
integer li_SecurityEnabled
string ls_Visibility
integer j
integer li_Count_j
string ls_StrVal

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

loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Use your previously obtained access token as shown here:
//    Get Microsoft Graph OAuth2 Access Token with Group.ReadWrite.All scope.

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

li_Success = loo_JsonToken.LoadFile("qa_data/tokens/msGraphGroup.json")
if li_Success = 0 then
    Write-Debug loo_JsonToken.LastErrorText
    destroy loo_Http
    destroy loo_JsonToken
    return
end if

loo_Http.AuthToken = loo_JsonToken.StringOf("access_token")

// Send a GET request to https://graph.microsoft.com/v1.0/groups?$orderby=displayName
ls_StrResponse = loo_Http.QuickGetStr("https://graph.microsoft.com/v1.0/groups?$orderby=displayName")
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_JsonToken
    return
end if

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

loo_Json.Load(ls_StrResponse)
loo_Json.EmitCompact = 0

if loo_Http.LastStatus <> 200 then
    Write-Debug loo_Json.Emit()
    Write-Debug "Failed, response status code = " + string(loo_Http.LastStatus)
    destroy loo_Http
    destroy loo_JsonToken
    destroy loo_Json
    return
end if

Write-Debug loo_Json.Emit()

// Sample output:
// (See parsing code below..)

// {
//     "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#groups",
//     "value": [
//         {
//             "id": "45b7d2e7-b882-4a80-ba97-10b7a63b8fa4",
//             "deletedDateTime": null,
//             "classification": null,
//             "createdDateTime": "2018-12-22T02:21:05Z",
//             "creationOptions": [],
//             "description": "Self help community for golf",
//             "displayName": "Golf Assist",
//             "groupTypes": [
//                 "Unified"
//             ],
//             "mail": "golfassist@contoso.com",
//             "mailEnabled": true,
//             "mailNickname": "golfassist",
//             "onPremisesLastSyncDateTime": null,
//             "onPremisesSecurityIdentifier": null,
//             "onPremisesSyncEnabled": null,
//             "preferredDataLocation": "CAN",
//             "proxyAddresses": [
//                 "smtp:golfassist@contoso.onmicrosoft.com",
//                 "SMTP:golfassist@contoso.com"
//             ],
//             "renewedDateTime": "2018-12-22T02:21:05Z",
//             "resourceBehaviorOptions": [],
//             "resourceProvisioningOptions": [],
//             "securityEnabled": false,
//             "visibility": "Public",
//             "onPremisesProvisioningErrors": []
//         },
//         {
//             "id": "d7797254-3084-44d0-99c9-a3b5ab149538",
//             "deletedDateTime": null,
//             "classification": null,
//             "createdDateTime": "2018-11-19T20:29:40Z",
//             "creationOptions": [],
//             "description": "Talk about golf",
//             "displayName": "Golf Discussion",
//             "groupTypes": [],
//             "mail": "golftalk@contoso.com",
//             "mailEnabled": true,
//             "mailNickname": "golftalk",
//             "onPremisesLastSyncDateTime": null,
//             "onPremisesSecurityIdentifier": null,
//             "onPremisesSyncEnabled": null,
//             "preferredDataLocation": "CAN",
//             "proxyAddresses": [
//                 "smtp:golftalk@contoso.onmicrosoft.com",
//                 "SMTP:golftalk@contoso.com"
//             ],
//             "renewedDateTime": "2018-11-19T20:29:40Z",
//             "resourceBehaviorOptions": [],
//             "resourceProvisioningOptions": [],
//             "securityEnabled": false,
//             "visibility": null,
//             "onPremisesProvisioningErrors": []
//         }
//     ]
// }
// 
// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

ls_OdataContext = 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_Id = loo_Json.StringOf("value[i].id")
    ls_DeletedDateTime = loo_Json.StringOf("value[i].deletedDateTime")
    ls_Classification = loo_Json.StringOf("value[i].classification")
    ls_CreatedDateTime = loo_Json.StringOf("value[i].createdDateTime")
    ls_Description = loo_Json.StringOf("value[i].description")
    ls_DisplayName = loo_Json.StringOf("value[i].displayName")
    ls_Mail = loo_Json.StringOf("value[i].mail")
    li_MailEnabled = loo_Json.BoolOf("value[i].mailEnabled")
    ls_MailNickname = loo_Json.StringOf("value[i].mailNickname")
    ls_OnPremisesLastSyncDateTime = loo_Json.StringOf("value[i].onPremisesLastSyncDateTime")
    ls_OnPremisesSecurityIdentifier = loo_Json.StringOf("value[i].onPremisesSecurityIdentifier")
    ls_OnPremisesSyncEnabled = loo_Json.StringOf("value[i].onPremisesSyncEnabled")
    ls_PreferredDataLocation = loo_Json.StringOf("value[i].preferredDataLocation")
    ls_RenewedDateTime = loo_Json.StringOf("value[i].renewedDateTime")
    li_SecurityEnabled = loo_Json.BoolOf("value[i].securityEnabled")
    ls_Visibility = loo_Json.StringOf("value[i].visibility")
    j = 0
    li_Count_j = loo_Json.SizeOfArray("value[i].creationOptions")
    do while j < li_Count_j
        loo_Json.J = j
        // ...
        j = j + 1
    loop
    j = 0
    li_Count_j = loo_Json.SizeOfArray("value[i].groupTypes")
    do while j < li_Count_j
        loo_Json.J = j
        ls_StrVal = loo_Json.StringOf("value[i].groupTypes[j]")
        j = j + 1
    loop
    j = 0
    li_Count_j = loo_Json.SizeOfArray("value[i].proxyAddresses")
    do while j < li_Count_j
        loo_Json.J = j
        ls_StrVal = loo_Json.StringOf("value[i].proxyAddresses[j]")
        j = j + 1
    loop
    j = 0
    li_Count_j = loo_Json.SizeOfArray("value[i].resourceBehaviorOptions")
    do while j < li_Count_j
        loo_Json.J = j
        // ...
        j = j + 1
    loop
    j = 0
    li_Count_j = loo_Json.SizeOfArray("value[i].resourceProvisioningOptions")
    do while j < li_Count_j
        loo_Json.J = j
        // ...
        j = j + 1
    loop
    j = 0
    li_Count_j = loo_Json.SizeOfArray("value[i].onPremisesProvisioningErrors")
    do while j < li_Count_j
        loo_Json.J = j
        // ...
        j = j + 1
    loop
    i = i + 1
loop

Write-Debug "Success."


destroy loo_Http
destroy loo_JsonToken
destroy loo_Json