|
|
|
| | | | | | | | |  |
| 
| Code source : unité LRJ_WinTokenGroups | |
| |
| | |
|
Description : cette unité contient les objets TWinTokenGroup
et TWinTokenGroups. TWinTokenGroup permet de connaître les informations, d'activer et désactiver
un groupe associé à un token Windows et TWinTokenGroups contient une liste d'objet TWinTokenGroup
correspondant aux groupes associés à un token Windows.
L'unité est livrée avec une application de démonstration (
voir description plus loin
) qui utilise les fonctionnalités des
objets contenus dans l'unité. Les codes de l'application
sont livrés avec l'unité pour illustrer comment utiliser les objets de
cette unité.
L'unité LRJ_WinTokenGroups met en oeuvre les fonctions de Windows suivantes :
|
|
AdjustTokenGroups
CloseHandle
GetTokenInformation
OpenProcessToken
|
Déclarations publiques de l'unité
I
Télécharger l'application de démonstration
I
Exemples d'utilisations
Utilise les unités : Windows,
LRJ_ClassesPlus,
LRJ_TokenAPI et
LRJ_WinSID
.
Version : 1.1 du 20.06.2009
Auteur : Laurent Hède
Copyright : LorenJo
Nombre de lignes : 378
Réalisée sous : Delphi 6
Systèmes compatibles : NT4, 2000, XP, Vista, serveurs
Prix : 81.00 € H.T.
Déclarations publiques de l'unité :
unit LRJ_WinTokenGroups;
interface
Uses
Windows,
LRJ_ClassesPlus,
LRJ_TokenAPI,
LRJ_WinSID;
function LrJFunc_IfUserLocalAdmin : boolean;
......
//------------OBJET----------------------------
TWinTokenGroup = class(TObject)
......
function StrAttributes: string;
function CanDisable: boolean;
procedure RestoreInitialState;
property SID: LRJ_TWinSID read MOSID;
property Attributes: DWORD read MOAttributes;
property TypedAttributes: LRJ_TSetOfTypeTokenGroupsSid read GetTypedAttributes;
property Enabled: boolean read GetEnabled write SetEnabled;
end;//-----------FIN--------------------------
//------------OBJET----------------------------
TWinTokenGroups = class(TObject)
......
function Count: Integer;
property Token: THandle read GetToken write SetToken;
property LogonSID: LRJ_TWinSID read GetLogonSID;
property IsUserLocalAdministrator: boolean read GetIsUserLocalAdministrator;
property Groups[const Index: Integer]: TWinTokenGroup Read GetGroups;
end;//-----------FIN--------------------------
|
Application de démonstration
L'application de démonstration liste les groupes du token de son processus. Ce sont les groupes
associés au token associé à l'utilisateur authentifié de la session dans laquelle cette application de
démonstration est ouverte.
La CheckBox 'Is user local administrator' indique si l'utilisateur est un administrateur
local ou non.
Le TEdit 'Count' indique le nombre de groupes associés à l'utilisateur.
La grille liste les groupes associés à l'utilisateur avec en colonne 0 les attributs
de chaque groupes et en colonne 1 les informations extraites du SID associé à chaque
groupe.
Exemples d'utilisations
Tester si l'utilisateur est un administrateur sur une machine hors domaine.
begin
if LrJFunc_IfUserLocalAdmin then
begin
//Traitement
end
end;
|
Vous n'avez pas trouvé d'exemple répondant à votre problématique ?
Cliquez sur ce lien.
|
|
|
 | |  |
|
|
