(Excel) ABN AMRO OAuth2 Client Credentials Authentication

Demonstrates how to obtain an access token for an ABN AMRO online API using OAuth2 with the Client Credentials flow.

For more information, see https://developer.abnamro.com/api/payment-initiation-v1/payment-initiation-tutorial

Download Excel Class Modules Chilkat Excel Class Modules

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

' This example sends the following CURL request:

' 	curl -X POST -k https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2 \
' 	-v \
' 	--cert TPPCertificate.crt \
' 	--key TPPprivateKey.key \
' 	-H 'Cache-Control: no-cache' \
' 	-H 'Content-Type: application/x-www-form-urlencoded' \
' 	-d 'grant_type=client_credentials&client_id=TPP_test&scope=psd2:payment:sepa:write psd2:payment:sepa:read'

Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert

success = cert.LoadFromFile("qa_data/certs/TPPCertificate.cer")
If (success <> True) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

Dim bdKey As Chilkat.BinData
Set bdKey = Chilkat.NewBinData
success = bdKey.LoadFile("qa_data/certs/TPPprivateKey.key")

Dim privKey As Chilkat.PrivateKey
Set privKey = Chilkat.NewPrivateKey
success = privKey.LoadAnyFormat(bdKey,"passwordIfNeeded")
If (success <> True) Then
    Debug.Print privKey.LastErrorText
    Exit Sub
End If

success = cert.SetPrivateKey(privKey)
If (success <> True) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

success = http.SetSslClientCert(cert)
If (success <> True) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim req As Chilkat.HttpRequest
Set req = Chilkat.NewHttpRequest
req.AddParam "grant_type","client_credentials"
req.AddParam "client_id","TPP_test"
req.AddParam "scope","psd2:payment:sepa:write psd2:payment:sepa:read"


Set resp = http.PostUrlEncoded("https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2",req)
If (http.LastMethodSuccess = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

If (resp.StatusCode <> 200) Then
    Debug.Print resp.BodyStr

    Exit Sub
End If

' Get the JSON result:
' {"access_token":"TIhycwl8rfrZPkXGw15mwldASAAK","token_type":"Bearer","expires_in":7200}
Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
Dim success As Boolean
success = json.Load(resp.BodyStr)
Debug.Print "access_token: "; json.StringOf("access_token")
Debug.Print "token_type: "; json.StringOf("token_type")
Debug.Print "expires_in: "; json.StringOf("expires_in")