Здравствуйте.

API - набор функций
CSP - криптопровайдер их реализующий для вызова через разные интерфейсы (MS CryptoAPI, COM).

Вы тестировали приложение (какое? cryptcp?) и обращение к CAdESCOM через vbs,
они могут формировать разные типы подписей, также добавлять разные атрибуты (дату\время подписания, комментарий, название файла), цепочку сертификатов и т.д.



Что именно?
Подписание одних и тех же данных - всегда приводит к генерации разного значения подписи - это особенность ГОСТ-ов.

Проверить можно также - через утилиту или COM,
или как вариант - поставить КриптоАРМ

В общем в теме очень мало знаю постараюсь описать ситуацию. С 1 января 2020 вводится маркировка лекарственных препаратов. Перед отправкой файлов необходимо их подписывать. В инструкции дан пример подписи через КриптоПро через командную строку:
csptest -sfsign -sign -in <УКАЗАТЬ ПОЛНЫЙ ПУТЬ К ФАЙЛУ>test.txt –out <УКАЗАТЬ ПОЛНЫЙ ПУТЬ К ФАЙЛУ>out.txt -my "АО Фурацилин" -detached -base64 –add
Теперь собственно вопрос: как можно создать подпись с помощью СOM интерфейса.

Если использовать описанный в справке способ:
Option Explicit
Const CAPICOM_CURRENT_USER_STORE = 2
Const CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN = 1

Dim oSigner
Set oSigner = CreateObject("CAdESCOM.CPSigner")
' Укажите правильный серийный номер сертификата.
Dim sSerialNumber : sSerialNumber = "12345678000100000000"
' Укажите правильный адрес службы штампов времени.
Dim sTSAAddress : sTSAAddress = "http://domain/tsp/tsp.srf"

oSigner.Certificate = GetSignerCertificate(sSerialNumber)
oSigner.TSAAddress = sTSAAddress

Dim oSignedData
Dim oSettings
Set oSignedData = CreateObject("CAdESCOM.CadesSignedData")
oSignedData.Content = "Some very significant message"
Dim sSignedData
sSignedData = oSignedData.Sign(oSigner, False)

Function GetSignerCertificate(SerialNumber)
Set GetSignerCertificate = Nothing
Dim oCert
Dim oStore
Set oStore = CreateObject("CAdESCOM.Store")
oStore.Open CAPICOM_CURRENT_USER_STORE
For Each oCert In oStore.Certificates
If oCert.SerialNumber = SerialNumber Then
Set GetSignerCertificate = oCert
Exit For
End If
Next
End Function
Он не подходит, можно ли подробнее описать в чем различие описанного метода и метода с помощью командной строки.

в примере добавляется штамп времени,
пример посмотрите


если убрать работу с TSP, подходит?

Проверка "oSignedData.VerifyCades sSignedData, CADES_BES, False" выдает результат False. Как при SignCades - вызывать с true - для отсоединенной подписи, так и при False - для совместной подписи.

можете так выгрузить результат: