O seguinte VBScript irá enumerar todas as janelas, encontrar aquelas que combinam com a URL que você gostaria de encontrar e depois fechar a aba / janela.
Set sa = CreateObject("Shell.Application")
Set windows = sa.Windows()
For Each window In sa.windows
If left(window.LocationUrl, 5) <> "file:" Then
' logic for selecting windows goes here
If InStr(window.locationUrl,"www.google.com") Then window.Quit()
If UCase(window.locationUrl) = UCase("about:tabs") Then window.Quit()
End If
Next
A seção If InStr
pode ser usada para fazer uma pesquisa parcial de URL, enquanto o If UCase
pode ser usado para comparação exata de string. Ajuste de acordo. Não deve ser muito difícil modificar o script para passar um arquivo de texto com uma lista de URLs para procurar e fechar as janelas encontradas.
Você pode testá-lo abrindo várias guias no IE, abrindo www.google.com
e deixando outras em about:Tabs
, executando o script e observando enquanto as guias / janelas fecham.
Este script é baseado em um encontrado aqui .