' Loads pkcs12 file into memory store and lists certs
' Displays transient keycontainer details
'                    JavaScience  07/06/2006

Option Explicit
Dim MemStore, certs, cert, pfxfile, pswd

Const CAPICOM_MEMORY_STORE = 0
Const CAPICOM_STORE_OPEN_READ_WRITE = 1
Const CAPICOM_KEY_STORAGE_DEFAULT = 0
pfxfile = "yourpkcs12.pfx"           
pswd = "xxxxxxxxxxxxxxxxx"

Set MemStore = CreateObject("CAPICOM.Store")
MemStore.Open CAPICOM_MEMORY_STORE, "Memstore" ,CAPICOM_STORE_OPEN_READ_WRITE
MemStore.Load pfxfile, pswd, CAPICOM_KEY_STORAGE_DEFAULT

WScript.Echo "Loaded pfx into memory store"
Set certs = MemStore.Certificates
WScript.Echo "Memory store contains " & certs.Count & " certs" & VbCrLf

For Each cert In certs
 WScript.Echo "SubjectName: " & cert.SubjectName
 cert.Display
Next

If  certs.Count > 1 AND certs(1).hasPrivateKey() Then
 WScript.Echo VbCrLf & "KeyContainer Name: " & certs(1).PrivateKey.ContainerName
 WScript.Echo "Unique KeyContainer Name: " & certs(1).PrivateKey.UniqueContainerName
End If

Set MemStore = Nothing