Выпуск #08

"Vbs, whs, js скрипты для администратора"

9 сентября 2008

Дорогой подписчик в этом номере заканчиваем рассмотрение объектов коллекций рассмотрением объекта WshSpecialFolders.

Объект WshSpecialFolders Объект WshSpecialFolders обеспечивает доступ к коллекции, содержащей пути к специальным папкам Windows (например, к рабочему столу или к меню кнопки "Пуск" (Start)); задание путей к таким папкам может быть необходимо, например, для создания непосредственно из сценария ярлыков на рабочем столе. В таблице 1 представлены поддерживаемые в Windows 9x (95,98,Me) имена специальных папок: Таблица 1 Специальные пути для Windows 9x Наименование Описание Desktop Путь к рабочему столу Favorites Избранное Fonts Путь к шрифтам My Documents Мои документы NetHood Сетевое окружение PrintHood Путь к принтерам Programs Подменю "Программы" кнопки "Пуск" Recents Подменю "Документы" кнопки "Пуск" SendTo подменю Отправить из контекстного меню файлов StartMenu Главное меню Startup Подменю "Автозагрузка" из подменю "Программы" Templates Шаблоны В Windows NT/2000/XP/Vista дополнительно можно получить доступ к еще четырём папкам, которые хранят данные для всех пользователей: Таблица 2 Специальные пути для всех пользователей Наименование Описание AllUsersDesktop Путь к рабочему столу для всех пользователей AllUsersStartMenu Путь к главному меню для всех пользователей AllUsersPrograms Подменю "Программы" кнопки "Пуск" для всех пользователей AllUsersStartUp Подменю "Автозагрузка" из подменю "Программы" Объект WshSpecialFolders создается с помощью свойства SpecialFolders объекта WshShell: Dim objShell, objSpec Set objShell = WScript.CreateObject("WScript.Shell") Set objSpec = objShell.SpecialFolders Как и все коллекции WSH, объект WshSpecialFolders имеет свойство Lenght и методы Count и Item. Доступ к отдельному элементу производится либо через имя соответствующей папки, либо через числовой индекс (листинг 1.1): '******************************************** 'Имя : ShowSpecFold.vbs 'Язык: VBScript 'Описание: Вывод на экран названий специальных ' папок Windows '******************************************** Dim objShell, objSpec, lngI 'Создаем объект WshShell Set objShell = WScript.CreateObject("WScript.Shell") 'Создаем объект WshSpecialFolders Set objSpec = objShell.SpecialFolders WScript.Echo("Некоторые специальные папки...") 'Выводим путь на рабочий стол WScript.Echo("Рабочий стол=" & objSpec.Item("Desktop")) 'Выводим путь к папке "Избранное" WScript.Echo("Избранное=" & objSpec.Item("Favorites")) 'Выводим путь к папке "Программы" WScript.Echo("Программы=" & objSpec.Item("Programs")) WScript.Echo WScript.Echo("Список всех специальных папок...") For lngI =0 To objSpec.Count-1 WScript.Echo (objSpec(lngI)) Next В следующих выпусках рассылки мы рассмотрим примеры работы со специальными папками Windows

Со мной можносвязаться по e-mail - novopashinwm@mail.ru