УЧЕБНИК ПО АВТОУСТАНОВКЕ WINDOWS
VBScript
Пример сценария VBScript, создающего ярлык (спасибо, Diamond).
Set WshShell = WScript.CreateObject("WScript.Shell") ' Создание ярлыка: Set oShellLink = WshShell.CreateShortcut("C:\Ярлык.lnk") ' Целевой путь к файлу для которого создаётся ярлык: oShellLink.TargetPath = "%SystemRoot%\system32\notepad.exe" ' Стиль открытия окна:
' 1 - Обычный размер окна; 3 - Развёрнутое на весь экран; 7 - Свёрнутое в значoк oShellLink.WindowStyle = 1 ' Клавиши быстрого вызова: oShellLink.Hotkey = "CTRL+SHIFT+F" ' Путь к файлу который содержит иконку для ярлыка: oShellLink.IconLocation = "notepad.exe, 0" ' Комментарий: oShellLink.Description = "Это тестовый ярлык" ' Рабочая папка: oShellLink.WorkingDirectory = "%SystemRoot%\system32" ' Аргументы командной строки:
' Аргументы имеют смысл если файл к которому обращается ярлык - исполняемый, т.е. имеет одно из следующих расширений: .exe; .bat; .com; .cmd; .vbs и т.д. oShellLink.Arguments = "C:\MyFile.txt" ' Сохранение ярлыка на жестком диске: oShellLink.Save
