Столкнулся с трудностями..
Требуется получить список активных пользователей 1С, работающих в базе.
юзаю Admin1c.dll - все ок.. до поры до времени - если вручную запускать - нормуль.
.
если программно запускать (в обработке ожидания) - 1Ска падает.
.
вариант smaharba со скриптом вордовским - не сильно хочется.
.
варианты счетчиков при входе/выходе пользователей - тоже не очень кузяво, бо несрабатывает в случае выброса юзверя из 1Ски...
.
какие еще есть варианты получить список активных пользователей, работающизх в базе..?
.
спсб.

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

(0) могу предложить ВКшечку
https://www.dropbox.com/s/59cissgsf6jqmoh/TradSys.dll

применение элементарное:
ЗагрузитьВнешнююКомпоненту("tradsys.dll");

Монитор=СоздатьОбъект("Trad.Монитор");
ТЗ=Монитор.ПолучитьАктивныхПользователей();

//Структура колонок
Имя, Строка, имя пользователя
Режим, Число, режим запуска (0-монопольный, 1-предприятие, 2-конфигуратор, 3-отладчик, 4-монитор)
Время, Строка, время запуска
Компьютер, Строка, имя компьютера

(15) > Если ИмяПользователя()="robot"

жесть

используй право доступа

(46) причем тут право то?

На сколько помнится, есть еще Сервис::ПолучитьАктивныхПользователей то ли в 1с++, то ли в FormEx. У меня в обработке ожидания модального окна работает и не падает.

(46) Угу, расскажи еще, что вот поэтому у тебя и нет друзей ... http://infostart.ru/public/275145/

(48) Формекс http://www.1cpp.ru/forum/YaBB.pl?num=1284099729
В ветки там же еще куча разных dll для этого

(47) правом проверять доступ к служебной обработке

(49) =)

(51) так там дело не в доступе к обработке как я понял, а в том чтоб робот "свалил" из 1С если он один остался

(45) спсб, скачал.
то же самое делает admin1c.dll

(53) да все уже решил, еще вчера... ;-)
всем спасибо!

Вопрос:
как запустить робота (отдельную сессию 1ски) из текущего терминального сеанса, чтобы при завершении этого текущего терминального сеанса 1ска-робот продолжала работать..?

(56)создай пользователя, запускай по шедулеру без терм. сессии

(57) так и думаю. сделать задание шедулеру и через командную строку запускать - прокатит?

(58) прокатит, иожешь один раз под этим пользователем зайти, проверить, как отрабатывает

(57) Не факт, не факт. У меня Предприятие из шедулера нормально отрабатывает, только если есть сессия. Отключенная. Возможно что-то с внешними компонентами связано, или еще с чем. В журнале регистрации только вход и выход пользователя, а всякие автооперации в ПриНачалеРаботыСистемы не отрабатывают. Конфигуратор в любом случае работает без проблем, есть сессия или нет.

Через Формекс можно. В последних версиях Альф долбавил возможность определения списка активных пользователей - в виде таблицы значений

(0) Если надо запускать падающего робота сделай константу "РоботЖив" и записывай туда из сеанса робота обработкой ожидания через каждый 30 сек текущее время. А из каждого сеанса юзера проверяй значение этой константы другой обработкой ожидания. Если давно не обновлялась надо запускать робота. В другую константу "НачалоРаботыРобота" записывай в какое время робот запущен последний раз. Не запускай повторно если только что запустили ибо оно может ещё не загрузилось.

(61)+ А еще можно использовать user1Clist.dll (кажется так). Я кстати именно ее и использую когда хочу сообщение юзерам послать массово

(0) если база SQL, то могу подкинуть решение.

(0) ежели нужен только список на "поглядеть", то всё делается штатно и без вк..

+ (65) да, Блокировку, еще никто не отменял

(60) тут возможно что 1ске нужен рабочий стол, то есть место куда что-то выводить - тот же гуй

(64) не, дбф

(62) нафиг такие решения - слишком много сущностей и обработок ожидания там где они нафиг не нужны. сделал уже робота все работает - осталось его стартовать из-под любого пользователя...

(63) поподробнее на почту..?

(65), (66) ну тут еще чтобы меньше программить... ;-)

(71) че там программить то ?
1 справочник и установка блокировки.
При проверке - посмотреть на блокировку, усё.
Зато надёжно и просто, как 3 копейки.

(69) может пересмотреть подход и стартовать задания робота в специально выделенном сеансе 1С и отдельном сеансе сервера?

