RE: [ActiveDir] userCertificate Property in Active Directory

[joe]

Very cool, thanks for sharing.

---

From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED]
Sent: Monday, November 21, 2005 12:39 PM
To: ActiveDir@mail.activedir.org
Subject: [ActiveDir] userCertificate Property in Active Directory

Thanks, I think I figured it out. For those interested here's the bit of code.

 

Thanks,
Dave

 

Set objAdsysinfo = CreateObject("ADSystemInfo")
Set objMe = GetObject("LDAP://" & objAdsysinfo.UserName)
objCer = objMe.usercertificate(0)
myStore.Open CAPICOM_MEMORY_STORE, "My", CAPICOM_STORE_OPEN_READ_WRITE
myStore.Import objCer
Set objCert = myStore.Certificates(1)
MsgBox objCert.IssuerName