(VBScript) Find Certificate on Smartcard Currenty in Reader

Finds the certificates on smartcards currently in readers.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This newer example is a much better way to get the certificate on a smartcard or USB token

' This example requires that we already know the name of the CSP (Cryptographic Service Provider) for the smartcard.
' It is often the "Microsoft Base Smart Card Crypto Provider".  You can see what CSP's are registered on your system with this code:

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Csp")
set csp = CreateObject("Chilkat.Csp")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringTable")
set st = CreateObject("Chilkat.StringTable")

success = csp.GetProviders(st)
If (success = 0) Then
    outFile.WriteLine(csp.LastErrorText)
    WScript.Quit
End If

' Iterate over the CSP names..
i = 0
numProviders = st.Count
Do While i < numProviders
    outFile.WriteLine(i & ": " & st.StringAt(i))
    i = i + 1
Loop

' --------------------------
' This newer example is a much better way to get the certificate on a smartcard or USB token

' We'll assume our smartcard is accessed through the "Microsoft Base Smart Card Crypto Provider"
' Also, we'll assume that the certificate has been installed into the default current user Windows
' certificate store by following the instructions provided by the smartcard vendor.
' (The certificate does not contain the private key.  The certificate should be installed in the
' Windows current user certificate store.  It will also be on the smartcard, and the associated private
' key is only on the smartcard.)
' 

' First open the Current User Certificate Store.  We'll need it soon..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CertStore")
set certStore = CreateObject("Chilkat.CertStore")
success = certStore.OpenCurrentUserStore(1)
If (success = 0) Then
    outFile.WriteLine(certStore.LastErrorText)
    WScript.Quit
End If

' Create a Csp object and set the ProviderName equal to our desired CSP name.
' (setting the ProviderName selects the desired CSP.)
csp.ProviderName = "Microsoft Base Smart Card Crypto Provider"

' Iterate over the key containers managed by this CSP.
' These will be the key containers for the cards currently inserted into the reader(s).
' If only one smartcard reader exists, and a smartcard is inserted, there should be one
' key container.
numContainers = csp.NumKeyContainers

outFile.WriteLine("numContainers = " & numContainers)

i = 0
Do While i < numContainers
    ' For each key container, get the key container name and then find the certificate
    ' in the Current User Certicate Store with the matching key container name.
    keyContainerName = csp.NthKeyContainerName(i)

    ' cert is a Chilkat.Cert
    Set cert = certStore.FindCertByKeyContainer(keyContainerName)
    If (certStore.LastMethodSuccess = 1) Then
        outFile.WriteLine("Certificate in reader: " & cert.SubjectCN)

    End If

    i = i + 1
Loop

outFile.Close