Информационный поток
Задания вакансии материалы разработки сообщения форума
Рубрики статей и материалов
Яндекс-директ

Запуск пользователями 1С без открытия списка баз

  • Добавить свою публикацию
  • для этого требуется регистрация
Логачев А В
10.04.2013
>
+2

Тут у меня на работе возникла необходимость написать скриптик который бы добавлял ярлык 1С с параметрами определенной базы. Так как есть не очень сообразительные пользователи)))

если вдруг кому то понадобится то вот код.

 

Const HKEY_CURRENT_USER = &H80000001
Dim WSHShell, fs
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Title = "Создание ярлыка 1С и прописка базы в меню запуска 1С"
ButOKCancel = 4
IconInformation = 32
TextMessage = "Создать ярлык 1С на рабочем столе?"
intDoIt_1 = WSHShell.Popup(TextMessage, 0, Title, ButOKCancel + IconInformation)
If intDoIt_1 = 6 Then
Function MakeDesktopShortcut( name, target, nnn )
Dim Shortcut,DesktopPath,StartupPath
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" & name & ".lnk")
Shortcut.TargetPath = target

// задаем параметры 1С


Shortcut.Arguments = "ENTERPRISE /S"+ nnn
StartupPath = fs.GetParentFolderName( target )
If fs.FolderExists( StartupPath ) then
Shortcut.WorkingDirectory = StartupPath
End If
Shortcut.Save
End Function
MakeDesktopShortcut "название ярлыка", "путь до файла 1cv8.exe" , "имясервера\имябазы"
End If

WSHShell.Popup "Создано!"

 
0
Читайте также
1С бухгалтерия настройка
Начальным этапом работы с программой 1С Бухгалтерия является настройка программы. При настройке вводится справочная информация, используемая в дальнейшем для заполнения документов и отчетов.
Простейший способ очитить БД от мусора и исправить ошибки
Привести в порядок базу данных в Бухгалтерии (все проводки удвоены)
Распределенная Информационная База (Управление Торговлей 11)
"УТ 11 как растроить распределенную информационную базу"
Разработки
Автоматическое резервное копирование: Effector saver 3
Резервное копирование методом архивирования баз данных
Конфигурация IT-сервис.(Управляемое приложение)
Конфигурация для фирм, занимающихся подключением к интернету
≡ к списку статей