Zeit, die der User angemeldet ist

[Ines]

Hallo DP'ler,

ich möchte wissen, wie lange ein Nutzer am System (Windows XP) bereits angemeldet ist.

Mit GetTickCount kann ich ermitteln, wielange Windows XP bereits läuft, allerdings möchte ich auch wissen, wielange ein Nutzer bereits eingeloggt ist.

Ich bin beim Suchen hier über die API-Funktion LsaGetLogonSessionData() gestolpert - komme damit aber nicht zurecht.

Gibt es etwas Einfaches :?

Vielen Dank für Eure Hilfe
Ines

[himitsu]

Zitat:

Zitat von Ines (Beitrag 1075816)

komme damit aber nicht zurecht.

Eigentlich sollte das doch nicht schwer sein.
Wo hängst du denn damit?

PS: Im MSDN stehen alle nötigen Infos LsaGetLogonSessionData und SECURITY_LOGON_SESSION_DATA.

[Luckie]

Also so ganz trivial ist es nicht. Das Beispiel aus dem MSDN ist schon recht komplex und das mit Delphi nachbauen dürfte auch nicht in fünf Minuten gemacht sein. Das Problem ist ja die richtige SessionID zu bekommen. Und wir wären wieder bei dem Problem, was ist der eingeloggte Benutzer? Es kann ja auch TerminalSessions geben, dann kann man mehrere eingeloggte Benutzer haben. ;)

Insofern muss ich ihr schon recht geben. Vor allem, wenn man mit der WinaAPI nicht so vertraut ist.

[hathor]

JwaNtSecApi... da ist es drin:
http://www.google.com/codesearch/p?h...a=N&cd=1&ct=rc

[Ines]

Guten Morgen und Danke für Eure Hilfe.

Zitat:

Zitat von Luckie (Beitrag 1075829)

Insofern muss ich ihr schon recht geben. Vor allem, wenn man mit der WinaAPI nicht so vertraut ist.

Genau das ist mein Problem - ich habe mir aber jetzt mehrere Beispiele ausgedruckt und werde sehen, was ich daraus machen kann.

Liebe Grüße
Ines

[SirThornberry]

Wenn du nicht weiter kommst kannst du jederzeit gern fragen. Ich denke bisher hast du wenig Quelltext-Hilfe bekommen weil keine konkrete Frage danach bestand. Und einfach den kompletten Quelltext zu posten ist nicht unsere Art weil wir ja sehen wollen das der andere sich auch bemüht und nicht andere die Arbeit machen lässt.
Wenn du also genau sagst was dein derzeitiges Problem mit der Funktion ist, denke ich, wirst du recht schnell auch konkretere Hilfe dazu bekommen.

[Ines]

Hallo,

ich muß Euch nochmals belästigen.

Über LsaGetLogonSessionData bekomme ich die Logon-Zeit als Large_Integer (wußte bisher garnicht, daß es so etwas gibt) :)

Wie kann ich einen Large_Integer-Wert in ein DateTime umwandeln? Mit der Funktion UnixToDateTime bin ich nicht recht weitergekommen - es kam keine plausible Zeit dabei heraus.

Ich will nur einen Denkansatz oder ein paar Stichworte - keinen fertigen Code.:glaskugel:

Viele Grüße
Ines

[SirThornberry]

Ein TDateTime ist hier glaub ich die falsche Wahl denn der ist für Uhrzeiten + Datum. Wenn du Eine Zeit > 24 Stunden hast gibt es dann Probleme diesen Wert vernünftig anzuzeigen.

[Ines]

Welches Format oder welche Einheit sind in LogonTime hinterlegt? Sind das Millisekunden?

Liebe Grüße
Ines

[SirThornberry]

Oh, ich habe Mist geschrieben. Ich bin davon ausgegangen das die die Funktion die Dauer zurück gibt, die der Nutzer bereits eingeloggt ist oder du die Dauer die du errechnest als TDateTime haben willst.

[ChrisE]

Hallo,

soweit ich das verstanden habe hier ist das der echte Zeitpunkt an dem sich der User angemeldet hat. Und das in Differenz zu GetTickCount64 bzw. GetTickCount dürfte die dauer sein.
[EDIT] in ms[/EDIT]

Reine Vermutung.

Gruß, Chris

[kopernikus]

LogonTime ist die absolute Zeit als UTC (Datum + Tageszeit) im Format TFileTime. Eine Konvertierung in das TDateTime-Format kann mit folgender Routine erfolgen:

Delphi-Quellcode:

{ ------------------------------------------------------------------- }
// convert Filetime to Delphi time (TDateTime)
function FileTimeToDateTime (ft : TFileTime) : TDateTime;
var
  st : TSystemTime;
  dt : TDateTime;
begin
  FileTimeToSystemTime(ft,st);
  with st do begin
    if TryEncodeDate(wYear,wMonth,wDay,Result) then begin
      if TryEncodeTime(wHour,wMinute,wSecond,wMilliseconds,dt) then Result:=Result+dt;
      end
    else Result:=EncodeDate(1980,1,1);
    end;
  end;

[kopernikus]

Den gesamten Quelltext der Routine zum Abfragen der Sitzungsdaten (SessionData) findet man hier.

[virus82]

Ich habe gerade auch ein Problem mit der Logon Zeit. Und zwar wenn sich ein User mehrmals am system an- und abmeldet tauchen seine Session in LsaEnumerateLogonSessions mehrmal auf. Alle mit der gleichen Session ID. Wie kann ich die richtige herausfiltern?

Hier wird mein Prolem nochmal geschildert. http://www.delphipraxis.net/165575-l...liste-aus.html

Man kann es auch im Bild erkennen. User Test ist hier gerade nicht angemeldet, aber wenn er es wäre würde bei allen Einträgen das gleiche stehen. Welcher Eintrag ist der richtige?

[Frickler]

Zitat:

Zitat von kopernikus (Beitrag 1134934)

Den gesamten Quelltext der Routine zum Abfragen der Sitzungsdaten (SessionData) findet man hier.

Wo holst Du da die ganzen Typen (z.B. TSecurityLogonType, TWTSQuerySessionInformation) her?

[himitsu]

Gib mal bei Google "TSecurityLogonType" ein (in diesem Fall inklusive der Anführungszeichen), wobei man auch nach TSecurityLogonType in der DP suchen könnte. (Einer der aktuell beiden Fundorte enthält die Lösung)

[virus82]

Hat schon jemand für die doppelten Einträge eine Lösung gefunden?