Запуск с помощью оболочки Windows

Запуск с помощью оболочки Windows

Для доступа к стандартным диалоговым окнам Windows и модулям панели управления нужно сначала создать экземпляр объекта-оболочки Windows:

//Создаем объект Shell.Application

Shell=WScript.CreateObject("Shell.Application");

Модули панели управления вызываются с помощью метода ControlPanelItem(), в качестве параметра которого указывается имя соответствующего cpl-файла, например:

Shell.ControlPanelItem("Appwiz.cpl");

Если запустить ControlPanelItem() без параметра, то откроется вся панель управления.

В листинге 11.13 приведен сценарий RunCPL.js, в котором происходит вызов некоторых модулей панели управления.

Листинг 11.13. Вызов модулей панели управления с помощью оболочки Windows

/*******************************************************************/

/* Имя: RunCPL.js                                                  */

/* Язык: JScript                                                   */

/* Описание: Вызов модулей панели управления с помощью             */

/*           объекта Shell.Application                             */

/*******************************************************************/

//Объявляем переменные

var

 WshShell, //Экземпляр объекта WshShell

 Shell,    //Экземпляр объекта Shell.Application

 Res;      //Результат нажатия кнопок в диалоговом окне

//Инициализируем константы для диалоговых окон

var vbYesNo=4,vbQuestion=32,vbYes=6;

//Создаем объект WshShell

WshShell = WScript.CreateObject("WScript.Shell");

//Создаем объект Shell.Application

Shell=WScript.CreateObject("Shell.Application");

//Выводим запрос

Res=WshShell.Popup("Открыть панель управления?",0,

 "Вызов модулей панели управления",vbQuestion+vbYesNo);

if (Res==vbYes) //Нажата кнопка Да

 //Выводим панель управления

 Shell.ControlPanelItem("");

//Выводим запрос

Res=WshShell.Popup("Открыть окно установки и удаления программ?",0,

 "Вызов модулей панели управления",vbQuestion+vbYesNo);

if (Res==vbYes) //Нажата кнопка Да

 //Выводим окно установки и удаления программ

 Shell.ControlPanelItem("Appwiz.cpl");

//Выводим запрос

Res=WshShell.Popup("Открыть окно установки даты и времени?",0,

 "Вызов модулей панели управления",vbQuestion+vbYesNo);

if (Res==vbYes) //Нажата кнопка Да

 //Выводим окно установки даты и времени

 Shell.ControlPanelItem("TimeDate.cpl");

/*************  Конец *********************************************/