Retriving Cert Thumbprint

I was wondering how I would get the thumbprint of the cert that I
resubmitted to get approved in my CA. I'm running this with IIS6 on a
Windows 2000 server. If there is a different or better way to go any
suggestions would be greatly appreciated. Thanks for help in advance.




Set objEnroll = CreateObject("CEnroll.CEnroll.1")
Set CertRequest = CreateObject("CertificateAuthority.Request")
Set CertAdmin = CreateObject("CertificateAuthority.Admin")
Set CertConfig = CreateObject("CertificateAuthority.Config")
Set Store = CreateObject("CAPICOM.Store")

DistinguishedName = ""
DistinguishedName = DistinguishedName & "CN=" & CertCommonName
DistinguishedName = DistinguishedName & ",OU=" & CertOrgUnit
DistinguishedName = DistinguishedName & ",O=" & CertOrganization
DistinguishedName = DistinguishedName & ",L=" & CertCity
DistinguishedName = DistinguishedName & ",S=" & CertState
DistinguishedName = DistinguishedName & ",C=" & CertISOCountry
DistinguishedName = DistinguishedName & ",T=" & CertTitle
DistinguishedName = DistinguishedName & ",E=" & CertAdminEmail


With objEnroll
.ProviderType = 12
.MyStoreFlags = 131072
.GenKeyFlags = 1
.KeySpec = 1
.DeleteRequestCert = True
.addCertTypeToRequest "WebServer"
.createFilePKCS10 DistinguishedName, CertOID, OutputFilename
End With

ConfigString = CertConfig.GetConfig(CC_DEFAULTCONFIG)

DataToSubmit = objEnroll.createPKCS10(DistinguishedName, CertOID)

Disposition = CertRequest.Submit(CR_IN_ENCODEANY Or CR_IN_FORMATANY,
DataToSubmit, "", ConfigString)
ID = CertRequest.GetRequestID

Disposition = CertAdmin.ResubmitRequest(ConfigString, ID)

.