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.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


'  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:
set ccs = CreateObject("Chilkat.CreateCS")
ccs.ReadOnly = 1

'  Open the current-user certificate store:

Set cs = ccs.OpenCurrentUserStore()

If (Not (cs Is Nothing )) Then

    numCerts = cs.NumCertificates

    '  Print the distinguished name of each certificate
    For i = 0 To numCerts - 1
        Set cert = cs.GetCertificate(i)
        outFile.WriteLine(cert.SubjectDN)
    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.

outFile.Close