PowerBuilder

AWS KMS List Keys

See more AWS KMS Examples

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

integer li_rc
integer li_Success
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
oleobject loo_AuthAws
string ls_StrJson
oleobject loo_Json
string ls_KeyArn
string ls_KeyId
integer li_KeyCount
integer li_Truncated
integer i
integer li_Count_i

li_Success = 0

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

loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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/
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("kms.us-west-2.amazonaws.com",li_Port,li_BTls,li_BAutoReconnect)

// Provide AWS credentials for the REST call.
loo_AuthAws = create oleobject
li_rc = loo_AuthAws.ConnectToNewObject("Chilkat.AuthAws")

loo_AuthAws.AccessKey = "AWS_ACCESS_KEY"
loo_AuthAws.SecretKey = "AWS_SECRET_KEY"
// the region should match our URL above..
loo_AuthAws.Region = "us-west-2"
loo_AuthAws.ServiceName = "kms"

loo_Rest.SetAuthAws(loo_AuthAws)

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

ls_StrJson = loo_Rest.FullRequestString("POST","/","{}")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_AuthAws
    return
end if

// A successful response will have a status code equal to 200.
if loo_Rest.ResponseStatusCode <> 200 then
    Write-Debug "response status code = " + string(loo_Rest.ResponseStatusCode)
    Write-Debug "response status text = " + loo_Rest.ResponseStatusText
    Write-Debug "response header: " + loo_Rest.ResponseHeader
    Write-Debug "response body: " + ls_StrJson
    destroy loo_Rest
    destroy loo_AuthAws
    return
end if

// Examine the successful JSON response (shown below)
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.Load(ls_StrJson)
loo_Json.EmitCompact = 0

Write-Debug loo_Json.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

li_KeyCount = loo_Json.IntOf("KeyCount")
li_Truncated = loo_Json.BoolOf("Truncated")
i = 0
li_Count_i = loo_Json.SizeOfArray("Keys")
do while i < li_Count_i
    loo_Json.I = i
    ls_KeyArn = loo_Json.StringOf("Keys[i].KeyArn")
    ls_KeyId = loo_Json.StringOf("Keys[i].KeyId")
    i = i + 1
loop


destroy loo_Rest
destroy loo_AuthAws
destroy loo_Json