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.

AutoIt

Local $bSuccess = False

;  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")
$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