[问题求助] [已解决]结束进程的VBS代码中for each语句为何会报错呢？

秋风·飞扬

strComputer="."
Set wmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set Get_Process=wmi.instancesof("win32_process")


For Each Process In Get_Process
count=count+1
ReDim Preserve Array_Name(count-1)
Array_Name(count-1)=Process.name
Next

Input= InputBox("请输入要结束的进程名称：")

For i=0 To count
ReDim Preserve Array_Name(count)
If Input=Array_Name(i) Then 
Set New_Process = wmi.execquery("select * from win32_process where name ="&  Array_Name(i) )
For Each Over_Process In New_Process
Over_Process.terminate()
Next
Set New_Process = Nothing
Set Over_Process= Nothing
End If 
Next 

Set wmi = Nothing 
Set Get_Process = Nothing 
Set Process =  Nothing 
复制代码

报错是在上面的第18行

代码的目的是，想实现用inputbox输入一个进程的名字，例如输入taskmgr.exe ，然后结束它。

秋风·飞扬

回复 2# powerbat


    OK,我以后好好改善一下

秋风·飞扬

回复 3# broly


    恩，我会改进的

秋风·飞扬

回复 3# broly


    嘿嘿 ，那个红字部分就是我输入的值，和原来数组里面的值对比，如果相等那么就进行下一步，我稍微改一下吧

秋风·飞扬

回复 7# broly


    哈哈 ，知识都学杂了

秋风·飞扬

回复 9# broly


    数组存放了所有进程的名称，起初有个查询进程的功能，我本来的目的就是我知道进程名字，我就可以在inputbox里面输入，然后结束它，所以我让where name = &  Array_Name(i) 这数组就用到这里面了，也不知道这样的用法对不对

秋风·飞扬

回复 12# powerbat


    听君一席话，胜读十年书。

秋风·飞扬

回复 11# powerbat


    cscript.exe调试，说实话，还真没有用这个调试的习惯，多谢指点。