Надаело твердить одно и тоже...(MMF и АЛьФ (да и не только они) не объясняет народу этот вопрос)
скачайте и поглядите...
http://www.karat-e.ru/files/api4s1s/monitor.rar
(обработка только для примера, исключительные ситуации не отслеживаются)

супер!

Интересное решение ..а как вообще скрипт в тело обработки закидывают? научите, я тоже хочу. :)

так их ... знай наших ;))

(2)В таблице рисунок есть :)

Ну и где "горячие головы" ? Которые пытаются получить усеров по файлам 1cv7.lck и links.tmp (на прямую)...

еще спят...

(5)ты вышел на тропу войны? :) ворд тоже не у всех есть.

(7) Да нет, я не о том, я о принципе определения "живых" (кстати это не сложно и к ОО привязать)

(7)зато как классно!

чет я суть сего не пойму. как она работает?

откуда Объект взялся??

рожденый ползать летать не может

А кому интересно узнавать кто сидит в базе из Предприятия?
Обычно ведь хотят узнать из конфигуратора. Перед тем как сохранять.
Для этого нужно скрипт написать, а не на Делфи/1С.

не скажите товарищ... не скажите... даже поиском по форуму пройдитесь... найдете кучу вопросов

(13) Да ну ? напиши скрипт только с тем что есть в ОС

да ладно выделыватся, колись. вот толко та инфа что в твоей таблице, есть в мониторе, так чем они отличаются?
Кроме того как это может помочь определить активность рабботы пользователя?
Офис кстати с сервером 2003 и терминалом живет глюкаво, поэтому не стоит на терминал сервере.

и убедить админов поставит офис на терминал мягко сказано не вызовет положительных эмоций

(16) Ты (0) читал внимательно ?
Суть ветки не в обработке (0), а втом чтобы поняли как определять.

(17) А чем он плох на терминале ? А какже тонкие клиенты без офиса на сервере будут жить?

(16)офис на сервере 2003 живет нормально... если руки не из попы растут

(0) Такого извращения никогда раньше не видел :)

у тонких клиентов есть свои компы. там и живет.
подробностей не знаю, но установка офиса на терминальном сервере вызывает у админов приступ истерики.

что есть тоникий клиент... ну админы ... понаридумывают всяких терминов... хоть стой хоть падай

Так все равно файл SYSLOG\links.tmp анализируется :)

(22)странно, у меня не вызывает, поставил и все путем.

(22) Убей всех своих админов
(21) Таких "извращений" тут на форуме понатыкал до и более, и твой любимый хук без ВК

(0) Однако круто получилось :)

(24) Вопрос в том - "как анализирует ?"

анализ должен быть во всем

Надо же было так растопырить vba. Прям не могу без слез на это смотреть.
Бедный basic.

Это как в том фильме корову в истребителе в отсеке для бомб перевозили.

(15) - я использую из конфигуратора скрипт ShowIBState::ShowIBStatus - выводит статус базы, но без активных юзеров.
Было бы неплохо выводить и их.

Для тех кто не может найти код объекта "Объект"...
...
Public Function КтоВБазе(sPathFile) As Collection
   Set КтоВБазе = New Collection
   Set КтоВБазе = GetUser(sPathFile & "\SYSLOG\links.tmp")
   For i = КтоВБазе.Count To 1 Step -1
       If Not КтоВБазе.Item(i).Блокировка Then КтоВБазе.Remove i
   Next
End Function

//Class1
Public Текст As String
Public Блокировка As Boolean
Public Пользователь As Class2

//Class2
Public Имя As String
Public Режим As String
Public Система As String
Public Компьютер As String
Public Дата As String
Public Время As String

//Module
Private Type Record
   rec As String * 1024
