(Excel) Amazon Glacier Describe Vault

Returns information about a vault, including the vault Amazon Resource Name (ARN), the date the vault was created, the number of archives contained within the vault, and the total size of all the archives in the vault...

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim rest As Chilkat.Rest
Set rest = Chilkat.NewRest

' 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.
Dim authAws As Chilkat.AuthAws
Set authAws = Chilkat.NewAuthAws
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 Describe Vault Reference Documentation
' 
success = rest.AddHeader("x-amz-glacier-version","2012-06-01")

' Describe the "chilkat" vault
Dim sbResponseBody As Chilkat.StringBuilder
Set sbResponseBody = Chilkat.NewStringBuilder
success = rest.FullRequestNoBodySb("GET","/AWS_ACCOUNT_ID/vaults/chilkat",sbResponseBody)
If (success <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If


respStatusCode = rest.ResponseStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Status Code = "; respStatusCode
    Debug.Print "Response Header:"
    Debug.Print rest.ResponseHeader
    Debug.Print "Response Body:"
    Debug.Print sbResponseBody.GetAsString()
    Exit Sub
End If

' Success is indicated by a 200 response status with an empty response body.
Debug.Print "response status code = "; respStatusCode

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
success = json.LoadSb(sbResponseBody)
json.EmitCompact = False

Debug.Print json.Emit()

' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

CreationDate = json.StringOf("CreationDate")
LastInventoryDate = json.StringOf("LastInventoryDate")
NumberOfArchives = json.IntOf("NumberOfArchives")
SizeInBytes = json.IntOf("SizeInBytes")
VaultARN = json.StringOf("VaultARN")
VaultName = json.StringOf("VaultName")

' Sample response
' 
' {
'   "CreationDate": "2019-04-05T19:10:28.428Z",
'   "LastInventoryDate": null,
'   "NumberOfArchives": 0,
'   "SizeInBytes": 0,
'   "VaultARN": "arn:aws:glacier:us-west-2:954491834127:vaults/chilkat",
'   "VaultName": "chilkat"
' }
'