Андрей Попов - Windows Script Host для Windows 2000/XP

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

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

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

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

Res=WshShell.Popup("Открыть папку "+SPath+"?",0,

 "Вызов стандартных диалогов Windows",vbQuestion+vbYesNo);

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

 //Открываем папку в Проводнике

В Shell.Explore(SPath);

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

Диалогoвое окно, позволяющее форматировать диск с заданными параметрами (рис. 11.26), вызывается с помощью системной  функции SHFormatDrive() из библиотечного файла shell32.dll.

Рис. 11.26. Диалоговое окно форматирования диска

Соответствующий пример приведен в листинге 11.16.

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

/* РРјСЏ: FormatDisk.jsВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В  */

/* Язык: JScript                                                   */

/* Описание: Вызов окна форматирования диска                       */

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

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

var

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

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

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

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

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

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

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

Res=WshShell.Popup("Открыть окно форматирования?",0,

 "Вызов стандартных диалогов Windows",vbQuestion+vbYesNo);

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

 //Вызываем окно форматирования

В WshShell.Run("Rundll32.exe shell32.dll,SHFormatDrive");

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

Окно запуска программ открывается с помощью метода FileRun() объекта Shell.Application. Соответствующий пример приведен в листинге 11.17.

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

/* РРјСЏ: FileRun.jsВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В  */

/* Язык: JScript                                                   */

/* Описание: Вызов окна запуска программ                           */

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

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

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,

 "Вызов стандартных диалогов Windows",vbQuestion+vbYesNo);

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

 //Вызываем окно запуска программ

В Shell.FileRun();

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

Заблокировать рабочую станцию Windows ХР можно с помощью вызова функции LockWorkStation() из библиотечного файла user32.dll. В листинге 11.18 приведен сценарий Lock.js, в котором происходит блокировка компьютера с помощью этой функции.

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

/* РРјСЏ: Lock.jsВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В  */

/* Язык: JScript                                                   */

/* Описание: Блокировка рабочей станции                            */

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

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

var

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

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

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

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

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

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

//Выводим запрос на блокировку рабочей станции

Res=WshShell.Popup("Заблокировать рабочую станцию?",0,

В "",vbQuestion+vbYesNo);

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

 //Блокируем рабочую станцию

В WshShell.Run("Rundll32.exe user32.dll,LockWorkStation");

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

РР· сценария WSH можно вызвать диалоговое РѕРєРЅРѕ, РІ котором производится выбор действия РїСЂРё завершении работы Windows (СЂРёСЃ. 11.27).

Рис. 11.27. Диалоговое окно выключения компьютера

Для этого необходимо вызвать метод ShutdownWindows() объекта Shell.Application. Соответствующий пример приведен в листинге 11.19.

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

/* РРјСЏ: ShutdownWindow.jsВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В  */

/* Язык: JScript                                                   */

/* Описание: Вызов окна выключения компьютера                      */

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

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

var

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

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

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

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

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