Запуск пользователями 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 "Создано!"