(VB.NET UWP/WinRT) 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 Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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


Dim rest As New Chilkat.Rest

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

' Provide AWS credentials for the REST call.
Dim authAws As New 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"

rest.SetAuthAws(authAws)

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

Dim strResponse As String = Await rest.FullRequestStringAsync("POST","/","{}")
If (rest.LastMethodSuccess = False) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If

Dim respStatusCode As Integer = rest.ResponseStatusCode
Debug.WriteLine("response status code = " & respStatusCode)

Dim jResp As New Chilkat.JsonObject
jResp.EmitCompact = False
jResp.Load(strResponse)

If (respStatusCode >= 400) Then
    Debug.WriteLine("Response Status Code = " & respStatusCode)
    Debug.WriteLine("Response Header:")
    Debug.WriteLine(rest.ResponseHeader)
    Debug.WriteLine("Response Body:")
    Debug.WriteLine(jResp.Emit())
    Exit Sub
End If


Debug.WriteLine("Response Body:")
Debug.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"]
'       }
'     }
'   ]
' }


Dim ARN As String
Dim Description As String
Dim LastChangedDate As String
Dim Name As String
Dim strVal As String

Dim i As Integer = 0
Dim count_i As Integer = jResp.SizeOfArray("SecretList")
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")

    Dim json2 As Chilkat.JsonObject = jResp.ObjectOf("SecretList[i].SecretVersionsToStages")
    Dim count As Integer = json2.Size
    Dim j As Integer = 0
    While j < count
        Dim versionName As String = json2.NameAt(j)
        Dim jarr As Chilkat.JsonArray = json2.ArrayOf(versionName)
        Dim stage As String = jarr.StringAt(0)
        Debug.WriteLine("versionName = " & versionName)
        Debug.WriteLine("stage = " & stage)
        j = j + 1

    End While


    i = i + 1
End While