VBS（VBScript）によるAllUsers（パブリック）のプログラムパスを取得する方法を紹介
AllUsers（パブリック）のプログラムパスを取得する方法
サンプルソース
（入力）
Dim WS, SP
Set WS = CreateObject("WScript.Shell")
SP = WS.SpecialFolders("AllUsersPrograms")
WScript.Echo SP
（出力）
C:\ProgramData\Microsoft\Windows\Start Menu\Programs