B4X

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.

B4X

Dim success As Boolean = False

'  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 ChilkatJsonObject
json.Initialize
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
json.UpdateString("client_secret", "APP_PASSWORD")

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

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

Dim http As ChilkatHttp
http.Initialize("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 ChilkatStringBuilder
sbResponse.Initialize
success = http.QuickGetSb("https://key_vault_name.vault.azure.net/certificates?api-version=7.4", sbResponse)
If success = False Then

    Dim statusCode As Int = http.LastStatus
    If statusCode = 0 Then
        '  We did not get a response from the server..
        Log(http.LastErrorText)
    Else
        '  We received a response, but it was an error.
        Log("Error response status code: " & statusCode)
        Log("Error response:")
        Log(sbResponse.GetAsString)
    End If

    Return
End If


Dim jsonResp As ChilkatJsonObject
jsonResp.Initialize
jsonResp.LoadSb(sbResponse)
jsonResp.EmitCompact = False

Log(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 Int
Dim Exp As Int
Dim Created As Int
Dim Updated As Int
Dim subject As String

Dim i As Int = 0
Dim count_i As Int = jsonResp.SizeOfArray("value")
Do 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
Loop