Kill PopupClose all Internet Explorer windows that are opened from another one
File Name : killpopup.vbs Requirement : Internet Explorer Author : Jean-Luc Antoine Submitted : 25/08/2001 Category : 4K Dim J,L 'Known bug : don't do right click on an IE icon in the taskbar, it freezes Set J=CreateObject("Shell.Application") on error resume next Do WScript.Sleep 2000 if instr(ucase(wscript.fullname),"CSCRIPT") Then wscript.echo Now For L=0 to J.windows.count-1 With J.windows.item(L) If IsObject(.document.frames) Then If Not isObject(.document.frames.opener) Then rem Copyright 2001 Jean-Luc Antoine Else .document.frames.close End if End If End With Next Loop |
|||||
![]()
|
|