Enumerar usuarios conectados a tu pc

[fide]

Hola amigos de ClubDelphi. Si alguno de ustedes ha visto o ha oído hablar del NetSentinel pues bien, algo similar quiero hacer en delphi.

En realidad lo que necesito es enumerar todas las PCs que están conactadas a mi ordenador.

Por ejemplo: aeff se conectó a mi PC por Herramientas->Conactar a Unidad de Red y mi programa debe de darse cuenta de esto. Gracias de antemano por la ayuda que me puedan brindar.

[genius]

procedure TForm1.Button1Click(Sender: TObject);
var
RecursoRed :TNetResource;
Mango :THandle;
NumeroEntradas :DWord;
Buffer :Array [1..50] of TNetResource;
LongBuffer :DWord;
n :Integer;
begin
LongBuffer:=SizeOf(Buffer);

if WNetOpenEnum( RESOURCE_CONNECTED,
RESOURCETYPE_ANY,
RESOURCEUSAGE_CONNECTABLE,
nil,
Mango
)<> No_ERROR then ShowMessage('Error');

NumeroEntradas:=10;

WNetEnumResource( Mango,
NumeroEntradas,
@Buffer[1],
LongBuffer
);

Memo1.Lines.Clear;
for n:=1 to NumeroEntradas do
memo1.Lines.Append(Buffer[n].lpRemoteName);

end;

[fide]

Bueno, esa función está súper. Pero eso no es lo que deseo lograr.

Por ejemplo. Si Roman se conecta a mi PC desde 190.100.15.3 tiene que haber alguna forma de enumerar las personas que están conectadas a mi ordenador, no quiero ver a que recursos yo estoy conectado. Sino quien está conectado conmigo. ¿Me hago entender?

[SOAD_]

hola

No tengo ningun codigo, pero me parece una idea intersante una redireccion de la salida de los comandos, NetStat y Net Sessions hacia tu aplicacion he interpretar los resultados....

No estoy seguro de q sea la mejor via, pero si sacas algo en claro de esta idea espero q lo compartas aki...

Saludos

[fide]

Voy a ver si logro algo, Gracias..