Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) ABN AMRO OAuth2 Client Credentials AuthenticationDemonstrates 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
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' 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' set cert = CreateObject("Chilkat_9_5_0.Cert") success = cert.LoadFromFile("qa_data/certs/TPPCertificate.cer") If (success <> 1) Then outFile.WriteLine(cert.LastErrorText) WScript.Quit End If set bdKey = CreateObject("Chilkat_9_5_0.BinData") success = bdKey.LoadFile("qa_data/certs/TPPprivateKey.key") set privKey = CreateObject("Chilkat_9_5_0.PrivateKey") success = privKey.LoadAnyFormat(bdKey,"passwordIfNeeded") If (success <> 1) Then outFile.WriteLine(privKey.LastErrorText) WScript.Quit End If success = cert.SetPrivateKey(privKey) If (success <> 1) Then outFile.WriteLine(cert.LastErrorText) WScript.Quit End If set http = CreateObject("Chilkat_9_5_0.Http") success = http.SetSslClientCert(cert) If (success <> 1) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If set req = CreateObject("Chilkat_9_5_0.HttpRequest") req.AddParam "grant_type","client_credentials" req.AddParam "client_id","TPP_test" req.AddParam "scope","psd2:payment:sepa:write psd2:payment:sepa:read" ' resp is a Chilkat_9_5_0.HttpResponse Set resp = http.PostUrlEncoded("https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2",req) If (http.LastMethodSuccess = 0) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If If (resp.StatusCode <> 200) Then outFile.WriteLine(resp.BodyStr) WScript.Quit End If ' Get the JSON result: ' {"access_token":"TIhycwl8rfrZPkXGw15mwldASAAK","token_type":"Bearer","expires_in":7200} set json = CreateObject("Chilkat_9_5_0.JsonObject") success = json.Load(resp.BodyStr) outFile.WriteLine("access_token: " & json.StringOf("access_token")) outFile.WriteLine("token_type: " & json.StringOf("token_type")) outFile.WriteLine("expires_in: " & json.StringOf("expires_in")) outFile.Close |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.