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

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

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

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.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
$oJson.UpdateString("client_secret","APP_PASSWORD")

; The access token will be for Azure Key Vault operations.
$oJson.UpdateString("resource","https://vault.azure.net")

; Specify the token endpoint which includes your tenant ID.
$oJson.UpdateString("token_endpoint","https://login.microsoftonline.com/TENANT_ID/oauth2/token")

$oHttp = ObjCreate("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.
$oHttp.AuthToken = $oJson.Emit()

; Replace key_vault_name with the name of your Azure Key Vault.
$oSbResponse = ObjCreate("Chilkat.StringBuilder")
Local $bSuccess = $oHttp.QuickGetSb("https://key_vault_name.vault.azure.net/certificates?api-version=7.4",$oSbResponse)
If ($bSuccess = False) Then

Local $iStatusCode = $oHttp.LastStatus
    If ($iStatusCode = 0) Then
        ; We did not get a response from the server..
        ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Else
        ; We received a response, but it was an error.
        ConsoleWrite("Error response status code: " & $iStatusCode & @CRLF)
        ConsoleWrite("Error response:" & @CRLF)
        ConsoleWrite($oSbResponse.GetAsString() & @CRLF)
    EndIf

    Exit
EndIf

$oJsonResp = ObjCreate("Chilkat.JsonObject")
$oJsonResp.LoadSb($oSbResponse)
$oJsonResp.EmitCompact = False

ConsoleWrite($oJsonResp.Emit() & @CRLF)

; 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

Local $sId
Local $sX5t
Local $bEnabled
Local $iNbf
Local $iExp
Local $iCreated
Local $iUpdated
Local $subject

Local $i = 0
Local $iCount_i = $oJsonResp.SizeOfArray("value")
While $i < $iCount_i
    $oJsonResp.I = $i
    $sId = $oJsonResp.StringOf("value[i].id")
    $sX5t = $oJsonResp.StringOf("value[i].x5t")
    $bEnabled = $oJsonResp.BoolOf("value[i].attributes.enabled")
    $iNbf = $oJsonResp.IntOf("value[i].attributes.nbf")
    $iExp = $oJsonResp.IntOf("value[i].attributes.exp")
    $iCreated = $oJsonResp.IntOf("value[i].attributes.created")
    $iUpdated = $oJsonResp.IntOf("value[i].attributes.updated")
    $subject = $oJsonResp.StringOf("value[i].subject")
    $i = $i + 1
Wend