(PowerBuilder) AWS Secrets Manager - List Secrets

See more AWS Secrets Manager Examples

Lists the secrets that are stored by Secrets Manager in the AWS account. Lists the secrets that are stored by Secrets Manager in the AWS account.

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

integer li_rc
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
integer li_Success
oleobject loo_AuthAws
string ls_StrResponse
integer li_RespStatusCode
oleobject loo_JResp
string ls_ARN
string ls_Description
string ls_LastChangedDate
string ls_Name
string ls_StrVal
integer i
integer li_Count_i
oleobject loo_Json2
integer li_Count
integer j
string ls_VersionName
oleobject loo_Jarr
string ls_Stage

// 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>
// 
// {}

loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Connect to the Amazon AWS REST server.
// such as https://secretsmanager.us-west-2.amazonaws.com/
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("secretsmanager.us-west-2.amazonaws.com",li_Port,li_BTls,li_BAutoReconnect)

// Provide AWS credentials for the REST call.
loo_AuthAws = create oleobject
li_rc = loo_AuthAws.ConnectToNewObject("Chilkat_9_5_0.AuthAws")

loo_AuthAws.AccessKey = "AWS_ACCESS_KEY"
loo_AuthAws.SecretKey = "AWS_SECRET_KEY"
// the region should match our URL above..
loo_AuthAws.Region = "us-west-2"
loo_AuthAws.ServiceName = "secretsmanager"

loo_Rest.SetAuthAws(loo_AuthAws)

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

ls_StrResponse = loo_Rest.FullRequestString("POST","/","{}")
if loo_Rest.LastMethodSuccess = 0 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_AuthAws
    return
end if

li_RespStatusCode = loo_Rest.ResponseStatusCode
Write-Debug "response status code = " + string(li_RespStatusCode)

loo_JResp = create oleobject
li_rc = loo_JResp.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

loo_JResp.EmitCompact = 0
loo_JResp.Load(ls_StrResponse)

if li_RespStatusCode >= 400 then
    Write-Debug "Response Status Code = " + string(li_RespStatusCode)
    Write-Debug "Response Header:"
    Write-Debug loo_Rest.ResponseHeader
    Write-Debug "Response Body:"
    Write-Debug loo_JResp.Emit()
    destroy loo_Rest
    destroy loo_AuthAws
    destroy loo_JResp
    return
end if

Write-Debug "Response Body:"
Write-Debug loo_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"]
//       }
//     }
//   ]
// }

i = 0
li_Count_i = loo_JResp.SizeOfArray("SecretList")
do while i < li_Count_i
    loo_JResp.I = i
    ls_ARN = loo_JResp.StringOf("SecretList[i].ARN")
    ls_Description = loo_JResp.StringOf("SecretList[i].Description")
    ls_LastChangedDate = loo_JResp.StringOf("SecretList[i].LastChangedDate")
    ls_Name = loo_JResp.StringOf("SecretList[i].Name")

    loo_Json2 = loo_JResp.ObjectOf("SecretList[i].SecretVersionsToStages")
    li_Count = loo_Json2.Size
    j = 0
    do while j < li_Count
        ls_VersionName = loo_Json2.NameAt(j)
        loo_Jarr = loo_Json2.ArrayOf(ls_VersionName)
        ls_Stage = loo_Jarr.StringAt(0)
        Write-Debug "versionName = " + ls_VersionName
        Write-Debug "stage = " + ls_Stage
        j = j + 1
        destroy loo_Jarr
    loop
    destroy loo_Json2

    i = i + 1
loop


destroy loo_Rest
destroy loo_AuthAws
destroy loo_JResp