How
to close all the browsers
Set objDesc=Description.Create
objDesc.Add "micclass","Browser"
set objColl=Desktop.ChildObjects(objDesc)
msgbox objColl.count
For i=0 to objColl.count-1 step 1
strBrname=objColl(i).GetRoproperty("name") ' to get the browser name
msgbox strBrname
objColl(i).close ' to close the browser
Next
Set objDesc=Description.Create
objDesc.Add "micclass","Browser"
set objColl=Desktop.ChildObjects(objDesc)
msgbox objColl.count
For i=0 to objColl.count-1 step 1
strBrname=objColl(i).GetRoproperty("name") ' to get the browser name
msgbox strBrname
objColl(i).close ' to close the browser
Next
0 comments:
Post a Comment