' List Items in the "Start Menu" folder
Const START_MENU = &Hb
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(START_MENU)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path
Set fso = CreateObject("Scripting.Filesystemobject")
Set folder=fso.GetFolder(objFolderItem.Path)
For Each subfolder in folder.SubFolders
WScript.Echo "[" & subfolder.Name & "]"
Next
For Each file in folder.Files
WScript.Echo file.Name
Next