Eingeloggten User eines Computers im Netzwerk ermitteln?

[hitzi]

Wie ermittelt man den gerade aktiven (eingeloggten) Benutzer eines bestimmten Rechners im Netz? Der Rechnername ist bekannt.

MfG Hitzi

[sakura]

Die DP hat ein Super-Tool names Suche, und die hat folgendes ergeben http://www.delphipraxis.net/viewtopi...t=benutzername :mrgreen:

...:cat:...

[hitzi]

Das

Zitat:

Zitat von sakura

Super-Tool names Suche

hilft in meinen Fall nicht weiter. Ich hätte ja sonst nicht danach gefragt. :roll:

Nochmal leicht abgeändert:

Wie ermittelt man den gerade aktiven (eingeloggten) Benutzer eines bestimmten !beliebigen! Rechners im Netz? Der Rechnername ist bekannt.
!Nicht der Benutzer Name auf dem Rechner, auf dem das Programm ausgeführt wird!

MfG Hitzi

[sakura]

Oops, sorry, dass war mir nicht klar. Da muss ich jetzt passen.

[sakura]

Schau mal in den Thread, der sollte helfen

http://www.delphipraxis.net/viewtopic.php?t=2369

(Ist ganz neu)

[hitzi]

Hallo,

Zitat:

Zitat von sakura

Schau mal in den Thread, der sollte helfen

Macht er leider nicht. Auszug aus der PSDK:

Zitat:

The NetUserGetInfo function retrieves information about a particular user account on a server.

Und ich brauch eine Funktion wo ich den Computernamen (evt. auch den Domainnamen) übergebe und mir der gerade aktuell eingeloggte User angezeigt wird.

Vielleicht hat jemand noch einen anderen Lösungsvorschlag?

MfG Hitzi

[Luckie]

Kuck mal auf www.assarbad.org da gibt es ein Tool namens LoggedOn, das müßte das können, ist mit Soße. *schleck* :P

[hitzi]

Danke das hilft mir erstmal weiter. Falls jemand noch einen Weg kennt, welcher auch ohne Administrator Rechte funktioniert - immer raus damit :D

Assabards Weg funktioniert über die Registrierung des Remote-Rechners.

MfG Hitzi

[Luckie]

Also wenn ich hier an meinem lokalen Rechner, das mache:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sUser: String;
  ui1: Pointer;
begin
  sUser := GetUser();
  NetUserGetInfo('deepthought', PWideChar(WideString(sUser)), 1, ui1);
  Label1.Caption := PUserInfo1(ui1)^.usri1_name;
  NetApiBufferFree(ui1);
end;

Geht es wunderbar.

Hast du das jetzt schon mal über das Netzwerk probiert?

[hitzi]

Das läuft mit der Jedi Headerübersetzungen, richtig? Kann es deshalb nicht ausprobieren, da man zur zeit nicht auf die jedi Seiten kommt.

Kann man diese Funktion auch ohne die Headyübersetzung von den Jedis nutzen?

MfG Hitzi