(73) да именно так и хочется!
пока смутно понятно/непонятно как это организовать...
типа как-то при заходе первого пользователя в 1Ску командой системы запускать именно "робота в специально выделенном сеансе 1С и отдельном сеансе сервера"

(74) обычный виндовый шедулер запускает батник/командный файл/скрипт .. с запуском 1с-ины под определенным пользователем, или открытие 1с-ины по оле + открытьформу своей поделки.. усё.

(75) это да... но запустится-то 1Сина в текущем терминальном сеансе...?

(74) По моему стоит сделать так:
Примитивный батничек. В нём запускается консольная утилита 1cusrmon.exe, выводящая список активных пользователей. Если есть пользователь "робот" ничего не делаем. Если робота нет, но есть другие пользователи, запускаем 1Ску отдельным процессом.
Этот батничек вставляется в планировщик с небольшим интервалом. Например, раз в пять минут.
В нём еще можно, что бы не возиться с определением активных пользователей в 1С, создавать/убивать файл-флаг необходимости завершения сеанса робота.
(76) Я не нашел решения, почему 1С не отрабатывает, если сеанс не открыт. Да и не сильно искал. Сделал только "сторожок" в планировщике, который проверяет наличие сеанса определенного пользователя на сервере, если не находит, спамит меня сообщениями о проблеме.

+(77)
Монитор пользователей 1С:Предприятия 7.7.
Параметры командной строки:
C:\Program Files\1Cv77\bin\tools\1cusrmon.exe [-Dn] [-En] [-W] <каталог базы>

        -D0 : не показывать список пользователей
        -D1 : показывать все режимы, кроме Монитора (по умолчанию)
        -D2 : показывать всех пользователей

        -En : установка errorlevel 1
         -E0 : не устанавливать (по умолчанию)
         -E1 : если база открыта монопольно
         -E2 : если открыт конфигуратор
         -E3 : если открыто 1С:Предприятие или блокирующий данные конфигуратор
         -E4 : если открыт любой режим, кроме Монитора
         -E5 : если открыт любой режим

        -W  : ждать освобождения базы по условию параметра -En

Установка errorlevel:
        0 - база свободна (условие параметра -En не выполняется)
        1 - база занята (условие параметра -En выполняется)

зашибись, все получилось...

если кого-то интересует что получилось в итоге - маячьте, опубликую... "...мой гений дарит вам...." ;-)

(80) рассказывай

ну.. в зале мало зрителей.... ;-)

(82) Ну кто ж во втором часу ночи по кинотеатрам то сидит :)

(82) Да ладно, рассказывай. Ты у нас ценный кадр в общественности, умеешь не только хорошую вещь сделать, но и понятно для простых смертных ей поделиться. Не так уж часто встречаемая комбинация.