End Type
Private Const GENERIC_EXECUTE = &H20000000
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const FILE_FLAG_RANDOM_ACCESS = &H10000000
Private Const FILE_ATTRIBUTE_NORMAL = &H0
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function LockFile Lib "kernel32" (ByVal hFile As Long, ByVal dwFileOffsetLow As Long, ByVal dwFileOffsetHigh As Long, ByVal nNumberOfBytesToLockLow As Long, ByVal nNumberOfBytesToLockHigh As Long) As Long
Private Declare Function UnlockFile Lib "kernel32" (ByVal hFile As Long, ByVal dwFileOffsetLow As Long, ByVal dwFileOffsetHigh As Long, ByVal nNumberOfBytesToUnlockLow As Long, ByVal nNumberOfBytesToUnlockHigh As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Function parse(s) As Class2
   Set parse = New Class2
   a = Replace(s, vbCrLf, "")
   a = Replace(a, "{{", "")
   a = Replace(a, "}}", "")
   a = Replace(a, "},{", vbCr)
   arr = Split(a, vbCr)
   If UBound(arr) = 0 Then Exit Function
   For i = 0 To UBound(arr)
   f = Replace(arr(i), """,""", vbCr)
   f = Replace(f, """", "")
   arr(i) = Split(f, vbCr)(1)
   Next
   parse.Имя = arr(0)
   Select Case arr(1)
   Case "C"
       parse.Система = "Конфигуратор"
   Case "E"
       parse.Система = "Предприятие"
   Case "M"
       parse.Система = "Монитор"
   Case "D"
       parse.Система = "Отладчик"
   End Select
   If arr(2) = "N" Then
       parse.Режим = "Раздельный"
   ElseIf arr(2) = "Y" Then
       parse.Режим = "Монопольный"
   End If
   parse.Дата = Split(arr(3), ",")(0)
   parse.Время = Split(arr(3), ",")(1)
   parse.Компьютер = arr(4)

End Function
Public Function GetUser(sFile) As Collection
   Set GetUser = New Collection
   Close
   filenumber = FreeFile
   If Dir(sFile) = vbNullString Then
       GoTo errH
   End If
   Dim MyRecord As Record
   Open sFile For Random As #filenumber Len = Len(MyRecord)
   i = 0
   Do While Not EOF(filenumber)
       Get #filenumber, i + 1, MyRecord
       Set myclass = New Class1
       myclass.Блокировка = False
       myclass.Текст = Trim(MyRecord.rec)
       Set myclass.Пользователь = parse(Trim(MyRecord.rec))

       GetUser.Add myclass, "" & i
       i = i + 1
   Loop
   Close #filenumber
   hFile = CreateFile(sFile, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, struct_security, OPEN_EXISTING, FILE_FLAG_RANDOM_ACCESS Or FILE_ATTRIBUTE_NORMAL, 0)
   For i = 0 To GetUser.Count - 1
       GetUser.Item("" & i).Блокировка = (LockFile(hFile, 2000001 + i, 0, 1, 0) = 0)
       Call UnlockFile(hFile, 2000001 + i, 0, 1, 0)
   Next
   CloseHandle hFile
   Exit Function
errH:
   For i = 1 To GetUser.Count
       GetUser.Remove 1
   Next
   Set myclass = New Class1
   myclass.Блокировка = True
   If Err Then
       myclass.Текст = Trim(Err.Description) & Err.Source
   Else
       myclass.Текст = "Not file found -'" & sFile
   End If
   GetUser.Add myclass, "Err"
End Function
...
Можно было и короче и "умнее" но было лениво...

(32) Какой нафих скрипт в конфигураторе ? Ты хоть понял что без сторонних приблуд этого не сделать (вернее далеко не каждому) (знаю что ты об опенконфе)

(33) Интересно, а кто догадался во внедренный объект на таблице залезть?
Я вот тоже не сразу все понял.
Вот тот квадратик в таблице и есть бомболюк :))))

И никто ведь не станет искать в боболюке корову :)))))))

(35) В таблицу не только такое можно закинуть
Это чисто мое "ноу-хау", можешь даже не искать (хотя в ЖКК и СП об этом вскольз есть)

(37) я так не играю.. :( нифига не могу понять, куда зырить?

(37) Хорошо еще, что ты для объекта границу поставил. Если бы ты его без границы сделал, то наверное никто твой код так и не нашел бы... ну или почти никто. :)

в документ ворда надо смотреть

а вообще лихо замутил... надо будет снипу показать...

Вот из-за таких как автор некторые админы боятся офис на терминальные сервер устанавливать :) Там такого можно натворить ... %D

(42)можно. но с такими, как автор, админу дружить надо и учиться у него.

это очень не правильные админы...

(33), (34) - а ято ты сейчас написал? Респект за код. Классы в VBScript есть? Есть. Dynwrap для вызовов API функций есть? Есть, лишь бы не передавались структуры.
Приблуды - COM объекты (Коллекции/Врапперы) - есть в OpenConfе.

Сегодня вечером буду переписывать под VBScript.

(0) Офигеть! Долго искал. :)))

(0) Что-то не поняла - а зачем эта фича нужна?

(47) блондинка?

Я и не пытался код прятать, просто так удобно, еслиб надо было то кодбы лежал прямо в модуле (и на виду) тока врядлибы кто его смог прочитать и даже небылобы объекта таблица и ерт ничембы не рихтовал(нет привычки)

(48) Кстати тебе спасибо и "^" - (можнт помнишь такого :))

(48) не-а..

а если монитор.длл скопировать в папаочку бин\конфиг\ , то в конфигураторе заработает красивый монитор. Проверено, мин нет!

Ништяк! Как обычно - респект и уважуха!

+52) конечно, при установленном опенконфе.