TADObject

Referenced by: TMiTeC_AD

TADProvider = (adLDAP, adWinNT, adNDS);

TADObjectType = (adCommon, adDomain, adUser, adComputer, adGroup);

TADProperty = record

Provider: TADProvider;

Name: string;

Typ: Integer;

Value: Variant;

end;

TADObject = record

ObjectType: TADObjectType;

Props: array of TADProperty;

function GetProp(AName: string): TADProperty;

function GetPropIdx(AName: string): integer;

function GetName: WideString;

function GetDN: WideString;

function GetIP: WideString;

function GetPropAsDelimitedText(AName: string): string;

procedure ClearProps;

procedure AddProp(AName: string; ATyp: Integer; AValue: Variant);

end;

TADObjects = array of TADObject;