Пятничная выгонялка пользователей

14.11.08

База данных - Инструменты администратора БД

Вам надоели пользователи которых нужно выгонять из базы, когда их уже нет на работе?
Предлагаю выгонять вот так :)

Скачать файлы

Наименование Файл Версия Размер
Выгонялка
.1226647834 1,56Kb
1387
.1226647834 1,56Kb 1387 Скачать бесплатно
Предупреждение("Технологiчна перерва."+РазделительСтрок+"Будь ласка, запишiться i вийдiть з програми"+
РазделительСтрок+РазделительСтрок+"Ваш комп'ютер буде перезавантажено за 60 секунд!",15);

ТекстФункции = "Public Function GetNeededFolder()
|set WshShell = CreateObject(""WScript.Shell"")
|str = WshShell.SpecialFolders(""Startup"")
|GetNeededFolder = str
|End Function";
ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language="vbscript";
ScrptCtrl.AddCode(ТекстФункции);
Автозагрузка = ScrptCtrl.Modules("Global").CodeObject.GetNeededFolder();

Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку("Вы не вышли из базы 1С!
|Выходить ОБЯЗАТЕЛЬНО!!!
|
|
|Генеральному директору
|....
|....
|
|
|Заява
|
|
|
|Прошу звільнити мене за власним бажанням, у зв'язку з невідповідністю до моєї посади.
|
|
|
|
|Підпис            Дата");
Текст.Записать(СокрЛП(КаталогПользователя())+"1C.txt");

Скрипт = СоздатьОбъект("Текст");
Скрипт.ДобавитьСтроку("Set WSHshell = WScript.CreateObject(""WScript.Shell"")");
Скрипт.ДобавитьСтроку("WSHshell.Run ""notepad.exe "+СокрЛП(КаталогПользователя())+"1C.txt"+""", 1, TRUE");
Скрипт.ДобавитьСтроку("Set FSO = CreateObject(""scripting.filesystemobject"")");
Скрипт.ДобавитьСтроку("FSO.deletefile """+СокрЛП(Автозагрузка)+"\1С.vbs"""+", True");
Скрипт.Записать(СокрЛП(Автозагрузка)+"\1С.vbs");

КомандаСистемы("shutdown -r -t 60");

См. также

Монопольное открытие формы обработки 1с77

Инструменты администратора БД Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Блокировка открытия формы обработки одним пользователем.

1 стартмани

24.05.2023    586    igor7777    1    

0

Групповое переименование файлов для 1С 7.7

Инструменты администратора БД Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Простецкий скрипт переименования файлов в папке в нижний регистр, будет полезен программистам и системным администраторам имеющим навыки програмирования в 1С. Можно легко настроить под себя, спасает мне периодически час времени, может, кому еще будет полезен.

1 стартмани

18.02.2022    3780    0    igor7777    6    

2

[7.7 ТиС. СТОП-БАРДАК] Автоперенос непроведенных документов на текущий день

Инструменты администратора БД Оперативный учет 7.7 1С:Торговля и склад 7.7 Управленческий учет Абонемент ($m)

Боремся с бардаком. Работы в прошлых датах запрещены. Непроведенные документы (по разным причинам) - автоматом переносятся в начало текущего дня при запуске любого первого сеанса 1С в текущем дне. Задержка старта 1С - практически незначима. Не требует настройки, не требует допрограммирования (исключая один оператор вставки в процедуру старта системы). Можно обработку выполнять вручную с любой периодичностью.

2 стартмани

25.05.2020    5684    2    CheBurator    3    

2

Анализ 1С: Предприятие 7.7 с помощью ELK стека

Журнал регистрации Инструменты администратора БД Платформа 1С v7.7 Конфигурации 1cv7 Бесплатно (free)

Рассмотрим систему на базе Elasticsearch, Logstash и Kibana (ELK Stack) для анализа логов 1С Предприятие 7.7 с целью визуализации и анализа событий 1С.

22.01.2019    11093    phsin    20    

27

Автоматическое объединение конфигураций 1С 7.7

Инструменты администратора БД Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Скрипт позволяет выполнить объединение конфигураций и реструктуризацию из командной строки. Объединение выполняется штатными средствами конфигуратора 1С 7.7, взаимодействие с которым происходит путем посылки нажатий клавиш. Пригодится, если есть необходимость обновить или постоянно обновлять множество ИБ.

1 стартмани

22.04.2017    15665    4    devlabnn    2    

6

Перепроведение по счету

Инструменты администратора БД Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Украина Бухгалтерский учет Абонемент ($m)

Перепроведение по счету для конфигурации Бухгалтерский учет для Украины, 1С: Предприятие 7.7

1 стартмани

23.09.2016    3745    1    Genyak    1    

0

Решение проблем с печатью, предварительным просмотром печати, пакетной печатью 1С: 7.7 в терминале

Инструменты администратора БД Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Периодически сталкивался со следующими проблемами при печати в 1С: 7.7 работающей под терминалом: 1) После замены принтера на клиентской машине 1С пытается печатать на старый принтер. 2) Отсутствует предварительный просмотр при печати. 3) Не работает печать без предварительного просмотра (пакетная печать документов). 4) В некоторых формах печатает, в некоторых нет.

