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