Feststellen, ob Benutzer angemeldet ist

[rainerkunze124]

Ich programmiere gerade einen Dienst für Windows 2000, der bestimmte Sachen nur ausführen soll, wenn ein Benutzer angemeldet ist.
Wie kann ich feststellen, ob ein Benutzer angemeldet ist? (Der Benutzername ist mir nicht wichtig)

[rainerkunze124]

Hat denn keiner eine Idee? Es muß doch einen Befehl bzw. eine Prozedur dafür geben :-D

[Matze]

Zitat:

Zitat von rainerkunze124

Wie kann ich feststellen, ob ein Benutzer angemeldet ist? (Der Benutzername ist mir nicht wichtig)

Wie möchtest du es denn dann abfragen, wenn nicht per Benutzername?

Dies würde doch leicht gehen mit dem Benutzernamen so.

[rainerkunze124]

und wie sieht der benutzername aus, wenn keiner angemeldet ist? '', also nicht, funktioniert nicht, das habe ich schon probiert. :-D

[Airblader]

Lass es dir doch einfach irgendwie ausgeben, dann siehst du es doch ;)

[Luckie]

Guck mal bei Assarbad nach LoogedOn.

[Christian Seehase]

Moin Rainer,

schau Dir doch mal die API EnumWindowStations an.
Wenn ich mich nicht sehr irre, dürfte kein interaktiver Benutzer angemeldet sein, wenn keine WinSta0 dabei ist.
Oder anders formuliert: Existiert WinSta0 ist ein interaktiver Benutzer angemeldet.

[rainerkunze124]

Ich benutze im Moment folgende Funktion:

Delphi-Quellcode:

function GetUsername: String;
var
  Buffer: array[0..255] of Char;
  Size: DWord;
begin
  Size := SizeOf(Buffer);
  if not Windows.GetUserName(Buffer, Size) then
    RaiseLastOSError; //RaiseLastWin32Error; {Bis D5};
  SetString(Result, Buffer, Size - 1);
end;

Welchen Wert hat der String, wenn kein User angemeldet ist?

[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..!

Ich würde auf LsaEnumerateLogonSessions + LsaGetLogonSessionData zurückgreifen - funktioniert entgegen PSDK auch schon unter Win2k...

[rainerkunze124]

Mein Programm ist ein Service: Er läuft also immer (wenn Windows gebootet hat).

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.

[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;

[Manzoni]

Hallo,

ich schreibe grad ein Programm bei dem ich das gleiche Problem habe. Leider habe ich noch keine Lösung gefunden und die Variante mit der WinStat0 scheint nicht zu funktionieren, zumindest nicht in meinem Netzwerk(Getestet auf einem WinXP Client im AD). Hat einer bereits eine Lösung gefunden, herauszufinden ob auf dem Rechner jemand angemeldet ist?