(Visual FoxPro) 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

LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lnSuccess
LOCAL loAuthAws
LOCAL lcStrResponse
LOCAL lnRespStatusCode
LOCAL loJResp
LOCAL lcARN
LOCAL lcDescription
LOCAL lcLastChangedDate
LOCAL lcName
LOCAL lcStrVal
LOCAL i
LOCAL lnCount_i
LOCAL loJson2
LOCAL lnCount
LOCAL j
LOCAL lcVersionName
LOCAL loJarr
LOCAL lcStage

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

* Connect to the Amazon AWS REST server.
* such as https://secretsmanager.us-west-2.amazonaws.com/
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("secretsmanager.us-west-2.amazonaws.com",lnPort,lnBTls,lnBAutoReconnect)

* Provide AWS credentials for the REST call.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthAws')
loAuthAws = CreateObject('Chilkat.AuthAws')
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 = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loAuthAws
    CANCEL
ENDIF

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.EmitCompact = 0
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
    CANCEL
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"]
*       }
*     }
*   ]
* }

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")

    loJson2 = loJResp.ObjectOf("SecretList[i].SecretVersionsToStages")
    lnCount = loJson2.Size
    j = 0
    DO WHILE j < lnCount
        lcVersionName = loJson2.NameAt(j)
        loJarr = loJson2.ArrayOf(lcVersionName)
        lcStage = loJarr.StringAt(0)
        ? "versionName = " + lcVersionName
        ? "stage = " + lcStage
        j = j + 1
        RELEASE loJarr
    ENDDO
    RELEASE loJson2

    i = i + 1
ENDDO

RELEASE loRest
RELEASE loAuthAws
RELEASE loJResp