Procesos corriendo en equipos en una LAN
#1
Escrito 12 febrero 2009 - 10:41
Dicen que la ociosidad es la madre de todos los vicios, pero en esta ocasión sirvió para que se me ocurriera una aplicación que me gustaría hacer y que me serviría mucho...
No sé si estoy intentando inventar la rueda y si es así les agradecería su ayuda...
Pues va !
Estuve pensando en hacer una aplicación que pudiera verificar mediante la IP de un equipo dentro de una LAN, los procesos que están en ejecución al momento de la consulta...
Como les digo no sé qué tan complicado sea o si ya existe algún programita que lo haga, pero si es algo viable les agradecería un rayito de luz para crear esto...
Saludos y Grax !!!
#2
Escrito 13 febrero 2009 - 03:25
-Añade 'TLHelp32' en el uses de tu form
-Pon una TListBox (ListBox1) y un TButton (Button1) en tu form
-Pon este código en el OnClick de Button1:
procedure TForm1.Button1Click(Sender: TObject);
function SacaExe(MangoW:HWND):string;
{Obtiene el EXE de una tarea}
{get EXE of a task}
var
Datos :TProcessEntry32;
hID : DWord;
Snap : Integer;
begin
GetWindowThreadProcessId(MangoW,@hID);
Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
try
Datos.dwSize:=SizeOf(Datos);
if(Process32First(Snap,Datos))then
begin
repeat
if Datos.th32ProcessID=hID then
begin
Result:=StrPas(Datos.szExeFile);
Break;
end;
until not(Process32Next(Snap,Datos));
end;
finally
Windows.CloseHandle(Snap);
end;
end;
function ObtieneVentanas(Mango: HWND;
Nada: Pointer): Boolean; stdcall;
var
sTemp:string;
begin
Result := True;
{Mango es el handle de la tarea encontrada}
{Añadimos el .EXE si no está ya añadido...}
sTemp:=SacaExe(Mango);
with Form1.ListBox1.Items do
if IndexOf(sTemp) = - 1 then Add(sTemp);
end;
begin
EnumWindows( @ObtieneVentanas, 0 );
end;
Salud.
#3
Escrito 13 febrero 2009 - 03:38
Poder se puede: http://technet.micro...s/bb896682.aspxEstuve pensando en hacer una aplicación que pudiera verificar mediante la IP de un equipo dentro de una LAN, los procesos que están en ejecución al momento de la consulta...
Ahora que como lo hace ya es otra cosa
#6
Escrito 31 marzo 2009 - 11:33
delphi
tasklist -s 192.168.6.66 /u Administrator /p HAClave
WMI
Salud
Mes y medio después... :$
Estoy apenas haciendo pruebas con lo que colocaron en este hilo tanto chackall como seoane pero en ambos casos me lista las aplicaciones sólo de manera local...
En el caso del comando enviado por chackall en caso de querer cambiar la IP de tal manera que me liste los procesos en un equipo remoto, envía un error que dice:
El servidor RPC no está disponible
pero de manera local lo hace perfecto ya sea por la IP o por el nombre del equipo...
Alguna otra idea chicos ???
Edito: ya veo por dónde va el problema del RPC... sigo investigando