Предупреждение("Технолог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"); Пятничная выгонялка пользователей
14.11.08
База данных - Инструменты администратора БД
Вам надоели пользователи которых нужно выгонять из базы, когда их уже нет на работе?
Предлагаю выгонять вот так :)
Предлагаю выгонять вот так :)
Скачать файл
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
