| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Просмотр процессов на удаленной машине [D7, WinXP]
LexusU © (2006-11-20 19:10:00)Как реализовать просмотр процессов на удаленной машине? Предлагали использовать wtsapi32.dll, но как и какими функциями этой библиотеки пользоваться не знаю
user51 (2006-11-22 17:27:00) [1]вообщето у комманды есть ключи для вывода дополнительной инфы.
>Eraser © (22.11.06 16:33) [9]
да и чем парсить вот такой файл, проще самому реализовать - кода меньше, возможностей больше.
Кому как - может LexusU проще файл парсить
Себе то я сделал по другому.
Eraser (2006-11-22 16:33:00) [2]> [7] user51 (22.11.06 09:36)
ну и? а если понадобится доп. информация по каждому процессу?
да и чем парсить вот такой файл, проще самому реализовать - кода меньше, возможностей больше.
user51 (2006-11-22 09:37:00) [3]Это вот вывелось на экран
Џђ…„“Џђ…†„…Ќ€…: “зҐвлҐ ¤ лҐ Ї®«м§®ў вҐ«п Ґ ¬®Јгв Ўлвм ЁбЇ®«м§®ў л ¤«п ¬Ґбвле Ї®¤Є«о票©.
€¬п ®Ўа § PID €¬п бҐббЁЁ ь бҐ б Џ ¬пвм
========================= ====== ================ ======== ============
System Idle Process 0 Console 0 16 ЉЃ
System 4 Console 0 208 ЉЃ
smss.exe 540 Console 0 504 ЉЃ
csrss.exe 660 Console 0 5я448 ЉЃ
winlogon.exe 684 Console 0 11я640 ЉЃ
services.exe 732 Console 0 2я976 ЉЃ
lsass.exe 744 Console 0 1я348 ЉЃ
svchost.exe 896 Console 0 4я352 ЉЃ
svchost.exe 976 Console 0 3я384 ЉЃ
svchost.exe 1024 Console 0 41я444 ЉЃ
svchost.exe 1108 Console 0 2я692 ЉЃ
svchost.exe 1152 Console 0 5я084 ЉЃ
spoolsv.exe 1316 Console 0 4я024 ЉЃ
nhksrv.exe 1408 Console 0 792 ЉЃ
avp.exe 1428 Console 0 8я600 ЉЃ
svchost.exe 1460 Console 0 2я664 ЉЃ
mdm.exe 1552 Console 0 2я612 ЉЃ
r_server.exe 1588 Console 0 2я664 ЉЃ
StarWindService.exe 1636 Console 0 1я656 ЉЃ
svchost.exe 1692 Console 0 2я980 ЉЃ
wdfmgr.exe 1724 Console 0 1я484 ЉЃ
CALMAIN.exe 1820 Console 0 1я920 ЉЃ
alg.exe 436 Console 0 2я924 ЉЃ
svchost.exe 192 Console 0 2я792 ЉЃ
explorer.exe 2280 Console 0 23я556 ЉЃ
hkcmd.exe 2424 Console 0 1я492 ЉЃ
MMKeybd.exe 2460 Console 0 4я700 ЉЃ
Traymon.exe 2572 Console 0 1я272 ЉЃ
osd.exe 2580 Console 0 1я544 ЉЃ
avp.exe 2588 Console 0 2я740 ЉЃ
ctfmon.exe 2612 Console 0 2я240 ЉЃ
Actual Reminder.exe 2656 Console 0 5я524 ЉЃ
Opera.exe 2892 Console 0 33я400 ЉЃ
Icq.exe 3044 Console 0 20я700 ЉЃ
dmaster.exe 3672 Console 0 5я780 ЉЃ
Ab.exe 3708 Console 0 4я180 ЉЃ
HelpCtr.exe 904 Console 0 21я516 ЉЃ
HelpSvc.exe 1072 Console 0 10я088 ЉЃ
HelpHost.exe 2024 Console 0 6я784 ЉЃ
Far.exe 2244 Console 0 3я488 ЉЃ
delphi32.exe 1476 Console 0 45я048 ЉЃ
HelpCtr.exe 2140 Console 0 24я172 ЉЃ
HelpCtr.exe 2540 Console 0 17я412 ЉЃ
center.exe 2604 Console 0 5я236 ЉЃ
cmd.exe 2856 Console 0 1я240 ЉЃ
tasklist.exe 2868 Console 0 3я604 ЉЃ
wmiprvse.exe 1444 Console 0 5я616 ЉЃ
user51 (2006-11-22 09:36:00) [4]Прикалывает настойчивое желание посетителей сайта делать простое через
сложное, избретать велосипед ,написать лучше чем это уже сделали дяди из микрософт и в конце концов не сделать.
Пуск - справка и поддержка -найти
ввести tasklist.exe
winexec( pchar('cmd.exe /c tasklist.exe /s 192.168.0.1 /u compvova\vova /p 123 > 1.txt'),1); //собственно получение списка в файл 1.txt
sleep(2000); //ждем пока список сформируется, можно сделать и поумнее
winexec( pchar('cmd.exe /c 1.txt'),1); //это просто вывод на экран
Надеюсь файл текстовый разобрать сможете
Eraser (2006-11-22 00:32:00) [5]> [3] Чапаев © (21.11.06 12:56)
> Не без геморроя, но в итоге заработала.
Offtop:
пол дня сегодня угробил на то чтобы сделать такую, казалось бы, элементраную весч - через WMI поменять дескриптор безопасности у каталога..
это ужоссс какой-то ..
ну зато подвспомнил вариантные массивы и т.п. :)
Eraser (2006-11-21 14:28:00) [6]> [2] LexusU (21.11.06 10:50)
> IEnumVariant
добавь модуль ActiveX.
> FThreadConnection
не трудно догадаться, что это кусок из моего проекта..FThreadConnection замени на что-нибудь свое )
> [3] Чапаев © (21.11.06 12:56)
> Не без геморроя, но в итоге заработала.
работает в принципе без проблем, вот только больше заточена под скриптовой язык.
Чапаев (2006-11-21 12:57:00) [7]ЗЫ. Конкретных советов не дам, сам уже не помню, что и как делал. Но что сделать можно -- факт.
Чапаев (2006-11-21 12:56:00) [8]> [2] LexusU (21.11.06 10:50)
Помню, пользовал её. Не без геморроя, но в итоге заработала.
LexusU (2006-11-21 10:50:00) [9]А здесь Active DS Type Library (Version 1.0) точно нужна? Типов в ней, которые в коде есть, не встречаются. А вот делфа на IEnumVariant и FThreadConnection ругается. не находит таких типов. Может другая библиотека нужна?
Eraser (2006-11-20 21:11:00) [10]> [0] LexusU (20.11.06 19:10)
с пом. WMI можно.. приблизительнотак
var
SWbemLocator1: TSWbemLocator;
Service: ISWbemServices;
objSet: ISWbemObjectSet;
TempObj, ObjProcess: OleVariant;
Enum: IEnumVariant;
Value: Cardinal;
...
SWbemLocator1 := TSWbemLocator.Create(nil);
try
Service := SWbemLocator1.ConnectServer(FThreadConnection.PeerHost,
'root\cimv2',
FUserName,
FPassword,
'',
FDomain, 0, nil);
DisplayStatus('Password accepted.');
except
DisplayStatus('Unable to connect.'); // TODO: Сделать расширенную обработку ошибок.
Exit;
end;
...
objSet := Service.ExecQuery('SELECT * FROM Win32_Process WHERE Name = ''ROMServer.exe''',
'WQL', wbemFlagReturnImmediately, nil);
Enum := (objSet._NewEnum) as IEnumVariant;
while (Enum.Next(1, TempObj, Value) = S_OK) do
begin
ObjProcess := IUnknown(tempObj) as SWBemObject;
//DisplayStatus('Terminated: ' + ObjProcess.CommandLine);
//ObjProcess.Terminate;
end;
предварительно нужно импортировать в VCL пару библиотек типов
Active DS Type Library (Version 1.0)
Microsoft WMI Scripting v1.1 Library (Version 1.1)
В BDS2006 это можно сделать так: Componet->Import Component->Import a Type Labrary.
| |
