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) Find a Certificate in the "Other People" Windows Certificate StoreDemonstrates how to open the "Current User --> Other People" Windows certificate store, and locates a certificate matching an email address.
IncludeFile "CkCert.pb" IncludeFile "CkCertStore.pb" Procedure ChilkatExample() certStore.i = CkCertStore::ckCreate() If certStore.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; The "AddressBook" is the "Other People" certificate store as shown in certmgr.msc readOnly.i = 1 success.i = CkCertStore::ckOpenWindowsStore(certStore,"CurrentUser","AddressBook",readOnly) If success <> 1 Debug CkCertStore::ckLastErrorText(certStore) CkCertStore::ckDispose(certStore) ProcedureReturn EndIf cert.i cert = CkCertStore::ckFindCertByRfc822Name(certStore,"sales.edifact@somewhere.com") If CkCertStore::ckLastMethodSuccess(certStore) <> 1 Debug CkCertStore::ckLastErrorText(certStore) CkCertStore::ckDispose(certStore) ProcedureReturn EndIf Debug "Found certificate: " + CkCert::ckSubjectDN(cert) CkCert::ckDispose(cert) CkCertStore::ckDispose(certStore) ProcedureReturn EndProcedure |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.