Информация о системе
4.5. Информация о системе
Свойство 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
-
-
X
X
X
X
X
-
X
-
-
X
-
-
X
X
-
X
-
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, не удастся получить некоторые параметры.
Назад по тексту | Содержание | Вперед по тексту
О проекте | История | E-mail |
Copyright (C) 2000 - 2001 Alex Neverov
#bn { DISPLAY: block } #bt { DISPLAY: block }