1 стартмани

09.06.2016    27128    18    tux    3    

1

Логирование в 1С

Инструменты администратора БД Платформа 1С v7.7 Платформа 1С v8.3 Бесплатно (free)

Часто бывает необходимо отслеживать состояние часто повторяющихся регламентных заданий. Например, синхронизация данных с IP-телефонией, которая может производиться каждую минуту, синхронизация с сайтами, синхронизация данных с различными системами. Использовать для этих целей логирование 1С чрезвычайно неэффективно и не удобно. В таких случаях удобно использовать подход, применяемый в Unix-системах: писать логи в обычные текстовые файлы, а потом делать их обработку через эффективно работающие Unix-команды: grep, tail, cat, less и т.п.

18.05.2016    34944    rudjuk    21    

33
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Ёпрст 1063 14.11.08 10:32 Сейчас в теме
2. Tempus 94 14.11.08 10:34 Сейчас в теме
3. Душелов 4013 14.11.08 10:41 Сейчас в теме
4. vasilykushnir 63 14.11.08 11:21 Сейчас в теме
C юморком сделано. + однозначно.
Я понимаю, что Одесса такооой город... Да! Пусть меня обворуют, но с юмором - мне же приятно будет...
Altair777; +1 Ответить
5. Altair777 644 14.11.08 11:23 Сейчас в теме
(0) надо сразу на принтер печатать - в ОК или в приемную :-)
6. Душелов 4013 14.11.08 11:28 Сейчас в теме
(5) Ага, и в ЗиК приказ формировать.
7. Altair777 644 14.11.08 11:54 Сейчас в теме
(6) но можно сначала виновному/ой СМС-ку скинуть
намекнуть, что ящик пива поможет (если с рыбой) :-)
9. Tempus 94 14.11.08 15:17 Сейчас в теме
8. andrewalexk 14.11.08 14:49 Сейчас в теме
10. support 4484 15.11.08 04:29 Сейчас в теме
7)+ я сначала подумал, СМСку о том, что в оформлен приказ...
11. MegaMouse 372 15.11.08 15:44 Сейчас в теме
С юмором все впорядке, плюс
12. murat_ 33 17.11.08 06:40 Сейчас в теме
Оригинально! :)))
Пять балов!
13. vkr 26.11.08 12:00 Сейчас в теме
(0) +5
- Чпок! - вякнула напоследок 1С и погасла...
- Тудыть твою в качель! - сказали суровые киевские мужики... Ж8-)))
14. folt 28.11.08 11:44 Сейчас в теме
Люди, хелп. Я не очень соображаю в 1С программинге, но тема реально актуальна.
Куда эту штуку прописать, и как запускать? Очень нужно.
Спасибо.
15. Душелов 4013 28.11.08 11:50 Сейчас в теме
16. folt 28.11.08 11:59 Сейчас в теме
17. 02225@rambler.ru 18.12.08 20:08 Сейчас в теме
18. sdkard 71 03.01.09 18:51 Сейчас в теме
19. dobraleks 136 14.01.09 16:32 Сейчас в теме
мда жестковато. Но не каждый поймет такой выход.
Самому приходиться вечно с этой проблемой сталкиваться.
Приучил немножко по другому.
Шлю во внутреннем чате 1с сообщение с выходом. Сперва мало кто реагировал, потом предупредил всех что выгону принудительно и если ихние доки несохранены будут повторно руцями набирать.
Первые два раза возвущались потом привыкли.

