Перечисление ключей среды с помощью VBScript?

Question

Мне нужно перечислить ключи в объекте WScript.Shell.Environment. Понятно, что если вы уже знаете имя ключа, вы дома бесплатно:

Set oShell = WScript.CreateObject("WScript.Shell") 
Debug.WriteLine "PATH=" & oShell.Environment("PATH") 

... но если вы хотите получить список ключей, похоже, вы не повезло! Где-то есть секретный проход?

Answer 1

Объект WshEnvironment представляет собой коллекцию, так что вы можете перечислить его с помощью For Each ... Next о VBScript в:

Set oShell = WScript.CreateObject("WScript.Shell") 
Set oEnv = oShell.Environment 

For Each strVar in oEnv 
    WScript.Echo strVar 
Next 

Выход содержит имена переменных и среды и значения, как это:

ComSpec=%SystemRoot%\system32\cmd.exe 
NUMBER_OF_PROCESSORS=2 
TEMP=%SystemRoot%\TEMP 
TMP=%SystemRoot%\TEMP 
windir=%SystemRoot% 
...