Shell

Объект Shell


Объект Shell. Создание объекта.


Set objShell = CreateObject("Shell.Application")


Объект Shell. Свойства.



Свойство


Описание

Application Возвращает объект IShellDispatch для текущего приложения.
Parent Возвращает объект IShellDispatch для родительского приложения


Объект Shell. Свойство Application.

Возвращает объект IShellDispatch для текущего приложения.
Только чтение.

objApplication = Shell.Application


Объект Shell. Свойство Parent.

Возвращает объект IShellDispatch для родительского приложения если такое имеется.
Только чтение.
Set objShellApp = CreateObject("Shell.Application") If objShellApp.Parent.GetSetting(1) = 0 Then MsgBox "Не показывать скрытые файлы и папки", vbInformation Else MsgBox "Показывать скрытые файлы и папки", vbInformation End If




Объект Shell. Методы.




Метод


Описание

AddToRecent Помещает ярлык на указанный файл в папку "Недавних документов".
BrowseForFolder Вызов модального окна "Выбор папки".
CanStartStopService Определяет может ли текущий пользователь запустить/остановить указанный сервис.
CascadeWindows Выполняет расположение всех несвёрнутых окон рабочего стола Windows каскадом
ControlPanelItem Вызов конкретного приложения панели управления.
EjectPC Извлечение компьютера от док-станции.
Explore Запускает проводник Windows с определённой открытой папкой.
ExplorerPolicy Возвращает значение указанной Internet Explorer policy
FileRun Вызов окна "Запуск программы"
FindComputer Вызов окна проводника Windows "Результаты поиска - компьютеры"
FindFiles Вызов окна проводника Windows "Результаты поиска"
FindPrinter Вызов окна "Поиск принтеров" ("Find Printers") в Active Directory
GetSetting Возвращает значение указанной глобальной установки (параметра) проводника
GetSystemInformation Возвращает некоторую системную информацию
HelpВызов окна справки Windows.
IsRestricted ВВозвращает значение заданного ограничения по данным реестра
IsServiceRunning Определяет, запущен ли указанный сервис.
MinimizeAllСворачивает все окна рабочего стола Windows.
NameSpace Получение объекта виртуальной папки проводника
Open Запускает проводник Windows с определённой открытой папкой.
SearchCommand Отображает панель службы поиска.
ServiceStart Запускает указанный сервис.
ServiceStop Останавливает указанный сервис.
SetTime Вызов окна настройки времени и даты.
ShellExecute Выполняет указанное действие над заданным файлом.
ShowBrowserBar Открывает или закрывает указанную панель обозревателя.
ShutdownWindows Вызов окна выключения и перезагрузки компьютера. .
TileHorizontally Упорядочивает окна рабочего стола Windows по горизонтали.
TileVertically Упорядочивает окна рабочего стола Windows по вертикали
ToggleDesktop Сворачивает или разворачивает все окна на рабочем столе.
TrayProperties Вызов окна свойств панели задач Windows.
UndoMinimizeAll Восстанавливает всех свёрнутые окна рабочего стола Windows
Windows Получение объекта "ShellWindows".
WindowsSecurity Имитирует нажатие CTRL+ALT+DELETE.

Объект Shell. Метод AddToRecent.

Помещает ярлык на указанный файл в папку "Недавних документов" ("Recent") текущего пользователя.
Синтаксис:
AddToRecent(<File>, <Category>)
<File> - строка. Путь к файлу.
<Category> - строка (необязательный). Имя категории, в которую помещается файл.


Set objShell = CreateObject("Shell.Application") objShell.AddToRecent "C:\readme.txt"


Объект Shell. Метод BrowseForFolder.

