<test>Данные для подписи</test>

<?xml version="1.0"?>
<test>Данные для подписи<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
<SignedInfo>
<CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
<SignatureMethod Algorithm="urn:ietf:params:xml:ns:cpxmlsec:algorithms:gostr34102001-gostr3411"/>
<Reference URI="">
<Transforms>
<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
<Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
</Transforms>
<DigestMethod Algorithm="urn:ietf:params:xml:ns:cpxmlsec:algorithms:gostr3411"/>
<DigestValue>eJ1NK37NNU7qWp+mmlVq0hjvdKRbUpdXrGhAqdk8kS0=</DigestValue>
</Reference>
</SignedInfo>
<SignatureValue>Drqov1uWT8CmsLvG8OV5hhXlq6YAKZOW0yu2vvv0fUd3CG9+a1snq34JBHFU/fKc
kJef068FnDoFu37Tm/GByw==</SignatureValue>
<KeyInfo>
<X509Data>
<X509Certificate>__мой сертификат__</X509Certificate>
</X509Data>
</KeyInfo>
</Signature></test>

private function SignedInfoSign(Content)
	Const CADESCOM_HASH_ALGORITHM_CP_GOST_3411 	= 100
	
	Dim Signer
	Set Signer = CreateObject("CAdESCOM.CPSigner")
	setSigner(Signer)														' тут выбираем сертификат пользователя
	
	Dim hashObject
	Set hashObject = CreateObject("CAdESCOM.HashedData")
	hashObject.Algorithm = CADESCOM_HASH_ALGORITHM_CP_GOST_3411
	hashObject.SetHashValue(Content)										' втыкаем ранее посчитанный HEX hash
	
	Dim rawSignature
	Set rawSignature = CreateObject("CAdESCOM.RawSignature")
	Dim signatureHex
	signatureHex = rawSignature.SignHash(hashObject, Signer.certificate)	' подписываем хэш
	Dim sigReversed
	sigReversed = reverseStr(signatureHex)									' Попарный переворот строки HEX символов
	
	SignedInfoSign = HexToBase64(sigReversed)  								' преобразование перевернутой строки в base64 - берем как результат
End function

Dim FileName
Filename = "cryptopro.xml"
Dim Buffer
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ts
Set ts = fso.OpenTextFile(FileName, 1)  
Buffer = ts.ReadAll
Dim oSignedXML
Set oSignedXML = CreateObject("CAdESCOM.SignedXML")
oSignedXML.Verify(Buffer)