(AutoIt) Azure Blob Service - List all Containers in a Storage Account

Azure Storage Blob Service REST API: Lists all the containers in a storage account.

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

; Azure Blob Service Example: List all of the containers in an account.

; 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 Azure Storage Blob Service
Local $bTls = True
Local $iPort = 443
Local $bAutoReconnect = True
; In this example, the storage account name is "chilkat".
Local $bSuccess = $oRest.Connect("chilkat.blob.core.windows.net",$iPort,$bTls,$bAutoReconnect)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; Provide Azure Cloud credentials for the REST call.
$oAzAuth = ObjCreate("Chilkat.AuthAzureStorage")
$oAzAuth.AccessKey = "AZURE_ACCESS_KEY"
; The account name used here should match the 1st part of the domain passed in the call to Connect (above).
$oAzAuth.Account = "chilkat"
$oAzAuth.Scheme = "SharedKey"
$oAzAuth.Service = "Blob"
; This causes the "x-ms-version: 2021-08-06" header to be automatically added.
$oAzAuth.XMsVersion = "2021-08-06"
$bSuccess = $oRest.SetAuthAzureStorage($oAzAuth)

; URI parameters, such as "maxresults", are added by calling AddQueryParam
$bSuccess = $oRest.AddQueryParam("maxresults","1000")

; Note: The application does not need to explicitly set the following
; headers: x-ms-date, Authorization.  These headers
; are automatically set by Chilkat.

Local $sResponseStr = $oRest.FullRequestNoBody("GET","/?comp=list")
If ($oRest.LastMethodSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; When successful, the Azure Storage service will respond with a 200 response code,
; with an XML body.  
If ($oRest.ResponseStatusCode <> 200) Then
    ; Examine the request/response to see what happened.
    ConsoleWrite("response status code = " & $oRest.ResponseStatusCode & @CRLF)
    ConsoleWrite("response status text = " & $oRest.ResponseStatusText & @CRLF)
    ConsoleWrite("response header: " & $oRest.ResponseHeader & @CRLF)
    ConsoleWrite("response body (if any): " & $sResponseStr & @CRLF)
    ConsoleWrite("---" & @CRLF)
    ConsoleWrite("LastRequestStartLine: " & $oRest.LastRequestStartLine & @CRLF)
    ConsoleWrite("LastRequestHeader: " & $oRest.LastRequestHeader & @CRLF)
    Exit
EndIf

; Load the XML response for parsing.
; A sample XML response containing 2 containers is shown below.
$oXml = ObjCreate("Chilkat.Xml")
$bSuccess = $oXml.LoadXml($sResponseStr)

ConsoleWrite($oXml.GetXml() & @CRLF)

; Iterate over the containers, listing some information about each.
$bSuccess = $oXml.FindChild2("Containers")
Local $iNumContainers = $oXml.NumChildren
Local $i = 0
While ($i < $iNumContainers)
    $bSuccess = $oXml.GetChild2($i)
    ConsoleWrite("Container Name: " & $oXml.GetChildContent("Name") & @CRLF)
Local $sLastModDateStr = $oXml.ChilkatPath("Properties|Last-Modified|*")
    ConsoleWrite("Last Modified: " & $sLastModDateStr & @CRLF)
    ; The date/time string can be loaded into a CkDateTime object for conversion to other date formats..
    $oDateTime = ObjCreate("Chilkat.CkDateTime")
    $bSuccess = $oDateTime.SetFromRfc822($sLastModDateStr)

Local $sLeaseState = $oXml.ChilkatPath("Properties|LeaseState|*")
    ConsoleWrite("Lease State: " & $sLeaseState & @CRLF)

    $bSuccess = $oXml.GetParent2()
    $i = $i + 1
Wend
$bSuccess = $oXml.GetParent2()

; Sample XML response:

; 	<?xml version="1.0" encoding="utf-8" ?>
; 	<EnumerationResults ServiceEndpoint="https://chilkat.blob.core.windows.net/">
; 	    <MaxResults>1000</MaxResults>
; 	    <Containers>
; 	        <Container>
; 	            <Name>test</Name>
; 	            <Properties>
; 	                <Last-Modified>Wed, 20 Apr 2016 01:02:25 GMT</Last-Modified>
; 	                <Etag>"0x8D368B77024C583"</Etag>
; 	                <LeaseStatus>unlocked</LeaseStatus>
; 	                <LeaseState>available</LeaseState>
; 	            </Properties>
; 	        </Container>
; 	        <Container>
; 	            <Name>test2</Name>
; 	            <Properties>
; 	                <Last-Modified>Tue, 03 May 2016 17:13:01 GMT</Last-Modified>
; 	                <Etag>"0x8D373762EB6AC85"</Etag>
; 	                <LeaseStatus>unlocked</LeaseStatus>
; 	                <LeaseState>available</LeaseState>
; 	            </Properties>
; 	        </Container>
; 	    </Containers>
; 	    <NextMarker />
; 	</EnumerationResults>