(Visual FoxPro) AWS KMS List Keys

See more AWS KMS Examples

Gets a list of all KMS keys in the caller's AWS account and Region.

For more information, see https://docs.aws.amazon.com/kms/latest/APIReference/API_ListKeys.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 lcStrJson
LOCAL loJson
LOCAL lcKeyArn
LOCAL lcKeyId
LOCAL lnKeyCount
LOCAL lnTruncated
LOCAL i
LOCAL lnCount_i

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* 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.
* Make sure to use the region that is correct for you.
* such as https://kms.us-west-2.amazonaws.com/
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("kms.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 = "kms"

loRest.SetAuthAws(loAuthAws)

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

lcStrJson = loRest.FullRequestString("POST","/","{}")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loAuthAws
    CANCEL
ENDIF

* A successful response will have a status code equal to 200.
IF (loRest.ResponseStatusCode <> 200) THEN
    ? "response status code = " + STR(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response body: " + lcStrJson
    RELEASE loRest
    RELEASE loAuthAws
    CANCEL
ENDIF

* Examine the successful JSON response (shown below)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(lcStrJson)
loJson.EmitCompact = 0

? loJson.Emit()

* Sample output:

* {
*   "KeyCount": 4,
*   "Keys": [
*     {
*       "KeyArn": "arn:aws:kms:us-west-2:954491834127:key/082f8520-7afc-4a09-b703-89b7243072e5",
*       "KeyId": "082f8520-7afc-4a09-b703-89b7243072e5"
*     },
*     {
*       "KeyArn": "arn:aws:kms:us-west-2:954491834127:key/17432483-ff08-4950-93d3-f46ebb5e17d1",
*       "KeyId": "17432483-ff08-4950-93d3-f46ebb5e17d1"
*     },
*     {
*       "KeyArn": "arn:aws:kms:us-west-2:954491834127:key/1b0e5b3c-0675-4510-adb6-a75b40a93da0",
*       "KeyId": "1b0e5b3c-0675-4510-adb6-a75b40a93da0"
*     },
*     {
*       "KeyArn": "arn:aws:kms:us-west-2:954491834127:key/265e3993-428b-4581-9466-b1030a53062f",
*       "KeyId": "265e3993-428b-4581-9466-b1030a53062f"
*     },
*   ],
*   "Truncated": false
* }

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

lnKeyCount = loJson.IntOf("KeyCount")
lnTruncated = loJson.BoolOf("Truncated")
i = 0
lnCount_i = loJson.SizeOfArray("Keys")
DO WHILE i < lnCount_i
    loJson.I = i
    lcKeyArn = loJson.StringOf("Keys[i].KeyArn")
    lcKeyId = loJson.StringOf("Keys[i].KeyId")
    i = i + 1
ENDDO

RELEASE loRest
RELEASE loAuthAws
RELEASE loJson