(PowerShell) Amazon Glacier List Tags for Vault

Lists all the tags attached to a vault. The operation returns an empty map if there are no tags.

Chilkat .NET Downloads Chilkat .NET Assemblies

Add-Type -Path "C:\chilkat\ChilkatDotNet47-x64\ChilkatDotNet47.dll"

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

$rest = New-Object Chilkat.Rest

# Connect to the Amazon AWS REST server in the desired region.
$bTls = $true
$port = 443
$bAutoReconnect = $true
$success = $rest.Connect("glacier.us-west-2.amazonaws.com",$port,$bTls,$bAutoReconnect)

# Provide AWS credentials.
$authAws = New-Object Chilkat.AuthAws
$authAws.AccessKey = "AWS_ACCESS_KEY"
$authAws.SecretKey = "AWS_SECRET_KEY"
$authAws.ServiceName = "glacier"
$authAws.Region = "us-west-2"

$success = $rest.SetAuthAws($authAws)

# --------------------------------------------------------------------------
# Note: The above REST connection and setup of the AWS credentials
# can be done once.  After connecting, any number of REST calls can be made.
# The "auto reconnect" property passed to rest.Connect indicates that if
# the connection is lost, a REST method call will automatically reconnect
# if needed.
# --------------------------------------------------------------------------

# 
# For more information, see Glacier List Tags for Vault Reference Documentation
# 
$rest.AddHeader("x-amz-glacier-version","2012-06-01")

# Get the tags for the "chilkat" vault.
$sbResponseBody = New-Object Chilkat.StringBuilder
$success = $rest.FullRequestNoBodySb("GET","/AWS_ACCOUNT_ID/vaults/chilkat/tags",$sbResponseBody)
if ($success -ne $true) {
    $($rest.LastErrorText)
    exit
}

$respStatusCode = $rest.ResponseStatusCode
if ($respStatusCode -ge 400) {
    $("Response Status Code = " + $respStatusCode)
    $("Response Header:")
    $($rest.ResponseHeader)
    $("Response Body:")
    $($sbResponseBody.GetAsString())
    exit
}

# Success is indicated by a 200 response status with an empty response body.
$("response status code = " + $respStatusCode)

$json = New-Object Chilkat.JsonObject
$json.LoadSb($sbResponseBody)
$json.EmitCompact = $false

$($json.Emit())
$("----")

$jTags = $json.ObjectOf("Tags")
$numTags = $jTags.Size
$i = 0
while ($i -lt $numTags) {
    $($jTags.NameAt($i) + ": " + $jTags.StringAt($i))
    $i = $i + 1
}

# Sample response
# 
# {
#   "Tags": {
#     "tagName1": "tagValue1",
#     "tagName2": "tagValue2"
#   }
# }