(AutoIt) Create Restricted Data Token (RDT)

See more Amazon SP-API Examples

Returns a Restricted Data Token (RDT) for one or more restricted resources that you specify.

For more information, see https://developer-docs.amazon.com/sp-api/docs/tokens-api-v2021-03-01-reference#post-tokens2021-03-01restricteddatatoken

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

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

$oAuthAws = ObjCreate("Chilkat.AuthAws")
$oAuthAws.AccessKey = "AWS_ACCESS_KEY"
$oAuthAws.SecretKey = "AWS_SECRET_KEY"
$oAuthAws.ServiceName = "execute-api"
; Use the region that is correct for your needs.
$oAuthAws.Region = "eu-west-1"

$oRest = ObjCreate("Chilkat.Rest")
Local $bTls = True
Local $iPort = 443
Local $bAutoReconnect = True
; The sandbox endpoint (sandbox.sellingpartnerapi-eu.amazon.com) fails.
; Use the production endpoint and see the note below.
Local $bSuccess = $oRest.Connect("sellingpartnerapi-eu.amazon.com",$iPort,$bTls,$bAutoReconnect)
If ($bSuccess = False) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oRest.SetAuthAws($oAuthAws)

; Load the previously obtained LWA access token.
; See Fetch SP-API LWA Access Token
$oJsonToken = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJsonToken.LoadFile("qa_data/tokens/sp_api_lwa_token.json")
If ($bSuccess = False) Then
    ConsoleWrite("Failed to load LWA access token." & @CRLF)
    Exit
EndIf

; Add the x-amz-access-token request header.
Local $sLwa_token = $oJsonToken.StringOf("access_token")
$oRest.ClearAllHeaders()
$oRest.AddHeader("x-amz-access-token",$sLwa_token)

; We're going to send a POST with the following JSON body:

; {
;   "restrictedResources": [
;     {
;       "method": "GET",
;       "path": "/orders/v0/orders",
;       "dataElements": ["buyerInfo", "shippingAddress"]
;     }
;   ]
; }

; Use this online tool to generate code from sample JSON: 
; Generate Code to Create JSON

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("restrictedResources[0].method","GET")
$oJson.UpdateString("restrictedResources[0].path","/orders/v0/orders")
$oJson.UpdateString("restrictedResources[0].dataElements[0]","buyerInfo")
$oJson.UpdateString("restrictedResources[0].dataElements[1]","shippingAddress")

$oSbRequest = ObjCreate("Chilkat.StringBuilder")
$oJson.EmitSb($oSbRequest)

$oSbResponse = ObjCreate("Chilkat.StringBuilder")
Local $sUri = "/tokens/2021-03-01/restrictedDataToken"
$bSuccess = $oRest.FullRequestSb("POST",$sUri,$oSbRequest,$oSbResponse)
If ($bSuccess = False) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; ------------------------------------------------------------------------------------
; Note: Using the sandbox endpoint, such as sandbox.sellingpartnerapi-eu.amazon.com
; results in a response status code of 400 with the following error:
; [{"code":"InvalidInput","message":"Could not match input arguments"}]
; Getting a restricted data token seems to only work with the production endpoint.
; ------------------------------------------------------------------------------------

; Examine the response status.
Local $iStatusCode = $oRest.ResponseStatusCode
If ($iStatusCode <> 200) Then
    ConsoleWrite("Response status code: " & $iStatusCode & @CRLF)
    ConsoleWrite("Response status text: " & $oRest.ResponseStatusText & @CRLF)
    ConsoleWrite("Response body: " & @CRLF)
    ConsoleWrite($oSbResponse.GetAsString() & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

ConsoleWrite($oSbResponse.GetAsString() & @CRLF)

; If successful, gets a JSON response such as the following:

; {
;   "expiresIn": 3600,
;   "restrictedDataToken": "Atz.sprdt|AYAB.....TQ="
; }

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

$oJsonResp = ObjCreate("Chilkat.JsonObject")
$oJsonResp.LoadSb($oSbResponse)

Local $iExpiresIn = $oJsonResp.IntOf("expiresIn")
Local $sRestrictedDataToken = $oJsonResp.StringOf("restrictedDataToken")

; Save the RDT for subsequent use..
$bSuccess = $oJsonResp.WriteFile("qa_data/tokens/sp_api_rdt_token.json")

ConsoleWrite("Success!" & @CRLF)