(Xojo Plugin) Azure Key Vault Get Certificates

See more Azure Key Vault Examples

Demonstrates how to list the certificates in an Azure Key Vault.

Note: This example requires Chilkat v9.5.0.96 or later.

For more information, see https://learn.microsoft.com/en-us/rest/api/keyvault/certificates/get-certificates/get-certificates?tabs=HTTP

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

// We demonstrated how to get an access token for your Azure Key Vault
// in this example: Azure Key Vault Get OAuth2 Access Token using Client Credentials

// However.. starting in Chilkat v9.5.0.96, instead of directly providing Chilkat with the OAuth2 access token,
// you can instead provide the means for Chilkat to automatically get the OAuth2 access token,
// and in addition, Chilkat will automatically re-fetch a new OAuth2 access token as needed, such as shortly 
// prior to or after expiration.

// You do this by setting the AuthToken property to a JSON string that contains the required information.

Dim json As New Chilkat.JsonObject
Dim success As Boolean
success = json.UpdateString("client_id","APP_ID")

// The APP_PASSWORD is the "password" returned by the Azure CLI command: az ad sp create-for-rbac --name http://example.com --role Contributor
// See Azure Key Vault Get OAuth2 Access Token using Client Credentials
success = json.UpdateString("client_secret","APP_PASSWORD")

// The access token will be for Azure Key Vault operations.
success = json.UpdateString("resource","https://vault.azure.net")

// Specify the token endpoint which includes your tenant ID.
success = json.UpdateString("token_endpoint","https://login.microsoftonline.com/TENANT_ID/oauth2/token")

Dim http As New Chilkat.Http

// Instead of providing an actual access token, we give Chilkat the information that allows it to 
// automatically fetch the access token using the OAuth2 client credentials flow.
http.AuthToken = json.Emit()

// Replace key_vault_name with the name of your Azure Key Vault.
Dim sbResponse As New Chilkat.StringBuilder
Dim success As Boolean
success = http.QuickGetSb("https://key_vault_name.vault.azure.net/certificates?api-version=7.4",sbResponse)
If (success = False) Then

    Dim statusCode As Int32
    statusCode = http.LastStatus
    If (statusCode = 0) Then
        // We did not get a response from the server..
        System.DebugLog(http.LastErrorText)
    Else
        // We received a response, but it was an error.
        System.DebugLog("Error response status code: " + Str(statusCode))
        System.DebugLog("Error response:")
        System.DebugLog(sbResponse.GetAsString())
    End If

    Return
End If

Dim jsonResp As New Chilkat.JsonObject
success = jsonResp.LoadSb(sbResponse)
jsonResp.EmitCompact = False

System.DebugLog(jsonResp.Emit())

// The output looks like this:

// {
//   "value": [
//     {
//       "id": "https://kvchilkat.vault.azure.net/certificates/BadSSL",
//       "x5t": "U04xLnb8Ww7BKkW9dD7P1cCHNDY",
//       "attributes": {
//         "enabled": true,
//         "nbf": 1674409014,
//         "exp": 1737481014,
//         "created": 1697294224,
//         "updated": 1697294224
//       },
//       "subject": ""
//     },
//     {
//       "id": "https://kvchilkat.vault.azure.net/certificates/Brasil",
//       "x5t": "ayF5eBtlA35xPMivusE0wpmFjnA",
//       "attributes": {
//         "enabled": true,
//         "nbf": 1667830002,
//         "exp": 1699366002,
//         "created": 1697294090,
//         "updated": 1697294090
//       },
//       "subject": ""
//     }
//   ],
//   "nextLink": null
// }

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

Dim id As String
Dim x5t As String
Dim Enabled As Boolean
Dim Nbf As Int32
Dim Exp As Int32
Dim Created As Int32
Dim Updated As Int32
Dim subject As String

Dim i As Int32
i = 0
Dim count_i As Int32
count_i = jsonResp.SizeOfArray("value")
While i < count_i
    jsonResp.I = i
    id = jsonResp.StringOf("value[i].id")
    x5t = jsonResp.StringOf("value[i].x5t")
    Enabled = jsonResp.BoolOf("value[i].attributes.enabled")
    Nbf = jsonResp.IntOf("value[i].attributes.nbf")
    Exp = jsonResp.IntOf("value[i].attributes.exp")
    Created = jsonResp.IntOf("value[i].attributes.created")
    Updated = jsonResp.IntOf("value[i].attributes.updated")
    subject = jsonResp.StringOf("value[i].subject")
    i = i + 1
Wend