We use cookies to collect and analyze information on site performance and usage,
to provide social media features and to enhance and customize content and advertisements.
Set oShell = CreateObject("WScript.Shell")
Set oProcEnv = oShell.Environment("PROCESS")
sProgramFiles = oProcEnv("ProgramFiles")
If sProgramFiles = "" Then
sProgramFiles = oShell.RegRead _
("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
End If
WScript.Echo sProgramFiles