Mr. Mark Shoneman gave a fragment of VBScript code to
import a PKCS7 certificate into Internet Explorer.
The code is pasted below.
I am very dumb at VBScript, and have difficulty
understanding line 5, i.e.,
pkcs7 = result.header.pkcs7ChainBase64
Question 1: What object is the "result"?
Question 2: Does this line suggest that the PEM
certificate is returned to the client in the HTTP
response header?
Question 3: What is pkcs7ChainBase64?
Please kindly educate me. Thanks a lot.
<MrMarkShoneMan'sVBScriptCode>
1. Sub ImportCertificate
2. Dim pkcs7
3. On Error Resume Next
4. 'Convert the PEM cert to PKCS7 format
5. pkcs7 = result.header.pkcs7ChainBase64
6. If (IsEmpty(pkcs7) OR theError <> 0) Then
7. ret = MsgBox("Could not convert certificate
to PKCS7 format", 0, "Import Cert")
8. Exit Sub
9. End If
10. 'Import the PKCS7 object
11. Enroll.DeleteRequestCert = FALSE
12. Enroll.WriteCertToCSP = true
13. Enroll.acceptPKCS7(pkcs7)
14. if err.number <> 0 then
15. Enroll.WriteCertToCSP = false
16. end if
17. err.clear
18. Enroll.acceptPKCS7(pkcs7)
19. if err.number = 0 then
20. MsgBox "Certificate has been successfully
imported.",0,"Certificate Success"
21. else
22. sz = "Error in acceptPKCS7. Error Number " &
Hex(err.number) & "occurred."
23. MsgBox sz
24. end if
25. Exit Sub
26. End Sub
27. ImportCertificate()
</MrMarkShoneMan'sVBScriptCode>
__________________________________________________
Do you Yahoo!?
Yahoo! Tax Center - forms, calculators, tips, more
http://taxes.yahoo.com/
______________________________________________________________________
OpenSSL Project http://www.openssl.org
User Support Mailing List [EMAIL PROTECTED]
Automated List Manager [EMAIL PROTECTED]
