[ActiveDir] userCertificate Property in Active Directory

[walls]

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