gifts2017

Запуск 1С под заданным пользователем как службы (service) Windows

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

Позволяет запустить любую конфигурацию 1С 8 как службу Windows

Не так давно, передо мной встала задача, сделать так чтобы регламентные задания 1С, в файловой базе, выполнялись постоянно, но при этом никому бы не приходилось держать открытой 1Ску под пользователем регламентных заданий. 

Так как конфигурация была переписана, и некоторые (дописанные) задания требовали наличия полных прав (а переписывать всё в привилегированный модуль было долго и лень ;) ), то было решено запускать 1Ску под пользователем с полными правами, и прятать окно 1С с рабочего стола чтобы кому-либо не было доступа к интерфейсу программы.

Лучшим вариантом стал запуск 1С как службы. 

Исходный код написан на Delphi

Для тех, кто не сможет скомпилировать исходники сервиса, поменяв в коде логин и пароль пользователя для запуска 1С, для них есть скомпилированный файл сервиса со встроенным логином: "ServiceAdmin" и паролем: "MegaPassword" без кавычек, и с соблюдением регистра. Нужно будет только добавить этого пользователя в базу и задать ему этот пароль.

И самое главное! Если в конфигурации у пользователей есть настройка типа "Запрашивать подтверждение при закрытии программы" или любые её разновидности, которые не закрывают 1С, а выводят какие-нибудь сообщения и ждут действия пользователя перед закрытием, то для этого пользователя необходимо их ОТКЛЮЧИТЬ, иначе процесс 1С зависнет и сервис не сможет остановится ожидая закрытия 1С. Останется только срубать 1С через ctrl+alt+del.

 

Настройка сервиса производится в файле service.ini. Для удобства редактирования файла настроек, а также установки/запуска/остановки сервиса, используется ServiceSetupGUI.exe. С настройками, думаю, не возникнет проблем. Все на русском.

Есть еще один нюанс по остановке сервиса и как следствие закрытию 1С. В настройках сервиса есть галка "Останавливать 1С посылкой wm_close". Она означает, что для закрытия 1С главному окну программы будет послана winapi-комманда WM_CLOSE, что примерно аналогично нажатию крестика "Закрыть" в окне программы. И в большинстве случаев этого будет достаточно. НО, в моей конфигурации нужно было обязательно выполнить, на важно какие, действия перед закрытием 1С, а wm_close бывало приходило раньше, чем они завершались, и 1с закрывалась. Так вот, в этом случае можно убрать галку "Останавливать 1С посылкой wm_close", в этом случае сервис создаст файл "wm_close" в папке, которая будет указана в настройке "Общая с 1С папка для записи файла", и тогда в 1С для нашего пользователя в процедуре ПриНачалеРаботыСистемы можно подключить обработчик ожидания, в котором проверять, не появился ли в нашей папке файл wm_close, и если он там есть, то выполнять необходимые нам действия, после чего вызывать ЗавершитьРаботуСистемы( Ложь ); Сервис дождётся завершения 1С и остановится. Путь к этой папке в 1С у меня хранится в константе, хотя можно его и в коде прописать, если уверены что папка ни куда переедет.

На счет прав. При установке сервиса кнопкой "Установить" из ServiceSetupGUI у пользователя должны быть права администратора. Также если для остановки сервиса через создание файла wm_close  в папке нужно проследить чтобы у соответствующих пользователей были права на запись и удаление файлов в этой папке.

Сервис по умолчанию имеет Тип запуска - автоматически, т.е. при загрузке компа сервис стартанет и запустит 1С. Тип запуска можно сменить либо в Delphi, либо в свойствах службы в оснастке Windows.

В принципе вроде всё, будут вопросы пишите : )

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

Наименование Файл Версия Размер
1C-AsService.rar 170
.rar 735,15Kb
23.11.11
170
.rar 735,15Kb Скачать

См. также

