向大家求一个vbs或bat脚本，实现：结束指定进程集以外的进程（其中指定的进程是可以运行的程序，程序名存在一个文本文件中）
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 怎么样结束指定进程集以外的进程？
查看 590 回复 1
楼 主
怎么样结束指定进程集以外的进程？
发表于 2009-12-15 23:30 · 中国 湖北 武汉 电信
第 2 楼
发表于 2009-12-16 14:16 · 中国 湖北 荆门 电信
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
论坛跳转: