|
Свойство 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 |
| HOMEDRIVE |
Первый
локальный диск (обычно c:) |
- |
- |
X |
| PATH |
Заданные
системные пути |
X |
X |
X |
| PATHEXT |
Исполняемые файлы (.exe , .com и т.д.) |
X |
- |
X |
| SYSTEMDRIVE |
Диск на
котором находится директория с операционной системой |
- |
- |
X |
| SYSTEMROOT |
Директория Windows |
- |
- |
X |
| WINDIR |
Директория Windows |
X |
- |
X |
| TEMP или TMP |
Папка
для временных файлов |
- |
X |
X |
Следующий пример выводит на
экран некоторые системные данные
VBScript:
‘создаем объект WshShell:
Set WshShell =
WScript.CreateObject("WScript.Shell")
‘создаем объект Environment со значением SYSTEM:
Set
WshSysEnv = WshShell.Environment("SYSTEM")
‘создаем объект Environment со значением PROCESS:
Set
WshProEnv = WshShell.Environment("PROCESS")
SysInfo = "Системные параметры компьютера:" + Chr(10)+ Chr(10)
SysInfo = SysInfo + "Процессоров: " + _
WshSysEnv("NUMBER_OF_PROCESSORS") + Chr(10)
SysInfo =
SysInfo + "Архитектура: " + _
WshSysEnv("PROCESSOR_ARCHITECTURE") +
Chr(10)
SysInfo = SysInfo + "ID процессора: " + _
WshSysEnv("PROCESSOR_IDENTIFIER") + Chr(10)
SysInfo =
SysInfo + "Поколение: " + _
WshSysEnv("PROCESSOR_LEVEL") +
Chr(10)
SysInfo = SysInfo + "Операционная система: " +
WshSysEnv("OS") + Chr(10)
SysInfo = SysInfo + "Файл командной
строки: " + _
WshProEnv("COMSPEC") + Chr(10)
SysInfo =
SysInfo + "Пути: " + WshProEnv("PATH") + Chr(10)
SysInfo = SysInfo
+ "Исполняемые файлы: " + _
WshSysEnv("PATHEXT") + Chr(10)
SysInfo = SysInfo + "Директория Windows: " + _
WshProEnv("WINDIR") + Chr(10)
SysInfo = SysInfo +
"Временная папка: " + WshProEnv("TEMP") + Chr(10)
MsgBox
SysInfo
JScript:
// создаем объект WshShell:
var WshShell =
WScript.CreateObject("WScript.Shell");
// создаем объект Environment со значением SYSTEM:
var
WshSysEnv = WshShell.Environment("SYSTEM");
// создаем объект Environment со значением PROCESS:
var
WshProEnv = WshShell.Environment("PROCESS");
var SysInfo = "Системные параметры компьютера:" + "\n" +"\n";
SysInfo += "Процессоров: " + WshSysEnv("NUMBER_OF_PROCESSORS") +
"\n";
SysInfo += "Архитектура: " +
WshSysEnv("PROCESSOR_ARCHITECTURE") + "\n";
SysInfo += "ID
процессора: " + WshSysEnv("PROCESSOR_IDENTIFIER") + "\n";
SysInfo
+= "Поколение: " + WshSysEnv("PROCESSOR_LEVEL") + "\n";
SysInfo +=
"Операционная система: " + WshSysEnv("OS") + "\n";;
SysInfo +=
"Файл командной строки: " + WshProEnv("COMSPEC") + "\n";;
SysInfo
+= "Пути: " + WshProEnv("PATH") + "\n";
SysInfo += "Исполняемые
файлы: " + WshSysEnv("PATHEXT") + "\n";
SysInfo += "Директория
Windows: " + WshProEnv("WINDIR") + "\n";
SysInfo += "Временная
папка: " + WshProEnv("TEMP") + "\n";
WScript.Echo(SysInfo);
При исполнении данных
сценариев в среде Windows 98, не удастся получить некоторые параметры.
|
