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
Display Certificates in the Current User Certificate Store
VB.NET example program to iterate over the certificates in the current user certificate store. ' Create a certificate store factory object
Dim ccs As New Chilkat.CreateCS()
' Open the current user cert store
Dim cstore As Chilkat.CertStore
cstore = ccs.OpenCurrentUserStore()
Dim numCerts As Integer
numCerts = cstore.NumCertificates
Dim i As Integer
For i = 0 To numCerts - 1
Dim cert As Chilkat.Cert
cert = cstore.GetCertificate(i)
' Add the cert's DN to a listbox
ListBox1.Items.Add(cert.SubjectDN)
' Check to see if the certificate has a private key
If cert.HasPrivateKey() Then
ListBox1.Items.Add("Has Private Key")
End If
' Check to see if the certificate is expired
If cert.Expired Then
ListBox1.Items.Add("Expired!")
End If
' Is the certificate revoked?
If cert.Revoked Then
ListBox1.Items.Add("Revoked!")
End If
' Is the certificate's signature verified?
If Not cert.SignatureVerified Then
ListBox1.Items.Add("Signature NOT Verified!")
End If
' Does the certificate have a trusted root?
If Not cert.TrustedRoot Then
ListBox1.Items.Add("Root not Trusted!")
End If
ListBox1.Items.Add("----")
Next
Important: The download for this
example does not contain the ChilkatDotNet.dll which |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.