|
|
@ -107,6 +107,7 @@ Function CSR(keyflags)
|
|
|
|
// "Microsoft Enhanced RSA and AES Cryptographic Provider"
|
|
|
|
// "Microsoft Enhanced RSA and AES Cryptographic Provider"
|
|
|
|
objPrivateKey.ProviderType = "24"
|
|
|
|
objPrivateKey.ProviderType = "24"
|
|
|
|
objPrivateKey.KeySpec = "1"
|
|
|
|
objPrivateKey.KeySpec = "1"
|
|
|
|
|
|
|
|
objPrivateKey.ExportPolicy = 1
|
|
|
|
objRequest.InitializeFromPrivateKey 1, objPrivateKey, ""
|
|
|
|
objRequest.InitializeFromPrivateKey 1, objPrivateKey, ""
|
|
|
|
Set objDN = g_objClassFactory.CreateObject("X509Enrollment.CX500DistinguishedName")
|
|
|
|
Set objDN = g_objClassFactory.CreateObject("X509Enrollment.CX500DistinguishedName")
|
|
|
|
objDN.Encode("CN=CAcertRequest")
|
|
|
|
objDN.Encode("CN=CAcertRequest")
|
|
|
|