用 VBScript 枚举环境键？

【问题标题】：Enumerating Environment keys with VBScript?用 VBScript 枚举环境键？
【发布时间】：2023-04-04 15:24:01
【问题描述】：

我需要枚举WScript.Shell.Environment 对象中的键。很明显，如果您已经知道密钥的名称，那么您就可以放心了：

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

...但是如果您想列出密钥，看起来您很不走运！有什么秘密通道吗？

【问题讨论】：

【解决方案1】：

WshEnvironment 对象是一个集合，因此您可以使用 VBScript 的For Each ... Next 语句枚举它：

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%
...

【讨论】：