S
sj54
Подскажите пожалуйста, как программно получить доступ к списку активных сессий в Domino? Интересует такая информация: номер сессии, имя клиента, ip адрес клиента, имя базы.
Dim session As New NotesSession
Dim DOMParser As NotesDOMParser
Dim resp As String
Set DOMParser = session.CreateDOMParser
cmd = Chr$(27) & "!show inetusers -xml"
resp = session.SendConsoleCommand("", cmd)
Call DOMParser.Setinput(resp)
Call DOMParser.Process()
Set DOMDocument = DOMParser.Document
Set DOMNodeList = DOMDocument.GetElementsByTagName("userdata")
Dim doc As NotesDocument
Set doc = session.DocumentContext
doc.allcurrentusers = Cstr(DOMNodeList.NumberOfEntries)
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab