• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

как правильно открыть агентом по событию Ole Excel файл с диска? Getob

  • Автор темы fedotxxl
  • Дата начала
F

fedotxxl

как правильно открыть агентом по событию OLE Excel файл с диска? GetObject ругается
 
O

oshmianski

как правильно открыть агентом по событию OLE Excel файл с диска? GetObject ругается

Могет я чего не понимаю? Что мешает сделать вот так?
Код:
	Dim xlApp As Variant

Set xlApp = CreateObject("Excel.Application")
With xlApp
.Workbooks.Add
.Workbooks.open "d:\temp\123.xls"
.visible = True
End With
 
F

fedotxxl

Спс. Отсутсвие знаний
А как правильно теперь этот файл прикрепить к документу?
 
O

oshmianski

Спс. Отсутсвие знаний
А как правильно теперь этот файл прикрепить к документу?

Не совсем понятна последовательность действий. Если нуно просто прицепить файл к доку, то см.
Attaches a file to a document.
Syntax
@Command( [EditInsertFileAttachment] )
or
@Command( [EditInsertFileAttachment] ; file ; compress )
Parameters
file
Text. Optional. The name of the file you want to attach. Be sure to include the complete path specification (appropriate to the user's operating system).
compress
Number. Optional. Specify "1" if you want to compress the attachment. Specify "0" if you do not.
Without a file parameter, displays the Create Attachment dialog box. If a file is specified, attaches that file to the document without opening the Create Attachment dialog box.

Если же на скрипте, то см.

Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_OBJECT, "", "c:\jim.sam")
 
F

fedotxxl

Ну и последний вопрос по этой теме - как OLE объект сохранить на диск-то?
 
O

oshmianski

Ну и последний вопрос по этой теме - как OLE объект сохранить на диск-то?
Вот пример из хелпа:

This script detaches and removes all the file attachments in a document's Body item that are larger than 100,000 bytes. The first file attachment that's found gets detached to c:\reports\newfile1, the second attachment that's found gets detached to c:\reports\newfile2, and so on.
Код:
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) _
And ( o.FileSize > MAX ) Then
fileCount = fileCount + 1
Call o.ExtractFile _
( "c:\reports\newfile" & Cstr(fileCount) )
Call o.Remove
Call doc.Save( True, True )
End If
End Forall
End If

ЗЫ: Таки предлагаю чаще в help заглядывать. Обещаю, от тебя не убудет!!!
 
F

fedotxxl

Гм... как бы в методе EMBED_ATTACHMENT указать лотусу, чтобы он распознавал файл как EXCEL
 
L

Lexa-xa

Гм... как бы в методе EMBED_ATTACHMENT указать лотусу, чтобы он распознавал файл как EXCEL

Если речь идет от как узнать какой аттачмент прикреплен, то:
Код:
Forall o In rtItem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
If (Right$(o.Source, 3)<>"xls") Then
' .....
end if
end if
end forall
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!