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