(Visual FoxPro) 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

LOCAL loHttp
LOCAL loJsonToken
LOCAL lnSuccess
LOCAL lcStrResponse
LOCAL loJson
LOCAL lcOdataContext
LOCAL i
LOCAL lnCount_i
LOCAL lcId
LOCAL lcDeletedDateTime
LOCAL lcClassification
LOCAL lcCreatedDateTime
LOCAL lcDescription
LOCAL lcDisplayName
LOCAL lcMail
LOCAL lnMailEnabled
LOCAL lcMailNickname
LOCAL lcOnPremisesLastSyncDateTime
LOCAL lcOnPremisesSecurityIdentifier
LOCAL lcOnPremisesSyncEnabled
LOCAL lcPreferredDataLocation
LOCAL lcRenewedDateTime
LOCAL lnSecurityEnabled
LOCAL lcVisibility
LOCAL j
LOCAL lnCount_j
LOCAL lcStrVal

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/msGraphGroup.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp.AuthToken = loJsonToken.StringOf("access_token")

* Send a GET request to https://graph.microsoft.com/v1.0/groups?$orderby=displayName
lcStrResponse = loHttp.QuickGetStr("https://graph.microsoft.com/v1.0/groups?$orderby=displayName")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(lcStrResponse)
loJson.EmitCompact = 0

IF (loHttp.LastStatus <> 200) THEN
    ? loJson.Emit()
    ? "Failed, response status code = " + STR(loHttp.LastStatus)
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJson
    CANCEL
ENDIF

? loJson.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

lcOdataContext = loJson.StringOf('"@odata.context"')
i = 0
lnCount_i = loJson.SizeOfArray("value")
DO WHILE i < lnCount_i
    loJson.I = i
    lcId = loJson.StringOf("value[i].id")
    lcDeletedDateTime = loJson.StringOf("value[i].deletedDateTime")
    lcClassification = loJson.StringOf("value[i].classification")
    lcCreatedDateTime = loJson.StringOf("value[i].createdDateTime")
    lcDescription = loJson.StringOf("value[i].description")
    lcDisplayName = loJson.StringOf("value[i].displayName")
    lcMail = loJson.StringOf("value[i].mail")
    lnMailEnabled = loJson.BoolOf("value[i].mailEnabled")
    lcMailNickname = loJson.StringOf("value[i].mailNickname")
    lcOnPremisesLastSyncDateTime = loJson.StringOf("value[i].onPremisesLastSyncDateTime")
    lcOnPremisesSecurityIdentifier = loJson.StringOf("value[i].onPremisesSecurityIdentifier")
    lcOnPremisesSyncEnabled = loJson.StringOf("value[i].onPremisesSyncEnabled")
    lcPreferredDataLocation = loJson.StringOf("value[i].preferredDataLocation")
    lcRenewedDateTime = loJson.StringOf("value[i].renewedDateTime")
    lnSecurityEnabled = loJson.BoolOf("value[i].securityEnabled")
    lcVisibility = loJson.StringOf("value[i].visibility")
    j = 0
    lnCount_j = loJson.SizeOfArray("value[i].creationOptions")
    DO WHILE j < lnCount_j
        loJson.J = j
        * ...
        j = j + 1
    ENDDO
    j = 0
    lnCount_j = loJson.SizeOfArray("value[i].groupTypes")
    DO WHILE j < lnCount_j
        loJson.J = j
        lcStrVal = loJson.StringOf("value[i].groupTypes[j]")
        j = j + 1
    ENDDO
    j = 0
    lnCount_j = loJson.SizeOfArray("value[i].proxyAddresses")
    DO WHILE j < lnCount_j
        loJson.J = j
        lcStrVal = loJson.StringOf("value[i].proxyAddresses[j]")
        j = j + 1
    ENDDO
    j = 0
    lnCount_j = loJson.SizeOfArray("value[i].resourceBehaviorOptions")
    DO WHILE j < lnCount_j
        loJson.J = j
        * ...
        j = j + 1
    ENDDO
    j = 0
    lnCount_j = loJson.SizeOfArray("value[i].resourceProvisioningOptions")
    DO WHILE j < lnCount_j
        loJson.J = j
        * ...
        j = j + 1
    ENDDO
    j = 0
    lnCount_j = loJson.SizeOfArray("value[i].onPremisesProvisioningErrors")
    DO WHILE j < lnCount_j
        loJson.J = j
        * ...
        j = j + 1
    ENDDO
    i = i + 1
ENDDO

? "Success."

RELEASE loHttp
RELEASE loJsonToken
RELEASE loJson