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.

'  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:
Dim ccs As New ChilkatCreateCS
ccs.ReadOnly = 1

'  Open the current-user certificate store:
Dim cs As ChilkatCertStore
Set cs = ccs.OpenCurrentUserStore()

If (Not (cs Is Nothing )) Then

    Dim cert As ChilkatCert
    Dim numCerts As Long
    numCerts = cs.NumCertificates
    Dim i As Long
    '  Print the distinguished name of each certificate
    For i = 0 To numCerts - 1
        Set cert = cs.GetCertificate(i)
        Text1.Text = Text1.Text & cert.SubjectDN & vbCrLf
        Text1.Refresh
    Next

Else
    MsgBox ccs.LastErrorText
End If

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