Объект Shell

Объект Shell позволяет получить доступ к различным настройкам Windows при помощи технологий COM и Automation, что позволяет использовать JScript и VBScript. Например, можно получить доступ к различным диалоговым окнам, к файловой системе, запускать программы и изменять системные настройки.

Создать объект Shell можно следующим образом:

var objShellApp = WScript.CreateObject("Shell.Application")

Также можно использовать объект ActiveXObject языка JScript:

var objShellApp = new ActiveXObject("Shell.Application")

Application

Синтаксис

// Свойство. Только чтение.

objShellApp.Application

Возвращаемое значение

Объект IShellDispatch для текущего приложения.

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
if (objShellApp.Application.GetSetting(1) == 0) 
    WScript.Echo ( "В «Свойствах папки» в проводнике установлен режим «Не показывать скрытые файлы и папки»" );
else
    WScript.Echo ( "В «Свойствах папки» в проводнике установлен режим «Показывать скрытые файлы и папки»" );

Parent

Синтаксис

// Свойство. Только чтение.

objShellApp.Parent

Возвращаемое значение

Объект IShellDispatch для родительского приложения, если такой имеется.

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
if (objShellApp.Parent.GetSetting(262144) == 0) 
    WScript.Echo ( "В «Свойствах папки» в проводнике установлен режим «Не скрывать защищенные файлы операционной системы»." );
else
    WScript.Echo ( "В «Свойствах папки» в проводнике установлен режим «Скрывать защищенные файлы операционной системы»." );

AddToRecent()

Метод AddToRecent() помещает ярлык на указанный файл в папку "Недавних документов" ("Recent") текущего пользователя. Возвращаемого значения нет.

Синтаксис

objShellApp.AddToRecent( File, Category )

Параметры

File

Строка. Путь к файлу.

Category

Строка (необязательный). Имя категории, в которую помещается файл.

Пример (WindowsXP):

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.AddToRecent ("C:\MyFile.txt");

BrowseForFolder()

Метод BrowseForFolder() вызов модального окна "Выбор папки". Возвращает объект "Folder".

Синтаксис

objShellApp.BrowseForFolder( Hwnd, Заголовок, Опции, КорневаяПапка )

Параметры

Hwnd

Дескриптор родительского окна. Тип - целое число. 0 - текущее окно.

Заголовок

Пояснение для пользователя в окне "Выбор папки". Тип - строка.

Опции

Целое число (комбинация битовых флагов). Например, флаг 512 - запретить кнопку "Создать папку", 1 - не отображать Корзину, 16 - отображать EditBox для ввода полного пути с клавиатуры и т.п. Подробнее - см. MSDN.

КорневаяПапка

Необязательный параметр. Корневая папка в окне "Выбор папки". Тип - строка. Пользователь не сможет пройти в окне "Выбор папки" выше этой папки. Если параметр не указан, корневой папкой будет рабочий стол Windows. КорневаяПапка может быть числом, определяющим одну из специальных папок Windows. Коды папок представлены ниже

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
var objFolder = objShellApp.BrowseForFolder(0, "Выбор папки", 0, "C:\\");

if (objFolder) WScript.Echo ( objFolder.Self.Path );
else WScript.Echo ( "Папка не выбрана!" );

CanStartStopService()

Метод CanStartStopService() определяет, может ли текущий пользователь запустить/остановить указанный сервис. Возвращаемое значение - булево (число).

Синтаксис

objShellApp.CanStartStopService( ServiceName )

Параметры

ServiceName

Строка, имя сервиса.

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
var ServiceName = "tlntsvr"
if (!objShellApp.CanStartStopService(ServiceName))
    WScript.Echo ( "Вы НЕ можете остановить/запустить сервис " + ServiceName + "!" );
else
    WScript.Echo ( "Вы можете остановить/запустить сервис " + ServiceName + "!" );

CascadeWindows()

Метод CascadeWindows() распологает все несвёрнутые окна рабочего стола Windows каскадом. Возвращаемого значения нет.

