(VBScript) 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.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = 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")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = 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")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbResponse = 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..
        outFile.WriteLine(http.LastErrorText)
    Else
        ' We received a response, but it was an error.
        outFile.WriteLine("Error response status code: " & statusCode)
        outFile.WriteLine("Error response:")
        outFile.WriteLine(sbResponse.GetAsString())
    End If

    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jsonResp = CreateObject("Chilkat.JsonObject")
success = jsonResp.LoadSb(sbResponse)
jsonResp.EmitCompact = 0

outFile.WriteLine(jsonResp.Emit())

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = CreateObject("Chilkat.Cert")
success = cert.LoadFromBase64(jsonResp.StringOf("cer"))
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    outFile.WriteLine("Failed to load certificate from Base64 DER.")
    WScript.Quit
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"
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbId = CreateObject("Chilkat.StringBuilder")
success = sbId.Append(jsonResp.StringOf("id"))
certVersion = sbId.GetAfterFinal("/",0)
outFile.WriteLine("The key vault cert version is " & certVersion)

' {
'   "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
'     }
'   }
' }

outFile.Close