古早-脚本-vbs-关闭多余进程

'提升为管理员权限，否则无法干掉SYSTEM进程
Set WshShell = WScript.CreateObject("WScript.Shell") 
If WScript.Arguments.Length = 0 Then
  Set ObjShell = CreateObject("Shell.Application") 
  ObjShell.ShellExecute "wscript.exe" _ 
  , """" & WScript.ScriptFullName & """ RunAsAdministrator", , "runas", 1 
  WScript.Quit 
End if

'添加需要批量关闭的进程名
Dim PsName
PsName="Closed "
Dim Dic : Set Dic = CreateObject("Scripting.Dictionary")
Dic.Add "AdobeCrashProcessor", "Adobe Crash Processor.exe"
Dic.Add "AdobeIPCBroker", "AdobeIPCBroker.exe"
Dic.Add "CCXProcess", "CCXProcess.exe"
Dic.Add "CCLibrary", "CCLibrary.exe"
Dic.Add "msedge", "msedge.exe"

'关闭进程方法
sub Close_Process(ProcessName) 
'On Error Resume Next：出现错误继续执行
'On Error Goto 0：出现错误中断并弹出错误
On Error Resume Next 
    for each process in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ 
        if Ucase(process.name)=Ucase(ProcessName) then 
            process.terminate 
        end if 
    next 
end sub 

'循环关闭进程
For i = 0 To Dic.Count - 1
    Dim DictKeys, DictItems
    DicKeys = Dic.Keys
    DicItems = Dic.Items
    PsName=PsName+" "+DicKeys(i)
    Close_Process(DicItems(i))
Next

' msgbox PsName
Leave a ReplyCancel
