PowerBuilder

SharePoint OAuth2 Client Credentials Authentication

Demonstrates how to authenticate with OAuth 2.0 using the client credentials grant type. This is for SharePoint Online which is the cloud-based service provided by Microsoft as part of Office 365. (Users access SharePoint Online through a web browser, and the service is hosted on Microsoft's servers.) PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_JsonOAuthCC
oleobject loo_SbJson
integer li_StatusCode
oleobject loo_JsonResp

li_Success = 0

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

loo_Http = create oleobject
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

// Provide the information needed for Chilkat to automatically fetch the OAuth2.0 
// access token as needed.
loo_JsonOAuthCC = create oleobject
li_rc = loo_JsonOAuthCC.ConnectToNewObject("Chilkat.JsonObject")

// --------------------------------------------------------------------------------------------------------
// You'll need to have registered an app in Azure beforehand.
// See How to Create SharePoint App Registration for OAuth 2.0 Client Credentials
// --------------------------------------------------------------------------------------------------------

// Use the values from your App Registration in Azure.
loo_JsonOAuthCC.UpdateString("client_id","CLIENT_ID")
loo_JsonOAuthCC.UpdateString("client_secret","SECRET_VALUE")

// 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.
loo_JsonOAuthCC.UpdateString("scope","https://graph.microsoft.com/.default")

// The token endpoint includes your tenant ID. 
loo_JsonOAuthCC.UpdateString("token_endpoint","https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token")

// Provide the OAuth2 information. Chilkat will use this information to automatically fetch the OAuth2 access token as needed,
loo_Http.AuthToken = loo_JsonOAuthCC.Emit()

// Get information about all SharePoint sites.
loo_SbJson = create oleobject
li_rc = loo_SbJson.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Http.QuickGetSb("https://graph.microsoft.com/v1.0/sites/getAllSites",loo_SbJson)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_JsonOAuthCC
    destroy loo_SbJson
    return
end if

li_StatusCode = loo_Http.LastStatus

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

if li_StatusCode <> 200 then
    Write-Debug loo_SbJson.GetAsString()
    Write-Debug "Failed."
    destroy loo_Http
    destroy loo_JsonOAuthCC
    destroy loo_SbJson
    return
end if

loo_JsonResp = create oleobject
li_rc = loo_JsonResp.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonResp.LoadSb(loo_SbJson)
loo_JsonResp.EmitCompact = 0

Write-Debug loo_JsonResp.Emit()
Write-Debug "Success."

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


destroy loo_Http
destroy loo_JsonOAuthCC
destroy loo_SbJson
destroy loo_JsonResp