Код:
@mshta vbscript:Execute("Dim PsWMI, PsProcesses, PsProcess, PsList, Mess, a, b, c : Set WshShell = CreateObject(""WScript.Shell"") : Set PsWMI = GetObject(""winmgmts:"") : Set PsProcesses = PsWMI.ExecQuery(""SELECT * FROM Win32_Process"") : PsList = ""Running processes"" & vbCrLf & vbCrLf : For Each PsProcess in PsProcesses : PsList = PsList & PsProcess.Name & "" "" & PsProcess.ProcessID & "" "" & vbCrLf : Next : a = InputBox ("" "" & PsList) : Close()")
