Установка корневых сертификатов на Vista и 7

[mshak]

Доброго времени суток. Для установки корневых сертификатов ранее применял следующий код:

Код: Выделить всё

        Dim XEnroll
        Set XEnroll = CreateObject("CEnroll.CEnroll.2")
        XEnroll.SPCFileName = ""
        XEnroll.DeleteRequestCert = False
        XEnroll.WriteCertToCSP = True
        XEnroll.InstallPKCS7 (cert)
        MsgBox "Установка произведена успешно.", vbInformation + vbOKOnly, "Установка корневых сертификатов"


но в висте и 7ке он не работает, т.к. объект cenroll оттуда благополучно вырезали. Подскажите пожалуйста, каким образом можно установить корневые сертификаты на упомянутых системах?

[Денис]

Вот
http://msdn.microsoft.com/en-us/library/bb931379(VS.85).aspx
И далее по ссылкам.