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

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

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

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

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

Notessession.getdatabase

dimat

Well-known member
31.07.2008
508
0
BIT
0
Код:
Dim ns as new NotesSession
Dim ws as new NotesUIWorkSpace
Dim dbs as Variant
Dim dbd as NotesDatabase
Dim dbcur as NotesDatabase
Dim dcur as NotesUIDocument

Set dbcur=ns.CurrentDatabase
Set dcur=ws.CurrentDocument

dbs=dcur.FieldGetText("Dbs")
dbs=Split(dbs,",")
For i=0 To Ubound(dbs)
Set dbd=ns.GetDatabase(dbcur.Server,Cstr(dbs(i)),False)
Call dcur.FieldAppendText("log",dbd.Title+Chr(13)+Chr(10))
Next

dbd=Nothing всегда

В чем может быть проблема?
 
M

morpheus

а может Cstr(dbs(i)) - пусто?
ил может неправильно указан путь?
Use a full path name if the database is not within the Notes data directory.

что в дэбагере?
 
H

hosm

мож, тримать путь надо? Trim$(Cstr(dbs(i)))
 

dimat

Well-known member
31.07.2008
508
0
BIT
0
а может Cstr(dbs(i)) - пусто?
Не пусто
ил может неправильно указан путь?
Путь указан верно. проверял
Ошибка "Object Variable not set"
В этой строчке
Код:
Call dcur.FieldAppendText("log",dbd.Title+Chr(13)+Chr(10))
Переменная dbd пустая
мож, тримать путь надо?
Не помагает

Добавлено:
Слэшей нет вобще
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Не видно, где dbs присваивается значение.
 
W

wowa

базы все на одном и том же сервере?
Есть у тебя к базам доступ?
 
D

Darker

msgbox dcur.FieldGetText("Dbs")
если пусто, попробуйте
msgbox dcur.Document.Dbs(0)
попробуйте, что выдаст?
 

dimat

Well-known member
31.07.2008
508
0
BIT
0
базы все на одном и том же сервере?
Есть у тебя к базам доступ?
Базы все на одном сервере, доступ-полный

Добавлено:
msgbox dcur.FieldGetText("Dbs")
попробуйте, что выдаст?
Поле Dialog list
имена файлов баз данных <имя файла>.nsf
 
A

Akupaka

сделай вместо
Код:
dbs=dcur.FieldGetText("Dbs")
dbs=Split(dbs,",")
так
Код:
dbs=dcur.Document.GetItemValue("Dbs")
 
T

TIA

Если агент выполняется на сервере. Тогда параметр "сервер" должен быть пустой строкой

Set dbd=ns.GetDatabase("",Cstr(dbs(i)),False)
 
A

Akupaka

Use a full path name if the database is not within the Notes data directory.

что в дэбагере?
dimat, тут имелось в виду, что есть результатом выражения Cstr(dbs(i)).
Можешь в цикле сделать месадж Msgbox "{" & Cstr(dbs(i)) & "}"
Я думаю, там есть пробелы лишние
 

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
я тут смотрю и пытаюсь понять, а чего ты базу от сессии берешь? :)
 
A

Akupaka

я тут смотрю и пытаюсь понять, а чего ты базу от сессии берешь?
А чего ты на машине ездишь, а не на автобусе?

Лучше "должен", иначе дополнительные условия появляются. Такие как необходимо серверу иметь коннекшен "на себя".
Хм, не знал. Надо как-нить проверить
 
Мы в соцсетях:

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