убийство процессов в vbscript


Я пытаюсь убить все экземпляры процесса, называемого "AetherBS.exe" но на следующий VBScript не работает. Я точно не знаю где/почему это провал.

Так как я могу убить все процессы "AetherBS.exe?"

CloseAPP "AetherBS.exe"Function CloseAPP(Appname)    strComputer = "."    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")    Set colItems = objWMIService.ExecQuery( _        "SELECT * FROM Win32_Process", , 48)    For Each objItem In colItems        If InStr(1,Ucase(objItem.Name),Appname) >= 1 Then            objItem.Terminate        End If    NextEnd Function