Uriu
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
8AleX8
Вот сценарий. Можно и для удаленного компьютера нарисовать.
'/***************************************************************
'/* Переменные среды, бывает 4 вида Process,System,User,Volatile
'/***************************************************************
'Объявляем переменные
dim WshShell, i,s,t,WshEnvP,WshEnvS,WshEnvU,WshEnvV
'Создаем объект WshShell
set WshShell = WScript.CreateObject("Wscript.Shell")
'Создаем объект WshSEnv-Коллекция Process, System,User,Volatile
set WshSEnvP = WshShell.Environment("Process")
set WshSEnvS = WshShell.Environment("System")
set WshSEnvU = WshShell.Environment("User")
set WshSEnvV = WshShell.Environment("Volatile")
'===== System========
'Выводим Windir
t=WshSEnVS.Item("Windir")
WScript.Echo "Windir=" & t
WSH.Echo "Колличество элементов в коллекции System=" & WshSEnvS.count
'Цикл по все элем. коллекции Process
s= "Process " & vbCrLf
for Each i In WshSEnvP
' записываем i-й элемент коллекции WshSEnvP
s=s & i & vbCrLf
Next
WScript.Echo s
'=====System=====
s= "System " & vbCrLf
for Each i In WshSEnvS
s=s & i & vbCrLf
Next
WScript.Echo s
'========User===
s= " User" & vbCrLf
for Each i In WshSEnvU
s=s & i & vbCrLf
Next
WScript.Echo s
'======Volative=======
s= "Volatile " & vbCrLf
for Each i In WshSEnvV
s=s & i & vbCrLf
Next
WScript.Echo s
|
