Создать ярлык для базы 1С - просто!... Но не тривиально.

20.05.10

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

Спросил меня пользователь: "можно сделать ярлык на рабочий стол, чтобы не выбирать каждый раз базу, имя пользователя и пароль?". "Конечно можно"- ответил я.
Пользователь в другом городе. Начал я ему рассказывать, как  надо задать строку параметров, спрашивая, где лежит у него база  и т.д. Пользователь не чайник, но создать ярлык и задать корректно параметры ему так и не удалось.
"Нет проблем"- сказал я. Добавлю прямо в конфигурацию опцию "Создать ярлык".
Но тут оказалось, что из командной строки создать ярлык нельзя!?
Пришлось погуглить и вот что получилось.

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

Наименование Файл Версия Размер
СоздаемЯрлык.epf
.epf 7,78Kb
254
.epf 7,78Kb 254 Скачать


Чтобы создать ярлык, надо сначала написать скрипт на VBS (один из вариантов и скорее всего самый простой), а потом запустить этот скрипт и он создаст ярлык. :)
В общем, простая на вид задача отняла у меня часа 4. Чтобы вы не повторяли мою потерю времени воспользуйтесь нижесдедующим кодом.
Пример работы в обработке.

 

 

Скрипт = "set WshShell = WScript.CreateObject(""WScript.Shell"" )
|strDesktop = WshShell.SpecialFolders(""AllUsersDesktop"" )
|set oShellLink = WshShell.CreateShortcut(strDesktop & ""\{[ShName]}.lnk"" )
|oShellLink.TargetPath = ""{[TargetPath]}""
|oShellLink.WindowStyle = 1
|oShellLink.IconLocation = ""{[IconPath]}""
|oShellLink.Arguments = ""{[Args]}""
|oShellLink.Description = ""{[Description]}""
|oShellLink.WorkingDirectory = ""{[WorkingDirectory]}""
|oShellLink.Save";
User = ?(ЗначениеЗаполнено(Пользователь), " /N""""" + Пользователь + """"" /P"""""+ Пароль + """""", "");
СтрокаСоединения = СтрЗаменить(СтрокаСоединенияИнформационнойБазы(),"File=","/F");
СтрокаСоединения = СтрЗаменить(СтрокаСоединения,";"," ");
СтрокаСоединения = СтрЗаменить(СтрокаСоединения,"""","""""");
Скрипт = СтрЗаменить(Скрипт,"{[TargetPath]}",КаталогПрограммы()+"1cv8.exe");
Скрипт = СтрЗаменить(Скрипт,"{[Args]}", "ENTERPRISE " + СтрокаСоединения + User);
Скрипт = СтрЗаменить(Скрипт,"{[IconPath]}",ЭлементыФормы.ПутьКИконке.Значение );
Скрипт = СтрЗаменить(Скрипт,"{[WorkingDirectory]}",КаталогПрограммы());
Скрипт = СтрЗаменить(Скрипт,"{[ShName]}",ИмяЯрлыка);
Скрипт = СтрЗаменить(Скрипт,"{[Description]}",ОписаниеЯрлыка);
Файл = новый ЗаписьТекста(КаталогВременныхФайлов()+"CreateShC.vbs", КодировкаТекста.ANSI);
Файл.ЗаписатьСтроку(Скрипт);
Файл.Закрыть();
КомандаСистемы("CreateShC.vbs", КаталогВременныхФайлов());
УдалитьФайлы(КаталогВременныхФайлов()+"CreateShC.vbs");


См. также

Автоподбор ролей для профилей и групп доступа в любых типовых базах 1С УТ 11, КА 2, ERP2, Розница 2/3, УНФ 16/3, БП 3, ЗУП 3 и подобных (УФ, Платформа 8.3.14+)

Инструменты администратора БД Роли и права 8.3.14 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Документооборот 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 15.12.2023, версия 1.1.

12000 руб.

06.12.2023    2973    13    1    

34

SALE! 20%

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

10000 8000 руб.

10.11.2023    3524    11    1    

34

SALE! 30%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177737    1073    0    

849

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27375    79    146    

59

Система хранения присоединенных файлов в томах на диске

Инструменты администратора БД Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием Платные (руб)

Конфигурация Комплексная автоматизация 1.1 (и УПП 1.3 тоже) хранит файлы и изображения в справочнике Хранилище дополнительной информации в реквизите Хранилище типа ХранилищеЗначений. Та же история с ВложениямиЭлектроннойПочты. Но при этом присоединенные файлы в Электронном документообороте хранит в томах на диске. Эта доработка позволяет использовать стандартный механизм хранения файлов, изображений и вложений электронных писем в томах на диске. При этом можно разделить тома хранения по объектам конфигурации.

4200 руб.

10.11.2015    61314    88    59    

73

"Менеджер потоков 2.1": УПП: "Восстановление партий"

Инструменты администратора БД Платформа 1С v8.3 1С:Управление производственным предприятием Россия Бухгалтерский учет Управленческий учет Платные (руб)

Как оптимизировать то, что, считалось, не поддается оптимизации? Как повысить доступность базы данных? Как проводить самую «времяемкую» операцию не по паре раз в неделю, а по несколько раз в день*? Ответ есть!

20000 руб.

12.09.2019    11746    5    9    

7

Брандмауэр для сервера 1С Предприятие 8 - внешнее управление сеансами

Инструменты администратора БД Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Управление возможностью начала и возобновления сеансов пользователей по различным условиям, ограничение общего числа возможных сеансов для работы с информационной базой, резервирование возможности работы с информационной базой определенных польззователей, запрет запуска нескольких сеансов для пользователя, журнализация событий начала (возобновления) и завершения (гибернации) сеансов, ведение списка активных сеансов для информационных баз кластера серверов

3600 руб.

06.02.2017    31110    31    18    

47

Хранилище файлов на SQL

Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Управленческий учет Платные (руб)

Привязка файлов / сканов к объектам 1С с сохранением их на SQL-сервере

12000 руб.

09.10.2019    10983    5    8    

9
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Flashback1979SE 20.05.10 03:03 Сейчас в теме
Есть обработка "Конструктор командной строки". Она и ярлык создает и vbs скрипты, в том числе и зашифрованные. Вот ссылка http://infostart.ru/public/15782/
kosilov; gutentag; +2 Ответить
5. kosilov 275 20.05.10 11:29 Сейчас в теме
(1) Да, я видел эту обработку, но меня смутило, что она платная. Я скачал главный файл, а там только параметры. Только сейчас заметил, что сама обработка выложена дополнительным файлом уже бесплатно.
2. alexk-is 6533 20.05.10 09:45 Сейчас в теме
(0) Ярлык для пользователя с паролем пользователя лучше делать на рабочий стол пользователя, а не на общий. Сам ярлык можно создать так.
WScript = Новый COMОбъект("WScript.Shell");
ИмяФайлаСсылки = WScript.SpecialFolders.item("Desktop") + "\1cv8.exe.lnk";
ИмяИсполняемогоФайла = КаталогПрограммы() + "1cv8.exe";
ФайлСсылки = WScript.CreateShortcut(ИмяФайлаСсылки);
ФайлСсылки.IconLocation = ИмяИсполняемогоФайла ;
ФайлСсылки.TargetPath = ИмяИсполняемогоФайла ;
ФайлСсылки.Arguments = "ENTERPRISE " + СтрокаСоединения;
ФайлСсылки.Save();
Но будет виден пароль пользователя. Как спрятать пароль можно подглядеть тут http://www.infostart.ru/public/19363/
3. kosilov 275 20.05.10 10:45 Сейчас в теме
(2) Да так лучше, так как не будет выскакивать окно коммандной строки при создании ярлыка. К сожалению, я не нашел этого кода когда мне надо было.
4. alexk-is 6533 20.05.10 11:17 Сейчас в теме
6. alexk-is 6533 20.05.10 14:46 Сейчас в теме
Во вложении вариант попроще, но с поддержкой SQL :)
Прикрепленные файлы:
СозданиеНаРабочийСтолЯрлычкаЗапускаИБ.epf
orehova123; nosoftyes; +2 Ответить
15. kosilov 275 22.05.10 23:19 Сейчас в теме
(6) Дык, уже б доделал, чтобы с паролем и картинкой. :)
17. alexk-is 6533 24.05.10 06:37 Сейчас в теме
(15) Это ведь не моя тема. Я сделал так, как мне нужно. У меня SQL.
Да, и картинка там есть - типовая.

Если есть желание доделать, то не вижу проблем добавить ещё одно поле ввода и собрать строку параметров.
7. D9ID9I_SaIIIa 58 20.05.10 16:09 Сейчас в теме
:D работает!
раньше не требовалось,но сейчас буду использовать.спасибо
8. dobraleks 136 20.05.10 17:28 Сейчас в теме
(0) что-то я не понял как для 77 сделать ярлык, пожна по подробнее.
9. D9ID9I_SaIIIa 58 21.05.10 11:31 Сейчас в теме
10. Performer 71 21.05.10 16:52 Сейчас в теме
А скрипты только на VBS можно писать? Или 1С: 8.1 поддерживает другие языки программирования? Совместима с Deiphi, C#?
11. Abadonna 3958 21.05.10 17:52 Сейчас в теме
А скрипты только на VBS можно писать

А как ты себе скрипт на Дельфи представляешь? ;) Если это не скриптовый язык
12. aka AMIGO 60 22.05.10 08:34 Сейчас в теме
скачал, запускаю в 8.1, чтобы поучиться уму-разуму - "Ошибка доступа к файлу".
так и задумано?
13. alexk-is 6533 22.05.10 09:08 Сейчас в теме
(12) Посмотри пост (6). Там всё работает, а в свете http://www.infostart.ru/public/70593/ , то такой вариант (без хранения пароля) будет правильнее.
18. aka AMIGO 60 24.05.10 14:00 Сейчас в теме
(13) спасибо!

(14) да при открытии в конфигураторе 8.1 (УПП) :(
ладно, дружище, не парься.. есть более насущные дела, чем заниматься моими проблемами :)
14. kosilov 275 22.05.10 23:16 Сейчас в теме
(12) Можно поподробнее? Протрейсь и посмотри кто и когда ругается.
Я код выкусил из своей конфы и добавил только обвеску. Изначальный код работал на XP и Vista в 8.1
Обработка проверялась на XP. Если запускал не под админ правами, то надо изучать что, да как.
Если не идет так, попробуй с помощью ком объекта, как предложил кажется alexk-is ниже в комментах.
16. kosilov 275 22.05.10 23:21 Сейчас в теме
А что касается безопасности, то не всегда есть что скрывать и от кого.
Если в базе государственные тайны, то будь бодр набери пароль и имя пользователя.
А еще сетчатка глаза и отпечатки левой ступни ноги. :)
Оставьте свое сообщение