Set desc = Description.Create
desc("micclass").Value = "Browser"
Set colBrowser = Desktop.ChildObjects(desc)
For i = 0 to colBrowser.Count - 1
MsgBox colBrowser(i).GetROProperty("version")
Next
Set desc = Nothing
Set colBrowser = Nothing
No comments:
Post a Comment