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

【问题标题】：How to terminate a VBS File using Vb script如何使用 Vb 脚本终止 VBS 文件
【发布时间】：2014-11-20 16:23:17
【问题描述】：

如何使用 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

【问题讨论】：

您是否尝试过搜索现有答案？相关问题：stackoverflow.com/questions/893237/…
你心目中的“VBS”和“Vb脚本”有什么区别？
定义（详细！）“不工作”？您可以终止命令行（而不是进程）吗？你传递什么作为 strProcessArgs？
strProcess = "xxx.vbs" strComputer = "."调用 StopProcessVBS(strComputer,strProcess) 来终止我应该使用 objItem.Terminate().... 请参考下面更正的代码...

标签： vbscript process terminate

【解决方案1】：

终于成功了，试了下面的代码

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

【讨论】：