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