the code below from ED closes all internet windows.

oShell = CREATEOBJ('Shell.Application')
oIEColl = oShell.Windows
FOR EACH oInstance in oIEColl
oInstance.Quit
ENDFOR
oIEColl = NULL
oShell = NULL

but there are two problems :
1 - it closes the windows explorer window too.
2 - it can't close the "Internet Explorer_Frame" class objects.

how to solve these problems ?