哪位高人给写个批处理 查出所有进程的pid并导入到txt文本中 (提示:在2000的操作系统)
不支持tlist命令
不支持tlist命令
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
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