(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). Note: This example requires Chilkat v10.1.2 or greater.
// 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 cert As New Chilkat.Cert
Dim numCerts As Int32
numCerts = certStore.NumCertificates
Dim i As Int32
i = 0
While i < numCerts
success = certStore.GetCert(i,cert)
System.DebugLog("DN = " + cert.SubjectDN)
System.DebugLog("Email = " + cert.SubjectE)
i = i + 1
Wend
|