(VBScript) AWS Secrets Manager - List Secrets

See more AWS Secrets Manager Examples

Note: This example requires Chilkat v11.1.0 or greater.

For more information, see https://docs.aws.amazon.com/secretsmanager/latest/apireference/API_ListSecrets.html

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

' Sends the following sample request.
' Note: Chilkat will automatically add Content-Length, X-Amz-Date, Accept-Encoding, and Authorization

' POST / HTTP/1.1
' Host: secretsmanager.region.domain
' Accept-Encoding: identity
' X-Amz-Target: secretsmanager.ListSecrets
' Content-Type: application/x-amz-json-1.1
' X-Amz-Date: <date>
' Authorization: AWS4-HMAC-SHA256 Credential=<credentials>,SignedHeaders=<headers>, Signature=<signature>
' Content-Length: <payload-size-bytes>
' 
' {}

set rest = CreateObject("Chilkat.Rest")

' Connect to the Amazon AWS REST server.
' such as https://secretsmanager.us-west-2.amazonaws.com/
bTls = 1
port = 443
bAutoReconnect = 1
success = rest.Connect("secretsmanager.us-west-2.amazonaws.com",port,bTls,bAutoReconnect)

' Provide AWS credentials for the REST call.
set authAws = CreateObject("Chilkat.AuthAws")
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
' the region should match our URL above..
authAws.Region = "us-west-2"
authAws.ServiceName = "secretsmanager"

success = rest.SetAuthAws(authAws)

success = rest.AddHeader("Content-Type","application/x-amz-json-1.1")
success = rest.AddHeader("X-Amz-Target","secretsmanager.ListSecrets")

strResponse = rest.FullRequestString("POST","/","{}")
If (rest.LastMethodSuccess = 0) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

respStatusCode = rest.ResponseStatusCode
outFile.WriteLine("response status code = " & respStatusCode)

set jResp = CreateObject("Chilkat.JsonObject")
jResp.EmitCompact = 0
success = jResp.Load(strResponse)

If (respStatusCode >= 400) Then
    outFile.WriteLine("Response Status Code = " & respStatusCode)
    outFile.WriteLine("Response Header:")
    outFile.WriteLine(rest.ResponseHeader)
    outFile.WriteLine("Response Body:")
    outFile.WriteLine(jResp.Emit())
    WScript.Quit
End If

outFile.WriteLine("Response Body:")
outFile.WriteLine(jResp.Emit())

' Sample response body:

' {
'   "SecretList":[
'     {
'       "ARN":"arn:aws:secretsmanager:us-west-2:123456789012:secret:MyTestDatabaseSecret-a1b2c3",
'       "Description":"My test database secret",
'       "LastChangedDate":1.523477145729E9,
'       "Name":"MyTestDatabaseSecret",
'       "SecretVersionsToStages":{
'         "EXAMPLE2-90ab-cdef-fedc-ba987EXAMPLE":["AWSCURRENT"]
'       }
'     },
'     {
'       "ARN":"arn:aws:secretsmanager:us-west-2:123456789012:secret:AnotherDatabaseSecret-d4e5f6",
'       "Description":"Another secret created for a different database",
'       "LastChangedDate":1.523482025685E9,
'       "Name":"AnotherDatabaseSecret",
'       "SecretVersionsToStages":{
'         "EXAMPLE3-90ab-cdef-fedc-ba987EXAMPLE":["AWSCURRENT"]
'       }
'     }
'   ]
' }

set json2 = CreateObject("Chilkat.JsonObject")
set jarr = CreateObject("Chilkat.JsonArray")

i = 0
count_i = jResp.SizeOfArray("SecretList")
Do While i < count_i
    jResp.I = i
    ARN = jResp.StringOf("SecretList[i].ARN")
    Description = jResp.StringOf("SecretList[i].Description")
    LastChangedDate = jResp.StringOf("SecretList[i].LastChangedDate")
    Name = jResp.StringOf("SecretList[i].Name")

    success = jResp.ObjectOf2("SecretList[i].SecretVersionsToStages",json2)
    count = json2.Size
    j = 0
    Do While j < count
        versionName = json2.NameAt(j)
        success = json2.ArrayOf2(versionName,jarr)
        stage = jarr.StringAt(0)
        outFile.WriteLine("versionName = " & versionName)
        outFile.WriteLine("stage = " & stage)
        j = j + 1
    Loop

    i = i + 1
Loop

outFile.Close