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)

[uwewo]

Zitat von Luckie:

Mit welcher Schatlfläche wählst du den Server aus? Um einen einzelenen Rechner zu scannen musst du "Scan machine" nehmen.

Genau das mache ich damit wähle ich einen Server, oder eine Workstation aus.
Bei Servern erhalte ich dann diesen Fehler.

[Luckie]

Ich teste das hier gerade im Schulnetzwerk. Aber leider kann ich das hier nicht debuggen, weil kein Delphi installiert ist.

[Luckie]

Aktuelle Version: 1.0.0.43

- Neu: Fenster lässt sich in der Größe ändern.

[turboPASCAL]

Zitat von Luckie:

- Neu: Fenster lässt sich in der Größe ändern.

Denke daran das Fenster bei dem Scalieren als letztes neu zu zeichnen und nicht nur den
Aboutbutton, sonst hat man schöne Artifakte.

Sample:

Delphi-Quellcode:

function dlgfunc(hDlg: HWND; uMsg: UINT; wParam:...
//...
    WM_SIZE:
      begin
        //...
        //...
        InvalidateRect(hDlg, nil, FALSE);
        RedrawWindow(hDlg, nil, 0, RDW_UPDATENOW); // <--<<< wir wollen ja ned so ein geflacker
      end;
//...

// Edit:
Das "PaintFlag" von MoveWindow solltest du auf False lassen da sonst gleich neu gezeichnet wied und danach der Code vortgesetzt.

// Edit II :
- dolle Dibbfehler erased

[Luckie]

Zitat von turboPASCAL:

Zitat von Luckie:

- Neu: Fenster lässt sich in der Größe ändern.

Denke daran das Fenster bei dem Scalieren als letztes neu zu zeichnen und nicht nur den
Aboutbutton, sonst hat man schöne Artifakte.

Danke fü den Tipp.

Ein InvalidateRect ist aber nur bei dem About-Button nötig. Ich habe es ausprobiert.

Aktuelle Version: 1.0.0.44

[uwewo]

Hallo,

habe nun wieder eine neue Info für Dich, in Zeile 293
 s := Format(rsFinishMachine, [UserList.Count]); ist die UserList = nil (nur bei Servern).

Vielleicht weil diese lediglich eingeschaltet werden, und kein User eingeloggt ist.

In Zeile 166 beendest Du die
procedure FillTreeview(Machine: string; UserList: TLoggedOnUserCollection); mit einem Exit; wenn
  if (UserList = nil) or (UserList.Count = 0) then Exit; danach springt er in die Zeile 293 und die UserList = nil;

[Luckie]

Oh, danke. Ich hatte nämlich ohne Erfolg versucht das zu reproduzieren. Jetzt denke ich, dass ich den Fehler beheben kann.

Aktuelle Version: 1.0.0.45

- Bug von uwewo gefixt (hoffentlich).

[Luckie]

Aktuelle Version: 1.0.0.46

- Neu: Mindestgröße des Fensters festgelegt.
- Kleinere Bugs behoben.

Ich denke, das Programm ist soweit fertig. Ichhabe es jetzt auch auf meiner Homepage veröffentlicht: http://www.michael-puff.de/Programme/LoggedOn Vielen dank noch mal, an die fleißigen Tester.

[uwewo]

Hi Luckie,

LoggedOn funktioniert jetzt soweit, habe allerdings noch ein paar Anregungen.
Wenn Kein User eingelogt(Server) dann wäre es doch trotzdem nett diesen anzuzeigen, zumindest den Rechner selbst.

Wenn ich Deinen Code richtig verstehe, ist die Variable "TotalEntries" die Anzahl der Rechner die an der Domain angemeldet sind. Richtig?

Diese Anzahl könnte man auch anzeigen, und nach erfolgreichem Scan einen Zähler-1 mitlaufen lassen.
Somit hätte man so eine Art Fortschrittsanzeige. In unserer Domain befinden sich derzeit 1232 Rechner(TotalEntries) der TreeView wird aber leider erst am Schluss angezeigt, vielleicht wäre es sinnvoll nach jedem Scan den TreeView zu aktualisieren.

Wie gesagt nur Anregungen, Du hast sicher genug anderes zu tun.

Ansonsten, Respekt gute Arbeit wie immer

[Luckie]

Zitat:

Wenn Kein User eingelogt(Server) dann wäre es doch trotzdem nett diesen anzuzeigen, zumindest den Rechner selbst.

Ist das denn nicht der Fall?

Zitat:

Diese Anzahl könnte man auch anzeigen, und nach erfolgreichem Scan einen Zähler-1 mitlaufen lassen.

Das geht nicht, weil die Funktion erst zurückkehrt, wenn sie alle Rechner gescannt hat. Das ersieht man aber auch aus dem Quellcode.