Option Explicit
Dim loginwin,child,i
Set loginwin=description.Create()
loginwin("application version").value="internet explorer 6" '所有页面的application version属性值都是internet explorer 6,也可以用其他属性
Set child=desktop.ChildObjects(loginwin)
msgbox child.count
For i=1 to child.count
child(i-1).close
Next