Visual FoxPro

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.

Visual FoxPro

LOCAL lnSuccess
LOCAL loJson
LOCAL loHttp
LOCAL loSbResponse
LOCAL lnStatusCode
LOCAL loJsonResp
LOCAL lcId
LOCAL lcX5t
LOCAL lnEnabled
LOCAL lnNbf
LOCAL lnExp
LOCAL lnCreated
LOCAL lnUpdated
LOCAL lcSubject
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

loJson = CreateObject('Chilkat.JsonObject')
loJson.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
loJson.UpdateString("client_secret","APP_PASSWORD")

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

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

loHttp = 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.
loHttp.AuthToken = loJson.Emit()

* Replace key_vault_name with the name of your Azure Key Vault.
loSbResponse = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://key_vault_name.vault.azure.net/certificates?api-version=7.4",loSbResponse)
IF (lnSuccess = 0) THEN

    lnStatusCode = loHttp.LastStatus
    IF (lnStatusCode = 0) THEN
        * We did not get a response from the server..
        ? loHttp.LastErrorText
    ELSE
        * We received a response, but it was an error.
        ? "Error response status code: " + STR(lnStatusCode)
        ? "Error response:"
        ? loSbResponse.GetAsString()
    ENDIF

    RELEASE loJson
    RELEASE loHttp
    RELEASE loSbResponse
    CANCEL
ENDIF

loJsonResp = CreateObject('Chilkat.JsonObject')
loJsonResp.LoadSb(loSbResponse)
loJsonResp.EmitCompact = 0

? loJsonResp.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
lnCount_i = loJsonResp.SizeOfArray("value")
DO WHILE i < lnCount_i
    loJsonResp.I = i
    lcId = loJsonResp.StringOf("value[i].id")
    lcX5t = loJsonResp.StringOf("value[i].x5t")
    lnEnabled = loJsonResp.BoolOf("value[i].attributes.enabled")
    lnNbf = loJsonResp.IntOf("value[i].attributes.nbf")
    lnExp = loJsonResp.IntOf("value[i].attributes.exp")
    lnCreated = loJsonResp.IntOf("value[i].attributes.created")
    lnUpdated = loJsonResp.IntOf("value[i].attributes.updated")
    lcSubject = loJsonResp.StringOf("value[i].subject")
    i = i + 1
ENDDO

RELEASE loJson
RELEASE loHttp
RELEASE loSbResponse
RELEASE loJsonResp