| Dart Home | PowerTCP WebServer for ActiveX | Custom Development | Reply | PowerTCP WebServer for ActiveX Topics | Forums |
| Author | Forum: PowerTCP WebServer for ActiveX Topic: Finding Digital Certificates |
| perf101 srs@perfectionsoftware.com From: Pembroke Pines, FL USA Posts: 18 Member Since: 07/01/02 |
posted July 1, 2002 8:04 PM Dim STORE As New CertificateStore CERT = STORE.Find("MY", locationCurrentUser, sCertIssuedBy, sCertSerialNumber) I am trying to find a digital certificate using the previous method but it is not finding the certificate. Using VB, is there a way to list all of the available Issuedby and Serial Numbers in the "MY" store. . |
K M Drake From: Utica, NY USA Posts: 3406 Member Since: 07/14/00 |
posted July 2, 2002 10:54 AM Hi, The code below should help. -ken Private Sub Command1_Click() ShowCerts (locationLocalMachine) ShowCerts (locationCurrentUser) End Sub Private Sub ShowCerts(Location As StoreLocationConstants) Dim store As New CertificateStore Dim c As Certificate store.Name = "MY" store.Location = Location store.Refresh For Each c In store.Certificates Debug.Print Debug.Print c.IssuedBy Debug.Print c.SerialNumber Next End Sub |
| perf101 srs@perfectionsoftware.com From: Pembroke Pines, FL USA Posts: 18 Member Since: 07/01/02 |
posted July 2, 2002 12:34 PM Worked great. Thanks |
| Reply | PowerTCP WebServer for ActiveX Topics | Forums |
This site is powered by
PowerTCP WebServer for ActiveX
|