10. Работа с ярлыками

Создание ярлыков в скриптах VBScript, ярлыки lnk и url, объект WshShell, методы CreateShortcut(), свойство SpecialFolders

Очень часто возникает задача создания ярлыков на компьютерах всех пользователей для какого-либо документа/папки/программы/принтера/Web (Intranet) ресурса. WSH позволяет создавать как обычные ярлыки (*.lnk), так и web - *.url.

Как это сделать: вначале нам нужно разобраться с путем, по которому будет помещен созданный нами ярлык. Видимо, нас интересует рабочий стол пользователя, но его папка лежит в профиле пользователя, а он сам - где угодно. Придется использовать специальный прием - свойство объекта WScript.Shell SpecialFolders:

set oShell = WScript.CreateObject (“WScript.Shell”)

DesktopPath = oShell.SpecialFolders(“AllUsersDesktop”)

ProgramsPath = oShell.SpecialFolders(“Programs”)

Последняя строчка относится к меню Start -> Programs.

Через вшитые в VBScript константы можно обращаться к Windows, System (System32), Temp, через WScript.Shell - Desktop, StartMenu, Startup, Programs (все - для конкретного и нескольких пользователей), Favorites, NetHood, MyDocuments, Recent, SendTo, Fonts и кучу прочих мест.

Само создание ярлыка выглядит так:

set oShell = WScript.CreateObject (“WScript.Shell”)

Set oShortCut = oShell.CreateShortcut(“MyText.lnk”)

oShortCut.TargetPath = “\\Myserver\myFolder\doc1.txt”

oShortCut.Save ‘так будет создан в том же каталоге, где находится скрипт

Чтобы был создан на десктопе, создание скрипта производится так:

Set oShortCut = oShell.CreateShortcut(DeskTopPath & “\MyText.lnk”) ‘ и далее по тексту

Другие свойства, о которых можно упомянуть - HotKey, IconLocation, Description, Arguments, WindowsStyle, WorkingDirectory - в общем, все, что есть в свойствах ярлыка.

Если при помощи метода CreateShortcut мы обращаемся к уже существующему ярлыку (просто совпадут путь и имя), то он будет открыт и его свойства можно будет считать/изменить.

Специальные папки, которые поддерживаются таким образом:

o       AllUsersDesktop - рабочий стол всех пользователей

o       AllUsersStartMenu - меню Start для всех пользователей

o       AllUsersPrograms - меню Program Files для всех пользователей

o       AllUsersStartup - меню Startup для всех пользователей

o       Desktop - рабочий стол данного пользователя

o       Favorites - "Избранное" (в Internet Explorer) для данного пользователя

o       Fonts -  папка "Шрифты"

o       MyDocuments - понятно

o       NetHood - добавить ярлык в сетевое окружение

o       PrintHood - добавить ярлык в принтеры

o       Programs - программы для текущего пользователя

o       Recent - последние открытые документы

o       SendTo - контекстное меню "отправить" для пользователя

o       StartMenu - меню Start для пользователя

o       Stиartup - меню Startup для пользователя

o       Templates - папка шаблонов (например, документов Office) для пользователя.

Точно таким же образом можно, к примеру, создать ссылку в папке Favorites для всех пользователей:

Dim oShell

Dim oShortCut

set oShell = WScript.CreateObject ("WScript.Shell")

FavoritesPath = oShell.SpecialFolders("Favorites")

Set oShortCut = oShell.CreateShortcut(FavoritesPath & "\AskIt.url")

oShortCut.TargetPath = "http://www.AskIt.ru"

oShortCut.Save()

Получить учебные материалы по этому курсу