Скрипт создания ярлыка Гарант.
Shortcut.vbs
Код:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strTemp = "\\server\Garant-Server\"
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortCut= WshShell.CreateShortcut(strDesktop & "\ГАРАНТ Платформа F1 ЭКСПЕРТ.lnk")
oMyShortCut.TargetPath = "\\server\Garant-Server\garant.exe"
oMyShortCut.WorkingDirectory = strTemp
oMyShortCut.Description = "Запустить Гарант"
oMyShortCut.Save
