Dim sFilePath : sFilePath = "C:\Users\...\подпись.p7s"

 Dim oFSO 
 Dim sText
 Dim vCode
 Dim oTextStream

 Set oFSO = CreateObject("ADODB.Stream")
        oFSO.Type = 2 
        oFSO.Open
	oFSO.Type = 1
        oFSO.LoadFromFile sFilePath
        vCode = oFSO.Read
        oFSO.Close


 WScript.Echo vCode

 Dim oStore
 Set oStore = CreateObject("CAdESCOM.CadesSignedData")
 oStore.ContentEncoding = 0
 oStore.Content = vCode
On Error Resume next
  
 oStore.VerifyCades vCode, 0
 if err.Number <> 0 then
	WScript.Echo err.dESCRIPTION
 end if
On Error GoTo 0 
 Dim oSigner
 Set oSigner = oStore.Signers.Item(1) - ошибка происходит в этом месте
 WScript.Echo "Данные подписи:" + oSigner.Certificate.SubjectName

 Option Explicit

 Dim oSigningTimeAttr
 Set oSigningTimeAttr = CreateObject("CADESCOM.CPAttribute")
 oSigningTimeAttr.Name = 0 '(1 - тоже пробовал вводить, но все бестолку)
 oSigningTimeAttr.Value = Now

 Dim oSigner
 Set oSigner = CreateObject("CADESCOM.CPSigner")

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

 Dim oFSO
 Set oFSO = CreateObject("Scripting.FileSystemObject")
	
 Dim oAttributes
 Set oAttributes = oSigner.AuthenticatedAttributes2
 oAttributes.add oSigningTimeAttr '- Выдается ошибка "Недопустимый вызов или аргумент процедуры"
 oSigner.TSAAddress = "http://cryptopro.ru/tsp/" '- штамп времени так и не попадает в подпись

 oSignedData.ContentEncoding = 1
 oSignedData.Content = "Проверка подписи"
	
 Dim sSignFilePath
 sSignFilePath = "c:\123" & ".p7s"
 If oFSO.FileExists(sSignFilePath) Then
   oFSO.DeleteFile sSignFilePath
 End If
 Dim sSignedData
 sSignedData = oSignedData.SignCades(oSigner, 1, False,  0)

 SaveFile sSignFilePath, sSignedData