Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) Iterate over Certificates in a Certificate StoreSee more Cert Store ExamplesDemonstrates how to iterate over the certificates in a certificate store. Note: Requires Chilkat v10.1.2 or later.
Use ChilkatAx-win32.pkg Procedure Test Variant vCert Store Handle hoCertStore Boolean iReadOnly Boolean iSuccess Variant vCert Handle hoCert Integer iNumCerts Integer i String sTemp1 Get Create (RefClass(cComChilkatCertStore)) To hoCertStore If (Not(IsComObjectCreated(hoCertStore))) Begin Send CreateComObject of hoCertStore End // This opens the Current User certificate store on Windows, // On MacOS and iOS it opens the default Keychain. Move False To iReadOnly Get ComOpenCurrentUserStore Of hoCertStore iReadOnly To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoCertStore To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatCert)) To hoCert If (Not(IsComObjectCreated(hoCert))) Begin Send CreateComObject of hoCert End Get ComNumCertificates Of hoCertStore To iNumCerts Move 0 To i While (i < iNumCerts) // Load the cert object with the Nth certificate. Get pvComObject of hoCert to vCert Get ComGetCert Of hoCertStore i vCert To iSuccess Get ComSubjectCN Of hoCert To sTemp1 Showln i ": " sTemp1 Move (i + 1) To i Loop End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.