(VBScript) PC/SC List Smart Card Readers (and USB Tokens)

See more SCard Examples

Demonstrates how to list the smart card readers and USB tokens connected to the computer.

Note: This functionality was introduced in Chilkat v9.5.0.87.

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 example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.SCard")
set scard = CreateObject("Chilkat.SCard")

' First establish a context to the PC/SC Resource Manager
success = scard.EstablishContext("user")
If (success = 0) Then
    outFile.WriteLine(scard.LastErrorText)
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringTable")
set stReaders = CreateObject("Chilkat.StringTable")
success = scard.ListReaders(stReaders)
If (success = 0) Then
    outFile.WriteLine(scard.LastErrorText)
    WScript.Quit
End If

numReaders = stReaders.Count
i = 0
Do While i < numReaders
    outFile.WriteLine(i & ": " & stReaders.StringAt(i))
    i = i + 1
Loop

' Sample output:
' 0: Alcor Micro USB Smart Card Reader 0
' 1: FS USB Token 0
' 2: FT Java Token 0
' 3: SCM Microsystems Inc. SCR33x USB Smart Card Reader 0
' 4: Yubico YubiKey OTP+FIDO+CCID 0

' Applications should always release the context when finished.
success = scard.ReleaseContext()
If (success = 0) Then
    outFile.WriteLine(scard.LastErrorText)
End If


outFile.Close