Просмотр процессов на удаленной машине

← →
LexusU (2006-11-20 19:10) [0]

Как реализовать просмотр процессов на удаленной машине? Предлагали использовать wtsapi32.dll, но как и какими функциями этой библиотеки пользоваться не знаю

← →
Eraser © (2006-11-20 21:11) [1]

> [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.

← →
LexusU (2006-11-21 10:50) [2]

А здесь Active DS Type Library (Version 1.0) точно нужна? Типов в ней, которые в коде есть, не встречаются. А вот делфа на IEnumVariant и FThreadConnection ругается. не находит таких типов. Может другая библиотека нужна?

← →
Чапаев © (2006-11-21 12:56) [3]

> [2] LexusU (21.11.06 10:50)
Помню, пользовал её. Не без геморроя, но в итоге заработала.

← →
Чапаев © (2006-11-21 12:57) [4]

ЗЫ. Конкретных советов не дам, сам уже не помню, что и как делал. Но что сделать можно -- факт.

← →
Eraser © (2006-11-21 14:28) [5]

> [2] LexusU (21.11.06 10:50)

> IEnumVariant

добавь модуль ActiveX.

> FThreadConnection

не трудно догадаться, что это кусок из моего проекта..FThreadConnection замени на что-нибудь свое )

> [3] Чапаев © (21.11.06 12:56)

> Не без геморроя, но в итоге заработала.

работает в принципе без проблем, вот только больше заточена под скриптовой язык.

← →
Eraser © (2006-11-22 00:32) [6]

> [3] Чапаев © (21.11.06 12:56)

> Не без геморроя, но в итоге заработала.

Offtop:
пол дня сегодня угробил на то чтобы сделать такую, казалось бы, элементраную весч - через WMI поменять дескриптор безопасности у каталога..
это ужоссс какой-то ..
ну зато подвспомнил вариантные массивы и т.п. :)

← →
user51 (2006-11-22 09:36) [7]

Прикалывает настойчивое желание посетителей сайта делать простое через
сложное, избретать велосипед ,написать лучше чем это уже сделали дяди из микрософт и в конце концов не сделать.

Пуск - справка и поддержка -найти
ввести 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); //это просто вывод на экран

Надеюсь файл текстовый разобрать сможете

← →
user51 (2006-11-22 09:37) [8]

Это вот вывелось на экран
Џђ…„“Џђ…†„…Ќ€…: “зҐвлҐ ¤ лҐ Ї®«м§®ў вҐ«п Ґ ¬®Јгв Ўлвм ЁбЇ®«м§®ў л ¤«п ¬Ґбвле Ї®¤Є«озҐЁ©.

€¬п ®Ўа § 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 ЉЃ

> [7] user51 (22.11.06 09:36)

ну и? а если понадобится доп. информация по каждому процессу?

да и чем парсить вот такой файл, проще самому реализовать - кода меньше, возможностей больше.

← →
user51 (2006-11-22 17:27) [10]

вообщето у комманды есть ключи для вывода дополнительной инфы.

>Eraser © (22.11.06 16:33) [9]
да и чем парсить вот такой файл, проще самому реализовать - кода меньше, возможностей больше.

Кому как - может LexusU проще файл парсить
Себе то я сделал по другому.

Просмотр процессов на удаленной машине Найти похожие ветки