PowerTools от 1 000
Подписаться Добавить вознаграждение
Комментарии
1. Иван (Spartan) 24.11.11 17:54
Все это классно и безусловно полезно, но решается гораздо проще с помощью стандартных утилит от мелкомягких instsrv.exe и srvany.exe, входящих в состав Recource Kit для Windows. С помощью них можно запустить любое приложение как сервис, в том числе и 1С.
2. vkr (vkr) 25.11.11 08:14
(1) А почему бы автору не освоить системное программирование - пусть даже в применении к 1С ?
Чем он хуже Гейтса и Нуралиева ? :)
3. Павел (UPSoft) 25.11.11 11:08
(1) Spartan, Ну, на самом деле, в моем случае сервис выполнял намного больше функций, там было и бэкапирование и получение/отправка всякихнужныхфайлов, и работа с вебсервисом, вобщем помогал 1Ске с документооборотом... просто я подумал что это может кому-нибудь пригодится, тому кто не знает об instsrv.exe и srvany.exe, а перед ним стоит подобная задача. Всё "ненужное" я почистил оставив основу, на которую уже можно, по желанию, прикрутить всё что угодно...
4. Иван (Spartan) 25.11.11 20:54
(2),(3) ок, уговорили... :) в любом случае достойно уважения, раз сам написал. плюсую!
5. Павел (UPSoft) 28.11.11 14:17
качают, а плюсы не ставят :( тут всегда так?
6. Андрей Акулов (DrAku1a) 30.11.11 06:58
(5) Бывает и наоборот... Плюсуем если идея понравилась, но не качаем (оставляем зарубку на будущее).
7. D.S. Denton (D.S.Denton) 30.11.11 12:23
отлично! плюсик в карму за то, что не лень было сделать такое и предусмотреть возможные типично 1совские косяки.

не качал, поэтому спрошу - с какими параметрами создается сервис? и - гуя сразу вносит запись в реестр или вызывает SC.exe?

то бишь есть важные моменты:
type= own или share?
есть ли дополнительно interact?
поведение при невозможности старта?
8. Павел (UPSoft) 30.11.11 15:29
(7) D.S.Denton,
Сервис регистрируется выполнением из gui команды "Service.exe \install", удалить сервис можно, соответственно, командой "Service.exe \uninstall", из меню пуск-выполнить... Такой кнопки в gui нет.

>>поведение при невозможности старта?
ни как не обрабатывается

Это полноценный сервис, созданный наследованием от класса TService из SvcMgr.

SC.exe тут вообще не используется, поэтому вопросы про type = own или share и interact не актуальны.
D.S.Denton; +1 Ответить 2
9. Dima Dima (dumal) 30.11.11 16:57
Разработка безусловно полезна. Самое главное достоинство, на мой взгляд - открытые исходники
10. Сергей Ананьев (sir_sva) 30.11.11 18:54
+, качаю как пример сервисов в Дельфи. 1с устраивает в стандарте
11. San Simonov (simgo83) 01.12.11 08:05
Необходимо добавить на форму имя пользователя и пароль для 1С, а не программно их привязывать, и плюсов будет гараздо больше, а так нужно еще среду разработки Delphi иметь.
12. Павел (UPSoft) 01.12.11 10:50
(11) simgo83, как правило такой пользователь имеет полные права, и одной из целей, было скрыть имя и пароль этого пользователя от кого-либо.
14. Il Il (Il) 02.12.11 08:54
Надо будет качнуть - возможно пригодиться.
15. Александр Сазонов (Asaqura) 05.12.11 01:57
Il пишет:

Надо будет качнуть - возможно пригодиться.
16. Тарас (softest) 08.12.11 19:55
удобная вечь я так тоже запускал фоновый задания!
17. A (Kochevnic) 08.12.11 21:14
Спасибо! Попробуем на практике
18. Александр Зубцов (iov) 09.12.11 09:15
(0) а бекап файловой базы чем при работающем "сервисе" делаете? И как боретесь с на запланированным открытием модальных окон ?
19. Павел (UPSoft) 09.12.11 11:26
(18) я не писал что сервис делает бэкапирование. Он просто запускает 1С. А при остановке, пытается её закрыть. И всякие "модальные окна" и т.п. в 1С, уже на том кто этим пользуется, и как раз об этом я в статье предупреждаю.
20. Александр Зубцов (iov) 09.12.11 11:28
(19)
а бекап файловой базы чем при работающем "сервисе" делаете?
Я тоже не писал что сервис этим занимается - а написал чем делаете бекап при условии что сервис запущен...
21. Павел (UPSoft) 09.12.11 11:37
(20) iov, в моем сервисе (3), происходит так:
1) остановка 1с запущенной сервисом
2) запрет работы пользователей, дожидаюсь пока все выйдут.
3) бэкапирование 1Ской, через командную строку.
4) разрешение работы пользователей
5) старт 1Ски

