Can I read certificates info with WMI

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