Синтаксис

objShellApp.CascadeWindows()

Параметры

Нет

Комментарии

Вызов метода приводит к тому же эффекту, что и команда "Окна каскадом" ("Cascade Windows") контекстного меню панели задач Windows.

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.CascadeWindows();

ControlPanelItem()

Метод ControlPanelItem() вызывает конкретное приложение панели управления. Возвращаемого значения нет.

Синтаксис

objShellApp.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 - настройки времени и даты.

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.ControlPanelItem ("desk.cpl");
objShellApp.ControlPanelItem ( "" );

Explore()

Метод Explore() запускает проводник Windows с определённой открытой папкой. Возвращаемого значения нет.

Синтаксис

objShellApp.Explore( Path )

Параметры

Path

Путь к открываемой папке. Тип - строка.

Комментарии

Path может быть числом, определяющим одну из специальных папок Windows. Коды папок - см. описание метода NameSpace.

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.Explore("C:\\");
WScript.Echo("Пауза");
objShellApp.Open("C:\\"); // для сравнения

ExplorerPolicy()

Метод ExplorerPolicy() возвращает значение указанной Internet Explorer policy.

Синтаксис

objShellApp.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);

FileRun()

Метод FileRun() вызывает окно "Запуск программы" ("Run"). Возвращаемого значения нет.

Синтаксис

objShellApp.FileRun ()

Параметры

Нет

Комментарии

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

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.FileRun();

FindComputer()

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

Синтаксис

objShellApp.FindComputer ( )

Параметры

Нет

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.FindComputer ();

FindFiles()

Метод FindFiles() вызывает окно проводника Windows "Результаты поиска" ("Find: All Files"). Возвращаемого значения нет.

Синтаксис

objShellApp.FindFiles ( )

Параметры

Нет

Комментарии

Вызов метода приводит к тому же эффекту, что и команда меню "Пуск"-"Поиск" ("Start"-"Find").

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.FindFiles ();

FindPrinter()

Метод FindPrinter() вызывает окно "Поиск принтеров" ("Find Printers") в Active Directory с предварительным заполнением параметров поиска. Возвращаемого значения нет.

Синтаксис

objShellApp.FindPrinter( Name, Location, Model )

Параметры

Name

Необязательный. Строка - имя принтера.

Location

Необязательный. Строка - местоположение принтера.

Model

Необязательный. Строка - модель принтера.

Комментарии

Вызов метода приводит примерно к тому же эффекту, что и команда меню "Пуск"-"Поиск"-"Принтеры..."

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.FindPrinter ("Name", "Location", "Model");

GetSetting()

Метод GetSetting() возвращает значение указанной глобальной установки (параметра) проводника.

Синтаксис

objShellApp.GetSetting ( Setting )

Параметры

Setting

Целое число (набор флагов), определяющее глобальную установку (параметр) проводника. Некоторые возможные значения:

•           1 (0x00000001) - Показывать скрытые файлы и папки.
•           2 (0x00000002) - Скрывать расширения для зарегистрированных типов файлов.
•   16384 (0x00004000) - Состояние пиктограмм в списке просмотра Проводника Windows
•       128 (0x00000080) - Открыть двойным или одиночным щелчком мыши
•   32768 (0x00008000) - Подтверждение очистки корзины
• 262144 (0x00040000) - Состояние скрывать защищенные файлы операционной системы.

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

Пример

var objShell = new ActiveXObject("shell.application");
WScript.Echo ( objShell.GetSetting ( 32768 ) );

GetSystemInformation()

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

Синтаксис

objShellApp.GetSystemInformation( sName )

Параметры

sName

Строка, определяет тип информации:

sName	Тип Return	Описание
DirectoryServiceAvailable	Boolean	Возвращает true если служба каталогов имеется.
DoubleClickTime	Integer	Время двойного щелчка, в миллисекундах.
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.
IsOS_DomainMember	Boolean	Возвращает true, если компьютер является членом домена.

Комментарии

