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
(PureBasic) List Certificates in the Current User Certificate Store (Windows Only)This is a Windows-only example to list the certificates in the current-user certificate store (located in the Windows Registry).
IncludeFile "CkCert.pb" IncludeFile "CkCertStore.pb" Procedure ChilkatExample() ; This is a Windows-only example because it lists the certificates ; stored in the Windows Current User Certificate Store located in the ; Windows Registry. certStore.i = CkCertStore::ckCreate() If certStore.i = 0 Debug "Failed to create object." ProcedureReturn EndIf readOnly.i = 1 success.i = CkCertStore::ckOpenCurrentUserStore(certStore,readOnly) If success = 0 Debug CkCertStore::ckLastErrorText(certStore) CkCertStore::ckDispose(certStore) ProcedureReturn EndIf numCerts.i = CkCertStore::ckNumCertificates(certStore) i.i = 0 While i < numCerts cert.i = CkCertStore::ckGetCertificate(certStore,i) Debug "DN = " + CkCert::ckSubjectDN(cert) Debug "Email = " + CkCert::ckSubjectE(cert) i = i + 1 Wend CkCertStore::ckDispose(certStore) ProcedureReturn EndProcedure |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.