XP Usermanagers 6.1 Open Source

[shmia]

Zitat von Luckie:

Hat ihn mittlerweile eigentlich irgendjemand mal zu mindest auch nur angekuckt?

Ja, HIER.
Die Suche nach Rechnern im Netzwerk dauert in unserem Netzwerk sehr lange (~500 Rechner in Domäne). Hier sollte man den Rechnername als editierbares Feld zulassen.
Der Buttom "Computer wählen" bleibt natürlich drin. (könnte man auch als "Computer Suchen" bezeichnen - ist Geschmacksache)

Nachtrag:
Wenn ein Domänencontroller im Netzwerk ist, dann kann man die User/Gruppen doch auch von dieser
Domäne auslesen, ohne den Rechnernamen des Domänencontroller zu kennen, oder??
Man könnte zusätzlich noch die aktuelle Domäne in der Statusbar oder als Hint anzeigen:

Delphi-Quellcode:

// aus der JCL ...
function GetUserDomainName(const CurUser: string): string;
var
  Count1, Count2: DWORD;
  Sd: PSID; // PSecurityDescriptor; // FPC requires PSID
  Snu: SID_Name_Use;
begin
  Count1 := 0;
  Count2 := 0;
  Sd := nil;
  Snu := SIDTypeUser;
  LookUpAccountName(nil, PChar(CurUser), Sd, Count1, PChar(Result), Count2, Snu);
  // set buffer size to Count2 + 2 characters for safety
  SetLength(Result, Count2 + 1);
  Sd := AllocMem(Count1);
  try
    if LookUpAccountName(nil, PChar(CurUser), Sd, Count1, PChar(Result), Count2, Snu) then
      StrResetLength(Result)
    else
      Result := EmptyStr;
  finally
    FreeMem(Sd);
  end;
end;