Предупреждение("Технолог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");
Пятничная выгонялка пользователей
База данных - Инструменты администратора БД
Предлагаю выгонять вот так :)
См. также
[7.7 ТиС. СТОП-БАРДАК] Автоперенос непроведенных документов на текущий день
2 стартмани
25.05.2020 5704 2 CheBurator 3
Решение проблем с печатью, предварительным просмотром печати, пакетной печатью 1С: 7.7 в терминале
1 стартмани
09.06.2016 27238 18 tux 3