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

[Christian Seehase]

Moin Hitzi,

klar, Du kannst Dir die Header auch selber übersetzten.
Ich kann auch meine Übersetzung mal raussuchen, allerdings unterscheidet die sich in einem wesentlichen Punkt von denen der Jedis (wenn ich mir Luckies Funktionsaufruf so ansehe)

Die Jedi Version scheint an die Borland typische Art angepasst zu sein, wie den API Funktionen die Parameter übergeben werden, meine hält sich mehr an die API Konventionen.

[hitzi]

Habe mir schon die zwei Funktionen (NetApiBufferFree und NetUserGetInfo)
über die NETAPI32.DLL eingebunden. Habe aber zur Zeit ein Problem mit dem Aufbau des USER_INFO_1 Rekords. Muss erstmal den Aufbau herausbekommen.

Bin aber weiter dran. :D

MfG Hitzi

[Luckie]

Hier die Jedis.

[hitzi]

Danke :D

MfG Hitzi

[HAF68k]

du könntest ja ganz einfach den computernamen anpingen ...

[hitzi]

Zitat:

Zitat von HAF68k

du könntest ja ganz einfach den computernamen anpingen ...

Hä? Ping Computername oder ping IP liefert den eingeloggten Benutzer zurück? :?:
Das wäre mir neu.


MfG Hitzi

[Luckie]

Mir aber auch. :roll:

[hitzi]

Zitat:

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

Es kann auch ein Nicht-Administrator diese Funktion nutzen, solange die Registrierung des Remotecomputers auf Standardsicherheitseinstellungen gelassen wurde.

MfG Hitzi