Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Load P7B and Iterate CertificatesDemonstrates how to load a .p7b containing one or more certificates access each of them.
' Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program ' by calling UnlockBundle. It requires a Bundle unlock code. Dim chilkatGlob As Chilkat.CkGlobal Set chilkatGlob = Chilkat.NewCkGlobal success = chilkatGlob.UnlockBundle("Anything for 30-day trial.") If (success <> True) Then Debug.Print chilkatGlob.LastErrorText Exit Sub End If ' The Chilkat PEM class was introduced in v9.5.0.49. ' It requires the bundle to be unlocked, as shown above. Dim pem As Chilkat.Pem Set pem = Chilkat.NewPem ' Load the .p7b from a file. success = pem.LoadP7bFile("../myCertFiles/myP7b.p7b") If (success <> True) Then Debug.Print pem.LastErrorText Exit Sub End If ' Note: If the app already has the p7b loaded in memory, the LoadP7b method ' may be called instead. (see the online reference documentation) ' Iterate over the certificates. numCerts = pem.NumCerts i = 0 Do While i < numCerts Set cert = pem.GetCert(i) Debug.Print "Certificate "; i; " : "; cert.SubjectDN i = i + 1 Loop |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.