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

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

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

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

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

Как получить Unid

  • Автор темы yonyak
  • Дата начала
Y

yonyak

ну мне нужно создать масив значений UNID документов коллекции
 
M

morpheus

unid$ = notesDocument.UniversalID

F1 как говорилось выше, в помощ
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Ну раз пошла такая пьянка.
Что быстрее, взять документ по UNID или по NoteID? :)
 
A

Akupaka

Ну раз пошла такая пьянка.
Что быстрее, взять документ по UNID или по NoteID? :)
эээ... думаю, что если нулевой вид не отсортирован по Name или ProcessorID, то килограмм будет по гривен 10 :)

ну мне нужно создать масив значений UNID документов коллекции

Код:
dim col as NotesDocumentCollection
dim doc as notesdocument
dim unidArray as variant
dim i as long

set col = {getting the collection}
if col.Count > 0 then
redim unidArray (0 to col.Count)
set doc = col.GetFirstDocument
set i = 0
while not(doc is nothing)
unidArray(i) = doc.universalID
i = i + 1
set doc = col.GetNextDocument(doc)
end while
end if

Код:
dim col as NotesDocumentCollection
dim doc as notesdocument
dim unidArray as variant

set col = {getting the collection}
if col.Count > 0 then
set doc = col.GetFirstDocument
while not(doc is nothing)
if isArray(unidArray) then
redim preserve unidArray (lbound(unidArray) to ubound(unidArray) + 1)
else
redim unidArray (0 to 0)
end if
unidArray(ubound(unidArray)) = doc.universalID

set doc = col.GetNextDocument(doc)
end while
end if

первый вариант должен быть полезнее в отношении скорости и памяти, т.к. память выделяется фиксированно один раз...
 
Мы в соцсетях:

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