Особенностью синтаксиса данного метода является то, что при использовании всех параметров скобки ( ) опускаются

Запуск приложений

Информация о системе

Свойство Environment объекта WshShell, позволяет работать с системными переменными окружения. Для этого создается объект WshEnvironment

Синтаксис:

WshShell.Environment([strType])

где

strType – может принимать параметры "System", "User", "Volatile" или "Process".

Значение “Volatile" используется для работы с данными, передаваемыми другими программами, а "System", "User" и "Process" используются для работы с системными данными.

Таблица системных данных среды, доступных с помощью значений "System", "User" и "Process"

Значение	Описание	Где присутствует
System	User	Process
NUMBER_OF_PROCESSORS	Количество процессоров на данном компьютере	X	-	X
PROCESSOR_ARCHITECTURE	Тип процессора	X	-	X
PROCESSOR_IDENTIFIER	Расширенные данные о процессоре	X	-	X
PROCESSOR_LEVEL	Поколение процессора	X	-	X
OS	Операционная система	X	-	X
COMSPEC	Путь к файлу командной строки (cmd.exe или command.com)	X	-	X
HOMEPATH	Каталог по умолчанию для пользователей			X
HOMEDRIVE	Первый локальный диск (обычно С:)	-	-	X
PATH	Заданные системные пути	X	X	X
PATHEXT	Исполняемые файлы (.exe,.com и т.д.)	X	-	X
SYSTEMDRIVE	Диск на котором находится директория с операционной системой	-	-	X
SYSTEMROOT	Директория Windows	-	-	X
WINDIR	Директория Windows	X	-	X
TEMP или TMP	Папка для временных файлов	-	X	X

Объект Environment, как и все коллекции WSH, имеет свойство Count, в котором хранится число элементов коллекции, и метод Item.

Следующий пример выводит на экран некоторые системные данные

VBScript:

'создаем объект WshShell:

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

'создаем объект Environment со значением PROCESS:

Set WshProEnv = WshShell.Environment("PROCESS")

SysInfo = "Системные параметры компьютера:" + Chr(10)+ Chr(10)

SysInfo = SysInfo + "Процессоров: " + _

WshProEnv("NUMBER_OF_PROCESSORS") + Chr(10)

SysInfo = SysInfo + "Директория Windows: " + _

WshProEnv("WINDIR") + Chr(10)

SysInfo = SysInfo + "Временная папка: " + WshProEnv("TEMP") + Chr(10)

MsgBox SysInfo

С помощью метода Run объекта WshShell мы можем запускать другие приложения.

Синтаксис:

object.Run (strCommand, [intWindowStyle], [bWaitOnReturn])

где

object - объект WshShell

strCommand - исполняемая команда

Необязательные параметры:

intWindowStyle - стиль окна запускаемого приложения

bWaitOnReturn - может принимать значение true или false, указывающее, следует ли сценарию дожидаться окончания выполнения запущенного приложения. true - выполнение сценария приостанавливается до тех пор, пока не будет закрыто запущенное приложение. false - не дожидаться.

Значения, принимаемые параметром intWindowStyle:

Значение	Описание
	Запуск в скрытом виде
	Обычный размер окна, если окно свернуто или развернуто на весь экран, то ему возвращается исходный вид и положение на экране
	Запуск в свернутом виде
	Развернутое на весь экран
	Запуск в обычном размере, в неактивном состоянии (без фокуса)
	Обычный размер в неактивном состоянии, но в фокусе остается запустившее приложение

Метод Run не может вызвать приложение, если оно расположено в папке, путь к которой содержит пробелы. В этом случае путь надо заключить в тройные кавычки.

В качестве примера, с помощью метода Run запустим программу Блокнот, с загруженным вызывающим сценарием.

Dim WshShell

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

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

'Вызываем Блокнот и добавляем к нему в качестве параметра

'путь исполняемого сценария:

WshShell.Run ("%windir%\notepad " & WScript.ScriptFullName)

Дата добавления: 2015-06-25