(VB.NET) Find Certificate by Email Address

Locate the certificate containing the specified email address in either the RFC822 Name or the Subject.

Note: This example requires Chilkat v10.1.2 or later.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim certStore As New Chilkat.CertStore

' This opens the Current User certificate store on Windows,
' On MacOS and iOS it opens the default Keychain.
Dim readOnly As Boolean = True
Dim success As Boolean = certStore.OpenCurrentUserStore(readOnly)
If (success = False) Then
    Debug.WriteLine(certStore.LastErrorText)
    Exit Sub
End If


' Locate the certificate containing the specified email address in either the RFC822 Name or the Subject.
Dim json As New Chilkat.JsonObject
Dim email_address As String = "harold@example.com"
json.UpdateString("email",email_address)

Dim cert As New Chilkat.Cert
success = certStore.FindCert(json,cert)
If (success = True) Then
    ' Show the full distinguished name of the certificate.
    Debug.WriteLine("Found: " & cert.SubjectDN)
Else
    Debug.WriteLine("Not found.")
End If