(VBScript) Azure Key Vault Get Certificates

See more Azure Key Vault Examples

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-certificates/get-certificates?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.

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

' 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")

' 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")

' 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 key_vault_name with the name of your Azure Key Vault.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbResponse = 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..
        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())

' 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

outFile.Close