Hallo. Brauche wieder eure Hilfe. Wie krieg ich alle USER vom Gesamten Netzwerk (inkl. alle Domains) heraus. Weiters brauche ich alle Domains als String. Danke für eure Hilfe bereits im Voraus Manfred
Hi,
auf Torry findest du NTSet, Sharewarecomps für 69$. Schau sie dir mal an.
Als Starthilfe vielleicht folgendes:
function GetDomainName : string;
var
hToken : THandle;
sida : PSIDAndAttributes;
sidlen, unLen, dnLen : DWORD;
userName, domainName : string;
use : SID_NAME_USE;
begin
sida := Nil;
if OpenProcessToken (GetCurrentProcess, TOKEN_QUERY, hToken) then
try
sidLen := 65536;
repeat
ReallocMem (sida, sidLen);
if GetTokenInformation (hToken, TokenUser, sida, sidLen, sidLen)
then
break;
if GetLastError ERROR_INSUFFICIENT_BUFFER then
RaiseLastWin32Error
until False;
unLen := 0;
dnLen := 256;
repeat
SetLength (userName, unLen);
SetLength (domainName, dnLen);
if LookupAccountSid (’’, sida^.Sid, PChar (userName), unLen,
PChar (domainName), dnLen, use) then
break;
if GetLastError ERROR_INSUFFICIENT_BUFFER then
RaiseLastWin32Error
until False;
result := PChar (domainName)
finally
CloseHandle (hToken);
FreeMem (sida);
end
end;
Gruss RQ