Classic ASP
Azure Key Vault Get Certificates

Demonstrates how to list the certificates in an Azure Key Vault.
Note: This example requires Chilkat v9.5.0.96 or later.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' 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.

set json = Server.CreateObject("Chilkat.JsonObject")
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")

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

    statusCode = http.LastStatus
    If (statusCode = 0) Then
        ' We did not get a response from the server..
        Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Else
        ' We received a response, but it was an error.
        Response.Write "<pre>" & Server.HTMLEncode( "Error response status code: " & statusCode) & "</pre>"
        Response.Write "<pre>" & Server.HTMLEncode( "Error response:") & "</pre>"
        Response.Write "<pre>" & Server.HTMLEncode( sbResponse.GetAsString()) & "</pre>"
    End If

    Response.End
End If

set jsonResp = Server.CreateObject("Chilkat.JsonObject")
success = jsonResp.LoadSb(sbResponse)
jsonResp.EmitCompact = 0

Response.Write "<pre>" & Server.HTMLEncode( jsonResp.Emit()) & "</pre>"

' 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

i = 0
count_i = 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

%>
</body>
</html>