(VBScript) ScMinidriver - Acquire Context with Smart Card or USB Token

See more ScMinidriver Examples

Initializes communication with the card inserted in the given reader (or a USB token). Reader names can be discovered via the SCard.ListReaders or SCard.FindSmartcards methods. If successful, the Atr and CardName properties will be set.

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.ScMinidriver")
set scmd = CreateObject("Chilkat.ScMinidriver")

' Reader names (smart card readers or USB tokens) can be discovered
' via List Readers or Find Smart Cards
readerName = "Alcor Micro USB Smart Card Reader 0"
success = scmd.AcquireContext(readerName)
If (success = 0) Then
    outFile.WriteLine(scmd.LastErrorText)
    WScript.Quit
End If

' If we are successful, the name of the currently inserted smart card is available:
cardName = scmd.CardName
outFile.WriteLine("Card name: " & cardName)

' Also, the ATR of the inserted card is available (you will likely not need the ATR).
outFile.WriteLine("ATR: " & scmd.Atr)

' Also, the maximum number of key containers is readily available:
outFile.WriteLine("Max number of key containers = " & scmd.MaxContainers)

' Delete the context when finished with the card.
success = scmd.DeleteContext()
If (success = 0) Then
    outFile.WriteLine(scmd.LastErrorText)
End If

' Sample output:

' Card name: IDPrime MD T=0
' ATR: 3B7F96000080318065B0855956FB120FFE829000
' Max number of key containers = 20

outFile.Close