scripting - 如何停止Windows中运行的VB脚本

Question

我正在使用Windows 7

我编写了一个脚本来检查我的笔记本电脑是否以电池或交流电运行。
我用谷歌搜索并成功了。

dim a
a=1
Do While a=1 
If IsLaptop( "." ) Then
   ' WScript.Echo "Laptop"
Else
   ' WScript.Echo "Desktop or server"
End If
Loop

Function IsLaptop( myComputer )
    On Error Resume Next    
    Set objWMIService = GetObject( "winmgmts://" & myComputer & "/root/cimv2" )
    Set colItems = objWMIService.ExecQuery( "Select * from Win32_Battery", , 48 )
    IsLaptop = False
    For Each objItem in colItems
        if objItem.BatteryStatus=2 and objItem.EstimatedChargeRemaining=98 then
             WScript.Echo "Remove Ac Adapter Immediately"
        elseif objItem.BatteryStatus=1 and objItem.EstimatedChargeRemaining=10 then
             WScript.Echo "Pluggin to charger immediately"
        end if
    Next
    If Err Then Err.Clear
    On Error Goto 0
End Function

但是我现在的问题是。此脚本曾经运行过的脚本，如果我希望手动终止，该如何停止。

有什么办法可以找到这个过程并在Windows中停止吗？

Answer 1

我可以想到至少两种不同的方式:

使用任务管理器(Ctrl-Shift-Esc)的

，选择“进程”选项卡，查找进程名称cscript.exe或wscript.exe，然后使用“结束进程”。

在命令行中，您可以使用taskkill/fi“imagename eq cscript.exe”(根据需要更改为wscript.exe)

另一种方法是使用脚本和WMI。这里有一些提示:查找Win32_Process类和Terminate方法。