Добрый день!

Пытаюсь через COM интерфейс проверить отделенную подпись к файлу выписки, которая приходит из Росреестра. VBS скрипт похож на пример из документации к sdk.
При запуске получаю ошибку "CAdESCOM.CadesSignedData.1: Не найден автор исходной подписи." Подскажите в чём может быть дело.



Option Explicit

Const CAPICOM_VERIFY_SIGNATURE_ONLY = 0
Const ForReading = 1

Dim oSignedData
Set oSignedData = CreateObject("CAdESCOM.CadesSignedData")

Dim hn
hn = &H0

Dim Content : Content = LoadFile(".\Documents\report.pdf")
Dim Message : Message = LoadFile(".\Documents\report.pdf.sig")

oSignedData.Content = Content

oSignedData.VerifyCades Message , hn, True




Function LoadFile (FileName)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(FileName) Then
Err.Raise vbObjectError+1, "LoadFile", "File not found"
End If
Dim ts
Set ts = fso.OpenTextFile(FileName, ForReading)
LoadFile = ts.ReadAll
End Function

Размер 3кб
report.pdf.sig (3kb) загружен 5 раз(а).