(Excel) PC/SC Get Card UID

See more SCard Examples

Sends the APDU command to get a card's UID.

Download Excel Class Modules Chilkat Excel Class Modules

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim scard As Chilkat.SCard
Set scard = Chilkat.NewSCard

' First establish a context to the PC/SC Resource Manager

success = scard.EstablishContext("user")
If (success = False) Then
    Debug.Print scard.LastErrorText
    Exit Sub
End If

' Use your own smart card reader name here.
success = scard.Connect("ACS ACR122 0","shared","no_preference")
If (success = False) Then
    Debug.Print scard.LastErrorText
    Exit Sub
End If

Debug.Print "Connected reader: "; scard.ConnectedReader
Debug.Print "Active protocol: "; scard.ActiveProtocol
Debug.Print "ATR: "; scard.CardAtr
Debug.Print "Reader Status: "; scard.ReaderStatus

'  Send the APDU command 0xFF, 0xCA, 0x00, 0x00, 0x00
Dim bdRecv As Chilkat.BinData
Set bdRecv = Chilkat.NewBinData
success = scard.TransmitHex(scard.ActiveProtocol,"FFCA000000",bdRecv,32)
If (success = True) Then

    Debug.Print "Received: "; bdRecv.GetEncoded("hex")

    ' The UID is the returned data without the final 2 bytes.

    numBytes = bdRecv.NumBytes
    If (numBytes > 2) Then
        Debug.Print "UID: "; bdRecv.GetEncodedChunk(0,numBytes - 2,"hex")
    End If

Else
    Debug.Print scard.LastErrorText
End If

' Disconnect from this reader.
success = scard.Disconnect("leave")
If (success = False) Then
    Debug.Print scard.LastErrorText
End If

' Applications should always release the context when finished.
success = scard.ReleaseContext()
If (success = False) Then
    Debug.Print scard.LastErrorText
End If