Vbscript 如何使用Vb脚本终止VBS文件

如何使用Vb脚本终止VBS文件。。我试过这个代码但它不起作用

Call StopProcessVBS(strComputer,strProcess)

Function StopProcessVBS (strComputerArg,strProcessArg)
    Set WshShell = CreateObject("WScript.Shell")
    Dim objWMIService, colProcessList
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputerArg & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'cscript.exe' OR Name = 'wscript.exe'")
    For Each objItem in colItems
        If objItem.CommandLine = strProcessArg  Then
            **objItem.CommandLine.Terminate()**
        End If
    Next


    Set WshShell = Nothing
    Set objWMIService = Nothing
    Set colItems = Nothing
End Function

---

终于工作了，尝试了下面的代码

strComputer = "."
Call StopProcessVBS(strComputer,strProcess)

Function StopProcessVBS (strComputerArg,strProcessArg)
    Set WshShell = CreateObject("WScript.Shell")
    Dim objWMIService, colProcessList
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputerArg & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'cscript.exe' OR Name = 'wscript.exe'")
    For Each objItem in colItems
        If Instr (1,Replace(objItem.CommandLine,"""",""),strProcessArg)  Then
            objItem.Terminate()
        End If
    Next

    Set WshShell = Nothing
    Set objWMIService = Nothing
    Set colItems = Nothing
End Function

---

您是否尝试过搜索现有答案？相关问题：在你看来，“VBS”和“Vb脚本”有什么区别？定义（详细！）“不工作”？您能否终止命令行（与进程相反）？您传递什么作为strProcessArgs？strProcess=“xxx.vbs”strComputer=“.”调用StopProcessVBS（strComputer，strProcess）来终止进程我应该使用objItem.terminate（）。。。。请参阅下面更正的代码。。。