Classic ASP

Azure Key Vault Get the Latest Version of a Certificate

See more Azure Key Vault Examples

Demonstrates how to get the latest version of a certificate in Azure Key Vault.

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

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.

'  See Azure Key Vault Get Certificates for a more detailed explanation
'  for how Chilkat is automatically getting the OAuth2 access token for your application.

'  Provide information needed for Chilkat to automatically get an OAuth2 access token as needed.
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.UpdateString("client_id","APP_ID")
success = json.UpdateString("client_secret","APP_PASSWORD")
success = json.UpdateString("resource","https://vault.azure.net")
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 VAULT_NAME with the name of your Azure Key Vault.
success = http.SetUrlVar("certName","importCert01")

set sbResponse = Server.CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://VAULT_NAME.vault.azure.net/certificates/{$certName}?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>"

'  A sample JSON response is show at the bottom.

'  Let's do two things with the result.
'  1) Load the DER of the cert into a Chilkat Cert object.
'  2) Get the Key Vault version id of the certificate.

set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadFromBase64(jsonResp.StringOf("cer"))
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load certificate from Base64 DER.") & "</pre>"
    Response.End
End If

'  The Azure Key Vault's "version" of the certificate is the hex string at the end of the "id", "kid", and "sid" JSON members.
'  For example:  "7140c8755ed14839b5d86a9f7e7f0497"
set sbId = Server.CreateObject("Chilkat.StringBuilder")
success = sbId.Append(jsonResp.StringOf("id"))
certVersion = sbId.GetAfterFinal("/",0)
Response.Write "<pre>" & Server.HTMLEncode( "The key vault cert version is " & certVersion) & "</pre>"

'  {
'    "id": "https://kvchilkat.vault.azure.net/certificates/importCert01/7140c8755ed14839b5d86a9f7e7f0497",
'    "kid": "https://kvchilkat.vault.azure.net/keys/importCert01/7140c8755ed14839b5d86a9f7e7f0497",
'    "sid": "https://kvchilkat.vault.azure.net/secrets/importCert01/7140c8755ed14839b5d86a9f7e7f0497",
'    "x5t": "I_e3776K5Q_6PN1HHvJoI2ZGQRQ",
'    "cer": "MIIGXjCCB .... cjTsi7yIY=",
'    "attributes": {
'      "enabled": true,
'      "nbf": 1633996800,
'      "exp": 1728691199,
'      "created": 1697411128,
'      "updated": 1697411128,
'      "recoveryLevel": "CustomizedRecoverable+Purgeable",
'      "recoverableDays": 7
'    },
'    "policy": {
'      "id": "https://kvchilkat.vault.azure.net/certificates/importCert01/policy",
'      "key_props": {
'        "exportable": true,
'        "kty": "RSA",
'        "key_size": 4096,
'        "reuse_key": false
'      },
'      "secret_props": {
'        "contentType": "application/x-pkcs12"
'      },
'      "x509_props": {
'        "subject": "CN=\"Chilkat Software, Inc.\", O=\"Chilkat Software, Inc.\", S=Illinois, C=US",
'        "ekus": [
'          "1.3.6.1.5.5.7.3.3"
'        ],
'        "key_usage": [
'          "digitalSignature"
'        ],
'        "validity_months": 37,
'        "basic_constraints": {
'          "ca": false
'        }
'      },
'      "lifetime_actions": [
'        {
'          "trigger": {
'            "lifetime_percentage": 80
'          },
'          "action": {
'            "action_type": "EmailContacts"
'          }
'        }
'      ],
'      "issuer": {
'        "name": "Unknown"
'      },
'      "attributes": {
'        "enabled": true,
'        "created": 1697411128,
'        "updated": 1697411128
'      }
'    }
'  }

%>
</body>
</html>