Kill Popup

Close all Internet Explorer windows that are opened from another one

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