(Xojo Plugin) List Certificates in the Current User Certificate Store (Windows Only)

This is a Windows-only example to list the certificates in the current-user certificate store (located in the Windows Registry).

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// This is a Windows-only example because it lists the certificates
// stored in the Windows Current User Certificate Store located in the
// Windows Registry.

Dim certStore As New Chilkat.CertStore

Dim readOnly As Boolean
readOnly = True
Dim success As Boolean
success = certStore.OpenCurrentUserStore(readOnly)
If (success = False) Then
    System.DebugLog(certStore.LastErrorText)
    Return
End If

Dim numCerts As Int32
numCerts = certStore.NumCertificates
Dim i As Int32
i = 0
While i < numCerts
    Dim cert As Chilkat.Cert
    cert = certStore.GetCertificate(i)
    System.DebugLog("DN = " + cert.SubjectDN)
    System.DebugLog("Email = " + cert.SubjectE)
    i = i + 1
Wend