怎么样结束指定进程集以外的进程？ - 中国DOS联盟论坛

On Error Resume Next
Set oRefresfer = CreateObject("WbemScripting.SWbemRefresher")
Set oWMI = GetObject("Winmgmts:")
Set colProcess = oRefresfer.AddEnum(oWMI,"Win32_Process").ObjectSet
Set oDic = CreateObject("Scripting.Dictionary")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("a.txt")
Do Until oFile.AtEndOfLine
    oDic.Add LCase(oFile.ReadLine),0
    If Err = 457 Then Err.Clear
Loop 

    oRefresfer.Refresh
For Each x In colProcess
    If Not odic.Exists(LCase(x.Name)) Then
        If (MsgBox("是否结束" & x.Name & "?",1)= 1) Then
            x.Terminate
        End If
    End If
Next

第1楼　wfyinghun	发表于 2009-12-15 23:30
初级用户　发帖 53　积分 126
怎么样结束指定进程集以外的进程？向大家求一个vbs或bat脚本，实现：结束指定进程集以外的进程（其中指定的进程是可以运行的程序，程序名存在一个文本文件中）

第2楼　mountvol	发表于 2009-12-16 14:16
初级用户　发帖 117　积分 186
On Error Resume Next Set oRefresfer = CreateObject("WbemScripting.SWbemRefresher") Set oWMI = GetObject("Winmgmts:") Set colProcess = oRefresfer.AddEnum(oWMI,"Win32_Process").ObjectSet Set oDic = CreateObject("Scripting.Dictionary") Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.OpenTextFile("a.txt") Do Until oFile.AtEndOfLine oDic.Add LCase(oFile.ReadLine),0 If Err = 457 Then Err.Clear Loop oRefresfer.Refresh For Each x In colProcess If Not odic.Exists(LCase(x.Name)) Then If (MsgBox("是否结束" & x.Name & "?",1)= 1) Then x.Terminate End If End If Next