(VB.NET) 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 .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' 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 = True
Dim success As Boolean = certStore.OpenCurrentUserStore(readOnly)
If (success = False) Then
    Debug.WriteLine(certStore.LastErrorText)
    Exit Sub
End If


Dim numCerts As Integer = certStore.NumCertificates
Dim i As Integer = 0
While i < numCerts
    Dim cert As Chilkat.Cert = certStore.GetCertificate(i)
    Debug.WriteLine("DN = " & cert.SubjectDN)
    Debug.WriteLine("Email = " & cert.SubjectE)
    i = i + 1
End While