Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) PKCS11 Login / LogoutSee more PKCS11 ExamplesSample code showing how to login and logout of a PKCS11 session. A session becomes authenticated when Login is called, and returns to the unauthenticated state when Logout is called. A smart card's PIN is passed to the Login method. Note: This example requires Chilkat v9.5.0.88 or later.
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. ' Note: Chilkat's PKCS11 implementation runs on Windows, Linux, Mac OS X, and other supported operating systems. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pkcs11") set pkcs11 = CreateObject("Chilkat.Pkcs11") ' Set your shared lib path -- either a full path to the DLL, .so, or .dylib, ' or just the filename if the driver is in a location that can be automatically found. (Such as in C:\Windows\System32) pkcs11.SharedLibPath = "aetpkss1.dll" success = pkcs11.Initialize() If (success = 0) Then outFile.WriteLine(pkcs11.LastErrorText) WScript.Quit End If ' Pass -1 for the slotID to open a session on the first non-empty slot. slotID = -1 ' Open a session. readWrite = 1 success = pkcs11.OpenSession(slotID,readWrite) If (success = 0) Then outFile.WriteLine(pkcs11.LastErrorText) WScript.Quit End If ' Make it an authenticated session by calling Login. ' The smart card PIN is passed to the Login method. ' The user type can be one of three choices: ' 0 - Security Officer ' 1 - Normal User ' 2 - Context Specific. ' You'll likely always login as the Normal User. userType = 1 pin = "0000" success = pkcs11.Login(userType,pin) If (success = 0) Then outFile.WriteLine(pkcs11.LastErrorText) success = pkcs11.CloseSession() WScript.Quit End If ' Do what is needed with the authenticated session... ' ... ' ... ' Revert to an unauthenticated session by calling Logout. success = pkcs11.Logout() If (success = 0) Then outFile.WriteLine(pkcs11.LastErrorText) success = pkcs11.CloseSession() WScript.Quit End If ' When finished, close the session. ' It is important to close the session (memory leaks will occur if the session is not properly closed). success = pkcs11.CloseSession() If (success = 0) Then outFile.WriteLine(pkcs11.LastErrorText) WScript.Quit End If outFile.WriteLine("PKCS11 Login and Logout successfully demonstrated.") outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.