(AutoIt) DynamoDB - ListTables

Returns an array of table names associated with the current account and endpoint. The output from ListTables is paginated, with each page returning a maximum of 100 table names.

For more information, see https://docs.aws.amazon.com/amazondynamodb/latest/APIReference/API_ListTables.html

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

$oRest = ObjCreate("Chilkat.Rest")
Local $bSuccess

; Implements the following CURL command:

; curl -X POST https://dynamodb.us-west-2.amazonaws.com/ \
;   -H "Accept-Encoding: identity" \
;   -H "Content-Type: application/x-amz-json-1.0" \
;   -H "Authorization: AWS4-HMAC-SHA256 Credential=<Credential>, SignedHeaders=<Headers>, Signature=<Signature>" \
;   -H "X-Amz-Date: <Date>" \
;   -H "X-Amz-Target: DynamoDB_20120810.ListTables" \
;   -d '{
;     "Limit": 100
; }'

; Use the following online tool to generate REST code from a CURL command
; Convert a cURL Command to REST Source Code

$oAuthAws = ObjCreate("Chilkat.AuthAws")
$oAuthAws.AccessKey = "AWS_ACCESS_KEY"
$oAuthAws.SecretKey = "AWS_SECRET_KEY"
; Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
$oAuthAws.Region = "us-west-2"
$oAuthAws.ServiceName = "dynamodb"

; SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
$oRest.SetAuthAws($oAuthAws)

; URL: https://dynamodb.us-west-2.amazonaws.com/
Local $bTls = True
Local $iPort = 443
Local $bAutoReconnect = True
; Don't forget to change the region domain (us-west-2.amazonaws.com) to your particular region.
$bSuccess = $oRest.Connect("dynamodb.us-west-2.amazonaws.com",$iPort,$bTls,$bAutoReconnect)
If ($bSuccess <> True) Then
    ConsoleWrite("ConnectFailReason: " & $oRest.ConnectFailReason & @CRLF)
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; Note: The above code does not need to be repeatedly called for each REST request.
; The rest object can be setup once, and then many requests can be sent.  Chilkat will automatically
; reconnect within a FullRequest* method as needed.  It is only the very first connection that is explicitly
; made via the Connect method.

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

; The following JSON is sent in the request body.

; {
;   "Limit": 100
; }

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateInt("Limit",100)

$oRest.AddHeader("Content-Type","application/x-amz-json-1.0")
$oRest.AddHeader("X-Amz-Target","DynamoDB_20120810.ListTables")
$oRest.AddHeader("Accept-Encoding","identity")

$oSbRequestBody = ObjCreate("Chilkat.StringBuilder")
$oJson.EmitSb($oSbRequestBody)
$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oRest.FullRequestSb("POST","/",$oSbRequestBody,$oSbResponseBody)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

Local $iRespStatusCode = $oRest.ResponseStatusCode
ConsoleWrite("response status code = " & $iRespStatusCode & @CRLF)

If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oRest.ResponseHeader & @CRLF)
    ConsoleWrite("Response Body:" & @CRLF)
    ConsoleWrite($oSbResponseBody.GetAsString() & @CRLF)
    Exit
EndIf

$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.LoadSb($oSbResponseBody)

$oJsonResponse.EmitCompact = False
ConsoleWrite($oJsonResponse.Emit() & @CRLF)

; Sample JSON response:

; {
;     "LastEvaluatedTableName": "Thread",
;     "TableNames": ["Forum","Reply","Thread"]
; }

Local $strVal

Local $sLastEvaluatedTableName = $oJsonResponse.StringOf("LastEvaluatedTableName")
Local $i = 0
Local $iCount_i = $oJsonResponse.SizeOfArray("TableNames")
While $i < $iCount_i
    $oJsonResponse.I = $i
    $strVal = $oJsonResponse.StringOf("TableNames[i]")
    $i = $i + 1
Wend