中国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