▲VBScript（複数のIEを一気に終了する）

VBスクリプトネタ第2弾です。
最近IEを一気にたくさん開いておこなう作業が多くて、終了する際に一画面一画面閉じていたのですが
いい加減面倒くさくなったので一気に閉じるVBSを作成してみました。
IEにはWordのように一気に閉じる機能がないようなので自作しました。
テキストエディタに張り付けて、ショートカットファイルをツールバーの「クイック起動」に置いておけば、即座
にIEを終了することができます。お試しあれ。
ほぼこのままVBAにしても実行できます。

Option Explicit

Dim lVal
Dim oWinS
Dim objShell
Dim objWindowsShell

Set objShell = CreateObject("Shell.Application")
Set objWindowsShell = objShell.Windows()

Dim a
Dim i
ReDim a(0)
For Each oWinS In objWindowsShell
    If InStr(LCase(oWinS.FullName), "iexplore.exe") > 0 Then
        i = i + 1
        ReDim Preserve a(i)
        Set a(i) = oWinS
    End If
Next
For i = 1 To UBound(a)
    a(i).Quit
Next

Set oWinS = Nothing
Set objShell = Nothing
Set objWindowsShell = Nothing
WScript.Quit