Who's logged on?

[Luckie]

LoggedOn
Das Programm LoggedOn listet alle Benutzer auf, die an einem Computer zur Zeit angemeldet sind und über welchen Server sie authentifiziert wurden.

Inspiriert hat mich ein gleichnamiges Programm von Olli. Ich bin heute im PSDK über die Netzwerkfunktion gestolpert und habe mich erinnert, dass Olli das irgendwie anders gemacht hat, komplizierter (umständlicher?). Da wollte ich es mit eben der entsprechenden API-Funktion mal probieren. ;)

Features:
- Scannen eines einzelnen Rechners
- Scannen einer Arbeitsgruppe / Domain
- Animation und mitlaufende Zeit während des Scans
- Informationen über Rechner (Name, IP, Betriebssystem, ...)
- Informationen über eingeloggten Benutzer (Name, Logondomain, Logonserver)
- Rechner im Netzwerk können remote runtergefahren werden
- Uptime der Remoterechner wird angezeigt (neu in Version 2.1)

[Basilikum]

dein Tool listet - egal welchen Server ich auswähle - immer exakt die selbe Liste... dies ist auch nicht sehr verwunderlich:

Delphi-Quellcode:

class function TUsers.GetAllUsers(Machine: WideString): TUsers;
var
[...]
  try
    err := NetWkstaUserEnum('', 1, bufPtr, MAX_PREFERRED_LENGTH, entriesread, totalentries, resumehandle);
    if err = NERR_SUCCESS then

Bei NetWkstaUserEnum müsste wohl als erster Parameter der Name des Ziel-Servers übergeben werden (Machine)...

BTW: Kann es Zufall sein, dass einige Funktionen in deiner Tools-Unit exakt identisch sind wie die gleichnamigen in der SysUtils ? :-)

[turboPASCAL]

:gruebel: Muss man nun ein Netzwerk haben oder listet das Tool auch alle angemeldeten User
an einem XP-System ?

[Luckie]

Zitat:

Zitat von Basilikum

dein Tool listet - egal welchen Server ich auswähle - immer exakt die selbe Liste... dies ist auch nicht sehr verwunderlich:

Delphi-Quellcode:

class function TUsers.GetAllUsers(Machine: WideString): TUsers;
var
[...]
  try
    err := NetWkstaUserEnum('', 1, bufPtr, MAX_PREFERRED_LENGTH, entriesread, totalentries, resumehandle);
    if err = NERR_SUCCESS then

Bei NetWkstaUserEnum müsste wohl als erster Parameter der Name des Ziel-Servers übergeben werden (Machine)...

BTW: Kann es Zufall sein, dass einige Funktionen in deiner Tools-Unit exakt identisch sind wie die gleichnamigen in der SysUtils ? :-)

Upps. :oops:

Behoben in Version 1.0.0.13.

@turboPASCAL: Ich glaube schon, da zumindest der Dialog zum Auswählen eines Computers der entsprechende Dialog ist. Probier es aus.

[Matze]

Matti hat's doch bereits ausprobiert, siehe dir mal seinen Anhang an.

Ich habe leider kein Netzwerk hier, verstehe aber nicht, wieso ein Benutzer doppelt angezeigt wird. Angemeldet bin ich momentan nur als "Eingeschränkt" (s. Anhang)

WinXP Pro SP2

[Luckie]

Mit dem swf kann ich nichts anfangen. ;)

Warum da einer doppelt angezeigt wird, kann ich dir auch nicht sagen.

[Alter Mann]

Moin Luckie,

der Benutzer mit dem Rechnernamen und $-Zeichen ist der Computer.
Ab Windows 2000 haben auch Computer ein Benutzer-Konto, mit allen Konsequenzen.

Gruss

[Luckie]

Ich habe mir schon so was gedacht. Aber Danke für die Bestätigung.

[Alter Mann]

Luckie,

wo kommt den die TWKSTA_USER_INFO_1 Struktur her?
Kenn ich so noch nicht, gibt es da eine Quelle?

Gruss

[Luckie]

PSDK oder MSDN: WKSTA_USER_INFO_1.