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

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

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

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

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

Как авторизоваться в Lotus через Com

  • Автор темы NeoSimvolist
  • Дата начала
N

NeoSimvolist

Пишу на Delphi

FSession:=CreateOleObject('Notes.Notessession');
Запускается Lotus Client. Без запроса на авторизацию.
Как только начинаю обращаться к объекту то сразу выходит
окошко об авторизации под последним User-ом.
Как программно авторизоваться? В Lotus скрипте есть нечто такое?
Может создавать не 'Notes.Notessession' а соединения какие то?
 
T

turumbay


вторая ссылка
говорят, надо заюзать Session.Initialize("password") после создания объекта session
 
Y

yerke

<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Код</div></div><div class="sp-body"><div class="sp-content">
Код:
uses Domino_TLB;

var

testdb:IDatabase;
bdb:IDatabase;
stdoc:IDocument;
ses:ISession;
const
Server='DominoServer/ORG';
TestBase='bases\base.nsf';
ServerIP='192.168.216.10';

__________
try
//get session
ses:=CoNotesSession.Create;
ses.Initialize('cneltyn');//пароль последнего авторизованного юзера в лотус клиента
//get tester
testdb:=ses.GetDatabase(Server, TestBase, false);
pd:=testdb.GetProfileDocument('SETTINGS', '');
//get student base
itm1:=pd.GetFirstItem('Server');
itm2:=pd.GetFirstItem('Student');
//
stdb:=ses.GetDatabase(itm1.Text, itm2.Text, false);
//
stview:=stdb.GetView('(FOR-PHP-IKS)');
stview.AutoUpdate:=False;
stview.Refresh;
//get base
itm1:=pd.GetFirstItem('Server');
itm2:=pd.GetFirstItem('Base');
//
bdb:=ses.GetDatabase(itm1.Text, itm2.Text, false);
bpd:=bdb.GetProfileDocument('SETTINGS', '');
//
tview:=bdb.GetView('(Check-Prof-Dis2)');
tview.AutoUpdate:=False;
tview.Refresh;
except
on Ex:Exception do
begin
MessageBox(Application.Handle,
PAnsiChar('Невозможно подключиться к базе!'+
Chr(13)+'('+Ex.Message+')'), 'Предупреждение', MB_OK+MB_ICONWARNING+MB_SYSTEMMODAL);
SurName.SetFocus;
Exit;
end;
end;


Добавлено: для этого нужно
подключить (импортнуть) файл domobj.tlb из лотус нотус папки
к проджекту дельфи
 
N

NeoSimvolist

Исчерпывающе. Тема закрыта. Благодарю!!!
 
H

hotCoffee

всем привет!!! я только начал работать с лотусом, возникла необходимость экспортировать данные из базы *.nsf в *.mdb. подскажите пожалуйста, как получить доступ к лотусовской базе? какие компоненты нужны? пробовал использовать примерчики, которые нарыл в инете, но ничего не получается. объясните пожалуйста! заранее большое спасибо!!!
 
M

morpheus

Компонентов нет, зато сверху приведён исчерпывающий пример

link removed
 
Мы в соцсетях:

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