TADSystemInfo

type TADSystemInfo = class(TOleServer)

protected

  procedure InitServerData; override;

  function Get_UserName;

  function Get_ComputerName;

  function Get_SiteName;

  function Get_DomainShortName;

  function Get_DomainDNSName;

  function Get_ForestDNSName;

  function Get_PDCRoleOwner;

  function Get_SchemaRoleOwner;

  function Get_IsNativeMode;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Connect; override;

  procedure ConnectTo();

  procedure Disconnect; override;

  function GetAnyDCName;

  function GetDCSiteName();

  procedure RefreshSchemaCache;

  function GetTrees;

  property DefaultInterface: IADsADSystemInfo; [r]

  property UserName: WideString; [r]

  property ComputerName: WideString; [r]

  property SiteName: WideString; [r]

  property DomainShortName: WideString; [r]

  property DomainDNSName: WideString; [r]

  property ForestDNSName: WideString; [r]

  property PDCRoleOwner: WideString; [r]

  property SchemaRoleOwner: WideString; [r]

  property IsNativeMode: WordBool; [r]

end;

TADSystemInfo

TOleServer

TObject