AutoIt

Wasabi List Buckets

See more Wasabi Examples

Demonstrates how to list Wasabi buckets. AutoIt

Local $bSuccess = False

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

$oHttp = ObjCreate("Chilkat.Http")

; Insert your access key here:
$oHttp.AwsAccessKey = "access-key"

; Insert your secret key here:
$oHttp.AwsSecretKey = "secret-key"

$oHttp.AwsEndpoint = "s3.wasabisys.com"

Local $sBucketsXml = $oHttp.S3_ListBuckets()

If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oXml = ObjCreate("Chilkat.Xml")
$oXml.LoadXml($sBucketsXml)
ConsoleWrite($oXml.GetXml() & @CRLF)

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

; Sample output:

; <?xml version="1.0" encoding="UTF-8"?>
; <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
;     <Owner>
;         <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
;         <DisplayName>admin</DisplayName>
;     </Owner>
;     <Buckets>
;         <Bucket>
;             <Name>chilkat</Name>
;             <CreationDate>2021-10-26T12:39:44.000Z</CreationDate>
;         </Bucket>
;         <Bucket>
;             <Name>chilkat-wasabi-testbucket</Name>
;             <CreationDate>2021-10-27T21:07:40.000Z</CreationDate>
;         </Bucket>
;     </Buckets>
; </ListAllMyBucketsResult>

Local $sName
Local $sCreationDate

Local $sListAllMyBucketsResult_xmlns = $oXml.GetAttrValue("xmlns")
Local $sID = $oXml.GetChildContent("Owner|ID")
Local $sDisplayName = $oXml.GetChildContent("Owner|DisplayName")
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")
    $i = $i + 1
Wend