1. 

   Silver Soft
   Участник

   Доброго времени суток!
   
   Есть такая проблема:
   СОС обновляется каждые 30 минут, делая каждый СОС сроком на 1 час. Как можно настроить КриптоАРМ на атоматическое обновление СОС с источника (http, ftp или локально, не важно).
   Пробовал через COM, но все равно не получается.
   
   Вот кусок кода (vbs):
   

   Dim oCertStore, oCLRs
Dim dir = "c:\temp\e1.crl"

Set oCertStore = CreateObject("DigtCrypto.CertificateStore")
Set oCRLs = CreateObject("DigtCrypto.CRL")

oCRLs.Load dir

oCertStore.Open 1, "my"
oCertStore.AddCRL oCRLs
oCertStore.Display(512)
oCertStore.Close

Set oCRLs = Nothing

   
   
   Этот код не добавляет СОС в хранилище.
   Как можно решить эту проблему с помощью интерфейсных мер или где я ошибся в коде? :)
   
   Надеюсь на скорейший ответ, так как сроки уже подходят.
   Заранее благодарен!

   Отправлено 12 мес. назад #
2. 

   Андрей Нечаев
   Не активен

   Добрый день!
   
   Исправленный скрипт:
   

   Option Explicit

const CURRENT_USER_STORE = 1
const SYSTEM_STORE_CRL_CA = 512

Dim oCertStore, oCRL
Dim dir : dir = "c:\temp\e1.crl"

Set oCertStore = CreateObject("DigtCrypto.CertificateStore")
Set oCRL = CreateObject("DigtCrypto.CRL")

oCRL.Load dir

oCertStore.Open CURRENT_USER_STORE, "ca"
oCertStore.AddCRL oCRL
oCertStore.Display(SYSTEM_STORE_CRL_CA)
oCertStore.Close

Set oCRL = Nothing

   Отправлено 12 мес. назад #

RSS-экспорт по этой теме

Ответить

Вы должны войти в систему, чтобы оставлять сообщения.