...pudding - diary

_ [Software][Notes] LotusNotes から Windows の証明書ストアにアクセスする

LotusNotes から Windows の証明書ストアにある証明書情報が取れないかなと格闘してみました。

証明書として使いたいわけじゃなくて、ただそのPCにどんな証明書が入っているのかタイトルの一覧を取りたかっただけです。

結論としてはこんなコードで取れました。Lotus Script です。（for Windows XP）

	Dim Store As Variant
	Dim msg As String
	Dim i As Long
	Dim Certificate As Variant
	
	Set Store = CreateObject("CAPICOM.Store")
	Call Store.Open ( 2, "MY" ,0 ) '個人証明書
	msg = msg &"証明書ストア" & Chr(10)
	
	For i =1 To Store.Certificates.count
		Set Certificate = Store.Certificates.item(i)
		msg = msg & Chr(10)
		msg = msg & "Issuer :" & Certificate.IssuerName  & Chr(10)
		msg = msg & "Subject:" & Certificate.SubjectName  & Chr(10)
	Next
	
	Messagebox msg

このコードは、CAPICOM から情報を取ります。ですが、Windows 2000 や Windows 7 には標準で CAPICOM がないので動きません。

Win32API の CryptoAPI を使えばいけるはずなのですが。