![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) AWS Secrets Manager - List SecretsSee more AWS Secrets Manager ExamplesLists 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.Note: This example requires Chilkat v11.1.0 or greater. For more information, see https://docs.aws.amazon.com/secretsmanager/latest/apireference/API_ListSecrets.html
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) 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> ' ' {} set rest = CreateObject("Chilkat.Rest") ' Connect to the Amazon AWS REST server. ' such as https://secretsmanager.us-west-2.amazonaws.com/ bTls = 1 port = 443 bAutoReconnect = 1 success = rest.Connect("secretsmanager.us-west-2.amazonaws.com",port,bTls,bAutoReconnect) ' Provide AWS credentials for the REST call. set authAws = CreateObject("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" success = rest.SetAuthAws(authAws) success = rest.AddHeader("Content-Type","application/x-amz-json-1.1") success = rest.AddHeader("X-Amz-Target","secretsmanager.ListSecrets") strResponse = rest.FullRequestString("POST","/","{}") If (rest.LastMethodSuccess = 0) Then outFile.WriteLine(rest.LastErrorText) WScript.Quit End If respStatusCode = rest.ResponseStatusCode outFile.WriteLine("response status code = " & respStatusCode) set jResp = CreateObject("Chilkat.JsonObject") jResp.EmitCompact = 0 success = jResp.Load(strResponse) If (respStatusCode >= 400) Then outFile.WriteLine("Response Status Code = " & respStatusCode) outFile.WriteLine("Response Header:") outFile.WriteLine(rest.ResponseHeader) outFile.WriteLine("Response Body:") outFile.WriteLine(jResp.Emit()) WScript.Quit End If outFile.WriteLine("Response Body:") outFile.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"] ' } ' } ' ] ' } set json2 = CreateObject("Chilkat.JsonObject") set jarr = CreateObject("Chilkat.JsonArray") i = 0 count_i = jResp.SizeOfArray("SecretList") Do 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") success = jResp.ObjectOf2("SecretList[i].SecretVersionsToStages",json2) count = json2.Size j = 0 Do While j < count versionName = json2.NameAt(j) success = json2.ArrayOf2(versionName,jarr) stage = jarr.StringAt(0) outFile.WriteLine("versionName = " & versionName) outFile.WriteLine("stage = " & stage) j = j + 1 Loop i = i + 1 Loop outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.