Windows Script Host для Windows 2000/XP

oUrlLink = WshShell.CreateShortcut("Microsoft Web Site.URL");
//Устанавливаем URL
oUrlLink.TargetPath = "http://www.microsoft.com";
//Сохраняем ярлык
oUrlLink.Save;
/************* Конец *********************************************/

Примеры работы с ярлыками приведены в листингах 1.19–1.24, 2.43 и 2.44.

Метод Environment

Параметр strType задает вид переменных среды, которые будут записаны в коллекции WshEnvironment; возможными значениями этого параметра являются "System" (переменные среды операционной системы), "User" (переменные среды пользователя), "Volatile" (временные переменные) или "Process" (переменные среды текущего командного окна).

Замечание 

Для Windows 9х единственным допустимым значением параметра strType

является "Process".

В следующем примере мы распечатываем число процессоров, имеющихся в компьютере с операционной системой Windows NT/2000/XP (переменная NUMBER_OF_PROCESSORS), и путь к каталогу Windows (листинг 1.15).

Листинг 1.15. Печать значений переменных среды (объект WshShell.Environment)

/*****************************************************************/
/* Имя: ShowEnvir.js */
/* Язык: JScript */
/* Описание: Получение значений некоторых переменных среды */
/*****************************************************************/
var WshShell,WshSysEnv;
//Создаем объект WshShell
WshShell = WScript.CreateObject("WScript.Shell");
//Создание коллекции WshEnvironment
WshSysEnv = WshShell.Environment("SYSTEM");
WScript.Echo(WshSysEnv("NUMBER_OF_PROCESSORS"));
WScript.Echo(WshShell.Environment.Item("WINDIR"));
/************* Конец *********************************************/

Метод ExpandEnvironmentString

В следующем примере на экран выводится путь к каталогу Windows (листинг 1.16).

Листинг 1.16. Печать значений переменных среды (ExpandEnvironmertStrings)

/*****************************************************************/
/* Имя: ExpEnvStr.js */
/* Язык: JScript */
/* Кодировка: Windows */
/* Описание: Получение значений переменный среды с помощью */
/* метода ExpandEnvironmentString */
/*****************************************************************/
var WS = WScript.CreateObject("WScript.Shell");
WScript.Echo("Каталог Windows:"+WS.ExpandEnvironmentStrings("%WinDir%"));
/************* Конец *********************************************/

Метод LogEvent

В Windows NT/2000/XP события записываются в системном журнале, а в Windows 9х — в файле WSH.log, расположенном в каталоге пользователей Windows. Запись в WSH.log будет содержать время события, его тип и текст. Типы сообщений описаны в табл. 1.9.

Таблица 1.9. Типы сообщений (параметр intType)

Код	Значение	Код	Значение
0	SUCCESS	4	INFORMATION
1	ERROR	8	AUDIT_SUCCESS
2	WARNING	16	AUDIT_FAILURE

В следующем примере производится протоколирование работы сценария регистрации (здесь предполагается, что если этот сценарий отработал успешно, то функция RunLoginScript возвращает true, в противном случае — false):

var WshShell = WScript.CreateObject("WScript.Shell");
rc = RunLoginScript;
if (rc) WshShell.LogEvent(0,"Logon Script Completed Successfully");
else WshShell.LogEvent(1,"Logon Script failed");

Метод Popup

Если в методе не задан параметр strTitle, то по умолчанию заголовком окна будет "Windows Script Host."

Параметр nType может принимать те же значения, что и в функции MessageBox из Microsoft Win32 API. В табл. 1.10 описаны некоторые возможные значения параметра nType и их смысл (полный список значений этого параметра можно посмотреть в описании функции MessageBox в документации по функциям Windows API).

Таблица 1.10. Типы кнопок и иконок для метода Popup

Значение nType	Константа Visual Basic	Описание
0	vbOkOnly	Выводится кнопка OK
1	vbOkCancel	Выводятся кнопки OK и Отмена (Cancel)
2	vbAbortRetryIgnore	Выводятся кнопки Стоп (Abort), Повтор (Retry) и Пропустить (Ignore)
3	vbYesNoCancel	Выводятся кнопки Да (Yes), Нет (No) и Отмена (Cancel)
4	vbYesNo	Выводятся кнопки Да (Yes) и Нет (No)
5	vbRetryCancel	Выводятся кнопки Повтор (Retry) и Отмена (Cancel)
16	vbCritical	Выводится значок Stop Mark
32	vbQuestion	Выводится значок Question Mark
48	vbExclamation	Выводится значок Exclamation Mark
64	vbInformation	Выводится значок Information Mark