Board logo

标题: 怎么样结束指定进程集以外的进程? [打印本页]

作者: wfyinghun     时间: 2009-12-15 23:30    标题: 怎么样结束指定进程集以外的进程?

向大家求一个vbs或bat脚本,实现:结束指定进程集以外的进程(其中指定的进程是可以运行的程序,程序名存在一个文本文件中)
作者: mountvol     时间: 2009-12-16 14:16
CODE:  [Copy to clipboard]
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





欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5