Option Explicit
Dim Store, Certificates, Certificate
Const CAPICOM_LOCAL_MACHINE_STORE = 1
Const CAPICOM_CURRENT_USER_STORE = 2
Const CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME = 1
Const CAPICOM_STORE_OPEN_READ_ONLY = 0
Const SubjectName = "Mitch"

Set Store = CreateObject("CAPICOM.Store")
Store.Open CAPICOM_CURRENT_USER_STORE, "MY" ,CAPICOM_STORE_OPEN_READ_ONLY     'Open store for read
Set Certificates = Store.Certificates.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME, SubjectName, 0)
If Certificates.Count >0 Then
   For Each Certificate in Certificates
    Certificate.display()
   Next
 Else
  WScript.Echo "No certificates had SubjectName with substring matching """ & SubjectName & """"
End If
Set Certificates = Nothing
Set Store = Nothing