Visual Basics script的代码运行了不起作用

 do
    set bag=getobject("winmgmts:\\.\root\CIMV2")
    set pipe=bag.execquery("select * from win64_process where name='FSCapture.exe'")
    on error resume next
    for Each i In pipe
        if err.number <> 0 then
            exit for
        else
            i.terminate()
        end if
    next
    wscript.sleep 1000
loop

是想通过VBS终结FSCapture这个程序的运行，但是发现不起作用。