Set oDescBrowser = Description.Create
oDescBrowser("micclass").value = "Browser"
Set allBrowsers = Desktop.ChildObjects(oDescBrowser)
Msgbox allBrowsers.Count