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)

[turboPASCAL]

Solch ein Template hat Luckie in seinen Tut's. (ausserem ist das so wenig das man ihn schnel getippt hat )

[Luckie]

Aktuelle Version: 1.0.0.38

Das mit der mitlafenden Zeit war nichts. Ich habe es wieder rausgenommen.

@MackHack: Gibt es doch schon auf meiner Homepage: http://www.michael-puff.de/dirindex..../Delphi/Demos/ -> Template.zip
Aber das gehört nicht hier her.

[EDatabaseError]

Ich habe was gefunden was bezüglich des Dialogproblems helfen könnte.

In dem Remotedesktopverbindungs Programm von MS die Computer Combobox aufmachen und auf <Nach weiteren Computern suchen...> klicken. Das dürfte der gesuchte Dialog sein ... oder.


Mfg

[Luckie]

Welchen Dialog meinst du? Ich will keinen Computer suchen, sondern nur eine Domain öffnen.

[EDatabaseError]

Also in diesem Dialog wird meine Workgroup und die PCs angezeigt

[Luckie]

Ich brauche aber nur die Domain: http://www.delphipraxis.net/internal...=741773#741773

[Mackhack]

Zitat von Luckie:

@MackHack: Gibt es doch schon auf meiner Homepage: http://www.michael-puff.de/dirindex..../Delphi/Demos/ -> Template.zip
Aber das gehört nicht hier her.

Du hast doch darueber selbst hier geschrieben warum also nicht? Regelverstoss? Und ich habe auf deiner HP geschaut aber unter Template hab ich es mir einfach nicht vorgestellt zu finden. Sorry also an dieser Stelle!

[uwewo]

Hi Luckie,

habe nun die neue Version getestet aber leider tritt noch immer eine Exception auf.

Habe mir den Source nocheinmal angeschaut und mal Zeilenweise durchlauen lassen, hier ensteht der Fehler:

Datei: LoggedOn
Zeile: 294

Delphi-Quellcode:

  s := Format(rsFinishMachine, [UserList.Count]);
  SendDlgItemMessage(hApp, IDC_SB, SB_SETTEXT, 0, Integer(PChar(s)));

  FreeMemory(p);
  Result := 0;
end;

Das seltsame ist, s := Format(rsFinishMachine, [UserList.Count]); wird noch abgearbeitet danach springt er allerdings direkt auf end;

Deshalb auch die Exception, kein SendDlgItemMessage, FreeMemory, Result.

[uwewo]

Hallo Luckie,

noch ein kleiner Nachtrag. Die Version funktioniert, wenn ich aus unserem Netzwerk eine Workstation auswähle. Bei der Auswahl eines Servers habe ich allerdings besagtes Phänomen, wo alle Zeilen nach
s := Format(rsFinishMachine, [UserList.Count]); nicht mehr abgearbeitet werden.(Nur bei Servern)

Das Problem beim scannen der Domain könnte darin liegen, dass unsere Server über VPN in ganz Europa verbunden sind.

Vielleicht hilft dir das ja weiter.

Zitat von Luckie:

[
Aber eine Frage habe ich noch: Was ist das für ein Benutzer mit dem Rechnernamen und dem $-Zeichen am Ende?

Diesen User habe ich auch, siehe ScreenShot. Ich kann allerdings nur ein Vermutung äussern, in unserem Netzwerk ist für jeden User sowohl ein Lokales als auch ein Roaming Profile erstellt.

Siehe dazu ScreenShot2.jpg

[Luckie]

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

Nein der Benutzer mit dem Rechnernamen und dem $ ist der Rechner selber. Ab Windows2000 werden auch Rechner als Benutzer angesehen.