(0) а ежели "при начале работы" создавать dbf`ный файл и открывать его на запись, типа: ###_Ivanov.dbf?
далее просто выбрать все файла на "###_" и которые залочены - те активны.. если пользователь выпадает, система снимает блокировку с файла сама..

(85) Те же яйца, только сбоку - см (72)

(85) ну его нафиг с этими извращениями. Есть ВК, которая по моим длительным наблюдениям за ее работой - корректно отражает присутствующих в базе людей, в т.ч. и при аварийныз вылетах из программы. Соответственно: все остальное - тривиально.
.
если кого-то интересует тривиальный код чтоя наштрямкал для запуска/останова робота - тоды да уж.. придется опубликовать..

длл от меня, на инфостарте валяется

http://infostart.ru/public/22037/

описание интерфейса, где-то выложено то-же

или от сюда http://infostart.ru/public/16686/ тут точно последняя версия

(89) этих прсмотров активных юзверей уже штуки четыре адми1с, userlist формекс итд

Лучше всё же контроль списка активных пользователей делать вне 1С. Вот упала, например, 1Ска у робота. Или сервак пришлось перегрузить днём. Не забудешь запустить робота заново?

(92) перезагрузка сервака днем - робот стартанет вместе с первым же юзверем.
.
упала 1ска-робота. при входе любого юзверя - робот стартанет автоматом. если никто не входит - ну что же: обмено вне будет. если это некритично - никто и не пошевелится - значит и пофиг. если отсутствие обмена критично - завопят менеджеры/склад. - стартанут робота вручную.

(93) ну хрень же, не ?
Уж лучше регламент всё делает сам, в определенное время, а не когда там есть какой-то мифический пользователь.

(94) вот чего ты лезешь поперед батьки в пекло...
ДАННЫЙ регламент связан с интерактивными изменениями данных. нет пользователей работ нафиг не нужен. Будут внеурочные регламенты - прикрутим все что надо...
.
за мной там кстати должок висит - я помню!!!

(95) как ведёт себя твой регламент, если юзверь зашел монопольно ? Хоть проверку на монопольный режим воткнул в код ?
:)

я к чему, юзверь зашел монопольно твой "робот" обломился.. юзверь вышел -  действий "робота" не произошло. Или надеешься на следующий вход ? Он учитывает "предыдущие" не учтенные изменения ИБ монопольным юзверем ?

(96) вот ты блин параноик... ;-) спешал фо ю...
.
//*********************************************************************
//
Процедура РоботОбмена_Старт()
    
    Если МонопольныйРежим()=1
    Тогда //робот стартует только в разделенном режиме
        Возврат;
    КонецЕсли;

я кстати тоже.. параноик

(99) а как на счет (97) ?
:)

(97) есть такая засада... ;-) шо тут можно сказать... монопольно интерактивные юзвери - не работают (токая монопольно работаю)... интерактивные изменения даже в монопольном режиме - копятся полюбасику, и при первом же вменяемом старте - уйдут на обмен... некузяво конечно, риски есть... но очень мне уж не хочется в сеансах каждого юзверя всякие обработки ожидания dinhzvrbdfnm

+100
>>>Он учитывает "предыдущие" не учтенные изменения ИБ монопольным юзверем ?

Ну ясно.

кстати, попутно, есть скриптик для оса, чтобы из списка процессов семерки на серваке определить процессы работающие с конкретной базой..?

(102) типа сам себя похвалил? ;-)

учитывать изменения - чтобы иметь список данных для выгрузки - та еще задачка (урбд нет!)

"handle 1cv7.mlg" даст тебе процессы и пути к ЖР баз.
Оттуда не проблема выделить только pid и путь к базе.
handle.exe отсюда: http://technet.microsoft.com/ru-ru/sysinternals/bb896655.aspx

Вот тебе для затравки:
for /f "tokens=3,7*" %i in ('handle 1cv7.mlg ^| findstr "1cv7s.exe"') do @echo %i %~dpj
выполнять прямо с командной строки.

(108) однако...

(104) случайно наткнулся в старых скриптах, может кому пригодится. может даже мне пригодится :)
нужен handle.exe от SysInternals

с ключом -i просто показывает список процессов

Kill1C.js
======================================================
var wsh = new ActiveXObject("WScript.Shell");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var net = new ActiveXObject("WScript.Network");

var DomainName = "";
var IBDir = "";
var fShowOnly = false;
var Flag_KillAll = false;
var ThisComputer = net.ComputerName;
var TempPath = wsh.ExpandEnvironmentStrings("%TEMP%");
try {
    if( !fso.DirectoryExists(TempPath) ) TempPath = "";
} catch(err) {
    TempPath = ".";
}


ProcessCommandLine();
KillProcesses(IBDir, DomainName);

//=====================================================================================
//=====================================================================================
//=====================================================================================

function KillProcesses(IBDir, DomainName)
{
    if( DomainName != null && DomainName != "" )
    {
        Debug('KillDomain');
        ADSI = GetObject("WinNT://" + DomainName);
        ADSI.Filter = Array("computer");
        Comp_enum = new Enumerator(ADSI);
        for(; !Comp_enum.atEnd(); Comp_enum.moveNext() )
        {
            var Comp = Comp_enum.item();
            WScript.Echo("Comp. "+Comp.Name);

            if( Comp.Name.toLowerCase() == "adirks" )
            {
                KillOnComputer(IBDir, Comp.Name);
            }
        }
    }
    else
    {
        Debug('KillOnComputer');
        KillOnComputer(IBDir, ThisComputer);
    }

}

function KillOnComputer(IBDir, ComputerName)
{
    Debug(ComputerName+": "+"winmgmts:{ImpersonationLevel=Impersonate}!\\\\" + ComputerName + "\\Root\\CIMV2");
    try {
        WMI = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\\\" + ComputerName + "\\Root\\CIMV2");
    } catch(err) {
        return;
    }
    
    Proc_enum = new Enumerator( WMI.ExecQuery("SELECT Name, ProcessID FROM Win32_Process WHERE Name = '1cv7.exe' or Name = '1cv7s.exe' or Name = '1cv7l.exe'") );
    for(; !Proc_enum.atEnd(); Proc_enum.moveNext() )
    {
        var Proc = Proc_enum.item();
        var strNameOfUser = '', strUserDomain = '';
        var nRetCode = Proc.GetOwner(strNameOfUser, strUserDomain);

        //WScript.Echo(Proc.Name+": "+Proc.ProcessID+";  "+nRetCode+" - "+strUserDomain+"\\"+strNameOfUser);
        Debug(Proc.Name+": "+Proc.ProcessID);
        if( NeedKill(Proc.ProcessID, IBDir) )
        {
            WScript.Echo("Terminate process "+Proc.Name+": "+Proc.ProcessID);
            Debug("Terminate process "+Proc.ProcessID);
            if( !fShowOnly )
            {
                Proc.Terminate
            }
        }
    }
}


function NeedKill(ProcID, IBDir)
{
    if( Flag_KillAll ) return true;
    
    var HandlesFName = TempPath+"\\1c~kill~handles.tmp";
    var res = wsh.Run("cmd /C handle.exe -p "+ProcID+" >"+HandlesFName, 2, true);
    var HandlesFile = fso.OpenTextFile(HandlesFName);
    var text = HandlesFile.ReadAll();
    HandlesFile.Close();
    //fso.DeleteFile(HandlesFName);
    
    var re = new RegExp('\\s*\\S+:\\s+\\S+\\s*(.*)', 'ig');
    var FName = (IBDir+'\\1cv7.lck').toLowerCase();
    while( (matches = re.exec(text)) != null )
    {
        var HandleName = matches[1].toLowerCase();
        HandleName = HandleName.replace(/[\r\n]*/g, '');
        Debug('Need kill?  '+FName+' == '+HandleName);
        if( FName == HandleName ) return true;
    }
    return false;
}

function ProcessCommandLine()
{
    var args = WScript.Arguments;
    if( args.length == 0 )
    {
        Help();
        WScript.Quit();
    }
    
    for( i = 0; i < args.length; i++ )
    {
        if( args(i) == "-d" )
        {
            IBDir = args(++i);
        }
        else if( args(i) == "--domain" )
        {
            DomainName = args(++i);
        }
        else if( args(i) == "--all" )
        {
            Flag_KillAll = true;
        }
        else if( args(i) == "-i" )
        {
            fShowOnly = true;
        }
        else
        {
            Help();
            WScript.Quit();
        }
    }
    
    if( IBDir.length == 0 && !Flag_KillAll )
    {
        WScript.Echo("Не указан каталог базы данных! (ключ -d <IBDir>)");
        WScript.Quit();
    }
    WScript.Echo("'" + IBDir + "'");
}


function Help()
{
    Help = "Использование:\n\
\tKill1C.js {-d <Каталог базы данных>|--all} [--domain <имя домена>]  [-i]\n\
Каталог базы нужно указывать без финального слэша ('\\')\n\
Если указан параметр --all, то уничтожаются процессы независимо от базы данных\n\
Если имя домена не указано, то уничтожаются процессы только на текущей машине.\n\
-i - показывает список процессов, подпадающих под указанные условия. \n\
Для работы требуется утилитка handle.exe от sysinternals (http://www.sysinternals.com/)\n\
";

    WScript.Echo(Help);
}

function Debug(msg)
{
    return;
    var f = fso.OpenTextFile("debug", 8, true);
    f.WriteLine(msg);
    f.Close();
}

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

(111) дай денех на урбд!!!

как оказалась самая проблема:
на сервере пользователь вошел в терминал с ограниченными правами. и фот фиг под ним запускается шедулер...

(112) без урбд можно VERSTAMP документов (таблица журналов) проверять не увеличился ли

(113) Задание запускается от имени этого пользователя? У него есть в серверной политике разрешение на "Вход в качестве пакетного задания"?

(115) хз... сисадмин копался, много чего перепробовал.. не получилось...

(116) А Какое именно задание нужно "под ним"? Ты прописываешь задание "при входе пользователя" или что нибудь еще? Сервер какой? 2008-2012 или старый?

сервер 2008
инерактивный пользователь 1С выполняет команду на запуск шедулера с определенным заданием. в задании шедулера - запуск 1ски под отдельным серверным пользователем.

Проверь политику "Административные шаблоны / Компоненты Windows / Планировщик / Запретить запуск и завершение задач"

(119) отдам сисадмину "цу"...

Всё же не понятно, зачем пользователей грузить потребностью запускать какого-то там робота. Запускаешь задание из шедулера, например, раз в минуту, оно проверяет авктивных пользователей в базе и стартует/завершает 1Ску с роботом. По-моему, хороший вариант.

(121) к примеру, у нас в винде заведён пользователь Робот, у него в терминальной сессии прописан запуск 1С. Шедулер на админском компе тупо периодически запускает терминальную сессию. Если робот жив - ничего не происходит, если помер - запустится.
А раньше как раз была такая система с регламентами - кто первый напоролся, тот и смотрит удивлённо, чё это у него такое происходит. В один прекрасный момент придумали регламент, который письма рассылает - вот тут то все подофигели, типа:
- Иванова, ты чего мне пишешь про мои заказы?!
- Да ничо я не писала ... О_о

вот тут то резко сделали всё как положено :)

(122) "Шедулер на админском компе тупо периодически запускает терминальную сессию"
А разве это работает, когда на админском компе ни кто не залогинен? Уйдёт админ в отпуск, а комп вырубится/перезагрузится/повиснет... Что с роботом тогда? Хотя, наверное, можно сделать маленькую виртуалочку в которой будет включен автологон и запуск подключения к терминалу в планировщике...
"В один прекрасный момент придумали регламент, который письма рассылает - вот тут то все подофигели"
Не замечал. У меня работает система уведомлений о согласовании цен отгрузки, уведомлений об изменении качества металла, отчеты автоматически ежедневно рассылаются... Ни кто что-то не фигеет.

"админский комп" это у нас почти как сервер - включен всегда, там много всякого крутится. А так то да, от зависания трудно застраховаться. Только всякой паранойей, типа "робота, следящего за роботом", и т.д. И чтобы СМСки слал админу.

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

Почему первый попавшийся? Кто изменения вносил, тот и автор уведомления.

(119) натарвил сисадмина на совет, ответ такой: "Эта политика могла бы помочь, но она в этой винде не действует..."

(121) пользователей никто не грузит запуском робота. он стартует "прозрачно" для интерактивного пользователя.
.
ну не нравится мне, когда НАДО БЕЗ ДЕЛА запускать робота - вот он у меня всю ночь будет каждые 1-3-5 минут стартовать, проверять и завершаться? - нахрен это надо если ночью никто не работает...? ночью работают регламент в конфигураторе - робот стартанет как раз в это время и пипец - подвиснет в невидимом окне с каким-нить сообщением типа не могу запуститься...
.
а так - робот стартует только если есть пользователь.
все чики-пуки.
.
в каждой схеме есть свои достоинства и недостатки. На данный моменто мне больше нарвится "моя" схема. Но это не значит что в один прекрасный день я изменю свое мнение и сделаю "вашу" схему.
.
УНИВЕРСАЛИЗМ - ЗЛО!!
в этом я еще раз крепко убеждаюсь при внедрении у себя большой wms

(127) А что за WMS-ку внедряете, если не секрет?

(128) пока что - головная боль... и легкое недомогание... мигрень и реанимацию - преодолели ;-)
.
закончим внедрение - будет интересно - расскажу.
.
на данный момент работаем почти что штатно (ну типа как плоскогубцы без изоляции - работать можно, но осторожно! ;-)

UsersList1C.dll

(130) "Эстонские авиалинии - мы летаем быстрее паровозов!"
;-)

(131): Просто меня банили на 1 год, а тут неожиданно обнаружил, что зачем-то разбанили...   :-)

(129) На снеговике, или вообще чёй-то самостоятельное?

(133) на снеговике, специализированное.

(134) У тебя же вроде своя нетленка была неплохая - не потянула, или куроводство хочет, чтоб "как у всех" - в ногу со временем?

А что мешает использовать FormEx?

(136) ничего...

(135) когда с начскладом нарисовали план развития моей нетленки (по уму оставалось дней на 20 рабочих усидчивой работы) - начались политические игры сторонних людей по автоматизации склада.. ну и понеслось.. ;-) все как обычно. Теперь на эту автоматизацию потрачена туева хуча денег. инфраструктура стала существенно сложнее, куча допсвязкей, при этом профит пока что - очень маленький по сравнению с моей нетленкой. По прикидкам - эта автоматизация будет отбиваться/окупаться лет 4-5

Так что насчёт (130)?
Исчерпывающе закрывает тему сабжа?

(138) Понятно. Как говорится, нафига нам юркая рабочая лошадка, мы лучше купим танк и будем сами вокруг него хороводы водить, а заодно полдома перестроим, ибо он в существующие ворота почему-то не влазит...

(140) Зачет!

(140) и еще представителей заода-изготовителя вызывать для ремонта! ;-)

(139) давно уже закрыта тема сабжа ;-) юзерлист тоже звучал. то же самое делает и админ1С.вдд