(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoJson
    Boolean iSuccess
    Handle hoHttp
    Variant vSbResponse
    Handle hoSbResponse
    Boolean iSuccess
    Integer iStatusCode
    Handle hoJsonResp
    String sId
    String sX5t
    Boolean iEnabled
    Integer iNbf
    Integer iExp
    Integer iCreated
    Integer iUpdated
    String sSubject
    Integer i
    Integer iCount_i
    String sTemp1

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

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "client_id" "APP_ID" To iSuccess

    // 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
    Get ComUpdateString Of hoJson "client_secret" "APP_PASSWORD" To iSuccess

    // The access token will be for Azure Key Vault operations.
    Get ComUpdateString Of hoJson "resource" "https://vault.azure.net" To iSuccess

    // Specify the token endpoint which includes your tenant ID.
    Get ComUpdateString Of hoJson "token_endpoint" "https://login.microsoftonline.com/TENANT_ID/oauth2/token" To iSuccess

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // 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.
    Get ComEmit Of hoJson To sTemp1
    Set ComAuthToken Of hoHttp To sTemp1

    // Replace key_vault_name with the name of your Azure Key Vault.
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponse
    If (Not(IsComObjectCreated(hoSbResponse))) Begin
        Send CreateComObject of hoSbResponse
    End
    Get pvComObject of hoSbResponse to vSbResponse
    Get ComQuickGetSb Of hoHttp "https://key_vault_name.vault.azure.net/certificates?api-version=7.4" vSbResponse To iSuccess
    If (iSuccess = False) Begin

        Get ComLastStatus Of hoHttp To iStatusCode
        If (iStatusCode = 0) Begin
            // We did not get a response from the server..
            Get ComLastErrorText Of hoHttp To sTemp1
            Showln sTemp1
        End
        Else Begin
            // We received a response, but it was an error.
            Showln "Error response status code: " iStatusCode
            Showln "Error response:"
            Get ComGetAsString Of hoSbResponse To sTemp1
            Showln sTemp1
        End

        Procedure_Return
    End

    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonResp
    If (Not(IsComObjectCreated(hoJsonResp))) Begin
        Send CreateComObject of hoJsonResp
    End
    Get pvComObject of hoSbResponse to vSbResponse
    Get ComLoadSb Of hoJsonResp vSbResponse To iSuccess
    Set ComEmitCompact Of hoJsonResp To False

    Get ComEmit Of hoJsonResp To sTemp1
    Showln sTemp1

    // 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

    Move 0 To i
    Get ComSizeOfArray Of hoJsonResp "value" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJsonResp To i
        Get ComStringOf Of hoJsonResp "value[i].id" To sId
        Get ComStringOf Of hoJsonResp "value[i].x5t" To sX5t
        Get ComBoolOf Of hoJsonResp "value[i].attributes.enabled" To iEnabled
        Get ComIntOf Of hoJsonResp "value[i].attributes.nbf" To iNbf
        Get ComIntOf Of hoJsonResp "value[i].attributes.exp" To iExp
        Get ComIntOf Of hoJsonResp "value[i].attributes.created" To iCreated
        Get ComIntOf Of hoJsonResp "value[i].attributes.updated" To iUpdated
        Get ComStringOf Of hoJsonResp "value[i].subject" To sSubject
        Move (i + 1) To i
    Loop



End_Procedure