Вызов модального окна "Выбор папки". Возвращает объект "Folder".
Синтаксис:
BrowseForFolder(<Hwnd>, <Заголовок>, <Опции>, <КорневаяПапка>)
<Hwnd> - дескриптор родительского окна. Тип - целое число. 0 - текущее окно
<Заголовок> - пояснение для пользователя в окне "Выбор папки". Тип - строка.
<Опции> - целое число (комбинация битовых флагов).
Например, флаг 512 - запретить кнопку "Создать папку",
1 - не отображать Корзину,
2 - не включать сетевые папки,
16 - отображать EditBox для ввода полного пути с клавиатуры и т.п.
Некоторые константы можно комбинировать, например 512+16.
<КорневаяПапка> - необязательный параметр. Корневая папка в окне "Выбор папки". Тип - строка.
Это определяет папку, внутри которой возможно сделать выбор. Пользователь не сможет пройти в окне "Выбор папки" выше этой папки. Если параметр не указан, корневой папкой будет рабочий стол Windows.
КорневаяПапка может быть числом, определяющим одну из специальных папок Windows. Коды папок представлены на странице SpecialFolderConstants.

Dim objShell,objFolder Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, _ "Диалог выбора папки.", 512, "D:\") If (Not objFolder Is Nothing) Then Wscript.Echo objFolder.Self.Path else Wscript.Echo "Не выбрана папка" End If


Объект Shell. Метод CanStartStopService.

Определяет, достаточно ли полномочий у текущего пользователя что бы запустить/остановить указанный сервис.
Синтаксис:
CanStartStopService(<ServiceName>)
<ServiceName> - строка, имя сервиса.
Возвращаемое значение - булево (число).


Set objShell = CreateObject("Shell.Application") ServiceName = "tlntsvr" If objShell.CanStartStopService(ServiceName) Then MsgBox "Вы можете запустить/остановить сервис " & ServiceName End If


Объект Shell. Метод CascadeWindows.

Упорядочение окон рабочего стола Windows каскадом.
Возвращаемого значения нет.
Параметров нет.


Set objShellApp = CreateObject("Shell.Application") objShellApp.CascadeWindows


Объект Shell. Метод ControlPanelItem.

Вызов конкретного приложения панели управления.
Синтаксис:
ControlPanelItem(<ИмяФайла>)
<ИмяФайла> - имя файла конкретного приложения панели управления. Тип - строка. Пустая строка вызывает саму панель управления.
Все файлы приложений панели управления имеют расширение .cpl. Некоторые приложения панели управления:
  • access.cpl - специальные возможности.
  • appwiz.cpl - установка и удаление программ.
  • desk.cpl - настройка экрана.
  • hdwwiz.cpl - мастер установки оборудования.
  • inetcpl.cpl - свойства обозревателя.
  • intl.cpl - язык и региональные стандарты.
  • joy.cpl - игровые устройства.
  • main.cpl - мышь.
  • mmsys.cpl - звуки и аудиоустройства.
  • ncpa.cpl - сетевые подключения.
  • nusrmgr.cpl - учётные записи пользователей.
  • odbccp32.cpl - настройка источников данных ODBC.
  • powercfg.cpl - управление электропитанием.
  • sysdm.cpl - свойства системы.
  • telephon.cpl - телефон и модем.
  • timedate.cpl - настройки времени и даты
Возвращаемого значения нет.


Set objShellApp = CreateObject("Shell.Application") objShellApp.ControlPanelItem "desk.cpl" objShellApp.ControlPanelItem ""


Объект Shell. Метод EjectPC.

Извлекает компьютер от док-станции.
Возвращаемого значения нет.
Параметров нет.
Это так же, как, в меню Пуск и выбрать Извлечь компьютер, если ваш компьютер поддерживает эту команду.

var objShell = new ActiveXObject("shell.application"); objShell.EjectPC();


Объект Shell. Метод Explore.

Запуск проводника Windows с определённой открытой папкой
Синтаксис:
Explore(<Path>):
Параметры:
<Path> - путь к открываемой папке. Тип - строка.
<Path> может быть числом, определяющим одну из специальных папок Windows. Коды папок представлены на странице SpecialFolderConstants.