Подробнее - см. MSDN.

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
WScript.Echo ( "DirectoryServiceAvailable = " + objShellApp.GetSystemInformation("DirectoryServiceAvailable") + '\n'+
               "ProcessorLevel = " + objShellApp.GetSystemInformation("ProcessorLevel") + '\n'+
               "ProcessorArchitecture = " + objShellApp.GetSystemInformation("ProcessorArchitecture") + '\n'+
               "PhysicalMemoryInstalled = " + objShellApp.GetSystemInformation("PhysicalMemoryInstalled")  + '\n'+
               "IsOS_DomainMember = " + objShellApp.GetSystemInformation("IsOS_DomainMember") );

Help()

Метод Help() вызов справки Windows. Возвращаемого значения нет.

Синтаксис

objShellApp.Help ()

Параметры

Нет

Комментарии

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

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.Help ();

IsRestricted()

Метод IsRestricted() возвращает значение заданного ограничения по данным реестра (возвращаемое значение - число).

Синтаксис

objShellApp.IsRestricted( sGroup, sRestriction )

Параметры

sGroup

Строка, которая содержит имя раздела реестра, где производится поиск ограничений.

sRestriction

Строка, которая содержит имя параметра раздела реестра, где производится поиск ограничений.

Комментарии

IsRestricted сначала ищет названия раздела, который соответствует sGroup в следующем разделе: HKEY_LOCAL_MACHINE Software Microsoft Windows CurrentVersion Policies.

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
WScript.Echo ( objShellApp.IsRestricted("system", "dontdisplaylastusername") );

IsServiceRunning()

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

Синтаксис

objShellApp.IsServiceRunning( ServiceName )

Параметры

ServiceName

Строка, имя сервиса.

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
ServiceName = "haspnt"
if ( objShellApp.IsServiceRunning(ServiceName) )
    WScript.Echo ( "Сервис " + ServiceName + " запущен!" );
else
    WScript.Echo ( "Сервис " + ServiceName + " НЕ запущен!" );

MinimizeAll()

Метод MinimizeAll() сворачивает все окна рабочего стола Windows. Возвращаемого значения нет.

Синтаксис

objShellApp.MinimizeAll ()

Параметры

Нет

Комментарии

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

Пример

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.MinimizeAll ();

NameSpace()

Метод NameSpace() получает объект виртуальной папки проводника. Возвращает объект Folder.

Синтаксис

objShellApp.NameSpace( Path )

Параметры

Path

Путь к папке или диску. Тип - строка.

Комментарии

var objShellApp = WScript.CreateObject("Shell.Application");
var objFolder = objShellApp.NameSpace(25);
WScript.Echo ( objShellApp.NameSpace("C:\\").Title + '\n'+objFolder.Self.Path );

objShellApp.Open( Path )

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

SearchCommand ()

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.SearchCommand ();

objShellApp.ServiceStart( ServiceName, Persistent )

var objShellApp = WScript.CreateObject("Shell.Application");
var Serv = "haspnt";
if ( objShellApp.ServiceStart(Serv, false) == 0 )
    WScript.Echo ( "НЕ удалось запустить сервис " + Serv + "!" );
else
    WScript.Echo ( "Сервис " + Serv + " успешно запущен!" );

objShellApp.ServiceStop( ServiceName, Persistent )

var objShellApp = WScript.CreateObject("Shell.Application");
var Serv = "haspnt";
if ( objShellApp.ServiceStop(Serv, false) == 0 )
    WScript.Echo ( "НЕ удалось остановить сервис " + Serv + "!" );
else
    WScript.Echo ( "Сервис " + Serv + " успешно остановлен!" );

objShellApp.SetTime ()

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.SetTime ();

objShellApp.ShellExecute( File, Arguments, Directory, Operation, Show )

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.ShellExecute ( "notepad.exe", "", "", "open", 1 );

objShellApp.ShowBrowserBar( CLSID, Show )

