Lianja

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

llSuccess = .F.

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

loRest = createobject("CkRest")

// Connect to the Amazon AWS REST server.
// such as https://secretsmanager.us-west-2.amazonaws.com/
llBTls = .T.
lnPort = 443
llBAutoReconnect = .T.
llSuccess = loRest.Connect("secretsmanager.us-west-2.amazonaws.com",lnPort,llBTls,llBAutoReconnect)

// Provide AWS credentials for the REST call.
loAuthAws = createobject("CkAuthAws")
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
// the region should match our URL above..
loAuthAws.Region = "us-west-2"
loAuthAws.ServiceName = "secretsmanager"

loRest.SetAuthAws(loAuthAws)

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

lcStrResponse = loRest.FullRequestString("POST","/","{}")
if (loRest.LastMethodSuccess = .F.) then
    ? loRest.LastErrorText
    release loRest
    release loAuthAws
    return
endif

lnRespStatusCode = loRest.ResponseStatusCode
? "response status code = " + str(lnRespStatusCode)

loJResp = createobject("CkJsonObject")
loJResp.EmitCompact = .F.
loJResp.Load(lcStrResponse)

if (lnRespStatusCode >= 400) then
    ? "Response Status Code = " + str(lnRespStatusCode)
    ? "Response Header:"
    ? loRest.ResponseHeader
    ? "Response Body:"
    ? loJResp.Emit()
    release loRest
    release loAuthAws
    release loJResp
    return
endif

? "Response Body:"
? loJResp.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"]
//       }
//     }
//   ]
// }

loJson2 = createobject("CkJsonObject")
loJarr = createobject("CkJsonArray")

i = 0
lnCount_i = loJResp.SizeOfArray("SecretList")
do while i < lnCount_i
    loJResp.I = i
    lcARN = loJResp.StringOf("SecretList[i].ARN")
    lcDescription = loJResp.StringOf("SecretList[i].Description")
    lcLastChangedDate = loJResp.StringOf("SecretList[i].LastChangedDate")
    lcName = loJResp.StringOf("SecretList[i].Name")

    loJResp.ObjectOf2("SecretList[i].SecretVersionsToStages",loJson2)
    lnCount = loJson2.Size
    j = 0
    do while j < lnCount
        lcVersionName = loJson2.NameAt(j)
        loJson2.ArrayOf2(lcVersionName,loJarr)
        lcStage = loJarr.StringAt(0)
        ? "versionName = " + lcVersionName
        ? "stage = " + lcStage
        j = j + 1
    enddo

    i = i + 1
enddo


release loRest
release loAuthAws
release loJResp
release loJson2
release loJarr