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.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

'  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 Chilkat.CreateCS()
ccs.ReadOnly = true

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

If (Not (cs Is Nothing )) Then

    Dim cert As Chilkat.Cert
    Dim numCerts As Long
    numCerts = cs.NumCertificates
    Dim i As Long
    '  Print the distinguished name of each certificate
    For i = 0 To numCerts - 1
        cert = cs.GetCertificate(i)
        TextBox1.Text = TextBox1.Text & cert.SubjectDN & vbCrLf
        TextBox1.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.