6 replies to this topic

[Fenareth]

Buenas noches niños y niñas...

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 !!! 

[cannabis]

Encontrado en Trucomanía

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

[seoane]

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

Poder se puede: http://technet.micro...s/bb896682.aspx

Ahora que como lo hace ya es otra cosa 

[cannabis]

Cierto, me equivoqué. El ejemplo que envié es para equipo local.


Salud.

[cHackAll]

delphi

tasklist -s 192.168.6.66 /u Administrator /p HAClave

WMI

Salud

[Fenareth]

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 

[root]

mmmm
pues buscando encontre que el user
deve de especificar el dominio
/U [dominio\]usuario Especifica el contexto de usuario en el que el comando debe ejecutarse.
y al parecer el problema de RCP es por que esta el firewall