Determine if a site requires login, if so close browser

Afternoon all,
I am trying to open an array of sites, if a login box pops up I want to
close that window. Any ideas?

I currently have this

OpenWebSites

WScript.echo "Done"

WScript.quit


Sub OpenWebSites

Dim objHTML

Dim sUrls

Dim sBody

Const DELIMITER = ","


sUrls =
Split("https://mail02.innovasi.com/exchange,http://www.google.com",DELIMITER)

Set objHTML = CreateObject("InternetExplorer.Application")


For j = 0 To UBound(sUrls)

objHTML.Visible = True

objHTML.Navigate(sUrls(j))


while objHTML.ReadyState <> 4

WScript.sleep 50

WScript.echo objHTML.Readystate

wend


sBody = objHTML.Document.body.innerText

WScript.echo sBody

Next


End Sub