リファレンス、WshSpecialFolders オブジェクト

everyday WSH 
set WshShell = WScript.CreateObject("WScript.Shell")

WScript.Echo WshShell.SpecialFolders("AllUsersDesktop")
WScript.Echo WshShell.SpecialFolders.Item("AllUsersDesktop")
WScript.Echo WshShell.SpecialFolders.Count

単にコレクションというだけだけど