如何使循环 VBScript 静默运行？ [复制]答案

【问题标题】：How to make a loop VBScript run silently? [duplicate]如何使循环 VBScript 静默运行？ [复制]
【发布时间】：2020-11-27 02:34:22
【问题描述】：

我有一个应该使用循环终止 mspaint.exe 进程的 VBScript。

Dim oShell : Set oShell = CreateObject("WScript.Shell")
do
WScript.Sleep 3000
' Kill paint '
oShell.Run "taskkill /im mspaint.exe", , True
loop

它可以工作，但是每次循环时，命令提示符窗口都会成为最顶部和活动的窗口大约半秒，然后关闭。这很不方便，因为我希望它在后台运行。

【问题讨论】：

标签： vbscript

【解决方案1】：

程序员不会运行用户的命令。

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Do
    Set colItems = objWMIService.ExecQuery("Select * From Win32_Process")

    For Each objItem in colItems
        If LCase(objItem.name) = "mspaint.exe" then 
                objItem.terminate
        End If
    Next
    WScript.Sleep 3000
Loop

【讨论】：