Повторюсь, что здесь выложен сервис который только запускает 1С, и ничего выше перечисленного не делает.
22. Александр Зубцов (iov) 09.12.11 11:42
(21) ok

может поможет в дальнейшем
1)
бэкапирование 1Ской, через командную строку.
Кране не надежная вещь.

2) если между 2 и 4 произойдет завершение или иное действие которое не позволит выполнить 4 пункт - сами догадайтесь.

А в остальном как и предполагал - высчитывание времени имеет место быть.
23. Павел (UPSoft) 09.12.11 11:48
(22) iov, если что-то упадет между 2 и 4, есть блок Finally в котором работа пользователей всё равно разрешится, + спецальнообученый человек с ярлыком для того же действия, а если упал сервис то при повторном запуске проверяется нужно ли разрешить работу пользователям.
и я вообще не понимаю какое отношение имеет мой сервис, который здесь не выложен, к данной публикации.
24. Александр Зубцов (iov) 09.12.11 11:54
(23) Просто спросил как делается бекап. ПРОСТО интересно - мне по* правильно или нет.
Просто интересно чем люди пользуются...
А тема может быть хоть про обрезание пуповины у страусов на аляске.
Ответили - спасибо. не ответили - ну заняты значит...
Лови плюс - в качестве компенсации.
25. Сергей Белоус (seakuban) 09.12.11 13:04
публикация - http://infostart.ru/public/101168/ - о запуске 1с в фоновом режиме как регламентного задания))
26. Антон Руль (squeez) 12.12.11 11:33
А почему бы не сделаьб ввод логина и пароля в файле настройки? Тогда и компилить не прийдётся. Просто не всегда есть под рукой установленный Delphi....
27. Павел (UPSoft) 12.12.11 11:38
(26) squeez, я уже писал об этом (12). и также о том что есть скомпилированный сервис с логином и паролем.
28. Роман (Raminus) 12.12.11 12:19
30. Ефим Шувиков (netmate) 11.01.12 02:21
А если используется две базы БП 2.0 и УТ 11, то возможно использование данной разработки для проведения процесса обмена между вышеназванными конфигурациями по регламентным заданиям?
31. Альберт Борисевич (mob51) 16.01.12 15:24
Подскажите возможно ли создать таких служб несколько штук, но так что бы они не пересекались? заранее благодарен за ответ=)
32. Василь Галимов (Baser) 17.01.12 08:34
Я пробовал вручную через SC прописать. Прописалось, но вот запускаться не хотит: сразу отвечает что не получен ответ от службы. Хотя такая ошибка обычно происходит через 30 сек. после попытки запуска службы.
Вот поэтому вопрос: что именно у Вас прописано в поле "Исполняемый файл".
Скачать не могу, т.к. виртуальных денег не хватает :(
33. Василь Галимов (Baser) 17.01.12 08:47
Еще только заметил, что в процессах она все же появилась и ничего не делает.
34. Сергей Белоус (seakuban) 17.01.12 08:57
(33) Baser, может проблема в том что для текущей учетки не зарегистрирована эта база? см. http://infostart.ru/public/101168/
35. Василь Галимов (Baser) 17.01.12 09:15
не должно, потому как использую свой логин для запуска службы
36. Альберт Борисевич (mob51) 17.01.12 09:50
исполняемый файл Service.exe
37. Павел (UPSoft) 17.01.12 11:05
38. Павел (UPSoft) 17.01.12 11:07
(31) mob51, можно, если перекомпилировать сам сервис и обозвать их по разному ( поле Name в (8) ), т.к. запуск сервиса происходит по его имени. И если нужно будет то и в ServiceSetupGUI, в коде, тоже поменять имя сервиса на новое.
39. Василь Галимов (Baser) 18.01.12 11:06
погуглил: сама 1c через sc.exe не заведется. Поэтому нужны такие самописные службы
Тогда вопрос следующего содержания: как бы запустить с параметрами, а именно хочется выходной файл /outC:\Result.txt прописать.
40. Павел (UPSoft) 18.01.12 11:32
(39) Baser, перекомпилировать сервис, и добавить всё что захочется.
41. Алекс Латышев (kronos87) 21.02.12 11:32
Тоже пробовал запускать 1С в качестве службы (правда через anyserv.exe).
Делал это для организации автообмена между рабочим местом менеджера магазина и кассой (на базе 1С8:Розница).
Все провалилось из-за того, что полученная служба не имела доступа к сетевым ресурсам и обмен не мог выполниться.

Вопрос: Можно ли при помощи этой утилиты решить подобную проблему.
PS: Каталог обмена находится на PC манагера.
42. Ефим Шувиков (netmate) 21.02.12 12:13
(41) kronos87, всё решается намного проще. Запускаешь 1С из шедулера с параметрами:
"C:\Program Files\1cv82\Bin\1cv8c.exe" ENTERPRISE /IBConnectionString"File=""C:\Инфорационная база"";" /NВасилий /PПароль /C"DoScheduledJobs SkipMessageBox AloneIBSession"


Для надёжности запускаешь каждый час. Параметр AloneIBSession не даст запустить вторую копию, если первая жива.
43. Алекс Латышев (kronos87) 21.02.12 13:53
netmate, Спасибо,попробую. Таки было чувство что должен быть вариант попроще.
46. Ефим Шувиков (netmate) 21.02.12 14:11
(43) kronos87, я этот вариант взял из инструкции к 1С :D Он просто не может не работать.
47. metal doctor (metmetmet) 21.02.12 19:22
(41) kronos87,
(42) netmate, А можно еще это оформить в виде batch или wsh скрипта, чтобы придать гибкость настройки и запускать задание под другим пользователем, тогда никому "лишняя" 1C'ка мешаться не будет. правда в таком случае не получится корректно завершить 1С'ку, если конечно этого не предусмотреть заранее ;)
48. Ростислав Кузьмин (Kuzja_R) 19.10.12 00:30
(11) simgo83, (26) squeez, (31) mob51, (39) Baser,
решение вопроса - http://infostart.ru/public/157107/
49. Evgenii Komarov (KEV8383) 19.10.12 15:43
Как указать режим запуска сеанса, чтобы он выполнял регламентные задания? (1С 8.2.16.362, УТ 11)
50. Evgenii Komarov (KEV8383) 19.10.12 16:04
DoScheduledJobs
SkipMessageBox
AloneIBSession
51. Павел Хорев (w22u) 29.03.13 12:58
Есть ещё альтернативный способ: нужно запустить 1С на рабочем столе пользователя, предварительно запустив у него приложение "Tray It!" в котором нужно создать профиль для этой копии, который свернёт и спрячет окно из панели задач и из трея. Сама программа "Tray It!" своё присутствие в трее также может успешно скрывать.