Set objShellApp = CreateObject("Shell.Application") objShellApp.Explore("C:\") objShellApp.Open("C:\") 'для сравнения


Объект Shell. Метод ExplorerPolicy.

Возвращает значение указанной Internet Explorer policy.
Синтаксис:
ExplorerPolicy(<PolicyName>)
<PolicyName> - строка. Имя Internet Explorer policy.
Указанное имя должно быть в ветке
HKEY_CURRENT_USER\Software \Microsoft\Windows \CurrentVersion\Policies\Explorer
Если такого имени там нет, то метод возвращает NULL.

var objShell = new ActiveXObject("shell.application"); var vReturn; vReturn = objShell.ExplorerPolicy("NoDriveTypeAutoRun"); WScript.Echo (vReturn);


Объект Shell. Метод FileRun.

Вызов окна "Запуск программы" ("Run").
Возвращаемого значения нет.
Параметров нет
Синтаксис:
FileRun
Вызов метода приводит к тому же эффекту, что и команда меню "Пуск"-"Выполнить" ("Start"-"Run").

Set objShellApp = CreateObject("Shell.Application") objShellApp.FileRun


Объект Shell. Метод FindComputer.

Вызов окна проводника Windows "Результаты поиска - компьютеры" ("Search Results - Computers").
Возвращаемого значения нет.
Параметров нет.


Set objShellApp = CreateObject("Shell.Application") objShellApp.FindComputer


Объект Shell. Метод FindFiles.

Вызов окна проводника Windows "Результаты поиска" ("Find: All Files").
Возвращаемого значения нет.
Параметров нет.
Вызов метода приводит к тому же эффекту, что и команда меню "Пуск"-"Поиск" ("Start"-"Find").

Set objShellApp = CreateObject("Shell.Application") objShellApp.FindFiles


Объект Shell. Метод FindPrinter.

Вызов окна "Поиск принтеров" ("Find Printers") в Active Directory с предварительным заполнением параметров поиска
Синтаксис:
FindPrinter(<Name>,<Location>,<Model>)
<Name> - необязательный. Строка - имя принтера.
<Location> - необязательный. Строка - местоположение принтера.
<Model> - необязательный. Строка - модель принтера.
Возвращаемого значения нет.
Вызов метода приводит примерно к тому же эффекту, что и команда меню "Пуск"-"Поиск"-"Принтеры..."

Set objShellApp = CreateObject("Shell.Application") objShellApp.FindPrinter "Name", "Location", "Model"


Объект Shell. Метод GetSetting.

Возвращает значение указанной глобальной установки (параметра) проводника.
Синтаксис:
GetSetting(<Setting>)
<Setting> - целое число определяющее глобальную установку проводника.



Код


Описание

SSF_SHOWALLOBJECTS
(0x00000001)
Показывать скрытые файлы и папки
SSF_SHOWEXTENSIONS
(0x00000002)
Скрывать расширения для зарегистрированных типов файлов
SSF_HIDEICONS
(0x00004000)
Состояние пиктограмм в списке просмотра Проводника Windows
SSF_DOUBLECLICKINWEBVIEW
(0x00000080)
Открыть двойным или одиночным щелчком мыши
SSF_NOCONFIRMRECYCLE
(0x00008000)
Подтверждение очистки корзины
SSF_SHOWSUPERHIDDEN
(0x00040000)
Состояние скрывать защищенные файлы операционной системы.


Более подробно с этим материалом можно ознакомиться на сайте MSDN

var objShell = new ActiveXObject("shell.application"); var vReturn; var ssfSHOWALLOBJECTS = 1; vReturn = objShell.GetSetting(ssfSHOWALLOBJECTS); WScript.Echo (vReturn);


Объект Shell. Метод GetSystemInformation.

Возвращает некоторую системную информацию.
Синтаксис:
GetSystemInformation(<Name>)
<Name> - строка, определяет тип запрашиваемой информации.
Возвращаемое значение - зависит от типа запрашиваемой информации.
Этот метод может быть использован для запроса различной информации.


Тип информации


Описание

DirectoryServiceAvailable
Boolean
Возвращает true если служба каталогов имеется
ProcessorLevel
Integer
Windows Vista и выше. Уровень процессора. Возвращает 3, 4 или 5, для X386, x486 и процессоров Pentium-уровня, соответственно.
ProcessorSpeed
Integer
Скорость процессора, в мегагерцах (МГц).
ProcessorArchitecture
Integer
Архитектура процессора.
PhysicalMemoryInstalled
Integer
Количество установленной физической памяти, в байтах.
IsOS_Professional
Boolean
Только для Windows XP. Возвращает true если операционная система Windows XP Professional Edition
IsOS_Personal
Boolean
Только для Windows XP. Возвращает true если операционная система Windows XP Home Edition


Архитектура процессора - возможные значения.


Значение


Описание

PROCESSOR_ARCHITECTURE_AMD64
9
x64 (AMD or Intel)
PROCESSOR_ARCHITECTURE_IA64
6
На основе Intel Itanium
PROCESSOR_ARCHITECTURE_INTEL
0
x86
PROCESSOR_ARCHITECTURE_UNKNOWN
0xffff
Неизвестный архитектура




Set objShellApp = CreateObject("Shell.Application") MsgBox "IsOS_DomainMember = " _ & objShellApp.GetSystemInformation("IsOS_DomainMember") MsgBox "ProcessorArchitecture = " _ & objShellApp.GetSystemInformation("ProcessorArchitecture") MsgBox "PhysicalMemoryInstalled = " _ & objShellApp.GetSystemInformation("PhysicalMemoryInstalled")


Объект Shell. Метод Help.

Вызов справки Windows.
Синтаксис:
Help
Возвращаемого значения нет.
Параметров нет.
Вызов метода приводит к тому же эффекту, что и команда меню "Пуск"-"Справка и поддержка" ("Start"-"Help and Support").

Set objShellApp = CreateObject("Shell.Application") objShellApp.Help


Объект Shell. Метод IsRestricted.

Возвращает значение заданного ограничения по данным реестра.
Синтаксис:
IsRestricted(<Group>, <Restriction>)
<Group> - строка, которая содержит имя раздела реестра, где производится поиск ограничений.
<Restriction> - строка, которая содержит имя параметра раздела реестра, где производится поиск ограничений.
Возвращаемое значение - Integer.
IsRestricted сначала ищет названия раздела, который соответствует sGroup в следующем разделе:
HKEY_LOCAL_MACHINE Software Microsoft Windows CurrentVersion Policies
Если Restriction находится в подразделе с именем <Group>, IsRestricted возвращает текущее значение ограничение. Если ограничение не найдено в разделе HKEY_LOCAL_MACHINE, то том же подразделе проверяется в разделе HKEY_CURRENT_USER.

Set objShell = CreateObject("Shell.Application") lReturn = objShell.IsRestricted("system", "undockwithoutlogon") MsgBox "undockwithoutlogon = " & lReturn


Объект Shell. Метод IsServiceRunning.

Определяет, запущен ли указанный сервис.
Синтаксис:
IsServiceRunning(<ServiceName>)
<ServiceName> - строка, имя сервиса.
Возвращаемое значение - булево (число).


Set objShell = CreateObject("Shell.Application") ServiceName = "Dnscache" If objShell.IsServiceRunning(ServiceName) Then MsgBox "Сервис " & ServiceName & " запущен!" Else MsgBox "Сервис " & ServiceName & " НЕ запущен!" End If


Объект Shell. Метод MinimizeAll.

Сворачивание всех окон рабочего стола Windows.
Возвращаемого значения нет.
Параметров нет.
Вызов метода приводит к тому же эффекту, что и команда "Показать рабочий стол" ("Minimize All Windows") контекстного меню панели задач Windows или щелчок по значку "Свернуть все окна" ("Show Desktop") на панели "Быстрый запуск".

Set objShellApp = CreateObject("Shell.Application") objShellApp.MinimizeAll


Объект Shell. Метод NameSpace.

Получение объекта виртуальной папки проводника. Возвращает объект "Folder".
Синтаксис:
NameSpace(<Path>)
где <Path> -путь к папке или диску. Тип - строка.
<Path> может быть числом, определяющим одну из специальных папок Windows. Коды папок представлены на странице SpecialFolderConstants.

var objShell = new ActiveXObject("shell.application"); var objFolder; var ssfWINDOWS = 36 objFolder = objShell.NameSpace(ssfWINDOWS); if (objFolder != null) { WScript.Echo (objFolder.Title); }


Объект Shell. Метод Open.

Запуск проводника Windows с определённой открытой папкой
Синтаксис:
Open(<Path>)
Параметры:
<Path> - путь к открываемой папке. Тип - строка.
<Path> может быть числом, определяющим одну из специальных папок Windows. Коды папок представлены на странице SpecialFolderConstants.

Set objShellApp = CreateObject("Shell.Application") objShellApp.Explore("C:\") objShellApp.Open("C:\") 'для сравнения


Объект Shell. Метод SearchCommand .

Отображает панель службы поиска.
Синтаксис:
SearchCommand
Параметров нет.
Этот метод не возвращает значение.


Set objShellApp = CreateObject("Shell.Application") objShellApp.SearchCommand


Объект Shell. Метод ServiceStart.

Запускает указанный сервис.
Синтаксис:
ServiceStart(<ServiceName>, <Persistent>)
<ServiceName> - строка, имя сервиса.
<Persistent> - булево (число). Определяет, должен ли сервис автоматически стартовать при старте системы. Если указана ложь, конфигурация сервиса не меняется.
Возвращаемое значение - булево (число). Определяет успешно ли запущен сервис.


Set objShell = CreateObject("Shell.Application") ServiceName = "Dnscache" If objShell.ServiceStart(ServiceName) Then MsgBox "Сервис " & ServiceName & " стартовал успешно!" Else MsgBox "Сервис " & ServiceName & " запустить не удалось!" End If


Объект Shell. Метод ServiceStop.

Останавливает указанный сервис.
Синтаксис:
ServiceStop(<ServiceName>, <Persistent>)
<ServiceName> - строка, имя сервиса.
<Persistent> - булево (число). Определяет, должен ли сервис автоматически стартовать при старте системы. Если указана ложь, конфигурация сервиса не меняется.
Возвращаемое значение - булево (число). Определяет успешно ли остановлен сервис.


Set objShell = CreateObject("Shell.Application") ServiceName = "Dnscache" If objShell.ServiceStop(ServiceName) Then MsgBox "Сервис " & ServiceName & " остановлен успешно!" Else MsgBox "Сервис " & ServiceName & " остановить не удалось!" End If


Объект Shell. Метод SetTime.

Вызов окна настройки времени и даты.
Синтаксис:
SetTime
Возвращаемого значения нет.
Параметров нет.
Вызов метода приводит к тому же эффекту, что и двойной щелчок по часам в правой части панели задач Windows

Set objShellApp = CreateObject("Shell.Application") objShellApp.SetTime


Объект Shell. Метод ShellExecute.

Выполняет указанное действие над заданным файлом.
Возвращаемого значения нет.
Синтаксис:
ShellExecute(<File>, <Arguments>, <Directory> , <Operation>, <Show>)
<File> - строка. Имя файла.
<Arguments> - строка (необязательный). Параметры для <Operation>.
<Directory>строка (необязательный). Путь к каталогу с указанным файлом. Если не указан, используется текущий каталог.
<Operation>строка (необязательный). Действие ("глагол"), которое необходимо выполнить. Если не указан, используется действие по умолчанию.
<Show> число (необязательный). Рекомендуемое состояние окна при выполнении. Запускаемое приложение может проигнорировать этот параметр.

Параметр <Operation> может принимать следующие значения:


Значение


Описание

editЗапускает редактор и открывает документ для редактирования
findИнициирует поиск, начиная с указанной директории
openЗапуск приложения. Если этот файл не исполняемый файл, то запускается связанное с ним приложение.
printПечать файла.
propertiesОтображение свойств объекта


Параметр <Show> может принимать следующие значения:


Код


Описание

0Открыть приложение в скрытым окне
1 Открыть приложение в нормальном окне. Если окно свернуто или развернуто, система восстанавливает его исходный размер и положение.
2Открыть приложение в свернутом окне
3Открыть приложение в развернутом окне
4Открыть приложение в окне с его последним размером и позицией
5Открыть приложение в окне с его текущем размером и позицией
7Открыть приложение в свернутом окне. Активное окно остается активным
10Открыть приложение в окне по умолчанию для приложения.


Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "notepad.exe", "", "", "open", 1


Объект Shell. Метод ShowBrowserBar.

Открывает или закрывает указанную панель обозревателя.
Возвращает true в случае успеха, и false в случае неудачи..
Синтаксис:
ShowBrowserBar(<CLSID>, <Show>)
<CLSID> - строка. Идентификатор класса (CLSID) панели обозревателя.
<Show> - булево. True - показать, false - спрятать панель.
Возвращаемое значение - булево (число). Определяет успешно ли остановлен сервис.
Некоторые возможные значения <CLSID>:
  • Favorites - {EFA24E61-B078-11d0-89E4-00C04FC9E26E}
  • Folders - {EFA24E64-B078-11d0-89E4-00C04FC9E26E}
  • History - {EFA24E62-B078-11d0-89E4-00C04FC9E26E}
  • Search - {30D02401-6A81-11d0-8274-00C04FD5AE38}


Метод доступен только в контексте HTML-документа!.

Объект Shell. Метод ShutdownWindows.

Вызов окна выключения и перезагрузки компьютера.
Синтаксис:
ShutdownWindows
Возвращаемого значения нет.
Параметров нет.
Вызов метода приводит к тому же эффекту, что и команда меню "Пуск"-"Завершение работы" ("Start"-"Shut Down").

Set objShellApp = CreateObject("Shell.Application") objShellApp.ShutdownWindows


Объект Shell. Метод TileHorizontally.

Упорядочение окон рабочего стола Windows по горизонтали.
Возвращаемого значения нет.
Параметров нет.


Set objShellApp = CreateObject("Shell.Application") objShellApp.TileHorizontally


Объект Shell. Метод TileVertically.

Упорядочение окон рабочего стола Windows по вертикали.
Возвращаемого значения нет.
Параметров нет.


Set objShellApp = CreateObject("Shell.Application") objShellApp.TileVertically


Объект Shell. Метод ToggleDesktop.

Сворачивает или разворачивает все окна на рабочем столе.
Синтаксис:
ToggleDesktop
Параметром нет.
Возвращаемого значения нет.
Имитирует нажатие на значок "Свернуть все окна" в панели "Быстрый запуск" ("Quick launch").

var objShell = new ActiveXObject("shell.application"); objShell.ToggleDesktop();


Объект Shell. Метод TrayProperties.

Вызов окна свойств панели задач Windows.
Синтаксис:
TrayProperties
Возвращаемого значения нет.
Параметров нет.
Вызов метода приводит к тому же эффекту, что и команда "Свойства" ("Properties") контекстного меню панели задач Windows.

Set objShellApp = CreateObject("Shell.Application") objShellApp.TrayProperties


Объект Shell. Метод UndoMinimizeAll.

Восстановление всех свёрнутых окон рабочего стола Windows..
Возвращаемого значения нет.
Параметров нет.


Set objShellApp = CreateObject("Shell.Application") objShellApp.MinimizeAll WScript.Sleep 300 objShellApp.UndoMinimizeAll


Объект Shell. Метод Windows.

Получение объекта "ShellWindows".
Синтаксис:
Windows
Возвращает объект "ShellWindows".
Параметров нет.


Set objShellApp = CreateObject("Shell.Application") WinCol = objShellApp.Windows().Count MsgBox "В настоящий момент открыто окон Проводника - " & WinCol, vbInformation


Объект Shell. Метод WindowsSecurity.

Имитирует нажатие CTRL+ALT+DELETE при использовании соединения Microsoft Terminal Server.
Синтаксис:
WindowsSecurity
Параметром нет.
Возвращаемого значения нет.


var objShell = new ActiveXObject("shell.application"); objShell.WindowsSecurity();






Для вопросов, обсуждений, замечаний, предложений и т. п. можете использовать раздел форума этого сайта (требуется регистрация).






  TopList Rambler Top100 own counter Valid XHTML 1.0 Strict Valid CSS Rambler Top100

Фитотерапия Молитвы Водолечение Юмор Форум Кладовка link О авторе

Фитотерапия Молитвы Водолечение Юмор Форум Кладовка Ссылки О авторе Отправить сообщение Карта сайта Поиск по сайту Главная страница

Copyright © 1999 - 2017  Бронислав Краснер