Script to close all the browsers

1. ''Suppose there are 10 browser ;;; write script to close all the browsers  ''The below script will close all the open browser


dim d
set d=Description.Create
d("micclass").value="Browser"
set a=Desktop.ChildObjects(d)
for i=0 to a.count-1
   a(i).close
Next


2.  There are 10 browsers and in that 1 browser is mercury tours website.... except mercury tours browser all the other browsers should be closed
'' Get all the browsers and for each browser get the title
'' in the title if "mercury" word is not there then close

dim d
set d=Description.Create
d("micclass").value="Browser"
set a=Desktop.ChildObjects(d)
for i=0 to a.count-1
   s=a(i).getROProperty("title")
   if instr(1,s,"Mercury")=0 Then
     a(i).close
   End if
Next

Publish Post

----------------------