有効な証明書を表示する

‘ コンピューター名の取得
Dim ComputerName As String = System.Environment.MachineName

‘現時点で有効な証明書に絞り込む
Dim value As X509Certificate2
values = values.Find(X509FindType.FindByTimeValid, Now, True)

‘発行者情報がABCである証明書を絞り込み
values = values.Find(X509FindType.FindByIssuerName, “ABC”, True)

‘識別名 (DN) がコンピュータ名である証明書を絞り込み
values = values.Find(X509FindType.FindBySubjectDistinguishedName, ComputerName, True)

Console.WriteLine(“証明書の発行局　　：” & value.Issuer)
Console.WriteLine(“証明書の有効期限　：” & value.NotAfter)
Console.WriteLine(“サブジェクト識別名：” & value.Subject)
Console.WriteLine(value.NotBefore)