(VB.NET UWP/WinRT) Load Certificate from Smartcard in Reader (or from USB Token)

Demonstrates how to load the certificate that is on the smartcard currently inserted into the smartcard reader. (Also can load the smartcard on a USB token.)

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

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

Dim cert As New Chilkat.Cert

' To allow Chilkat to automatically choose a CSP,
' set the CSP name to the empty string.
Dim cspName As String = ""

' Chilkat will choose the 1st 3rd party CSP in the following list
' that it finds on the system.  If no 3rd party CSP is found, then
' the "Microsoft Base Smart Card Crypto Provider" is automatically chosen
' 
' Bit4id Universal Middleware Provider
' eToken Base Cryptographic Provider
' FTSafe ePass1000 RSA Cryptographic Service Provider
' EnterSafe ePass2003 CSP v2.0
' Gemalto Classic Card CSP
' PROXKey CSP India V1.0
' PROXKey CSP India V2.0
' TRUST KEY CSP V1.0
' Watchdata Brazil CSP V1.0
' Luna Cryptographic Services for Microsoft Windows
' Luna SChannel Cryptographic Services for Microsoft Windows
' Safenet RSA Full Cryptographic Provider
' nCipher Enhanced Cryptographic Provider
' SafeSign Standard Cryptographic Service Provider
' SafeSign Standard RSA and AES Cryptographic Service Provider</li>
' MySmartLogon NFC CSP</li>
' NFC Connector Enterprise</li>
' ActivClient Cryptographic Service Provider</li>
' EnterSafe ePass2003 CSP v1.0</li>
' Athena ASECard Crypto CSP"

' To get the list of CSP's on your system, see this example:
' List Cryptographic Service Providers (CSP's) on a Windows System

Dim success As Boolean = cert.LoadFromSmartcard(cspName)
If (success = False) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Cert loaded from smartcard: " & cert.SubjectCN)


' The CSP can be explicitly specified.  It can be a CSP in the list
' above, or any CSP that Chilkat does not yet know about..
cspName = "My Smartcard Vendor CSP"
success = cert.LoadFromSmartcard(cspName)
If (success = False) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If