api - 使用 VBScript 枚举环境键？

Question

我需要枚举 WScript.Shell.Environment 中的键目的。很明显，如果您已经知道 key 的名称，那么您就可以免费回家:

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

...但如果你想列出 key ，看起来你运气不好!某处有 secret channel 吗？

Answer 1

WshEnvironment object 是一个集合，因此您可以使用 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%
...