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

Question

 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这个程序的运行，但是发现不起作用。

Answer 1

让阿豪来帮你解答，本回答参考chatgpt3.5编写提供，如果还有疑问可以评论或留言

问题分析：

1. 可能是获取WMI对象时出现了问题。
2. 可能是查询语句中的进程名称不正确。
3. 可能是在执行terminate()方法时出现了错误。 解决方法：
4. 确保正确获取到WMI对象。
5. 确保查询语句中的进程名称正确。
6. 确保正确执行terminate()方法。 参考修正代码如下：

On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='FSCapture.exe'")
For Each objProcess in colProcesses
    objProcess.Terminate
Next

请注意，以上代码修正了查询语句中的进程名称，同时确保了正确执行terminate()方法。如果仍然无法终结FSCapture.exe的运行，可能是权限或其他原因导致，请检查并排除其他可能性。