PowerBuilder Requires Chilkat v11.1.0+

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. PowerBuilder

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

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

loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat.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.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.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"]
//        }
//      }
//    ]
//  }

loo_Json2 = create oleobject
li_rc = loo_Json2.ConnectToNewObject("Chilkat.JsonObject")

loo_Jarr = create oleobject
li_rc = loo_Jarr.ConnectToNewObject("Chilkat.JsonArray")

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_JResp.ObjectOf2("SecretList[i].SecretVersionsToStages",loo_Json2)
    li_Count = loo_Json2.Size
    j = 0
    do while j < li_Count
        ls_VersionName = loo_Json2.NameAt(j)
        loo_Json2.ArrayOf2(ls_VersionName,loo_Jarr)
        ls_Stage = loo_Jarr.StringAt(0)
        Write-Debug "versionName = " + ls_VersionName
        Write-Debug "stage = " + ls_Stage
        j = j + 1
    loop

    i = i + 1
loop


destroy loo_Rest
destroy loo_AuthAws
destroy loo_JResp
destroy loo_Json2
destroy loo_Jarr