• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Удаление Ярлыка Базы С Воркспейса

  • Автор темы Baneslaer
  • Дата начала
B

Baneslaer

Нужно удалить старый ярлык почтовой базы с воркспейса. База в момент удаления может быть открыта пользователем.
Собственно интересует код, как это правильно сделать...
 
B

Baneslaer

или может кто-то использовал команду @Command( [RenameDatabase] ; server : database ; newServer )...Если кто-то использовал, то как она работает? Без глюков?
 

savl

Lotus Team
28.10.2011
2 597
310
BIT
179
Baneslaer
Работать с workspace лотуса нельзя из кода, удаление вручную, добавить программно ярлык можно.
@Command( [RenameDatabase] ; server : database ; newServer ) - работает только с репликами.
Если есть Scanez (Lite версия тоже может, проверил), то можно просто подменить реплику базе, тогда прокатит.
Вот еще программное решение подмены реплики:
 
B

Baneslaer

Baneslaer
Работать с workspace лотуса нельзя из кода, удаление вручную, добавить программно ярлык можно.
@Command( [RenameDatabase] ; server : database ; newServer ) - работает только с репликами.
Если есть Scanez (Lite версия тоже может, проверил), то можно просто подменить реплику базе, тогда прокатит.
Вот еще программное решение подмены реплики:

Дело в том, что осуществляется переезд с одного сервера на другой.
Какие ярлыки есть у пользователя неизвестно и нужно удалить/подменить все старые на новые.
Нашел решение такого плана, но еще его не тестировал -

We have a database that has a replica on 100+ servers. It is being consolidated to exist on one of three regional servers.
So, we needed an email button to send to users that would allow them to pick one of the three regional servers, and then
needed to remove/replace any/all database icons pointing to that replica with the new selected, regional server. We could
not find any code in the forum to assist us when we first looked at this requirement, so I am posting it here for others to
use. Following is the code that does the actual updating of the user's desktop icons. You will have to add code, if you want to
allow the user to select a server from a list, and to allow for users that have no icon at all pointing to a replica of the database.
Keep in mind that the user will be prompted for a "Yes/No" answer when the FileDatabaseRemove is executed.

vNewServerLocation := "Replace this with the New Server location the user selected";
vRepID := "48256B47002F1DC4";

vIconList := @DbLookup("":"ReCache";"":"bookmark.nsf";"(ByURL)";"Notes:///" + vRepID;"$ReplicaFilePaths");

vCount := @Elements(vIconList);

@For(n := 1; n < vCount; n := n + 1;
@Command( [AddDatabase]; @Left(vIconList[n];"!!") :mad:Right(vIconList[n];"!!") );
@Command([WindowWorkspace]);
@Command( [FileDatabaseRemove] )
);

@Command([RenameDatabase];@Left(vIconList[vCount];"!!") :mad:Right(vIconList[vCount];"!!"); vNewServerLocation)
 
C

Crock

Нужно удалить старый ярлык почтовой базы с воркспейса. База в момент удаления может быть открыта пользователем.
Собственно интересует код, как это правильно сделать...
Такие вещи делаются сторонними продуктами типа ClientGenie -
причём совершенно прозрачно для пользователя и без его участия
 
30.05.2006
1 345
12
BIT
0
юю
Нашел решение такого плана, но еще его не тестировал -

vNewServerLocation := "Replace this with the New Server location the user selected";
vRepID := "48256B47002F1DC4";

vIconList := @DbLookup("":"ReCache";"":"bookmark.nsf";"(ByURL)";"Notes:///" + vRepID;"$ReplicaFilePaths");

vCount := @Elements(vIconList);

@For(n := 1; n < vCount; n := n + 1;
@Command( [AddDatabase]; @Left(vIconList[n];"!!") :mad:Right(vIconList[n];"!!") );
@Command([WindowWorkspace]);
@Command( [FileDatabaseRemove] )
);

@Command([RenameDatabase];@Left(vIconList[vCount];"!!") :mad:Right(vIconList[vCount];"!!"); vNewServerLocation)
Работает. Мы людЯм волшебные письма рассылаем, с button-ом в пузе
 
Мы в соцсетях:

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