| ||||
| ||||
При выполнении тестового примера: Dim oSignedData Dim oSettings Set oSettings = CreateObject("CAPICOM.Settings") oSettings.EnablePromptForCertificateUI = True Set oSignedData = CreateObject("CAdESCOM.CadesSignedData") oSignedData.Content = "Some very significant message" Dim sSignedData sSignedData = oSignedData.Sign(Nothing, False) На Sign выдается ошибка 8007139f. Куда грести? Спасибо | ||||
Ответы: | ||||
| ||||
Проверьте, что: - запущены и доступны службы TSP/OCSP; - в групповой политике TSP Client прописан правильный адрес службы TSP. Включите аудит на службах TSP и OCSP и проверьте, есть ли обращения от клиентского компьютера. | ||||
| ||||
Павел, спасибо за внимание. С политиками все нормально (другие тесты работают). Обращение к TSP - есть, к OCSP - нет. | ||||
| ||||
Александр, можете привести примеры работающих тестов? Выдаёт ли после обращения служба TSP штапм или сообщение об ошибке? Если обращение к службам идёт через прокси, проверьте, что в групповых политиках настроены соответвующие параметры как для TSP так и для OCSP. | ||||
| ||||
Павел! Работающий пример: dim msg msg="jjjjjjjjjjjjjjjjjjj" dim oRequest Set oRequest = CreateObject("TSPCOM.TSPRequest") dim oStamp Set oStamp = CreateObject("TSPCOM.TSPStamp") dim oHash Set oHash = CreateObject("CAPICOM.HashedData") oHash.Hash(msg) Set oRequest.Hash = oHash Set oStamp = oRequest.Send() dim utl set utl=CreateObject("CAPICOM.Utilities") dim sss sss=oStamp.Export dim sss1 sss1=utl.Base64Encode(sss) msgbox sss1 К службам ходим без прокси. | ||||