(VBScript) Validate a Smartcard PIN

Validates a smartcard PIN. This example only runs on Windows and requires Chilkat v9.5.0.77 or greater.

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)

' Note: Requires Chilkat v9.5.0.77 or greater.

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

cert.SmartCardPin = "000000"

' Load the certificate on the smartcard currently in the reader (or on the USB token).
' Pass an empty string to allow Chilkat to automatically choose the CSP (Cryptographi Service Provider).
' See Load Certificate on Smartcard for information about explicitly selecting a particular CSP.
success = cert.LoadFromSmartcard("")
If (success <> 1) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' Check to see if the SmartCardPin property contains the valid PIN for the smartcard.
pinValid = cert.CheckSmartCardPin()
If (pinValid < 0) Then
    outFile.WriteLine("Unable to check the PIN validity.")
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

If (pinValid = 1) Then
    outFile.WriteLine("PIN is valid.")
Else
    outFile.WriteLine("PIN is invalid.")
End If


outFile.Close