- Код: Выделить всё
Dim XEnroll
Set XEnroll = CreateObject("CEnroll.CEnroll.2")
XEnroll.SPCFileName = ""
XEnroll.DeleteRequestCert = False
XEnroll.WriteCertToCSP = True
XEnroll.InstallPKCS7 (cert)
MsgBox "Установка произведена успешно.", vbInformation + vbOKOnly, "Установка корневых сертификатов"
но в висте и 7ке он не работает, т.к. объект cenroll оттуда благополучно вырезали. Подскажите пожалуйста, каким образом можно установить корневые сертификаты на упомянутых системах?