Set SHApp = CreateObject("Shell.Application")
Dim i,n
Dim win(100)
n=0
'Do
For Each SHWin In SHApp.windows
'WSH.Echo SHWin.FullName
'WSH.Echo SHWin.LocationURL
'WSH.Echo SHWin.LocationName
Set win(n)=SHWin
'SHWin.Quit
n=n+1
'If InStr(SHWin.LocationURL, "www.baidu.com") > 1 Then
' SHWin.Quit
'ElseIf SHWin.LocationURL = "file:///D:/" Then
' SHWin.Quit
'ElseIf SHWin.LocationURL = "file:///C:/" Then
' Exit Do
'End If
Next
'WSH.Sleep(1000)
'Loop