Set objShell = CreateObject("Shell.Application")
Set colTools = objShell.Namespace(47).Items
For Each objTool in colTools
Wscript.Echo objTool
Next
Set colTools = objShell.Namespace(47).Items
For Each objTool in colTools
Wscript.Echo objTool
Next