Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Validate the FindCertBySubjectE MethodIterate over the certificates in the Local Machine Certificate Store and verify that FindCertBySubjectE is working correctly for each cert's SubjectE property.
' Iterate over each certificate in the local machine store
' and test the FindCertBySubjectE method
set ccs = CreateObject("Chilkat.CreateCS")
' Open the local machine certificate store
set certStore = ccs.OpenLocalSystemStore()
numCerts = certStore.NumCertificates
for idx = 0 to numCerts-1
set cert = certStore.GetCertificate(idx)
if len(cert.SubjectE) > 0 then
set cert2 = certStore.FindCertBySubjectE(cert.SubjectE)
if cert2 is nothing then
MsgBox "Error: Could not find " + cert.SubjectE
else
MsgBox "Found " + cert.SubjectE
end if
end if
next
|
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.