Angemeldeten Benutzer aus Dienst ermitteln

[Dezipaitor]

Nein, du bist mit deinen Gedanken weit von der Erde entfernt, wo das Problem liegt :angel:
Es wurde einfach in der Groß-Kleinschreibung unterschieden. Das ist aber bei Prozessnamen egal. :wall:
Wenn du Update machst, sollte es funktionieren. :cheers:

[xZise]

Zitat:

Zitat von Dezipaitor

Nein, du bist mit deinen Gedanken weit von der Erde entfernt, wo das Problem liegt :angel:

Ich wusste es schon immer xD Ich bin ein Ausserirdischer xD

Zitat:

Zitat von Dezipaitor

Es wurde einfach in der Groß-Kleinschreibung unterschieden. Das ist aber bei Prozessnamen egal. :wall:
Wenn du Update machst, sollte es funktionieren. :cheers:

Hehe ^^ Nagut ;)
Also es lässt sich nun kompilieren und ausführen.
Und er scheint auch einen Benutzernamen zu bekommen ;) Habe leider es nur nicht in der Aufregung getestet :oops:
Wird Freitag wahrscheinlich erst was xD

MfG
xZise

[xZise]

Hallo,
ich wollte gerade mal meinen Serivce wieder testen und auf Vordermann bringen, und dann habe ich das Problem, das die JWSCL meint, es gäbe die "Explorer.exe" nicht:

Delphi-Quellcode:

An Exception of type EJwsclProcessNotFound was raised. 

(Data was given by programmer and can vary from actual source.)

Source method....: CreateCompatibilityQueryUserToken

Source class.....: TJwSecurityToken

Source file......: JwsclToken.pas

Source line......: 0


Message : The process "EXPLORER.EXE" could not be found.

Obwohl ich eindeutig jetzt mit den Rechner schreibe, und wie man sieht :) Es funktioniert, mit Explorer.exe!

MfG
xZise

[Dezipaitor]

Ich vermute mal, dass CreateToolHelp32SnapShot nicht alle Prozesse von allen Sessions auflistet.

Du kannst CreateWTSQueryUserTokenEx verwenden, welche die Angabe einer Session erlaubt.

EDIT: In der Tat, es handelt sich bei der CreateCompatibilityQueryUserToken um eine Funktion, die nur für WindowsNT, 2000 und XP überhaupt funktioniert und dann auch nur für den ersten eingeloggten Benutzer, weil dieser eben in derselben Session des Dienstes (Session 0) sich befindet. Alles andere funktioniert nicht.

[xZise]

Es war ganz einfach (vermute ich): Da ich die falschen Quellen genommen habe, funktionierte das auch dann nicht, wenn einer angemeldet ist. Ansonsten ist mir das egal ;)

MfG
xZise

[Dezipaitor]

Zitat:

Zitat von xZise

Es war ganz einfach (vermute ich): Da ich die falschen Quellen genommen habe, funktionierte das auch dann nicht, wenn einer angemeldet ist. Ansonsten ist mir das egal ;)

MfG
xZise

Verstehe ich nicht!

[xZise]

Also:
Es gibt verschiedene Stadien:

1. Offline (Computer ist ausgeschaltet)
2. Keiner angemeldet (Computer ist eingeschaltet)
3. Online (Jemand ist angemeldet und benutzt den PC)

Im ersten Fall passiert nichts :mrgreen: .
Im zweiten hingegen sucht JWSCL nach "Explorer.exe", welches es aber nicht findet bzw. finden kann, also ist die Fehlermeldung angebracht (oder geht das auch "netter"?).
Und im letzten Stadium erkennt die JWSCL die "Explorer.exe" und kann dessen Benutzer einwandfrei ausgeben :)

MfG
xZise

[Dezipaitor]

Ich habe dieses Artikel mal darüber geschrieben.

http://blog.delphi-jedi.net/2008/04/...m-a-service-2/

[xZise]

Hallo,
also ich verwende inzwischen folgenden Code:

Delphi-Quellcode:

function GetUserName : string;
var
  Token : TJWSecurityToken;
begin
  Token := TJwSecurityToken.CreateWTSQueryUserToken(TOKEN_ALL_ACCESS);
  try
    try
      Result := Token.TokenOwner.AccountName[''];
      AddToLog('Username requested: ' + Result);
    except
      on e : Exception do
      begin
        AddToLog('@GetUsername' + #13#10 + e.Message);
        Result := '';
      end;
      on e : EJWSCLProcessNotFound do
      begin
        AddToLog('No user is loged on');
        Result := '';
      end;
    end;
  finally
    Token.Free;
  end;
end;

Und bei dem Aufruf von „TJwSecurityToken.CreateWTSQueryUserToken(TOKEN_AL L_ACCESS);“ bekomme ich dann folgenen Fehlertext:

Zitat:

An Exception of type EJwsclWinCallFailedException was raised.

(Data was given by programmer and can vary from actual source.)

Source method....: WTSQueryUserToken

Source class.....: TJwSecurityToken

Source file......: JwsclToken.pas

Source line......: 0

GetLastError.....: 7022 ($1B6E)

GetLastErrorMsg..: Die angegebene Sitzung wurde nicht gefunden.



Message : A call to WTSQueryUserToken failed. Session ID: 983551

MfG
xZise

[Dezipaitor]

Zitat:

Message : A call to WTSQueryUserToken failed. Session ID: 983551

Wow, da muss aber was schief gegangen sein. So eine SessionID gibt es sicher nicht.

Fragen:
1. Wird die Funktion aufgerufen, wenn kein Benutzer angemeldet ist?
2. Welche Windows Version verwendest du?
3. Welche JWSCL Version verwendest du (0.9.2a?) und welche Updateversion (=Subversion revision) hast du (wenn du das nicht weißt, dann genügt mit das auch)?


--

Delphi-Quellcode:

Result := Token.TokenOwner.AccountName[''];

TokenOwner ist der Besitzer des Tokens - das ist meist "Administratoren". Was du suchst ist das Property TokenUser.