(PowerBuilder) Auth0 Server-to-Server Access Token (Client Credentials flow)

Demonstrates how to obtain an Auth0 access token using client credentials (client_id and client_secret).

This is just a matter of duplicating this CURL command:

curl --request POST
  --url 'https://chilkat.auth0.com/oauth/token' \
  --header 'content-type: application/json' \
  --data '{"grant_type":"client_credentials","client_id": "xxxx","client_secret": "xxxx","audience": "https://api.example.com/geocoding/v1/"}'

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

integer li_rc
oleobject loo_Json
oleobject loo_Http
oleobject loo_Resp
oleobject loo_JsonResp

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

// We want to duplicate this curl command:
// 
// curl --request POST
//   --url 'https://chilkat.auth0.com/oauth/token' \
//   --header 'content-type: application/json' \
//   --data '{"grant_type":"client_credentials","client_id": "my_client_id","client_secret": "my_client_secret","audience": "https://api.example.com/geocoding/v1/"}'

// Build the JSON body of the request.
loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.UpdateString("grant_type","client_credentials")
loo_Json.UpdateString("client_id","AUTH0-CLIENT-ID")
loo_Json.UpdateString("client_secret","AUTH0-CLIENT-SECRET")
loo_Json.UpdateString("audience","https://api.example.com/geocoding/v1/")

// IMPORTANT: You would use your own url.  You would not use "chilkat.auth0.com".  
// Instead you would use "your_name.auth0.com"
loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

loo_Resp = loo_Http.PostJson3("https://chilkat.auth0.com/oauth/token","application/json",loo_Json)
if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Json
    destroy loo_Http
    return
end if

// A 200 response status code indicates success.  In the success case, the response body
// contains the JSON access token, such as: 
// {
//   "access_token": "eyJz93a...k4laUWw",
//   "token_type":"Bearer",
//   "expires_in":86400
// }
// 

Write-Debug "response status code = " + string(loo_Resp.StatusCode)

// The repsonse is JSON if successful and also JSON for errors.
loo_JsonResp = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonResp.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonResp.EmitCompact = 0
loo_JsonResp.Load(loo_Resp.BodyStr)

if loo_Resp.StatusCode <> 200 then
    // The response body contains error information in JSON format.
    Write-Debug loo_JsonResp.Emit()
    destroy loo_Resp

    // An example of an error response:
    // 		{
    // 		  "error": "access_denied",
    // 		  "error_description": "Client is not authorized to access \"https://api.example.com/geocoding/v1/\". You might probably want to create a \"client-grant\" associated to this API. See: https://auth0.com/docs/api/v2#!/Client_Grants/post_client_grants"
    // 		}
    destroy loo_Json
    destroy loo_Http
    destroy loo_JsonResp
    return
end if

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

// A successful JSON response body looks like this:

// {
//   "access_token": "eyJz93a...k4laUWw",
//   "token_type":"Bearer",
//   "expires_in":86400
// }

destroy loo_Resp


destroy loo_Json
destroy loo_Http
destroy loo_JsonResp