Добрый день!

Существует ли какая-нибудь документация по использованию CertEnroll.dll (в Windows 7). По Xenroll в документации КриптоПро все расписано с примерами. Интересует, можно ли формировать запросы на сертификат с использованием CertEnroll средствами Visual Basic ?

Уважаемый Андрей *, вот код, но я не могу понять, почему не создается запрос на сертификат.


Private Sub cmdGenerate_Click()
Dim objEnroll
Dim objPrivateKey
Dim objRequest
Dim objDN

Set objEnroll = CreateObject("X509Enrollment.CX509enrollment")
Set objPrivateKey = CreateObject("X509Enrollment.CX509PrivateKey")
Set objRequest = CreateObject("X509Enrollment.CX509CertificateRequestPkcs10")
Set objDN = CreateObject("X509Enrollment.CX500DistinguishedName")

objPrivateKey.ProviderName = "Crypto-Pro GOST R 34.10-2001 Cryptographic Service Provider"
objPrivateKey.ProviderType = 75
objPrivateKey.KeySpec = 1 '1=AT_KEYEXCHANGE

Set objEnroll = CreateObject("X509Enrollment.CX509CertificateRequestPkcs10")
objEnroll.Initialize (1)
objDN = "CN=TYM"


objRequest = objEnroll.createRequest(1, objDN, "1.3.6.1.5.5.7.3.4, 1.2.643.2.2.34.6, 1.3.6.1.5.5.7.3.2")

MsgBox objRequest
End Sub