Cómo llegar ambiente de archivos de programa de ajuste desde VBScript

Question

En un archivo por lotes se puede utilizar% PROGRAMFILES% para obtener la ubicación del directorio de archivos de programa, ¿cómo se hace en un VBScript?

Answer 1

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

Answer 2

Para obtener Archivos de programa (x86) utilizar:

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