<script language="JavaScript">
function fnShowBrowserBarJ()
  { var objShell = new ActiveXObject("shell.application");
    var bReturn;
        
    bReturn = objShell.ShowBrowserBar("{EFA24E61-B078-11d0-89E4-00C04FC9E26E}", true);
  }
</script>

objShellApp.ShutdownWindows ()

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.ShutdownWindows ();

objShellApp.TileHorizontally ()

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.TileHorizontally ();

objShellApp.TileVertically ()

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.TileVertically ();

objShellApp.ToggleDesktop ()

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.ToggleDesktop ();

objShellApp.TrayProperties ()

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.TrayProperties ();

objShellApp.UndoMinimizeAll ()

var objShellApp = WScript.CreateObject("Shell.Application");
objShellApp.MinimizeAll ();
WScript.Sleep ( 500 )
objShellApp.UndoMinimizeAll ();

objShellApp.Windows ()

var objShellApp = WScript.CreateObject("Shell.Application");
var WinCol = objShellApp.Windows().Count;
WScript.Echo ( "В настоящий момент открыто окон Проводника - " + WinCol )

objShellApp.WindowsSecurity ()

<script language="JScript">
function fnIShellDispatch4WindowsSecurityJ()
  {  var objShell = new ActiveXObject("shell.application");
     objShell.WindowsSecurity();
  }
</script>

var objShellWindows = objShellApp.Windows()

// Свойство. Только чтение.

objShellWindows.Count

objShellWindows.item ( Index )

objShellWindows._NewEnum ()

var objShell = new ActiveXObject("Shell.Application"); 
var objShellWindows, s=''; 
objShellWindows = objShell.Windows(); 
if (objShellWindows != null) 
  { var objIE; 
    for( var i=0; i < objShellWindows.Count; i++) 
      { objIE = objShellWindows.Item(i); 
        if (objIE != null) 
          s += "\n\nPath:\t\t" + objIE.path + 
               "\n LocationName:\t" + objIE.LocationName + 
               "\n LocationURL:\t"+objIE.LocationURL; 
      } 
  }

WScript.Echo (s);

typedef enum  {
  ssfALTSTARTUP        = 0x1d,
  ssfAPPDATA           = 0x1a,
  ssfBITBUCKET         = 0x0a,
  ssfCOMMONALTSTARTUP  = 0x1e,
  ssfCOMMONAPPDATA     = 0x23,
  ssfCOMMONDESKTOPDIR  = 0x19,
  ssfCOMMONFAVORITES   = 0x1f,
  ssfCOMMONPROGRAMS    = 0x17,
  ssfCOMMONSTARTMENU   = 0x16,
  ssfCOMMONSTARTUP     = 0x18,
  ssfCONTROLS          = 0x03,
  ssfCOOKIES           = 0x21,
  ssfDESKTOP           = 0x00,
  ssfDESKTOPDIRECTORY  = 0x10,
  ssfDRIVES            = 0x11,
  ssfFAVORITES         = 0x06,
  ssfFONTS             = 0x14,
  ssfHISTORY           = 0x22,
  ssfINTERNETCACHE     = 0x20,
  ssfLOCALAPPDATA      = 0x1c,
  ssfMYPICTURES        = 0x27,
  ssfNETHOOD           = 0x13,
  ssfNETWORK           = 0x12,
  ssfPERSONAL          = 0x05,
  ssfPRINTERS          = 0x04,
  ssfPRINTHOOD         = 0x1b,
  ssfPROFILE           = 0x28,
  ssfPROGRAMFILES      = 0x26,
  ssfPROGRAMFILESx86   = 0x30,
  ssfPROGRAMS          = 0x02,
  ssfRECENT            = 0x08,
  ssfSENDTO            = 0x09,
  ssfSTARTMENU         = 0x0b,
  ssfSTARTUP           = 0x07,
  ssfSYSTEM            = 0x25,
  ssfSYSTEMx86         = 0x29,
  ssfTEMPLATES         = 0x15,
  ssfWINDOWS           = 0x24
} ShellSpecialFolderConstants;

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