Пытался прогнать тест как здесь: http://cpdn.cryptopro.ru...c904947290055d22898.html
Не работает (не компилится). По мотивам сделал:

Sub Main()
Dim req As TSPCOM.ITSPRequest2

Dim buf(3) As Byte
buf(1) = 1
buf(2) = 2
buf(3) = 3

req = New TSPCOM.TSPRequest

req.HashAlgorithm2.Value = "1.2.643.2.2.9"
req.AddData(buf)
req.TSAAuthType = TSPCOM.TSPCOM_AUTH_TYPE.TSPCOM_AUTH_TYPE_ANONYMOUS
req.TSAUserName = ""
req.TSAPassword = ""
req.UseNonce = False
req.CertReq = True
req.PolicyID = ""
req.TSAAddress = "http://www.cryptopro.ru/tsp"
Try
Dim stamp As TSPCOM.ITSPStamp
stamp = req.Send()
Debug.Print(stamp.Time)
Catch ex As Exception
Debug.Print(ex.Message)
End Try

End Sub

End Module

Дает ошибку Error HRESULT E_FAIL has been returned from a call to a COM component.

Можно ли где-то посмотреть работающий пример использования TSPCOM?

Спасибо!

PS:

CryptoPro CSP core version 3.6.5359 KC1
Product Version 3.6.6497
tspcom.dll 1.1.826.0
Все продукты в триале -- скачал и установил только сегодня.

Ошибка в строке
stamp = req.Send()

Может быть есть примеры для C#?

Повторяю, на настоящий момент других примеров нет. Никаких.

Вероятно, ошибка возникает из-за того, что вы неправильно указываете адрес службы штампов - без закрывающего "\"

Попробуйте написать аналогичный код например на JScript и перехватить возникающую ошибку.

Все работает и там и там. Спасибо