DataFlex
Microsoft Teams OAuth2 Client Credentials Authentication

Demonstrates how to authenticate with OAuth 2.0 using the client credentials grant type.
Chilkat DataFlex Downloads

DataFlex
Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Variant vJson
OAuthCC    Handle hoJsonOAuthCC
    Variant vJson
    Handle hoJson
    Variant vResp
    Handle hoResp
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

    // This 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

    // Provide the information needed for Chilkat to automatically fetch the OAuth2.0 
    // access token as needed.
    // This is the new "Integrated OAuth2 Client Credentials" feature introduced in Chilkat v9.5.0.96.  
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonOAuthCC
    If (Not(IsComObjectCreated(hoJsonOAuthCC))) Begin
        Send CreateComObject of hoJsonOAuthCC
    End

    // --------------------------------------------------------------------------------------------------------
    // You'll need to have registered an app in Azure beforehand.
    // 
    // Note: Creating a Team requires the following Application permissions:
    // Team.Create, Teamwork.Migrate.All, Group.ReadWrite.All**, Directory.ReadWrite.All**
    // 
    // See How to Create an Azure App Registration for OAuth 2.0 Client Credentials
    // --------------------------------------------------------------------------------------------------------

    // Use the values from your App Registration in Azure.
    Get ComUpdateString Of hoJsonOAuthCC "client_id" "e1cd2318-xxxx-4916-bfd6-xxxxxxxxxxxx" To iSuccess
    Get ComUpdateString Of hoJsonOAuthCC "client_secret" "K.d8Q~RoJxxxxvCj_u_xxxxxxxxxxxxxxxxxxxxx" To iSuccess

    // You'll always use this scope for client credentials, because the allowed actions
    // are determined by the App Permissions defined when you registered the app in Azure.
    Get ComUpdateString Of hoJsonOAuthCC "scope" "https://graph.microsoft.com/.default" To iSuccess

    // The token endpoint includes your tenant ID.  Use your tenant ID (not the tenant ID shown here).
    Get ComUpdateString Of hoJsonOAuthCC "token_endpoint" "https://login.microsoftonline.com/112d7ed6-71bf-4eba-a866-738364321bfc/oauth2/v2.0/token" To iSuccess

    // Provide the OAuth2 information. Chilkat will use this information to automatically fetch the OAuth2 access token as needed,
    Get ComEmit Of hoJsonOAuthCC To sTemp1
    Set ComAuthToken Of hoHttp To sTemp1

    // ------------------------------------------------------------------------------
    // To create a Microsoft Team, we want to send an HTTP request like the following:
    // 
    // Note: The following is the minimal JSON for a request using Applicaton permissions (i.e. the access token retrieved using the client credentials grant).
    // 
    // POST https://graph.microsoft.com/v1.0/teams
    // Content-Type: application/json
    // 
    // {
    //    "template@odata.bind":"https://graph.microsoft.com/v1.0/teamsTemplates('standard')",
    //    "displayName":"My Sample Team",
    //    "description":"My Sample Team�s Description",
    //    "members":[
    //       {
    //          "@odata.type":"#microsoft.graph.aadUserConversationMember",
    //          "roles":[
    //             "owner"
    //          ],
    //          "user@odata.bind":"https://graph.microsoft.com/v1.0/users('0040b377-61d8-43db-94f5-81374122dc7e')"
    //       }
    //    ]
    // }

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson '"template@odata.bind"' "https://graph.microsoft.com/v1.0/teamsTemplates('standard')" To iSuccess
    Get ComUpdateString Of hoJson "displayName" "My Sample Team" To iSuccess
    Get ComUpdateString Of hoJson "description" "My Sample Team�s Description" To iSuccess
    Get ComUpdateString Of hoJson 'members[0]."@odata.type"' "#microsoft.graph.aadUserConversationMember" To iSuccess
    Get ComUpdateString Of hoJson "members[0].roles[0]" "owner" To iSuccess
    Get ComUpdateString Of hoJson 'members[0]."user@odata.bind"' "https://graph.microsoft.com/v1.0/users('4ee732c3-322e-4a6b-b729-2fd1eb5c6004')" To iSuccess

    Set ComEmitCompact Of hoJson To False
    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    Send ComSetRequestHeader To hoHttp "Content-type" "application/json"

    Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoJson to vJson
    Get pvComObject of hoResp to vResp
    Get ComHttpJson Of hoHttp "POST" "https://graph.microsoft.com/v1.0/teams" vJson "application/json" vResp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // A successful response is indicated by a 202 response status code and an empty response body.
    Get ComStatusCode Of hoResp To iTemp1
    Showln "Response Status Code: " iTemp1
    Showln "Response Body:"
    Get ComBodyStr Of hoResp To sTemp1
    Showln sTemp1

    Get ComStatusCode Of hoResp To iTemp1
    If (iTemp1 >= 400) Begin
        Showln "Response Header:"
        Get ComHeader Of hoResp To sTemp1
        Showln sTemp1
        Showln "Failed."
    End



End_Procedure