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?

Answer 1

To get Program Files (x86) use:

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

Answer 2

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