标题: 查杀进程批处理 [打印本页]
作者: fation 时间: 2009-12-23 15:43 标题: 查杀进程批处理
哪位高人给写个批处理 查出所有进程的pid并导入到txt文本中 （提示：在2000的操作系统）
不支持tlist命令
作者: mountvol 时间: 2009-12-24 20:42
2000下用vbs不是简单得多?
作者: fation 时间: 2009-12-25 11:28
那应该怎么弄阿 不懂vbs
作者: microshaoft 时间: 2009-12-25 13:19
wmi
作者: mountvol 时间: 2009-12-25 19:23
不知道2000下这个代码可不可以，因为wmi在2000下和在xp中是有区别的。
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("a.txt",2,True)
Set oShell = CreateObject("WScript.Shell")
For Each x In GetObject("Winmgmts:Win32_Process").Instances_
oFile.WriteLine x.ProcessId & vbTab & x.Name
Next
oFile.Close
oShell.Run "a.txt"
Set oFile = Nothing
Set oFSO = Nothing
Set oShell = Nothing
Set oFile = oFSO.OpenTextFile("a.txt",2,True)
Set oShell = CreateObject("WScript.Shell")
For Each x In GetObject("Winmgmts:Win32_Process").Instances_
oFile.WriteLine x.ProcessId & vbTab & x.Name
Next
oFile.Close
oShell.Run "a.txt"
Set oFile = Nothing
Set oFSO = Nothing
Set oShell = Nothing