List Windows Current User Certificates

Demonstrates how to open the registry-based Current User certificate store on a Windows OS and list the digital certificates.

LOCAL loCcs
LOCAL loCs
LOCAL loCert
LOCAL lnNumCerts
LOCAL i


*  This example demonstrates how to list the certificates
*  in the logged-on user's registry-based Current User Certificate Store.

*  This is our certificate store factory object:
loCcs = CreateObject('Chilkat.CreateCS')
loCcs.ReadOnly = 1

*  Open the current-user certificate store:

loCs = loCcs.OpenCurrentUserStore()

IF (NOT (loCs = NULL )) THEN

    lnNumCerts = loCs.NumCertificates

    *  Print the distinguished name of each certificate
    FOR i = 0 TO lnNumCerts - 1
        loCert = loCs.GetCertificate(i)
        ? loCert.SubjectDN
    NEXT

ELSE
    =MESSAGEBOX(loCcs.LastErrorText)
ENDIF

*  The Chilkat Certificate, Certificate Store, Private Key,
*  Public Key, and Key Container classes / objects are freeware.

*  They are used by and included with the Chilkat Email,
*  Crypt, S/MIME, and other commercial Chilkat components.