broly

楼主，你想实现什么功能？
你的代码缩进风格要改善。特别if ， for之类的嵌套时，如果你没有良好的缩进风格，要看清楚你的代码很费劲的。

If pro_name=LCase(Arry_Name(i)) Then Set New_Process = wmi.execquery("select * from win32_process where name ="& LCase(Arry_Name(i)))

红字部分，难以理解

broly

回复 6# 秋风·飞扬


    我理解错误了。我忘记了VBS用=号比较的。我碰到的语言用==比较的情况比较多，就习惯性的以为这里是个赋值语句。囧了

broly

要用数组干嘛？

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='cmd.exe'") 
For Each objProcess in colProcessList
  objProcess.Terminate()
Next
复制代码