VB.NET

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.

VB.NET

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

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

    Exit Sub
End If


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

Debug.WriteLine(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 Integer
Dim Exp As Integer
Dim Created As Integer
Dim Updated As Integer
Dim subject As String

Dim i As Integer = 0
Dim count_i As Integer = 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
End While