(AutoIt) S3 List Buckets (using Chilkat REST)

Demonstrates how to fetch a list of S3 buckets.

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.

$oRest = ObjCreate("Chilkat.Rest")

; Connect to the Amazon AWS REST server.
Local $bTls = True
Local $iPort = 443
Local $bAutoReconnect = True
Local $bSuccess = $oRest.Connect("s3.amazonaws.com",$iPort,$bTls,$bAutoReconnect)

; ----------------------------------------------------------------------------
; Important: For buckets created in regions outside us-east-1,
; there are three important changes that need to be made.
; See Working with S3 Buckets in Non-us-east-1 Regions for the details.
; ----------------------------------------------------------------------------

; Provide AWS credentials for the REST call.
$oAuthAws = ObjCreate("Chilkat.AuthAws")
$oAuthAws.AccessKey = "AWS_ACCESS_KEY"
$oAuthAws.SecretKey = "AWS_SECRET_KEY"
$oAuthAws.ServiceName = "s3"
$bSuccess = $oRest.SetAuthAws($oAuthAws)

$oSbResponse = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oRest.FullRequestNoBodySb("GET","/",$oSbResponse)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

Local $iStatusCode = $oRest.ResponseStatusCode
ConsoleWrite("Response status code = " & $iStatusCode & @CRLF)

$oXml = ObjCreate("Chilkat.Xml")
$oXml.LoadSb($oSbResponse,True)
ConsoleWrite($oXml.GetXml() & @CRLF)

If ($iStatusCode <> 200) Then
    ConsoleWrite("Failed.  See error information in the XML." & @CRLF)
    Exit
EndIf

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

Local $sName
Local $sCreationDate

Local $i = 0
Local $iCount_i = $oXml.NumChildrenHavingTag("Buckets|Bucket")
While $i < $iCount_i
    $oXml.I = $i
    $sName = $oXml.GetChildContent("Buckets|Bucket[i]|Name")
    $sCreationDate = $oXml.GetChildContent("Buckets|Bucket[i]|CreationDate")
    ConsoleWrite($sName & @CRLF)
    ConsoleWrite($sCreationDate & @CRLF)
    ConsoleWrite("--" & @CRLF)
    $i = $i + 1
Wend