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;