!!!Program Filesの情報を取り出す

!!フォルダの一覧を取得する(takanaoさん）

 Set shell = CreateObject("WScript.Shell")
 Set process = shell.Environment("PROCESS")
 programFiles = process("ProgramFiles")
 msgbox programFiles

!!フォルダの中身（トップレベルまで）取得する(takanaoさん）
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set programFilesFolder = fso.GetFolder(programFiles)
 For Each folder in programFilesFolder.SubFolders
 WScript.Echo folder.Name
 Next