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) ScMinidriver - Delete Smart Card Key Container
See more ScMinidriver Examples
Demonstrates how to delete the contents of a key container on a smart card (or USB token).
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. ' Chilkat recommends the following free tool for interactively examining the contents of your smart card ' through the ScMinidriver interface: MGTEK Tool for Minidriver enabled Smart Cards ' Let's first look at our smart card.. ' Here's the view of the card we happen to be using: a Gemalto (Thales) IDPrime MD T=0 smart card. set scmd = CreateObject("Chilkat_9_5_0.ScMinidriver") ' First we need to acquire a context to the smart card in the reader where it is inserted. ' Reader names (smart card readers or USB tokens) can be discovered ' via List Readers or Find Smart Cards readerName = "Alcor Micro USB Smart Card Reader 0" success = scmd.AcquireContext(readerName) If (success = 0) Then outFile.WriteLine(scmd.LastErrorText) WScript.Quit End If ' If successful, the name of the currently inserted smart card is available: outFile.WriteLine("Card name: " & scmd.CardName) ' To delete the contents of a key container, we'll need to be PIN authenticated.. ' For more details about smart card PIN authentication, see the Smart Card PIN Authentication Example pinId = "user" retval = scmd.PinAuthenticate(pinId,"0000") If (retval <> 0) Then outFile.WriteLine("PIN Authentication failed.") success = scmd.DeleteContext() WScript.Quit End If ' Let's delete the contents of key container #7 ' This deletes both keys (signature key and "key exchange" key) that might be present in the key container. ' (It is not possible to delete just one or the other.) success = scmd.DeleteKeyContainer(7) If (success = 0) Then outFile.WriteLine(scmd.LastErrorText) success = scmd.DeleteContext() WScript.Quit End If success = scmd.DeleteContext() outFile.WriteLine("Successfully delete the contents of key container #7") outFile.Close
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.