10.04.2007 13:16:46CAdESCOM Ответов: 4
Александр
При выполнении тестового примера:
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.
Куда грести?
Спасибо
 
Ответы:
11.04.2007 14:33:21Непомнящий Павел
Проверьте, что:
- запущены и доступны службы TSP/OCSP;
- в групповой политике TSP Client прописан правильный адрес службы TSP.

Включите аудит на службах TSP и OCSP и проверьте, есть ли обращения от клиентского компьютера.
12.04.2007 16:44:31Александр
Павел, спасибо за внимание.
С политиками все нормально (другие тесты работают).
Обращение к TSP - есть, к OCSP - нет.
12.04.2007 17:28:35Непомнящий Павел
Александр, можете привести примеры работающих тестов?
Выдаёт ли после обращения служба TSP штапм или сообщение об ошибке?

Если обращение к службам идёт через прокси, проверьте, что в групповых политиках настроены соответвующие параметры как для TSP так и для OCSP.



12.04.2007 17:42:02Александр
Павел!
Работающий пример:
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
К службам ходим без прокси.