Как узнать у кого "висит" Авторизация доступа? #143891

В "Мониторе", естественно нет Юзера который не зарегистрировался, но базу "держит"! Конфу не обновишь, приходится бегать по кабинетам (если они открыты) и искать: кто не набрал пароль и ушел на обед!Как можно это отследить?

Рубить все процессы 1cv77s.exe по сетке.

я для рубки юзеров определенной базы использую Admin1C от MMF. И сообщения рассылаю. Еще ДД можно посмотреть ;)

Как обычно, автор shaharbA (Abraham$)...do while Not f.AtEndOfStreamarr=split(a,vbCrLf)for i=lbound(arr) to ubound(arr)arr(i)=replace(arr(i),chr & chr,chr)nextfor each c in arrIf Res <> 0 ThenFor Each objProcessT in colProcessListif objProcessT.ProcessID=PID then

Вжик, а как этот скрипт запускать? т.е. куда его записать/как его выполнить - буквально в двух словах...А?

Посмотреть кто держит файл user.def ...

Там next по-моему забыт в конце...

Пасиба! Попробую...

Вестимо, с сервера :)) Не с РС же... тебе ее отыскать надо. А уж потом... отыметь :)))

не, наверное user.dat?

Блин неужто это все я накабузял, там помоему скрещщено (в тоже время ктото задавал вопрос как запустить скрипт удаленно с доступом к сети, этт не такто просто кстати)...

Аааа, точно, это два скрипта, один на сервере, а другой с любого места...

Ты прав, забыт :( Ты, ты, не сомневаяся ;) А после сообщения можно удаленный шутдаун жахнуть...

Вот-вот, хочется со своей рабочей машины заранить такой скрипт и поиметь нарушителя....

Можно батником, если нада то завтро в "нормальном" изложении...

ага, адрес записал, иду уже спать...

+ Кстати, это не страшно что окно открыто, это можно обходить, но надо чтоб скрипт на машине с базой работал, в нем думаю строк 10 будет...Завтра...

Ежели здесь выложишь, учти: я запишу! ;)

strComputer = "1cserver" 'Сервер баз, проверяемый...strComputerRegBase="1cserver" 'Компьютер с которого берется список баз...oExec.TerminateFor each c in Service.ExecQuery("select commandline,name from Win32_Process where (name='wscript.exe' or name='cscript.exe') and ProcessID<>" & PID)    If Button=6 then  for each c in GB    if ubound(drives)=3 then      on error resume next          do while not oExec.StdOut.AtEndOfStream      err.clear      on error goto 0    elseif ubound(drives)=0 then        do while not oExec.StdOut.AtEndOfStream  For i = LBound(arrValues) To UBound(arrValues)    do while Not Txt.AtEndOfStream      Buf=Txt.Read      if asc(Buf)>31 then    next    for each sArr In ArrЭто должно запускаться на ХР или 2003 (можно не на сервере а любой рабочей станции) работает с серверами баз под управлением 2000/ХР/2003

Запустил локально на дом.машине W2Kпоправил ашипкидаетстрока 9источник (null) и что дальше?

Ник "Тяп Ляп" в базе не найден. Зарегистрируйте ник!

А, е!

Все равно не получается...А что значит...and ProcessID<>" & PID?перед кавычкой ничего не надо...?

он домой уехал, будет в понедельник только.

For each c in Service.ExecQuery("select commandline,name,processid from Win32_Process where (name='wscript.exe' or name='cscript.exe') and ProcessID<>" & PID)Но и без этой коррекции все должно работатьНа 2000 не будет отслеживать, надо перестраивать net files использовать, и, чтобы отслеживать в терминале (если пути локальные) нужно включить глобальный флаг Maintain a list of objects for each type («Вести список объектов каждого типа») с помощью команды gflags.exe (из Support Tools)...Ник Тя Ляп в базе небыл зарегистрирован...