(DataFlex) Create Group

Create a new group as specified in the request body. You can create one of three types of groups:

• Office 365 Group (unified group)
• Dynamic group
• Security group

This operation returns by default only a subset of the properties for each group. These default properties are noted in the Properties section.

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

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoHttp
    Variant vJson
Token    Handle hoJsonToken
    Boolean iSuccess
    Variant vJson
    Handle hoJson
    Variant vResp
    Handle hoResp
    String sId
    String sDeletedDateTime
    String sClassification
    String sCreatedDateTime
    String sDescription
    String sDisplayName
    String sMail
    Boolean iMailEnabled
    String sMailNickname
    String sOnPremisesLastSyncDateTime
    String sOnPremisesSecurityIdentifier
    String sOnPremisesSyncEnabled
    String sPreferredDataLocation
    String sRenewedDateTime
    Boolean iSecurityEnabled
    String sVisibility
    Integer i
    Integer iCount_i
    String sStrVal
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

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

    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
    If (Not(IsComObjectCreated(hoJsonToken))) Begin
        Send CreateComObject of hoJsonToken
    End
    Get ComLoadFile Of hoJsonToken "qa_data/tokens/msGraphGroup.json" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoJsonToken To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStringOf Of hoJsonToken "access_token" To sTemp1
    Set ComAuthToken Of hoHttp To sTemp1

    // Create a JSON body for the HTTP POST
    // Use this online tool to generate the code from sample JSON: 
    // Generate Code to Create JSON

    // {
    //   "description": "Self help community for library",
    //   "displayName": "Library Assist",
    //   "groupTypes": [
    //     "Unified"
    //   ],
    //   "mailEnabled": true,
    //   "mailNickname": "library",
    //   "securityEnabled": false
    // }

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "description" "Self help community for library" To iSuccess
    Get ComUpdateString Of hoJson "displayName" "Library Assist" To iSuccess
    Get ComUpdateString Of hoJson "groupTypes[0]" "Unified" To iSuccess
    Get ComUpdateBool Of hoJson "mailEnabled" True To iSuccess
    Get ComUpdateString Of hoJson "mailNickname" "library" To iSuccess
    Get ComUpdateBool Of hoJson "securityEnabled" False To iSuccess

    // POST the JSON to https://graph.microsoft.com/v1.0/groups

    Get pvComObject of hoJson to vJson
    Get ComPostJson3 Of hoHttp "https://graph.microsoft.com/v1.0/groups" "application/json" vJson To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComBodyStr Of hoResp To sTemp1
    Get ComLoad Of hoJson sTemp1 To iSuccess
    Set ComEmitCompact Of hoJson To False

    Get ComStatusCode Of hoResp To iTemp1
    If (iTemp1 <> 201) Begin
        Get ComEmit Of hoJson To sTemp1
        Showln sTemp1
        Get ComStatusCode Of hoResp To iTemp1
        Showln "Failed, response status code = " iTemp1
        Send Destroy of hoResp
        Procedure_Return
    End

    Send Destroy of hoResp

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    // A sample response:
    // (See code for parsing this response below..)

    // {
    //     "id": "b320ee12-b1cd-4cca-b648-a437be61c5cd",
    // 	  "deletedDateTime": null,
    // 	  "classification": null,
    // 	  "createdDateTime": "2018-12-22T00:51:37Z",
    // 	  "creationOptions": [],
    // 	  "description": "Self help community for library",
    // 	  "displayName": "Library Assist",
    // 	  "groupTypes": [
    // 	      "Unified"
    // 	  ],
    // 	  "mail": "library7423@contoso.com",
    // 	  "mailEnabled": true,
    // 	  "mailNickname": "library",
    // 	  "onPremisesLastSyncDateTime": null,
    // 	  "onPremisesSecurityIdentifier": null,
    // 	  "onPremisesSyncEnabled": null,
    // 	  "preferredDataLocation": "CAN",
    // 	  "proxyAddresses": [
    // 	      "SMTP:library7423@contoso.com"
    // 	  ],
    // 	  "renewedDateTime": "2018-12-22T00:51:37Z",
    // 	  "resourceBehaviorOptions": [],
    // 	  "resourceProvisioningOptions": [],
    // 	  "securityEnabled": false,
    // 	  "visibility": "Public",
    // 	  "onPremisesProvisioningErrors": []
    // }

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

    Get ComStringOf Of hoJson "id" To sId
    Get ComStringOf Of hoJson "deletedDateTime" To sDeletedDateTime
    Get ComStringOf Of hoJson "classification" To sClassification
    Get ComStringOf Of hoJson "createdDateTime" To sCreatedDateTime
    Get ComStringOf Of hoJson "description" To sDescription
    Get ComStringOf Of hoJson "displayName" To sDisplayName
    Get ComStringOf Of hoJson "mail" To sMail
    Get ComBoolOf Of hoJson "mailEnabled" To iMailEnabled
    Get ComStringOf Of hoJson "mailNickname" To sMailNickname
    Get ComStringOf Of hoJson "onPremisesLastSyncDateTime" To sOnPremisesLastSyncDateTime
    Get ComStringOf Of hoJson "onPremisesSecurityIdentifier" To sOnPremisesSecurityIdentifier
    Get ComStringOf Of hoJson "onPremisesSyncEnabled" To sOnPremisesSyncEnabled
    Get ComStringOf Of hoJson "preferredDataLocation" To sPreferredDataLocation
    Get ComStringOf Of hoJson "renewedDateTime" To sRenewedDateTime
    Get ComBoolOf Of hoJson "securityEnabled" To iSecurityEnabled
    Get ComStringOf Of hoJson "visibility" To sVisibility
    Move 0 To i
    Get ComSizeOfArray Of hoJson "creationOptions" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJson To i
        Move i + 1 To i
    Loop

    Move 0 To i
    Get ComSizeOfArray Of hoJson "groupTypes" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJson To i
        Get ComStringOf Of hoJson "groupTypes[i]" To sStrVal
        Move i + 1 To i
    Loop

    Move 0 To i
    Get ComSizeOfArray Of hoJson "proxyAddresses" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJson To i
        Get ComStringOf Of hoJson "proxyAddresses[i]" To sStrVal
        Move i + 1 To i
    Loop

    Move 0 To i
    Get ComSizeOfArray Of hoJson "resourceBehaviorOptions" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJson To i
        // ...
        Move i + 1 To i
    Loop

    Move 0 To i
    Get ComSizeOfArray Of hoJson "resourceProvisioningOptions" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJson To i
        // ...
        Move i + 1 To i
    Loop

    Move 0 To i
    Get ComSizeOfArray Of hoJson "onPremisesProvisioningErrors" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJson To i
        // ...
        Move i + 1 To i
    Loop

    Showln "Success."


End_Procedure