hCORe писал(а):Pentium 4 2 GHz, RAM 1024 - 464320789 значений в секунду. Результат почти как у Athlon XP 2000+ Странно
System Idle Process
System
SMSS.EXE
CSRSS.EXE
WINLOGON.EXE
SERVICES.EXE
LSASS.EXE
ATI2EVXX.EXE
SVCHOST.EXE
SVCHOST.EXE
SVCHOST.EXE
SVCHOST.EXE
SPOOLSV.EXE
ALG.EXE
OUTPOST.EXE
SPIDERNT.EXE
vmware-authd.exe
VMNAT.EXE
vmnetdhcp.exe
SVCHOST.EXE
Explorer.EXE
Amoumain.exe
SPIDERNT.EXE
spiderml.exe
ctfmon.exe
cdslow.exe
winamp.exe
Opera.exe
wmiprvse.exe
CPU Test.exe
WSCRIPT.EXE
FAKK2 писал(а):Не, ну если я вырублю Винамп и запущу систему в Safe Mode...
'/********************************************************************/
'/* Имя: ListProcesses.vbs */
'/* Язык: VBScript */
'/* Описание: Вывод на экран списка всех запущенных на локальной */
'/* рабочей станции процессов */
'/********************************************************************/
Dim WMI ' //Экземпляр WMI
Dim Process ' //Экземпляр коллекции
dim SQuery
Dim SList ' //Строка для вывода на экран
dim WshShell '
Dim Processes 'Коллекция процессов
Dim ListFile 'имя файла вывода
Dim FSO 'объект файловой системы
' //Соединяемся с WMI
Set FSO=CreateObject("Scripting.FileSystemObject")
set WMI=GetObject("winMgmts:")
'Формируем текст запроса
SQuery="SELECT * FROM Win32_Process " 'WHERE "' Name='*'"
'Создаем коллекцию-результат запроса
set Processes=WMI.ExecQuery(SQuery)
'Цикл по всем элементам коллекции
for each Process in Processes
'set Process=Processes.item(Process)
' //Формируем строку с именами процессов
SList=SList & Process.Name & vbcr
next
'//Выводим информацию на экран
'MsgBox SList,,"Список запущенных процессов."
'// или выводим информацию в файл
Set ListFile=FSO.CreateTextFile("C:\ListProcess.txt")
ListFile.write(SList)
ListFile.close
Set ListFile=Nothing
Set FSO=Nothing
Set WMI=nothing
WScript.Quit
'/************* Конец *********************************************/
all
Надо каждый раз версию выкладывать?
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 30