
CODE: [Copy to clipboard]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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |