gifts2017

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

Опубликовал Петр Власюк (Tempus) в раздел Администрирование - Системное

Вам надоели пользователи которых нужно выгонять из базы, когда их уже нет на работе?
Предлагаю выгонять вот так :)
Предупреждение("Технолог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");

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

Наименование Файл Версия Размер
Выгонялка 966
.1226647834 1,56Kb
20.10.14
966
.1226647834 1,56Kb Бесплатно

См. также

Подписаться Добавить вознаграждение

Комментарии

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

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

Цикл тебе в руки и пищи сколь угодно долго :)
25. vladal (Vladal) 14.04.09 12:45
За юмор плюс. Я проще сделал - проверку по константе "Выключать" в выходные. Если кто-то хочет работать в выходные, константа обнуляется.
27. Артур Аюханов (artbear) 14.04.09 13:39
Еще бы с "соседского" языка перевести заяву гендиру для полного понимания :)
28. Михаил Протас (protas) 06.12.09 21:33
Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку("Вы не вышли из базы 1С!
|Выходить ОБЯЗАТЕЛЬНО!!!
|
|
|Генеральному директору
|....
|....
|
|
|Заявление
|
|
|
|Прошу уволить меня по собственному желанию, в связи с несоответствием занимаемой мною должности.
|
|
|
|
|Подпись Дата");
Текст.Записать(СокрЛП(КаталогПользователя())+"1C.txt");
29. Рожков Сергей Васильевич (SVR27) 10.06.11 11:52
А самое интересное будет, если этот скрипт запускать на терминальном сервере :)
30. Анатолий (Anatolka) 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. aaa aaa (a_a) 16.02.12 08:02
как-то не очень понравилась
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа