B4X Requires Chilkat v10.1.2+

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

See more Certificates Examples

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

Dim success As Boolean = False

'  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 ChilkatCertStore
certStore.Initialize

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


Dim cert As ChilkatCert
cert.Initialize("cert")
Dim numCerts As Int = certStore.NumCertificates
Dim i As Int = 0
Do While i < numCerts
    certStore.GetCert(i, cert)
    Log("DN = " & cert.SubjectDN)
    Log("Email = " & cert.SubjectE)
    i = i + 1
Loop