Текущий Location

[dimat]

Всем привет!
Подскажите как на ls определить текущий Location клиента Notes?

 

[RAJ]

как-то так

Dim NS as New NotesSession
Dim NDB_Names as New NotesDatabase("", "names")
Dim ND_Location As NotesDocument
Dim arr as Variant
Dim noteid as String

arr = Split(NS.GetEnvironmentString("Location",True), ",")

noteid = arr(1) 'noteid текущего location документа

Set ND_Location = NDB_Names.GetDocumentByID(noteid)

 

[dimat]

RAJ
Спасибо, как то не догадался что он может в notes.ini указан

 

[Omh]

Ну, то что текущий локейшн хранится в notes.ini как системная переменная - верно.
Но что-то я не наблюдаю у себя, что второй элемент в строке это NoteID документа.
У меня там круглый ноль lease:

Я, при такой задачи, вычитывал название локейшена из notes.ini и потом уже с помощью db.search выковыривал его из локальной names.nsf

 

[dimat]

Omh
Проверил, там действительно NoteID указан Location'a указан

 

[Omh]

Значит у меня что-то глючит lease:

 

[Akupaka]

таки да, айдишка ноты

Добавлено: Location=location-name,location-note-id,user-name-last-logged-on

 

[FixeR]

Недокументированная функция:

@LocationGetInfo([FullName])
@LocationGetInfo([HomeServer])
@LocationGetInfo([InternetMailAddress])
@LocationGetInfo([NamePreference])
@LocationGetInfo([BookmarksFilename])
@LocationGetInfo([SametimeServer])
@LocationGetInfo([UNID])