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

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)

HOMEDRIVE

Первый локальный диск (обычно c:)

PATH

Заданные системные пути

PATHEXT

Исполняемые файлы (.exe , .com и т.д.)

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, не удастся получить некоторые параметры.

Назад по тексту | Содержание | Вперед по тексту

О проекте | История | E-mail

Copyright (C) 2000 - 2001 Alex Neverov

#bn { DISPLAY: block } #bt { DISPLAY: block }

Содержание раздела