[megaloman]

VBS. Добавил еще полный путь к исполняемому файлу процесса

Код:

With CreateObject("Scripting.FileSystemObject").CreateTextFile("Z:\Box_Out\process.txt", True)
    Out = "Creation Date        Caption and ExecutablePath"
    For Each iProc In GetObject("winmgmts:").ExecQuery("Select * From Win32_Process")
        With iProc
            DT = CStr(.CreationDate)
            Out = Out + vbCrLf + Mid(DT, 1, 4) + "." + Mid(DT, 5, 2) + "." + Mid(DT, 7, 2) + " " + Mid(DT, 9, 2) + ":" + Mid(DT, 11, 2) + ":" + Mid(DT, 13, 2) + "  " + .Caption
            If Not IsNull(.ExecutablePath) Then Out = Out + "  " + .ExecutablePath
        End With
    Next
    .Write Out
    .Close
End With