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
long li_Success
oleobject loo_Rest
long li_BTls
long li_Port
long li_BAutoReconnect
oleobject loo_AuthAws
string ls_StrJson
oleobject loo_Json
string ls_KeyArn
string ls_KeyId
long li_KeyCount
long li_Truncated
long i
long 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