Smartkarten Zertifikate anzeigen

Mit dem folgenden Beispiel ist es möglich die Signaturzertifikate einer Smartkarte aufzulisten:

Dim csp
Dim reader

'Kartenlesernummer kann von 0 bis 9 sein
'0 ist der erste angeschlossene Kartenleser
reader = 0

Set csp = CreateObject("aloahacsp.aloaha_csp")

If csp.set_reader(CLng(reader)) = True Then
     Call csp.show_ROOTCertificate
     Call csp.show_Certificate
End If 

Set csp = nothing