Данный пример демонстрирует осуществление создания запроса на сертификат при помощи инструментария CEnroll.

		
'-----------------------------------------------------------------------------
'
' В данном script-примере создается запрос на сертификат
' в кодировке base64 PKCS10 при помощи инструментария CEnroll.  
'
'******************************************************************************
 
' Идентификационное имя запроса.
Dim strDN

' Запрос.
Dim strReq


' CEnroll Объект 
Dim objXen

' Обработка ошибок.
On Error Resume Next

' Создание объекта.
Set objXen = CreateObject("CEnroll.CEnroll.1")

' Создание идентификационного имени.
strDN =  "CN=UserName" _
	& ",OU=UserUnit" _
	& ",O=CRYPTO-PRO" _
	& ",L=MOSCOW" _
	& ",S=WA" _
	& ",C=RU"

'Опредление типа провайдера
objXen.ProviderType = 75

'Определение имени провайдера
objXen.ProviderName = "Crypto-Pro GOST R 34.10-2001 Cryptographic Service Provider"

' Создание запроса PKCS #10.
MsgBox("Creating PKCS #10 " & strDN)
strReq = objXen.createPKCS10( strDN, "1.3.6.1.4.1.311.2.1.21")

' Если запрос не создан - сообщение об ошибке.
if ( Err.Number <> 0 ) then
	MsgBox("Error in call to createPKCS10 " & Err.Number)
	err.clear
else
' Если запрос создан - вывод на экран и запись в файл этого запроса.
	MsgBox("Submitting request " & strReq)
	Dim fso, MyFile
	Set fso = CreateObject("Scripting.FileSystemObject") 
	Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
	MyFile.Write strReq
	MyFile.Close
end if

Wscript.Quit(0)
' Окончание программы
	

Требования:

Windows 2000/XP/2003: Необходимо Windows 2000 SP4 или старше с Internet Explorer 6.0 или старше.

Крипто-Про CSP Версия: 3.0 Сборка 3293

Что Вы думаете по поводу данной статьи?

Закажите CD c Крипто-Про CSP