Set oDocumentNameAttr = CreateObject("CAPICOM.Attribute")
    oDocumentNameAttr.Name = CADESCOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_NAME
    oDocumentNameAttr.Value = "F_SF"

    Set oSigningTimeAttr = CreateObject("CAPICOM.Attribute")
    oSigningTimeAttr.Name = CAPICOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME
    oSigningTimeAttr.Value = Now


	Set oSigner = CreateObject("CAdESCOM.CPSigner")
	Set oSignedData = CreateObject("CAdESCOM.CadesSignedData")
   	Set oFSO = CreateObject("Scripting.FileSystemObject")
	oSigner.Certificate = oCert
	oSigner.AuthenticatedAttributes.Add  oDocumentNameAttr
	oSigner.AuthenticatedAttributes.Add  oSigningTimeAttr
         oSigner.TSAAddress = "http://www.cryptopro.ru/tsp/tsp.srf"
         LoadFileForCades2 sFile, sContent
         oSignedData.ContentEncoding = 1
         oSignedData.Content = sContent

         sSignedData = oSignedData.SignCades(oSigner, 1, True, 0)
	SaveFile sSignFilePath, sSignedData

сам файл подписи в архиве

И код как я читаю:

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

	Set oStore = CreateObject("CAdESCOM.CadesSignedData")
	oStore.ContentEncoding = 0
	oStore.Content = vCode
	On Error Resume next
	oStore.VerifyCades vCode, 0
	if err.Number <> 0 then
		print err.dESCRIPTION
	end if
	On Error GoTo 0 
	Set oSigner = oStore.Signers.Item(1)
	Msgbox "Валидность подписи: " + cStr(oSigner.Certificate.IsValid())
	Msgbox "Данные подписи: " + cStr(oSigner.Certificate.SubjectName)
	'Msgbox "Время подписи на сервере: " + cStr(oSigner.SignatureTimeStampTime) - ошибка возникает в этом месте
	Msgbox "Атрибут подписи: " + cStr(oSigner.AuthenticatedAttributes2.Item(1).Value) - а вот так пытаюсь прочитать атрибуты, с которыми кстати тоже проблема, не могу считать

Set oSigningTimeAttr = CreateObject("CAdESCOM.CPAttribute")     
oSigningTimeAttr.Name = CAPICOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME     
oSigningTimeAttr.Value = Now         
Set oSigner = CreateObject("CAdESCOM.CPSigner")     
Set oSignedData = CreateObject("CAdESCOM.CadesSignedData")     
oSigner.AuthenticatedAttributes.Add  oSigningTimeAttr - в этом месте выдается ошибка Invalid procedure call or argument 

Я делал так, но вы говорите атрибуты не добавились:

Set oSigningTimeAttr = CreateObject("CAPICOM.Attribute")     
oSigningTimeAttr.Name = CAPICOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME     
oSigningTimeAttr.Value = Now         
Set oSigner = CreateObject("CAdESCOM.CPSigner")     
Set oSignedData = CreateObject("CAdESCOM.CadesSignedData")     
oSigner.AuthenticatedAttributes.Add  oSigningTimeAttr