GetUsernameEx

[kuba]

Hallo,

seit Stunden versuche ich herauszufinden was an meinem Programm nicht funktioniert. Ich möchte den Benutzernamen des am Desktop angemeldeten Benutzer aus einem NT-Service ermitteln. Dabei verwende ich folgenden Code:

Delphi-Quellcode:

const
  NameUnknown       = 0; // Unknown name type.
  NameFullyQualifiedDN = 1; // Fully qualified distinguished name
  NameSamCompatible = 2; // Windows NT® 4.0 account name
  NameDisplay       = 3; // A "friendly" display name
  NameUniqueId      = 6; // GUID string that the IIDFromString function returns
  NameCanonical     = 7; // Complete canonical name
  NameUserPrincipal = 8; // User principal name
  NameCanonicalEx   = 9;
  NameServicePrincipal = 10; // Generalized service principal name
  DNSDomainName     = 11; // DNS domain name, plus the user name

function GetUserNameExString(ANameFormat: DWORD): string;
var
  Buf: array[0..256] of Char;
  BufSize: DWORD;
  GetUserNameEx: function (NameFormat: DWORD; lpNameBuffer: LPSTR;
    var nSize: ULONG): BOOL; stdcall;
begin
  Result := '';
  BufSize := SizeOf(Buf) div SizeOf(Buf[0]);
  GetUserNameEx := GetProcAddress(GetModuleHandle('secur32.dll'), 'GetUserNameExW');
  if Assigned(GetUserNameEx) then
    if GetUserNameEx(ANameFormat, @Buf[0], BufSize) then
      Result := Buf;
end;

Als Ergebnis erhalte ich jedoch nicht den Benutzernamen sondern die Workgroup und den PC-Namen im Format WORKGROUP\PC-Name

Aufruf:

Delphi-Quellcode:

showmessage(GetUserNameExString(NameSamCompatible));

Delphi XE2/64Bit. Was könnte da falsch laufen ??

KUBA

[himitsu]

Ich hätte jetzt vermutet, daß die Funktion maximal den Namen zurückgeben kann, von dem Account, in welchem der Service läuft.
Und das wird vermutlich nicht der Account des Bentzters sein. :stupid:

Die Funktion heißt ja praktisch "gib die Infos von meinem Account" (mein = von dem Programm)


Vermutlich wird man irgendwie rausfinden müssen welcher "Desktop" aktuell auf dem Monitor angezeigt wird und liest dann von Diesem den Account aus.

[hoika]

Hallo,

vielleicht hilft dir das

http://www.delphipages.com/forum/arc.../t-203396.html

Dort suchen nach
alee
SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, PChar(appPath));


Heiko

[JYPDWhite]

So funktioniert es bei uns:

Delphi-Quellcode:

procedure GetUserNameEx(NameFormat: DWORD;lpNameBuffer: LPSTR; nSize: PULONG);
          stdcall; external 'secur32.dll' Name 'GetUserNameExW';



procedure UsernameAuslesen();
var
  UserName_array: array[0..250] of char;
  szUserName : array[0..99] of Char;
  Size: DWORD;
begin
    FillChar(szUserName, SizeOf(szUserName), 0);
     Size := SizeOf(szUserName);
    GetUserName(szUserName, Size);  // das holt erstmal die GID des aktuellen Nutzers
    UserNameLogin:=  Uppercase(szUserName);
    Size := 250;
    GetUserNameEx(3, @UserName_array, @Size); // das ließt dann vorname nachname usw aus
end;

Das ist jetzt aus nem größeren Teil Code zusammenkopiert. Kann also sein dass es jetzt nicht Copy&Paste funktioniert ;-)

[sx2008]

Zitat:

Zitat von JYPDWhite (Beitrag 1268368)

Das ist jetzt aus nem größeren Teil Code zusammenkopiert

Das ist doch ein kleiner Wink dass der größere Codeteil nicht optimal gebaut ist.
Es passiert zuviel innerhalb einer Funktion bzw. Methode.
Solange man aus einem größeren Codeblock nützliche Funktionen isolieren kann ist der Sourcecode noch nicht richtig sauber.

[JYPDWhite]

OT: Ich weiß... Aber wie du warscheinlich ebenfals aus der Praxis weißt kann man nicht einfach ein ganzes Programm was man übernommen hat direkt komplett umbauen sondern kann das allenfalls nach und nach machen, wer soll das den sonst bezahlen ;-)

[Sir Rufo]

Zitat:

Zitat von JYPDWhite (Beitrag 1268402)

OT: Ich weiß... Aber wie du warscheinlich ebenfals aus der Praxis weißt kann man nicht einfach ein ganzes Programm was man übernommen hat direkt komplett umbauen sondern kann das allenfalls nach und nach machen, wer soll das den sonst bezahlen ;-)

Aber du hast den Code doch jetzt in den Fingern, da bietet sich doch direkt ein Refactoring an ;)

[kuba]

Zitat:

Zitat von himitsu (Beitrag 1268347)

Vermutlich wird man irgendwie rausfinden müssen welcher "Desktop" aktuell auf dem Monitor angezeigt wird und liest dann von Diesem den Account aus.

Super Idee, so "ähnlich" habe ich es jetzt für meine Zwecke gelöst. Wenn der richtige Benutzer angemeldet ist läuft eine bestimmte Anwendung im Hintergrund, das reicht mir vollkommen :wink:

Vielen Dank für die Anregungen.

KUBA

[Kurt56]

Ich habe das Problem, den Usernamen zu finden, so gelöst:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
var
    lpbuff : pchar;
    nSize : dword;
begin

lpbuff:=PChar(AllocMem(30));
getusername(lpbuff, nsize);
//showmessage(lpbuff);
getusername(lpbuff, nsize);
//showmessage(lpbuff);
end;

Leider erhalte ich bei dem ersten Aufruf von "getusername" nur einen leeren String.
Doch mit dem gleich darauf folgenden Aufruf erhalte ich den Usernamen, der sich aktuell angemeldet hat.

Warum der 1. Aufruf noch nicht zum Ziel führt, habe ich nie untersucht, Hauptsache ich komme so an den Usernamen.

Kurt

[Bernhard Geyer]

Zitat:

Zitat von Kurt56 (Beitrag 1281035)

Leider erhalte ich bei dem ersten Aufruf von "getusername" nur einen leeren String.
Doch mit dem gleich darauf folgenden Aufruf erhalte ich den Usernamen, der sich aktuell angemeldet hat.

Warum der 1. Aufruf noch nicht zum Ziel führt, habe ich nie untersucht, Hauptsache ich komme so an den Usernamen.

Da brauchst du nix untersuchen, einfach die Funktionsbeschreibung durchlesen.
Der zweite Parameter ist ein In/Out-parameter. Rein gibtst du die Buffergröße, raus bekommst du die nötige Buffergröße.
Also beim ersten Aufruf geht du mit größe 0 rein, raus kommt die nötige größe und beim zweiten aufruf hast du diese als in-Wert.