Feststellen, ob Benutzer angemeldet ist

[SirThornberry]

könntest du dir nicht einfach alle prozesse auflisten lassen mit dem dazugehörigen User (also unter welchem user das ganze läuft)? Dann könnntest du unter den usern die sich da ergeben prüfen welches wirkliche user sind und welches System-User sind.

[alcaeus]

Zitat:

Zitat von rainerkunze124

Und jetzt soll das Programm einfach nur erfahren können, ob ein Benutzer angemeldet ist oder nicht.
Deswegen frage ich nach dem Wert, den GetUserName hat, wenn keiner angemeldet ist.

Hast du denn schon mal versucht, einen Dienst zu schreiben, der den Rueckgabewert der Funktion in eine INI-Datei auf C: schreibt? Evtl. findest du ja so raus was rauskommt, was denkst du was andere Leute tun wuerden, um es zu erfahren? :roll:

Greetz
alcaeus

[Motzi]

Äh.. hallo?? Hit me, kill me, but don't ignore me!! ;)

Ich hab doch schon geschrieben:

Zitat:

Zitat von Motzi

GetUserName holt sich den Usernamen aus dem Token des aktuellen Prozesses - sprich du bekommst den Benutzernamen des Kontos unter dem dein Programm läuft..!

Bei deinem Service wird GetUserName also vermutlich "System" liefern..!

Deswegen hab ich dir auch schon die zwei API-Funktionen LsaEnumerateLogonSessions und LsaGetLogonSessionData geliefert. Wenn du dir die mal anschaust wirst du feststellen, dass du damit ziemlich genau das machen kannst was du willst!

[rainerkunze124]

nur wie binde ich diese Befehle von Windows in Delphi ein? Ich habe in dem Bereich keinerlei Erfahrung! :(

[Motzi]

Ja, die Delphi-Units enhalten leider keine Übersetzungen der benötigten Header-Files. Aber zum Glück gibt es ja die Übersetzungen von Marcel van Brakel welche man hier findet: http://members.chello.nl/m.vanbrakel2/ Dort ladest du dir die win32api.zip runter, entpackst sie und findest in der Unit JwaNtSecApi.pas alles was du brauchst.

[rainerkunze124]

Danke für deinen Tip, wie benutze ich denn die Komponenten?
Bzw. gibt es eine Hilfe, in der die Funktionen erklärt sind?

Oder kann mir einer, das wär total nett :bounce2: :bounce2: :bounce2: , einen Codeschnipsel senden, mit dem mein Programm (ein System Service) den aktuellen UserName herausfindet bzw. einen bestimmten Wert liefert, wenn alle User abgemeldet sind?

Viele Grüße,

Rainer

[rainerkunze124]

Wenn es hilft:

Ich brauche diesen Code, weil Win2000, wenn ich EWX_LOGOFF von meinem Service aus sende, sich abmeldet. Wenn der User abgemeldet ist und EWX_LOGOFF nochmal gesendet wird (weil ein Netzwerkbefehl kommt), dann fährt sich Win2000 Pro herunter. Deswegen bräuchte ich eine Funktion, mit der der Service nachgucken kann, ob sich der User bereits abgemeldet hat bzw. noch im Abmeldevorgang ist.

[rainerkunze124]

In der JwaNtSecApi.pas habe ich jetzt folgende Funktion gefunden:

Delphi-Quellcode:

function LsaLogonUser(LsaHandle: HANDLE; const OriginName: LSA_STRING;
  LogonType: SECURITY_LOGON_TYPE; AuthenticationPackage: ULONG;
  AuthenticationInformation: PVOID; AuthenticationInformationLength: ULONG;
  LocalGroups: PTOKEN_GROUPS; SourceContext: PTOKEN_SOURCE;
  var ProfileBuffer: PVOID; var ProfileBufferLength: ULONG; var LogonId: LUID;
  var Token: HANDLE; var Quotas: QUOTA_LIMITS; var SubStatus: NTSTATUS): NTSTATUS; stdcall;

Allerdings weiß ich so erstmal damit nichts anzufangen, weil es so viele Parameter gibt und das Ergebnis auch kein Datentyp ist, mit dem ich was anfangen kann.

Weiß einer, wie man die o.g. Prozedur aufruft?

[rainerkunze124]

Beschäftige mich immer noch mit dem leidigen Thema, da bis jetzt nichts meinen Erwartungen entspricht bzw. manche Prozeduren einfach nur unüberschaubar sind.

Kennt keiner einen Codeschnipsel, der mir sagt, ob definitiv ein Benutzer angemeldet ist (also nicht das Anmeldefenster von 2000/XP mit Benutzername/Passwort angezeigt wird)?
Motzi hatte folgendes geschrieben:

Zitat:

Deswegen hab ich dir auch schon die zwei API-Funktionen Suche im Microsoft Developers NetworkLsaEnumerateLogonSessions und Suche im Microsoft Developers NetworkLsaGetLogonSessionData geliefert. Wenn du dir die mal anschaust wirst du feststellen, dass du damit ziemlich genau das machen kannst was du willst!

Wie werden die denn in Delphi interpretiert? Etwa so aus der JwaNtSecApi der win32api von Marcel van Brakel?:

Delphi-Quellcode:

function LsaLogonUser(LsaHandle: HANDLE; const OriginName: LSA_STRING;
  LogonType: SECURITY_LOGON_TYPE; AuthenticationPackage: ULONG;
  AuthenticationInformation: PVOID; AuthenticationInformationLength: ULONG;
  LocalGroups: PTOKEN_GROUPS; SourceContext: PTOKEN_SOURCE;
  var ProfileBuffer: PVOID; var ProfileBufferLength: ULONG; var LogonId: LUID;
  var Token: HANDLE; var Quotas: QUOTA_LIMITS; var SubStatus: NTSTATUS): NTSTATUS; stdcall;

Wie spreche ich diese Funktion an und wie werte ich aus, ob ein Benutzer angemeldet ist?

Puuh :duck: hatte mir das gar nicht so kompliziert vorgestellt, zu erfahren, ob ein Benutzer angemeldet ist.

Bin für jede Hilfe sehr dankbar! :bounce2:

[Luckie]

Man kann auch einfach die WinStats enumerieren und gucken, ob eine WinStat0 dabei ist, das ist die einzige interaktive WinStat die es gibt.

Delphi-Quellcode:

procedure EnumWinStats(WindowsStation: PChar; lParam: LPARAM); stdcall;
begin
  Form1.ListBox1.Items.Add(WindowsStation);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindowStations(@EnumWinStats, 0);
end;