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 Initialize
See more PKCS11 Examples
The first thing to do to interact with a smart card or USB security token using PKCS11 is to call Initialize. It loads the vendors DLL/shared library and initializes the Cryptoki library. (The Cryptoki library is the DLL/shared lib provided by the smart card vendor.)
Note: This example requires Chilkat v18.104.22.168 or later.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", 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. set pkcs11 = CreateObject("Chilkat_9_5_0.Pkcs11") ' You'll need to know in advance the name and possibly the full path to the smart card vendor's shared library. ' On Windows systems it is a .dll. On Linux it is a .so. On Mac OS X it will be a .dylib. ' On Windows, if you set the SharedLibPath equal to just the name of the DLL, then it is assumed to be located in the Windows system directory ' which contains dynamic-link libraries and drivers. The Windows system directory is typically C:\Windows\System32 ' In this example we will pass just the name of the DLL because it is located in C:\Windows\System32. ' On non-Windows systems you should specify the full path to the shared lib. ' Also use the full path on Windows systems where the smart card vendor's DLL does not install to C:\Windows\System32. pkcs11.SharedLibPath = "aetpkss1.dll" success = pkcs11.Initialize() If (success = 0) Then outFile.WriteLine(pkcs11.LastErrorText) Else outFile.WriteLine("PKCS11 successfully initialized.") End If outFile.Close
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.