How to get program files environment setting from VBScript

Question

In a batch file you can use %PROGRAMFILES% to get the location of the program files directory, how do you do it in a VBScript?

Solution 1

Set wshShell = CreateObject("WScript.Shell")
WScript.Echo wshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")

Solution 2

To get Program Files (x86) use:

Set wshShell = CreateObject("WScript.Shell")
WScript.Echo wshShell.ExpandEnvironmentStrings("%PROGRAMFILES(x86)%")

Comments

[Jeremy]

Nice, thanks. I have been resorting to reading the registry, but your answer is far better. Thanks.