(Visual FoxPro) AWS Secrets Manager - Create Secret

See more AWS Secrets Manager Examples

Creates a new secret. A secret is a set of credentials, such as a user name and password, that you store in an encrypted form in Secrets Manager.

For more information, see https://docs.aws.amazon.com/secretsmanager/latest/apireference/API_CreateSecret.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 loJson
LOCAL loSbRequestBody
LOCAL loSbResponseBody
LOCAL lnRespStatusCode
LOCAL loJResp
LOCAL lcARN
LOCAL lcName
LOCAL lcVersionId

* 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.CreateSecret
* 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>
* 
* {
*   "Name": "MyTestDatabaseSecret2",
*   "Description": "My test database secret created with the CLI",
*   "SecretString": "{\"username\":\"david\",\"password\":\"BnQw!XDWgaEeT9XGTT29\"}", "ClientRequestToken": "EXAMPLE1-90ab-cdef-fedc-ba987SECRET1"
* }

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

* Use this online tool to generate code from sample JSON:
* Generate Code to Create JSON

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

loJson.UpdateString("Name","MyTestDatabaseSecret2")
loJson.UpdateString("Description","My test database secret created with the CLI")
loJson.UpdateString("SecretString",'{"username":"david","password":"BnQw!XDWgaEeT9XGTT29"}')
loJson.UpdateString("ClientRequestToken","EXAMPLE1-90ab-cdef-fedc-ba987SECRET1")

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbRequestBody = CreateObject('Chilkat.StringBuilder')
loJson.EmitSb(loSbRequestBody)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponseBody = CreateObject('Chilkat.StringBuilder')
lnSuccess = loRest.FullRequestSb("POST","/",loSbRequestBody,loSbResponseBody)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loAuthAws
    RELEASE loJson
    RELEASE loSbRequestBody
    RELEASE loSbResponseBody
    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.LoadSb(loSbResponseBody)

IF (lnRespStatusCode >= 400) THEN
    ? "Response Status Code = " + STR(lnRespStatusCode)
    ? "Response Header:"
    ? loRest.ResponseHeader
    ? "Response Body:"
    ? loJResp.Emit()
    RELEASE loRest
    RELEASE loAuthAws
    RELEASE loJson
    RELEASE loSbRequestBody
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
ENDIF

? "Response Body:"
? loJResp.Emit()

* Sample response body:

* {
*   "ARN": "arn:aws:secretsmanager:us-west-2:954491834127:secret:MyTestDatabaseSecret2-F16Tps",
*   "Name": "MyTestDatabaseSecret2",
*   "VersionId": "EXAMPLE1-90ab-cdef-fedc-ba987SECRET1"
* }

* Use this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

lcARN = loJResp.StringOf("ARN")
lcName = loJResp.StringOf("Name")
lcVersionId = loJResp.StringOf("VersionId")

RELEASE loRest
RELEASE loAuthAws
RELEASE loJson
RELEASE loSbRequestBody
RELEASE loSbResponseBody
RELEASE loJResp