Can I read certificates info with WMI

[Rich]

Hi,

I am trying to find out if I can use VBScript/WMI to read the information
contained within a certificate.

Using Scriptomatic, I get the following script, but nothing is returned:

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("localhost")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\ServiceModel")
Set colItems = objWMIService.ExecQuery("SELECT * FROM ClientCredentials",
"WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)
Wscript.Echo "Starting now..."

For Each objItem In colItems
WScript.Echo "ClientCertificate: " & objItem.ClientCertificate
WScript.Echo "HttpDigest: " & objItem.HttpDigest
WScript.Echo "IssuedToken: " & objItem.IssuedToken
WScript.Echo "Peer: " & objItem.Peer
WScript.Echo "ServiceCertificate: " & objItem.ServiceCertificate
WScript.Echo "SupportInteractive: " & objItem.SupportInteractive
WScript.Echo "Type: " & objItem.Type
WScript.Echo "UserName: " & objItem.UserName
WScript.Echo "Windows: " & objItem.Windows
WScript.Echo
Next
Next
WScript.Echo "Execution is now complete."

Can anyone tell me how to accomplish this? Solution need not be limited to
WMI. I actually prefer straight VBScript.

TIA,
Rich