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

' 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:

Dim csp As New Chilkat.Csp
Dim st As New Chilkat.StringTable

Dim success As Boolean = csp.GetProviders(st)
If (success = False) Then
    Debug.WriteLine(csp.LastErrorText)
    Exit Sub
End If


' Iterate over the CSP names..
Dim i As Integer = 0
Dim numProviders As Integer = st.Count
While i < numProviders
    Debug.WriteLine(i & ": " & st.StringAt(i))
    i = i + 1
End While

' --------------------------
' 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..
Dim certStore As New Chilkat.CertStore
success = certStore.OpenCurrentUserStore(True)
If (success = False) Then
    Debug.WriteLine(certStore.LastErrorText)
    Exit Sub
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.
Dim numContainers As Integer = csp.NumKeyContainers

Debug.WriteLine("numContainers = " & numContainers)

i = 0
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.
    Dim keyContainerName As String = csp.NthKeyContainerName(i)

    Dim cert As Chilkat.Cert = certStore.FindCertByKeyContainer(keyContainerName)
    If (certStore.LastMethodSuccess = True) Then
        Debug.WriteLine("Certificate in reader: " & cert.SubjectCN)

    End If

    i = i + 1
End While