Есть еще маленькая идея может кто подскажет как реализовать.
Задумка такая чтоб в 1с в чате посылаешь всем сообщение (типа всем у кого открыта 1с) и у бухом на компе начинает ПИЩАТЬ СПИКЕРФОН (колонкине у всех есть а спикер у всех).
Может кто знает как заставить спирек пищать??
Altair777; vasilykushnir; +2 Ответить
20. vasilykushnir 63 14.01.09 16:39 Сейчас в теме
(19) И правильно! Юзеров, жену и собаку надо на место ставить сразу!
Про пищалки и матюгальники спроси у ЧеБурашки - он спец по этим делам.
21. Altair777 644 14.01.09 16:41 Сейчас в теме
и чтоб оно еще и пищало какую-то похабщину :-)
22. dobraleks 136 14.01.09 16:48 Сейчас в теме
почему хочю чтоб пищало потому что юзеры могут свернуть терминал, а если будт пишать и юзер вышел, значит его терминал закроет соседний юзер..
Ну типа звуковая атака..:-)
23. Altair777 644 14.01.09 17:11 Сейчас в теме
а похабщина для усиления атаки )
можно низкопробный "шансон"
24. CERBER 01.04.09 18:52 Сейчас в теме
В хелпе 1С-ки написано.
Сигнал - Вывести звуковой сигнал.
Синтаксис: Сигнал()
Англоязычный синоним: Веер
Описание: Процедура Сигнал издает короткий звуковой сигнал.
Пример: Сигнал();

Цикл тебе в руки и пищи сколь угодно долго :)
25. v.l. 434 14.04.09 12:45 Сейчас в теме
За юмор плюс. Я проще сделал - проверку по константе "Выключать" в выходные. Если кто-то хочет работать в выходные, константа обнуляется.
26. v.l. 434 14.04.09 12:52 Сейчас в теме
27. artbear 1448 14.04.09 13:39 Сейчас в теме
Еще бы с "соседского" языка перевести заяву гендиру для полного понимания :)
28. protas 06.12.09 21:33 Сейчас в теме
Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку("Вы не вышли из базы 1С!
|Выходить ОБЯЗАТЕЛЬНО!!!
|
|
|Генеральному директору
|....
|....
|
|
|Заявление
|
|
|
|Прошу уволить меня по собственному желанию, в связи с несоответствием занимаемой мною должности.
|
|
|
|
|Подпись Дата");
Текст.Записать(СокрЛП(КаталогПользователя())+"1C.txt");
29. SVR27 10.06.11 11:52 Сейчас в теме
А самое интересное будет, если этот скрипт запускать на терминальном сервере :)
30. Anatolka 2 10.06.11 12:12 Сейчас в теме
ну если админ такое предупреждение не получит, то ничего
31. i_konnov 28.09.11 22:17 Сейчас в теме
Будем бороться с забывчивыми пользователями этой обработкой. Спасибо
32. tgnike 08.11.11 12:31 Сейчас в теме
Вау.. Вот это будет прикол. Завтра проверю+))
33. Мать Тереза 18.01.12 15:37 Сейчас в теме
34. a_a 16.02.12 08:02 Сейчас в теме
как-то не очень понравилась
Оставьте свое сообщение