[VitAngel]

День добрый!

Подскажите, пожалуйста, как я могу проверить является ли пользователь администратором домена.

Заранее благодарю

[dmdx]

зайди через RDP на контроллер если пустит то админ. А так добжны быть роли.
Администратор.
Админ домена.
и в роде надо еще
Админ предприятия.

[Admin]

Сообщение от VitAngel

День добрый!

Подскажите, пожалуйста, как я могу проверить является ли пользователь администратором домена.

Заранее благодарю

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

// Есть ли у юзера права админа const  SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority =                               (Value: (0, 0, 0, 0, 0, 5));  SECURITY_BUILTIN_DOMAIN_RID = $00000020;  DOMAIN_ALIAS_RID_ADMINS     = $00000220;   function IsAdmin: Boolean; var  x: integer;  bSuccess: BOOL;  hAccessToken: THandle;  ptgGroups: PTokenGroups;  dwInfoBufferSize: DWORD;  psidAdministrators: PSID; begin  Result:=false;  bSuccess:=OpenThreadToken(GetCurrentThread, TOKEN_QUERY, true, hAccessToken);  if not bSuccess  then   begin    if GetLastError=ERROR_NO_TOKEN    then bSuccess:=OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, hAccessToken);   end;  if bSuccess  then   begin    GetMem(ptgGroups, 1024);    bSuccess:=GetTokenInformation(hAccessToken, TokenGroups, ptgGroups, 1024, dwInfoBufferSize);    CloseHandle(hAccessToken);    if bSuccess    then     begin      AllocateAndInitializeSid(SECURITY_NT_AUTHORITY, 2,        SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS,        0, 0, 0, 0, 0, 0, psidAdministrators);      {$R-}      for x:=0 to ptgGroups.GroupCount-1 do       if EqualSid(psidAdministrators, ptgGroups.Groups[x].Sid)       then        begin         Result:=true;         Break;        end;      {$R+}     FreeSid(psidAdministrators);    end;   FreeMem(ptgGroups);  end; end;

Код:

1 2 3

if IsAdmin then Label8.Caption:='Admin rules: true.' else Label8.Caption:='Admin rules: false.';