(AutoIt) AutoIt JCC Payment Systems - Get a User's Credential IDs for CSC

See more JCC Cyprus Examples

Demonstrates how to find the credential ids for a given user to be used with remote signing via the CSC (Cloud Signature Consortium) API.

Note: This example requires Chilkat v10.0.2 or greater.

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

; Provide information about the CSC service and our user ID and client credentials.
$oJsonCsc = ObjCreate("Chilkat.JsonObject")

$oJsonCsc.UpdateString("service","CSC")
$oJsonCsc.UpdateString("baseUrl","https://ras-test.jcc.com.cy/adss/service/ras/csc/v1/")

$oJsonCsc.UpdateString("userId","YOUR_USER_ID")
$oJsonCsc.UpdateString("clientId","YOUR_CLIENT_ID")
$oJsonCsc.UpdateString("clientSecret","YOUR_CLIENT_SECRET")

; The call to SetCloudSigner will do the following internally:
; 1) Calls the "info" endpoint to get information about the remote service and the list of the API methods it supports.
; 2) Calls the "oauth2/token" endpoint to get the OAuth2 authorization token via client credentials (using the clientId and clientSecret).
; 3) Calls the "credentials/list" endpoint to get the list of credentials associated with the userId.
; 4) Calls the "credentials/info" endpoint to retrieve the credential and return the main identity information 
;    and the public key certificate or the certificate chain associated to it.
;    The Chilkat certificate object is loaded with the retrieved certificate.

; The jsonCsc is updated with the information returned from each of the above calls.
$oCert = ObjCreate("Chilkat.Cert")
Local $bSuccess = $oCert.SetCloudSigner($oJsonCsc)
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

$oJsonCsc.EmitCompact = False

ConsoleWrite($oJsonCsc.Emit() & @CRLF)

; We can do the following to get the credential IDs
Local $i = 0
Local $iNumIds = $oJsonCsc.SizeOfArray("credentials_list.credentialIDs")
While $i < $iNumIds
    $oJsonCsc.I = $i
Local $sCred_id = $oJsonCsc.StringOf("credentials_list.credentialIDs[i]")
    ConsoleWrite("Credential ID: " & $sCred_id & @CRLF)
    $i = $i + 1
Wend