Правильные ярлыки из WshSHell

Если нужно создать из скрипта WSH  ярлык приложения с параметрами запуска  , например при создании ярлыков через групповые политики, то можно сделать так:

Dim WSHShell
 Set WSHShell = WScript.CreateObject("WScript.Shell")
 Dim MyShortcut, MyDesktop, DesktopPath
' Место назначения ярлыка
 DesktopPath = WSHShell.SpecialFolders("Desktop")
 ' Имя ярлыка
 Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\КОРПОРАТИВНЫЙ ПОРТАЛ.lnk")
 ' Запускаемое приложение
 MyShortcut.TargetPath ="%USERPROFILE%\Local Settings\Application Data\Bromium\Application\chrome.exe"
 ' Стиль открытия окна:
 ' 1 - Обычный размер окна; 3 - Развёрнутое на весь экран; 7 - Свёрнутое в значoк
 MyShortCut.WindowStyle = 3
 ' Парамерты запуска приложения (в моем случае это адрес сайта)
 MyShortcut.Arguments = "http://tell.corp"
 ' Задаем Hotkey - сочетание клавиш быстрого вызова
 MyShortCut.Hotkey = "CTRL+SHIFT+P"
 ' Рабочая дирректория
 MyShortcut.WorkingDirectory = "%USERPROFILE%\Local Settings\Application Data\Bromium\Application\"
 ' Указываем значек, который будет у ярлыка
 MyShortCut.IconLocation = "%USERPROFILE%\Local Settings\Application Data\Bromium\Application\chrome.exe, 0"
 ' Записываем готовый ярлык в место назначения
 MyShortcut.Save

ВСЕ – Финиш!

   Отправить статью как PDF