7785 lines
293 KiB
ObjectPascal
7785 lines
293 KiB
ObjectPascal
|
{*******************************************************}
|
||
|
|
{ MiTeC Common Routines }
|
||
|
|
{ ADSI interface }
|
||
|
|
{ }
|
||
|
|
{ Copyright (c) 1997-2021 Michal Mutl }
|
||
|
|
{ }
|
||
|
|
{*******************************************************}
|
||
|
|
|
||
|
|
{$INCLUDE Compilers.inc}
|
||
|
|
|
||
|
|
unit MiTeC_ActiveDs_TLB;
|
||
|
|
|
||
|
|
// ************************************************************************ //
|
||
|
|
// WARNING
|
||
|
|
// -------
|
||
|
|
// The types declared in this file were generated from data read from a
|
||
|
|
// Type Library. If this type library is explicitly or indirectly (via
|
||
|
|
// another type library referring to this type library) re-imported, or the
|
||
|
|
// 'Refresh' command of the Type Library Editor activated while editing the
|
||
|
|
// Type Library, the contents of this file will be regenerated and all
|
||
|
|
// manual modifications will be lost.
|
||
|
|
// ************************************************************************ //
|
||
|
|
|
||
|
|
// $Rev: 52393 $
|
||
|
|
// File generated on 8. 7. 2020 13:09:19 from Type Library described below.
|
||
|
|
|
||
|
|
// ************************************************************************ //
|
||
|
|
// Type Lib: C:\Windows\system32\activeds.tlb (1)
|
||
|
|
// LIBID: {97D25DB0-0363-11CF-ABC4-02608C9E7553}
|
||
|
|
// LCID: 0
|
||
|
|
// Helpfile:
|
||
|
|
// HelpString: Active DS Type Library
|
||
|
|
// DepndLst:
|
||
|
|
// (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb)
|
||
|
|
// SYS_KIND: SYS_WIN32
|
||
|
|
// Errors:
|
||
|
|
// Hint: Member 'String' of '_ADS_CASEIGNORE_LIST' changed to 'String_'
|
||
|
|
// Hint: Symbol 'Type' renamed to 'type_'
|
||
|
|
// Hint: Symbol 'ClassName' renamed to '_className'
|
||
|
|
// Hint: Member 'Class' of 'IADs' changed to 'Class_'
|
||
|
|
// Hint: Member 'Set' of 'IADsNameTranslate' changed to 'Set_'
|
||
|
|
// Hint: Member 'Set' of 'IADsPathname' changed to 'Set_'
|
||
|
|
// Error creating palette bitmap of (TPropertyEntry) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TPropertyValue) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TAccessControlEntry) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TAccessControlList) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TSecurityDescriptor) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TLargeInteger) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TNameTranslate) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TCaseIgnoreList) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TFaxNumber) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TNetAddress) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TOctetList) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TEmail) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TPath) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TReplicaPointer) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TTimestamp) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TPostalAddress) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TBackLink) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TTypedName) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (THold) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TPathname) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TADSystemInfo) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TWinNTSystemInfo) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TDNWithBinary) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TDNWithString) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// Error creating palette bitmap of (TADsSecurityUtility) : Server C:\Windows\system32\activeds.dll contains no icons
|
||
|
|
// ************************************************************************ //
|
||
|
|
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
|
||
|
|
{$WARN SYMBOL_PLATFORM OFF}
|
||
|
|
{$WRITEABLECONST ON}
|
||
|
|
{$VARPROPSETTER ON}
|
||
|
|
{$ALIGN 4}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses {$IFDEF RAD9PLUS}
|
||
|
|
WinAPI.Windows, WinAPI.ActiveX, System.Classes, VCL.OleServer,
|
||
|
|
VCL.OleCtrls, System.Win.StdVCL;
|
||
|
|
{$ELSE}
|
||
|
|
Windows, ActiveX, Classes, OLEServer, OleCtrls, StdVCL;
|
||
|
|
{$ENDIF}
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// GUIDS declared in the TypeLibrary. Following prefixes are used:
|
||
|
|
// Type Libraries : LIBID_xxxx
|
||
|
|
// CoClasses : CLASS_xxxx
|
||
|
|
// DISPInterfaces : DIID_xxxx
|
||
|
|
// Non-DISP interfaces: IID_xxxx
|
||
|
|
// *********************************************************************//
|
||
|
|
const
|
||
|
|
// TypeLibrary Major and minor versions
|
||
|
|
ActiveDsMajorVersion = 1;
|
||
|
|
ActiveDsMinorVersion = 0;
|
||
|
|
|
||
|
|
LIBID_ActiveDs: TGUID = '{97D25DB0-0363-11CF-ABC4-02608C9E7553}';
|
||
|
|
|
||
|
|
IID_IADs: TGUID = '{FD8256D0-FD15-11CE-ABC4-02608C9E7553}';
|
||
|
|
IID_IADsContainer: TGUID = '{001677D0-FD16-11CE-ABC4-02608C9E7553}';
|
||
|
|
IID_IADsCollection: TGUID = '{72B945E0-253B-11CF-A988-00AA006BC149}';
|
||
|
|
IID_IADsMembers: TGUID = '{451A0030-72EC-11CF-B03B-00AA006E0975}';
|
||
|
|
IID_IADsPropertyList: TGUID = '{C6F602B6-8F69-11D0-8528-00C04FD8D503}';
|
||
|
|
IID_IADsPropertyEntry: TGUID = '{05792C8E-941F-11D0-8529-00C04FD8D503}';
|
||
|
|
CLASS_PropertyEntry: TGUID = '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
|
||
|
|
IID_IADsPropertyValue: TGUID = '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
|
||
|
|
IID_IADsPropertyValue2: TGUID = '{306E831C-5BC7-11D1-A3B8-00C04FB950DC}';
|
||
|
|
CLASS_PropertyValue: TGUID = '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
|
||
|
|
IID_IPrivateDispatch: TGUID = '{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}';
|
||
|
|
IID_ITypeInfo: TGUID = '{00020401-0000-0000-C000-000000000046}';
|
||
|
|
IID_ITypeComp: TGUID = '{00020403-0000-0000-C000-000000000046}';
|
||
|
|
IID_ITypeLib: TGUID = '{00020402-0000-0000-C000-000000000046}';
|
||
|
|
IID_IPrivateUnknown: TGUID = '{89126BAB-6EAD-11D1-8C18-00C04FD8D503}';
|
||
|
|
IID_IADsExtension: TGUID = '{3D35553C-D2B0-11D1-B17B-0000F87593A0}';
|
||
|
|
IID_IADsDeleteOps: TGUID = '{B2BD0902-8878-11D1-8C21-00C04FD8D503}';
|
||
|
|
IID_IADsNamespaces: TGUID = '{28B96BA0-B330-11CF-A9AD-00AA006BC149}';
|
||
|
|
IID_IADsClass: TGUID = '{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}';
|
||
|
|
IID_IADsProperty: TGUID = '{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}';
|
||
|
|
IID_IADsSyntax: TGUID = '{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}';
|
||
|
|
IID_IADsLocality: TGUID = '{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}';
|
||
|
|
IID_IADsO: TGUID = '{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}';
|
||
|
|
IID_IADsOU: TGUID = '{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}';
|
||
|
|
IID_IADsDomain: TGUID = '{00E4C220-FD16-11CE-ABC4-02608C9E7553}';
|
||
|
|
IID_IADsComputer: TGUID = '{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}';
|
||
|
|
IID_IADsComputerOperations: TGUID = '{EF497680-1D9F-11CF-B1F3-02608C9E7553}';
|
||
|
|
IID_IADsGroup: TGUID = '{27636B00-410F-11CF-B1FF-02608C9E7553}';
|
||
|
|
IID_IADsUser: TGUID = '{3E37E320-17E2-11CF-ABC4-02608C9E7553}';
|
||
|
|
IID_IADsPrintQueue: TGUID = '{B15160D0-1226-11CF-A985-00AA006BC149}';
|
||
|
|
IID_IADsPrintQueueOperations: TGUID = '{124BE5C0-156E-11CF-A986-00AA006BC149}';
|
||
|
|
IID_IADsPrintJob: TGUID = '{32FB6780-1ED0-11CF-A988-00AA006BC149}';
|
||
|
|
IID_IADsPrintJobOperations: TGUID = '{9A52DB30-1ECF-11CF-A988-00AA006BC149}';
|
||
|
|
IID_IADsService: TGUID = '{68AF66E0-31CA-11CF-A98A-00AA006BC149}';
|
||
|
|
IID_IADsServiceOperations: TGUID = '{5D7B33F0-31CA-11CF-A98A-00AA006BC149}';
|
||
|
|
IID_IADsFileService: TGUID = '{A89D1900-31CA-11CF-A98A-00AA006BC149}';
|
||
|
|
IID_IADsFileServiceOperations: TGUID = '{A02DED10-31CA-11CF-A98A-00AA006BC149}';
|
||
|
|
IID_IADsFileShare: TGUID = '{EB6DCAF0-4B83-11CF-A995-00AA006BC149}';
|
||
|
|
IID_IADsSession: TGUID = '{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}';
|
||
|
|
IID_IADsResource: TGUID = '{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}';
|
||
|
|
IID_IADsOpenDSObject: TGUID = '{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}';
|
||
|
|
IID_IDirectoryObject: TGUID = '{E798DE2C-22E4-11D0-84FE-00C04FD8D503}';
|
||
|
|
IID_IDirectorySearch: TGUID = '{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}';
|
||
|
|
IID_IDirectorySchemaMgmt: TGUID = '{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}';
|
||
|
|
IID_IADsAggregatee: TGUID = '{1346CE8C-9039-11D0-8528-00C04FD8D503}';
|
||
|
|
IID_IADsAggregator: TGUID = '{52DB5FB0-941F-11D0-8529-00C04FD8D503}';
|
||
|
|
IID_IADsAccessControlEntry: TGUID = '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
CLASS_AccessControlEntry: TGUID = '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
IID_IADsAccessControlList: TGUID = '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
CLASS_AccessControlList: TGUID = '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
IID_IADsSecurityDescriptor: TGUID = '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
CLASS_SecurityDescriptor: TGUID = '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
IID_IADsLargeInteger: TGUID = '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
|
||
|
|
CLASS_LargeInteger: TGUID = '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
|
||
|
|
IID_IADsNameTranslate: TGUID = '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
|
||
|
|
CLASS_NameTranslate: TGUID = '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
|
||
|
|
IID_IADsCaseIgnoreList: TGUID = '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
CLASS_CaseIgnoreList: TGUID = '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IID_IADsFaxNumber: TGUID = '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
CLASS_FaxNumber: TGUID = '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IID_IADsNetAddress: TGUID = '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
CLASS_NetAddress: TGUID = '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IID_IADsOctetList: TGUID = '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
CLASS_OctetList: TGUID = '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IID_IADsEmail: TGUID = '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
|
||
|
|
CLASS_Email: TGUID = '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IID_IADsPath: TGUID = '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
CLASS_Path: TGUID = '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IID_IADsReplicaPointer: TGUID = '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
CLASS_ReplicaPointer: TGUID = '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IID_IADsAcl: TGUID = '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
|
||
|
|
IID_IADsTimestamp: TGUID = '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
CLASS_Timestamp: TGUID = '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IID_IADsPostalAddress: TGUID = '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
CLASS_PostalAddress: TGUID = '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IID_IADsBackLink: TGUID = '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
CLASS_BackLink: TGUID = '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IID_IADsTypedName: TGUID = '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
CLASS_TypedName: TGUID = '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IID_IADsHold: TGUID = '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
CLASS_Hold: TGUID = '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IID_IADsObjectOptions: TGUID = '{46F14FDA-232B-11D1-A808-00C04FD8D5A8}';
|
||
|
|
IID_IADsPathname: TGUID = '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
|
||
|
|
CLASS_Pathname: TGUID = '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
|
||
|
|
IID_IADsADSystemInfo: TGUID = '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
|
||
|
|
CLASS_ADSystemInfo: TGUID = '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
|
||
|
|
IID_IADsWinNTSystemInfo: TGUID = '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
|
||
|
|
CLASS_WinNTSystemInfo: TGUID = '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
|
||
|
|
IID_IADsDNWithBinary: TGUID = '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
|
||
|
|
CLASS_DNWithBinary: TGUID = '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
|
||
|
|
IID_IADsDNWithString: TGUID = '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
|
||
|
|
CLASS_DNWithString: TGUID = '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
|
||
|
|
IID_IADsSecurityUtility: TGUID = '{A63251B2-5F21-474B-AB52-4A8EFAD10895}';
|
||
|
|
CLASS_ADsSecurityUtility: TGUID = '{F270C64A-FFB8-4AE4-85FE-3A75E5347966}';
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Declaration of Enumerations defined in Type Library
|
||
|
|
// *********************************************************************//
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0001
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0001 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADSTYPE_INVALID = $00000000;
|
||
|
|
ADSTYPE_DN_STRING = $00000001;
|
||
|
|
ADSTYPE_CASE_EXACT_STRING = $00000002;
|
||
|
|
ADSTYPE_CASE_IGNORE_STRING = $00000003;
|
||
|
|
ADSTYPE_PRINTABLE_STRING = $00000004;
|
||
|
|
ADSTYPE_NUMERIC_STRING = $00000005;
|
||
|
|
ADSTYPE_BOOLEAN = $00000006;
|
||
|
|
ADSTYPE_INTEGER = $00000007;
|
||
|
|
ADSTYPE_OCTET_STRING = $00000008;
|
||
|
|
ADSTYPE_UTC_TIME = $00000009;
|
||
|
|
ADSTYPE_LARGE_INTEGER = $0000000A;
|
||
|
|
ADSTYPE_PROV_SPECIFIC = $0000000B;
|
||
|
|
ADSTYPE_OBJECT_CLASS = $0000000C;
|
||
|
|
ADSTYPE_CASEIGNORE_LIST = $0000000D;
|
||
|
|
ADSTYPE_OCTET_LIST = $0000000E;
|
||
|
|
ADSTYPE_PATH = $0000000F;
|
||
|
|
ADSTYPE_POSTALADDRESS = $00000010;
|
||
|
|
ADSTYPE_TIMESTAMP = $00000011;
|
||
|
|
ADSTYPE_BACKLINK = $00000012;
|
||
|
|
ADSTYPE_TYPEDNAME = $00000013;
|
||
|
|
ADSTYPE_HOLD = $00000014;
|
||
|
|
ADSTYPE_NETADDRESS = $00000015;
|
||
|
|
ADSTYPE_REPLICAPOINTER = $00000016;
|
||
|
|
ADSTYPE_FAXNUMBER = $00000017;
|
||
|
|
ADSTYPE_EMAIL = $00000018;
|
||
|
|
ADSTYPE_NT_SECURITY_DESCRIPTOR = $00000019;
|
||
|
|
ADSTYPE_UNKNOWN = $0000001A;
|
||
|
|
ADSTYPE_DN_WITH_BINARY = $0000001B;
|
||
|
|
ADSTYPE_DN_WITH_STRING = $0000001C;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0018
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0018 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_SECURE_AUTHENTICATION = $00000001;
|
||
|
|
ADS_USE_ENCRYPTION = $00000002;
|
||
|
|
ADS_USE_SSL = $00000002;
|
||
|
|
ADS_READONLY_SERVER = $00000004;
|
||
|
|
ADS_PROMPT_CREDENTIALS = $00000008;
|
||
|
|
ADS_NO_AUTHENTICATION = $00000010;
|
||
|
|
ADS_FAST_BIND = $00000020;
|
||
|
|
ADS_USE_SIGNING = $00000040;
|
||
|
|
ADS_USE_SEALING = $00000080;
|
||
|
|
ADS_USE_DELEGATION = $00000100;
|
||
|
|
ADS_SERVER_BIND = $00000200;
|
||
|
|
ADS_NO_REFERRAL_CHASING = $00000400;
|
||
|
|
ADS_AUTH_RESERVED = $80000000;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0019
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0019 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_STATUS_S_OK = $00000000;
|
||
|
|
ADS_STATUS_INVALID_SEARCHPREF = $00000001;
|
||
|
|
ADS_STATUS_INVALID_SEARCHPREFVALUE = $00000002;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0020
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0020 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_DEREF_NEVER = $00000000;
|
||
|
|
ADS_DEREF_SEARCHING = $00000001;
|
||
|
|
ADS_DEREF_FINDING = $00000002;
|
||
|
|
ADS_DEREF_ALWAYS = $00000003;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0021
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0021 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_SCOPE_BASE = $00000000;
|
||
|
|
ADS_SCOPE_ONELEVEL = $00000001;
|
||
|
|
ADS_SCOPE_SUBTREE = $00000002;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0022
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0022 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADSIPROP_ASYNCHRONOUS = $00000000;
|
||
|
|
ADSIPROP_DEREF_ALIASES = $00000001;
|
||
|
|
ADSIPROP_SIZE_LIMIT = $00000002;
|
||
|
|
ADSIPROP_TIME_LIMIT = $00000003;
|
||
|
|
ADSIPROP_ATTRIBTYPES_ONLY = $00000004;
|
||
|
|
ADSIPROP_SEARCH_SCOPE = $00000005;
|
||
|
|
ADSIPROP_TIMEOUT = $00000006;
|
||
|
|
ADSIPROP_PAGESIZE = $00000007;
|
||
|
|
ADSIPROP_PAGED_TIME_LIMIT = $00000008;
|
||
|
|
ADSIPROP_CHASE_REFERRALS = $00000009;
|
||
|
|
ADSIPROP_SORT_ON = $0000000A;
|
||
|
|
ADSIPROP_CACHE_RESULTS = $0000000B;
|
||
|
|
ADSIPROP_ADSIFLAG = $0000000C;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0023
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0023 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADSI_DIALECT_LDAP = $00000000;
|
||
|
|
ADSI_DIALECT_SQL = $00000001;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0024
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0024 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_CHASE_REFERRALS_NEVER = $00000000;
|
||
|
|
ADS_CHASE_REFERRALS_SUBORDINATE = $00000020;
|
||
|
|
ADS_CHASE_REFERRALS_EXTERNAL = $00000040;
|
||
|
|
ADS_CHASE_REFERRALS_ALWAYS = $00000060;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0025
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0025 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_SEARCHPREF_ASYNCHRONOUS = $00000000;
|
||
|
|
ADS_SEARCHPREF_DEREF_ALIASES = $00000001;
|
||
|
|
ADS_SEARCHPREF_SIZE_LIMIT = $00000002;
|
||
|
|
ADS_SEARCHPREF_TIME_LIMIT = $00000003;
|
||
|
|
ADS_SEARCHPREF_ATTRIBTYPES_ONLY = $00000004;
|
||
|
|
ADS_SEARCHPREF_SEARCH_SCOPE = $00000005;
|
||
|
|
ADS_SEARCHPREF_TIMEOUT = $00000006;
|
||
|
|
ADS_SEARCHPREF_PAGESIZE = $00000007;
|
||
|
|
ADS_SEARCHPREF_PAGED_TIME_LIMIT = $00000008;
|
||
|
|
ADS_SEARCHPREF_CHASE_REFERRALS = $00000009;
|
||
|
|
ADS_SEARCHPREF_SORT_ON = $0000000A;
|
||
|
|
ADS_SEARCHPREF_CACHE_RESULTS = $0000000B;
|
||
|
|
ADS_SEARCHPREF_DIRSYNC = $0000000C;
|
||
|
|
ADS_SEARCHPREF_TOMBSTONE = $0000000D;
|
||
|
|
ADS_SEARCHPREF_VLV = $0000000E;
|
||
|
|
ADS_SEARCHPREF_ATTRIBUTE_QUERY = $0000000F;
|
||
|
|
ADS_SEARCHPREF_SECURITY_MASK = $00000010;
|
||
|
|
ADS_SEARCHPREF_DIRSYNC_FLAG = $00000011;
|
||
|
|
ADS_SEARCHPREF_EXTENDED_DN = $00000012;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0026
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0026 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_PASSWORD_ENCODE_REQUIRE_SSL = $00000000;
|
||
|
|
ADS_PASSWORD_ENCODE_CLEAR = $00000001;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0000_0000_0027
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0027 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_PROPERTY_CLEAR = $00000001;
|
||
|
|
ADS_PROPERTY_UPDATE = $00000002;
|
||
|
|
ADS_PROPERTY_APPEND = $00000003;
|
||
|
|
ADS_PROPERTY_DELETE = $00000004;
|
||
|
|
|
||
|
|
// Constants for enum tagTYPEKIND
|
||
|
|
type
|
||
|
|
tagTYPEKIND = TOleEnum;
|
||
|
|
const
|
||
|
|
TKIND_ENUM = $00000000;
|
||
|
|
TKIND_RECORD = $00000001;
|
||
|
|
TKIND_MODULE = $00000002;
|
||
|
|
TKIND_INTERFACE = $00000003;
|
||
|
|
TKIND_DISPATCH = $00000004;
|
||
|
|
TKIND_COCLASS = $00000005;
|
||
|
|
TKIND_ALIAS = $00000006;
|
||
|
|
TKIND_UNION = $00000007;
|
||
|
|
TKIND_MAX = $00000008;
|
||
|
|
|
||
|
|
// Constants for enum tagDESCKIND
|
||
|
|
type
|
||
|
|
tagDESCKIND = TOleEnum;
|
||
|
|
const
|
||
|
|
DESCKIND_NONE = $00000000;
|
||
|
|
DESCKIND_FUNCDESC = $00000001;
|
||
|
|
DESCKIND_VARDESC = $00000002;
|
||
|
|
DESCKIND_TYPECOMP = $00000003;
|
||
|
|
DESCKIND_IMPLICITAPPOBJ = $00000004;
|
||
|
|
DESCKIND_MAX = $00000005;
|
||
|
|
|
||
|
|
// Constants for enum tagFUNCKIND
|
||
|
|
type
|
||
|
|
tagFUNCKIND = TOleEnum;
|
||
|
|
const
|
||
|
|
FUNC_VIRTUAL = $00000000;
|
||
|
|
FUNC_PUREVIRTUAL = $00000001;
|
||
|
|
FUNC_NONVIRTUAL = $00000002;
|
||
|
|
FUNC_STATIC = $00000003;
|
||
|
|
FUNC_DISPATCH = $00000004;
|
||
|
|
|
||
|
|
// Constants for enum tagINVOKEKIND
|
||
|
|
type
|
||
|
|
tagINVOKEKIND = TOleEnum;
|
||
|
|
const
|
||
|
|
INVOKE_FUNC = $00000001;
|
||
|
|
INVOKE_PROPERTYGET = $00000002;
|
||
|
|
INVOKE_PROPERTYPUT = $00000004;
|
||
|
|
INVOKE_PROPERTYPUTREF = $00000008;
|
||
|
|
|
||
|
|
// Constants for enum tagCALLCONV
|
||
|
|
type
|
||
|
|
tagCALLCONV = TOleEnum;
|
||
|
|
const
|
||
|
|
CC_FASTCALL = $00000000;
|
||
|
|
CC_CDECL = $00000001;
|
||
|
|
CC_MSCPASCAL = $00000002;
|
||
|
|
CC_PASCAL = $00000002;
|
||
|
|
CC_MACPASCAL = $00000003;
|
||
|
|
CC_STDCALL = $00000004;
|
||
|
|
CC_FPFASTCALL = $00000005;
|
||
|
|
CC_SYSCALL = $00000006;
|
||
|
|
CC_MPWCDECL = $00000007;
|
||
|
|
CC_MPWPASCAL = $00000008;
|
||
|
|
CC_MAX = $00000009;
|
||
|
|
|
||
|
|
// Constants for enum tagVARKIND
|
||
|
|
type
|
||
|
|
tagVARKIND = TOleEnum;
|
||
|
|
const
|
||
|
|
VAR_PERINSTANCE = $00000000;
|
||
|
|
VAR_STATIC = $00000001;
|
||
|
|
VAR_CONST = $00000002;
|
||
|
|
VAR_DISPATCH = $00000003;
|
||
|
|
|
||
|
|
// Constants for enum tagSYSKIND
|
||
|
|
type
|
||
|
|
tagSYSKIND = TOleEnum;
|
||
|
|
const
|
||
|
|
SYS_WIN16 = $00000000;
|
||
|
|
SYS_WIN32 = $00000001;
|
||
|
|
SYS_MAC = $00000002;
|
||
|
|
SYS_WIN64 = $00000003;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0017_0001
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0017_0001 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_SYSTEMFLAG_DISALLOW_DELETE = $80000000;
|
||
|
|
ADS_SYSTEMFLAG_CONFIG_ALLOW_RENAME = $40000000;
|
||
|
|
ADS_SYSTEMFLAG_CONFIG_ALLOW_MOVE = $20000000;
|
||
|
|
ADS_SYSTEMFLAG_CONFIG_ALLOW_LIMITED_MOVE = $10000000;
|
||
|
|
ADS_SYSTEMFLAG_DOMAIN_DISALLOW_RENAME = $08000000;
|
||
|
|
ADS_SYSTEMFLAG_DOMAIN_DISALLOW_MOVE = $04000000;
|
||
|
|
ADS_SYSTEMFLAG_CR_NTDS_NC = $00000001;
|
||
|
|
ADS_SYSTEMFLAG_CR_NTDS_DOMAIN = $00000002;
|
||
|
|
ADS_SYSTEMFLAG_ATTR_NOT_REPLICATED = $00000001;
|
||
|
|
ADS_SYSTEMFLAG_ATTR_IS_CONSTRUCTED = $00000004;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0023_0001
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0023_0001 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_GROUP_TYPE_GLOBAL_GROUP = $00000002;
|
||
|
|
ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = $00000004;
|
||
|
|
ADS_GROUP_TYPE_LOCAL_GROUP = $00000004;
|
||
|
|
ADS_GROUP_TYPE_UNIVERSAL_GROUP = $00000008;
|
||
|
|
ADS_GROUP_TYPE_SECURITY_ENABLED = $80000000;
|
||
|
|
|
||
|
|
// Constants for enum ADS_USER_FLAG
|
||
|
|
type
|
||
|
|
ADS_USER_FLAG = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_UF_SCRIPT = $00000001;
|
||
|
|
ADS_UF_ACCOUNTDISABLE = $00000002;
|
||
|
|
ADS_UF_HOMEDIR_REQUIRED = $00000008;
|
||
|
|
ADS_UF_LOCKOUT = $00000010;
|
||
|
|
ADS_UF_PASSWD_NOTREQD = $00000020;
|
||
|
|
ADS_UF_PASSWD_CANT_CHANGE = $00000040;
|
||
|
|
ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = $00000080;
|
||
|
|
ADS_UF_TEMP_DUPLICATE_ACCOUNT = $00000100;
|
||
|
|
ADS_UF_NORMAL_ACCOUNT = $00000200;
|
||
|
|
ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = $00000800;
|
||
|
|
ADS_UF_WORKSTATION_TRUST_ACCOUNT = $00001000;
|
||
|
|
ADS_UF_SERVER_TRUST_ACCOUNT = $00002000;
|
||
|
|
ADS_UF_DONT_EXPIRE_PASSWD = $00010000;
|
||
|
|
ADS_UF_MNS_LOGON_ACCOUNT = $00020000;
|
||
|
|
ADS_UF_SMARTCARD_REQUIRED = $00040000;
|
||
|
|
ADS_UF_TRUSTED_FOR_DELEGATION = $00080000;
|
||
|
|
ADS_UF_NOT_DELEGATED = $00100000;
|
||
|
|
ADS_UF_USE_DES_KEY_ONLY = $00200000;
|
||
|
|
ADS_UF_DONT_REQUIRE_PREAUTH = $00400000;
|
||
|
|
ADS_UF_PASSWORD_EXPIRED = $00800000;
|
||
|
|
ADS_UF_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION = $01000000;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0048_0001
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0048_0001 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_RIGHT_DELETE = $00010000;
|
||
|
|
ADS_RIGHT_READ_CONTROL = $00020000;
|
||
|
|
ADS_RIGHT_WRITE_DAC = $00040000;
|
||
|
|
ADS_RIGHT_WRITE_OWNER = $00080000;
|
||
|
|
ADS_RIGHT_SYNCHRONIZE = $00100000;
|
||
|
|
ADS_RIGHT_ACCESS_SYSTEM_SECURITY = $01000000;
|
||
|
|
ADS_RIGHT_GENERIC_READ = $80000000;
|
||
|
|
ADS_RIGHT_GENERIC_WRITE = $40000000;
|
||
|
|
ADS_RIGHT_GENERIC_EXECUTE = $20000000;
|
||
|
|
ADS_RIGHT_GENERIC_ALL = $10000000;
|
||
|
|
ADS_RIGHT_DS_CREATE_CHILD = $00000001;
|
||
|
|
ADS_RIGHT_DS_DELETE_CHILD = $00000002;
|
||
|
|
ADS_RIGHT_ACTRL_DS_LIST = $00000004;
|
||
|
|
ADS_RIGHT_DS_SELF = $00000008;
|
||
|
|
ADS_RIGHT_DS_READ_PROP = $00000010;
|
||
|
|
ADS_RIGHT_DS_WRITE_PROP = $00000020;
|
||
|
|
ADS_RIGHT_DS_DELETE_TREE = $00000040;
|
||
|
|
ADS_RIGHT_DS_LIST_OBJECT = $00000080;
|
||
|
|
ADS_RIGHT_DS_CONTROL_ACCESS = $00000100;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0048_0002
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0048_0002 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_ACETYPE_ACCESS_ALLOWED = $00000000;
|
||
|
|
ADS_ACETYPE_ACCESS_DENIED = $00000001;
|
||
|
|
ADS_ACETYPE_SYSTEM_AUDIT = $00000002;
|
||
|
|
ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = $00000005;
|
||
|
|
ADS_ACETYPE_ACCESS_DENIED_OBJECT = $00000006;
|
||
|
|
ADS_ACETYPE_SYSTEM_AUDIT_OBJECT = $00000007;
|
||
|
|
ADS_ACETYPE_SYSTEM_ALARM_OBJECT = $00000008;
|
||
|
|
ADS_ACETYPE_ACCESS_ALLOWED_CALLBACK = $00000009;
|
||
|
|
ADS_ACETYPE_ACCESS_DENIED_CALLBACK = $0000000A;
|
||
|
|
ADS_ACETYPE_ACCESS_ALLOWED_CALLBACK_OBJECT = $0000000B;
|
||
|
|
ADS_ACETYPE_ACCESS_DENIED_CALLBACK_OBJECT = $0000000C;
|
||
|
|
ADS_ACETYPE_SYSTEM_AUDIT_CALLBACK = $0000000D;
|
||
|
|
ADS_ACETYPE_SYSTEM_ALARM_CALLBACK = $0000000E;
|
||
|
|
ADS_ACETYPE_SYSTEM_AUDIT_CALLBACK_OBJECT = $0000000F;
|
||
|
|
ADS_ACETYPE_SYSTEM_ALARM_CALLBACK_OBJECT = $00000010;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0048_0003
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0048_0003 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_ACEFLAG_INHERIT_ACE = $00000002;
|
||
|
|
ADS_ACEFLAG_NO_PROPAGATE_INHERIT_ACE = $00000004;
|
||
|
|
ADS_ACEFLAG_INHERIT_ONLY_ACE = $00000008;
|
||
|
|
ADS_ACEFLAG_INHERITED_ACE = $00000010;
|
||
|
|
ADS_ACEFLAG_VALID_INHERIT_FLAGS = $0000001F;
|
||
|
|
ADS_ACEFLAG_SUCCESSFUL_ACCESS = $00000040;
|
||
|
|
ADS_ACEFLAG_FAILED_ACCESS = $00000080;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0048_0004
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0048_0004 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_FLAG_OBJECT_TYPE_PRESENT = $00000001;
|
||
|
|
ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = $00000002;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0048_0005
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0048_0005 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_SD_CONTROL_SE_OWNER_DEFAULTED = $00000001;
|
||
|
|
ADS_SD_CONTROL_SE_GROUP_DEFAULTED = $00000002;
|
||
|
|
ADS_SD_CONTROL_SE_DACL_PRESENT = $00000004;
|
||
|
|
ADS_SD_CONTROL_SE_DACL_DEFAULTED = $00000008;
|
||
|
|
ADS_SD_CONTROL_SE_SACL_PRESENT = $00000010;
|
||
|
|
ADS_SD_CONTROL_SE_SACL_DEFAULTED = $00000020;
|
||
|
|
ADS_SD_CONTROL_SE_DACL_AUTO_INHERIT_REQ = $00000100;
|
||
|
|
ADS_SD_CONTROL_SE_SACL_AUTO_INHERIT_REQ = $00000200;
|
||
|
|
ADS_SD_CONTROL_SE_DACL_AUTO_INHERITED = $00000400;
|
||
|
|
ADS_SD_CONTROL_SE_SACL_AUTO_INHERITED = $00000800;
|
||
|
|
ADS_SD_CONTROL_SE_DACL_PROTECTED = $00001000;
|
||
|
|
ADS_SD_CONTROL_SE_SACL_PROTECTED = $00002000;
|
||
|
|
ADS_SD_CONTROL_SE_SELF_RELATIVE = $00008000;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0048_0006
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0048_0006 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_SD_REVISION_DS = $00000004;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0050_0001
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0050_0001 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_NAME_TYPE_1779 = $00000001;
|
||
|
|
ADS_NAME_TYPE_CANONICAL = $00000002;
|
||
|
|
ADS_NAME_TYPE_NT4 = $00000003;
|
||
|
|
ADS_NAME_TYPE_DISPLAY = $00000004;
|
||
|
|
ADS_NAME_TYPE_DOMAIN_SIMPLE = $00000005;
|
||
|
|
ADS_NAME_TYPE_ENTERPRISE_SIMPLE = $00000006;
|
||
|
|
ADS_NAME_TYPE_GUID = $00000007;
|
||
|
|
ADS_NAME_TYPE_UNKNOWN = $00000008;
|
||
|
|
ADS_NAME_TYPE_USER_PRINCIPAL_NAME = $00000009;
|
||
|
|
ADS_NAME_TYPE_CANONICAL_EX = $0000000A;
|
||
|
|
ADS_NAME_TYPE_SERVICE_PRINCIPAL_NAME = $0000000B;
|
||
|
|
ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME = $0000000C;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0050_0002
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0050_0002 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_NAME_INITTYPE_DOMAIN = $00000001;
|
||
|
|
ADS_NAME_INITTYPE_SERVER = $00000002;
|
||
|
|
ADS_NAME_INITTYPE_GC = $00000003;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0077_0001
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0077_0001 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_OPTION_SERVERNAME = $00000000;
|
||
|
|
ADS_OPTION_REFERRALS = $00000001;
|
||
|
|
ADS_OPTION_PAGE_SIZE = $00000002;
|
||
|
|
ADS_OPTION_SECURITY_MASK = $00000003;
|
||
|
|
ADS_OPTION_MUTUAL_AUTH_STATUS = $00000004;
|
||
|
|
ADS_OPTION_QUOTA = $00000005;
|
||
|
|
ADS_OPTION_PASSWORD_PORTNUMBER = $00000006;
|
||
|
|
ADS_OPTION_PASSWORD_METHOD = $00000007;
|
||
|
|
ADS_OPTION_ACCUMULATIVE_MODIFICATION = $00000008;
|
||
|
|
ADS_OPTION_SKIP_SID_LOOKUP = $00000009;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0077_0002
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0077_0002 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_SECURITY_INFO_OWNER = $00000001;
|
||
|
|
ADS_SECURITY_INFO_GROUP = $00000002;
|
||
|
|
ADS_SECURITY_INFO_DACL = $00000004;
|
||
|
|
ADS_SECURITY_INFO_SACL = $00000008;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0078_0001
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0078_0001 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_SETTYPE_FULL = $00000001;
|
||
|
|
ADS_SETTYPE_PROVIDER = $00000002;
|
||
|
|
ADS_SETTYPE_SERVER = $00000003;
|
||
|
|
ADS_SETTYPE_DN = $00000004;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0078_0002
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0078_0002 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_FORMAT_WINDOWS = $00000001;
|
||
|
|
ADS_FORMAT_WINDOWS_NO_SERVER = $00000002;
|
||
|
|
ADS_FORMAT_WINDOWS_DN = $00000003;
|
||
|
|
ADS_FORMAT_WINDOWS_PARENT = $00000004;
|
||
|
|
ADS_FORMAT_X500 = $00000005;
|
||
|
|
ADS_FORMAT_X500_NO_SERVER = $00000006;
|
||
|
|
ADS_FORMAT_X500_DN = $00000007;
|
||
|
|
ADS_FORMAT_X500_PARENT = $00000008;
|
||
|
|
ADS_FORMAT_SERVER = $00000009;
|
||
|
|
ADS_FORMAT_PROVIDER = $0000000A;
|
||
|
|
ADS_FORMAT_LEAF = $0000000B;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0078_0003
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0078_0003 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_DISPLAY_FULL = $00000001;
|
||
|
|
ADS_DISPLAY_VALUE_ONLY = $00000002;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0078_0004
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0078_0004 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_ESCAPEDMODE_DEFAULT = $00000001;
|
||
|
|
ADS_ESCAPEDMODE_ON = $00000002;
|
||
|
|
ADS_ESCAPEDMODE_OFF = $00000003;
|
||
|
|
ADS_ESCAPEDMODE_OFF_EX = $00000004;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0088_0001
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0088_0001 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_PATH_FILE = $00000001;
|
||
|
|
ADS_PATH_FILESHARE = $00000002;
|
||
|
|
ADS_PATH_REGISTRY = $00000003;
|
||
|
|
|
||
|
|
// Constants for enum __MIDL___MIDL_itf_ads_0001_0088_0002
|
||
|
|
type
|
||
|
|
__MIDL___MIDL_itf_ads_0001_0088_0002 = TOleEnum;
|
||
|
|
const
|
||
|
|
ADS_SD_FORMAT_IID = $00000001;
|
||
|
|
ADS_SD_FORMAT_RAW = $00000002;
|
||
|
|
ADS_SD_FORMAT_HEXSTRING = $00000003;
|
||
|
|
|
||
|
|
type
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Forward declaration of types defined in TypeLibrary
|
||
|
|
// *********************************************************************//
|
||
|
|
IADs = interface;
|
||
|
|
IADsDisp = dispinterface;
|
||
|
|
IADsContainer = interface;
|
||
|
|
IADsContainerDisp = dispinterface;
|
||
|
|
IADsCollection = interface;
|
||
|
|
IADsCollectionDisp = dispinterface;
|
||
|
|
IADsMembers = interface;
|
||
|
|
IADsMembersDisp = dispinterface;
|
||
|
|
IADsPropertyList = interface;
|
||
|
|
IADsPropertyListDisp = dispinterface;
|
||
|
|
IADsPropertyEntry = interface;
|
||
|
|
IADsPropertyEntryDisp = dispinterface;
|
||
|
|
IADsPropertyValue = interface;
|
||
|
|
IADsPropertyValueDisp = dispinterface;
|
||
|
|
IADsPropertyValue2 = interface;
|
||
|
|
IADsPropertyValue2Disp = dispinterface;
|
||
|
|
IPrivateDispatch = interface;
|
||
|
|
ITypeInfo = interface;
|
||
|
|
ITypeComp = interface;
|
||
|
|
ITypeLib = interface;
|
||
|
|
IPrivateUnknown = interface;
|
||
|
|
IADsExtension = interface;
|
||
|
|
IADsDeleteOps = interface;
|
||
|
|
IADsDeleteOpsDisp = dispinterface;
|
||
|
|
IADsNamespaces = interface;
|
||
|
|
IADsNamespacesDisp = dispinterface;
|
||
|
|
IADsClass = interface;
|
||
|
|
IADsClassDisp = dispinterface;
|
||
|
|
IADsProperty = interface;
|
||
|
|
IADsPropertyDisp = dispinterface;
|
||
|
|
IADsSyntax = interface;
|
||
|
|
IADsSyntaxDisp = dispinterface;
|
||
|
|
IADsLocality = interface;
|
||
|
|
IADsLocalityDisp = dispinterface;
|
||
|
|
IADsO = interface;
|
||
|
|
IADsODisp = dispinterface;
|
||
|
|
IADsOU = interface;
|
||
|
|
IADsOUDisp = dispinterface;
|
||
|
|
IADsDomain = interface;
|
||
|
|
IADsDomainDisp = dispinterface;
|
||
|
|
IADsComputer = interface;
|
||
|
|
IADsComputerDisp = dispinterface;
|
||
|
|
IADsComputerOperations = interface;
|
||
|
|
IADsComputerOperationsDisp = dispinterface;
|
||
|
|
IADsGroup = interface;
|
||
|
|
IADsGroupDisp = dispinterface;
|
||
|
|
IADsUser = interface;
|
||
|
|
IADsUserDisp = dispinterface;
|
||
|
|
IADsPrintQueue = interface;
|
||
|
|
IADsPrintQueueDisp = dispinterface;
|
||
|
|
IADsPrintQueueOperations = interface;
|
||
|
|
IADsPrintQueueOperationsDisp = dispinterface;
|
||
|
|
IADsPrintJob = interface;
|
||
|
|
IADsPrintJobDisp = dispinterface;
|
||
|
|
IADsPrintJobOperations = interface;
|
||
|
|
IADsPrintJobOperationsDisp = dispinterface;
|
||
|
|
IADsService = interface;
|
||
|
|
IADsServiceDisp = dispinterface;
|
||
|
|
IADsServiceOperations = interface;
|
||
|
|
IADsServiceOperationsDisp = dispinterface;
|
||
|
|
IADsFileService = interface;
|
||
|
|
IADsFileServiceDisp = dispinterface;
|
||
|
|
IADsFileServiceOperations = interface;
|
||
|
|
IADsFileServiceOperationsDisp = dispinterface;
|
||
|
|
IADsFileShare = interface;
|
||
|
|
IADsFileShareDisp = dispinterface;
|
||
|
|
IADsSession = interface;
|
||
|
|
IADsSessionDisp = dispinterface;
|
||
|
|
IADsResource = interface;
|
||
|
|
IADsResourceDisp = dispinterface;
|
||
|
|
IADsOpenDSObject = interface;
|
||
|
|
IADsOpenDSObjectDisp = dispinterface;
|
||
|
|
IDirectoryObject = interface;
|
||
|
|
IDirectorySearch = interface;
|
||
|
|
IDirectorySchemaMgmt = interface;
|
||
|
|
IADsAggregatee = interface;
|
||
|
|
IADsAggregator = interface;
|
||
|
|
IADsAccessControlEntry = interface;
|
||
|
|
IADsAccessControlEntryDisp = dispinterface;
|
||
|
|
IADsAccessControlList = interface;
|
||
|
|
IADsAccessControlListDisp = dispinterface;
|
||
|
|
IADsSecurityDescriptor = interface;
|
||
|
|
IADsSecurityDescriptorDisp = dispinterface;
|
||
|
|
IADsLargeInteger = interface;
|
||
|
|
IADsLargeIntegerDisp = dispinterface;
|
||
|
|
IADsNameTranslate = interface;
|
||
|
|
IADsNameTranslateDisp = dispinterface;
|
||
|
|
IADsCaseIgnoreList = interface;
|
||
|
|
IADsCaseIgnoreListDisp = dispinterface;
|
||
|
|
IADsFaxNumber = interface;
|
||
|
|
IADsFaxNumberDisp = dispinterface;
|
||
|
|
IADsNetAddress = interface;
|
||
|
|
IADsNetAddressDisp = dispinterface;
|
||
|
|
IADsOctetList = interface;
|
||
|
|
IADsOctetListDisp = dispinterface;
|
||
|
|
IADsEmail = interface;
|
||
|
|
IADsEmailDisp = dispinterface;
|
||
|
|
IADsPath = interface;
|
||
|
|
IADsPathDisp = dispinterface;
|
||
|
|
IADsReplicaPointer = interface;
|
||
|
|
IADsReplicaPointerDisp = dispinterface;
|
||
|
|
IADsAcl = interface;
|
||
|
|
IADsAclDisp = dispinterface;
|
||
|
|
IADsTimestamp = interface;
|
||
|
|
IADsTimestampDisp = dispinterface;
|
||
|
|
IADsPostalAddress = interface;
|
||
|
|
IADsPostalAddressDisp = dispinterface;
|
||
|
|
IADsBackLink = interface;
|
||
|
|
IADsBackLinkDisp = dispinterface;
|
||
|
|
IADsTypedName = interface;
|
||
|
|
IADsTypedNameDisp = dispinterface;
|
||
|
|
IADsHold = interface;
|
||
|
|
IADsHoldDisp = dispinterface;
|
||
|
|
IADsObjectOptions = interface;
|
||
|
|
IADsObjectOptionsDisp = dispinterface;
|
||
|
|
IADsPathname = interface;
|
||
|
|
IADsPathnameDisp = dispinterface;
|
||
|
|
IADsADSystemInfo = interface;
|
||
|
|
IADsADSystemInfoDisp = dispinterface;
|
||
|
|
IADsWinNTSystemInfo = interface;
|
||
|
|
IADsWinNTSystemInfoDisp = dispinterface;
|
||
|
|
IADsDNWithBinary = interface;
|
||
|
|
IADsDNWithBinaryDisp = dispinterface;
|
||
|
|
IADsDNWithString = interface;
|
||
|
|
IADsDNWithStringDisp = dispinterface;
|
||
|
|
IADsSecurityUtility = interface;
|
||
|
|
IADsSecurityUtilityDisp = dispinterface;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Declaration of CoClasses defined in Type Library
|
||
|
|
// (NOTE: Here we map each CoClass to its Default Interface)
|
||
|
|
// *********************************************************************//
|
||
|
|
PropertyEntry = IADsPropertyEntry;
|
||
|
|
PropertyValue = IADsPropertyValue;
|
||
|
|
AccessControlEntry = IADsAccessControlEntry;
|
||
|
|
AccessControlList = IADsAccessControlList;
|
||
|
|
SecurityDescriptor = IADsSecurityDescriptor;
|
||
|
|
LargeInteger = IADsLargeInteger;
|
||
|
|
NameTranslate = IADsNameTranslate;
|
||
|
|
CaseIgnoreList = IADsCaseIgnoreList;
|
||
|
|
FaxNumber = IADsFaxNumber;
|
||
|
|
NetAddress = IADsNetAddress;
|
||
|
|
OctetList = IADsOctetList;
|
||
|
|
Email = IADsEmail;
|
||
|
|
Path = IADsPath;
|
||
|
|
ReplicaPointer = IADsReplicaPointer;
|
||
|
|
Timestamp = IADsTimestamp;
|
||
|
|
PostalAddress = IADsPostalAddress;
|
||
|
|
BackLink = IADsBackLink;
|
||
|
|
TypedName = IADsTypedName;
|
||
|
|
Hold = IADsHold;
|
||
|
|
Pathname = IADsPathname;
|
||
|
|
ADSystemInfo = IADsADSystemInfo;
|
||
|
|
WinNTSystemInfo = IADsWinNTSystemInfo;
|
||
|
|
DNWithBinary = IADsDNWithBinary;
|
||
|
|
DNWithString = IADsDNWithString;
|
||
|
|
ADsSecurityUtility = IADsSecurityUtility;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Declaration of structures, unions and aliases.
|
||
|
|
// *********************************************************************//
|
||
|
|
PUserType1 = ^_ADS_CASEIGNORE_LIST; {*}
|
||
|
|
PUserType2 = ^_ADS_OCTET_LIST; {*}
|
||
|
|
PPWideChar1 = ^PWideChar; {*}
|
||
|
|
PUserType8 = ^tagTYPEDESC; {*}
|
||
|
|
PUserType9 = ^tagARRAYDESC; {*}
|
||
|
|
PUserType3 = ^TGUID; {*}
|
||
|
|
PWord1 = ^Word; {*}
|
||
|
|
PPWord1 = ^PWord1; {*}
|
||
|
|
PUserType4 = ^DISPPARAMS; {*}
|
||
|
|
PUserType5 = ^tagTYPEATTR; {*}
|
||
|
|
PUserType6 = ^tagFUNCDESC; {*}
|
||
|
|
PUserType7 = ^tagVARDESC; {*}
|
||
|
|
PUserType10 = ^tagTLIBATTR; {*}
|
||
|
|
PUserType11 = ^_ads_object_info; {*}
|
||
|
|
PUserType12 = ^_ads_attr_info; {*}
|
||
|
|
PUserType13 = ^ads_searchpref_info; {*}
|
||
|
|
PUserType14 = ^ads_search_column; {*}
|
||
|
|
PUserType15 = ^_ads_attr_def; {*}
|
||
|
|
PPUserType1 = ^PUserType15; {*}
|
||
|
|
PUINT1 = ^LongWord; {*}
|
||
|
|
PUserType16 = ^_ads_class_def; {*}
|
||
|
|
PPUserType2 = ^PUserType16; {*}
|
||
|
|
|
||
|
|
ADSTYPEENUM = __MIDL___MIDL_itf_ads_0000_0000_0001;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0002 = record
|
||
|
|
dwLength: LongWord;
|
||
|
|
lpValue: ^Byte;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_OCTET_STRING = __MIDL___MIDL_itf_ads_0000_0000_0002;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0003 = record
|
||
|
|
dwLength: LongWord;
|
||
|
|
lpValue: ^Byte;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_NT_SECURITY_DESCRIPTOR = __MIDL___MIDL_itf_ads_0000_0000_0003;
|
||
|
|
|
||
|
|
{$ALIGN 4}
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0004 = record
|
||
|
|
dwLength: LongWord;
|
||
|
|
lpValue: ^Byte;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_PROV_SPECIFIC = __MIDL___MIDL_itf_ads_0000_0000_0004;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0005 = record
|
||
|
|
type_: LongWord;
|
||
|
|
VolumeName: PWideChar;
|
||
|
|
Path: PWideChar;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_PATH = __MIDL___MIDL_itf_ads_0000_0000_0005;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0006 = record
|
||
|
|
PostalAddress: array[0..5] of PWideChar;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_POSTALADDRESS = __MIDL___MIDL_itf_ads_0000_0000_0006;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0007 = record
|
||
|
|
WholeSeconds: LongWord;
|
||
|
|
EventID: LongWord;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_TIMESTAMP = __MIDL___MIDL_itf_ads_0000_0000_0007;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0008 = record
|
||
|
|
RemoteID: LongWord;
|
||
|
|
ObjectName: PWideChar;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_BACKLINK = __MIDL___MIDL_itf_ads_0000_0000_0008;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0009 = record
|
||
|
|
ObjectName: PWideChar;
|
||
|
|
Level: LongWord;
|
||
|
|
Interval: LongWord;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_TYPEDNAME = __MIDL___MIDL_itf_ads_0000_0000_0009;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0010 = record
|
||
|
|
ObjectName: PWideChar;
|
||
|
|
Amount: LongWord;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_HOLD = __MIDL___MIDL_itf_ads_0000_0000_0010;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0011 = record
|
||
|
|
AddressType: LongWord;
|
||
|
|
AddressLength: LongWord;
|
||
|
|
Address: ^Byte;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_NETADDRESS = __MIDL___MIDL_itf_ads_0000_0000_0011;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0012 = record
|
||
|
|
ServerName: PWideChar;
|
||
|
|
ReplicaType: LongWord;
|
||
|
|
ReplicaNumber: LongWord;
|
||
|
|
Count: LongWord;
|
||
|
|
ReplicaAddressHints: ^__MIDL___MIDL_itf_ads_0000_0000_0011;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_REPLICAPOINTER = __MIDL___MIDL_itf_ads_0000_0000_0012;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0013 = record
|
||
|
|
TelephoneNumber: PWideChar;
|
||
|
|
NumberOfBits: LongWord;
|
||
|
|
Parameters: ^Byte;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_FAXNUMBER = __MIDL___MIDL_itf_ads_0000_0000_0013;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0014 = record
|
||
|
|
Address: PWideChar;
|
||
|
|
type_: LongWord;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_EMAIL = __MIDL___MIDL_itf_ads_0000_0000_0014;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0015 = record
|
||
|
|
dwLength: LongWord;
|
||
|
|
lpBinaryValue: ^Byte;
|
||
|
|
pszDNString: PWideChar;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_DN_WITH_BINARY = __MIDL___MIDL_itf_ads_0000_0000_0015;
|
||
|
|
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0016 = record
|
||
|
|
pszStringValue: PWideChar;
|
||
|
|
pszDNString: PWideChar;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_DN_WITH_STRING = __MIDL___MIDL_itf_ads_0000_0000_0016;
|
||
|
|
|
||
|
|
_ADS_CASEIGNORE_LIST = record
|
||
|
|
Next: PUserType1;
|
||
|
|
String_: PWideChar;
|
||
|
|
end;
|
||
|
|
|
||
|
|
_ADS_OCTET_LIST = record
|
||
|
|
Next: PUserType2;
|
||
|
|
Length: LongWord;
|
||
|
|
Data: ^Byte;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$ALIGN 8}
|
||
|
|
__MIDL___MIDL_itf_ads_0000_0000_0017 = record
|
||
|
|
case Integer of
|
||
|
|
0: (DNString: PWideChar);
|
||
|
|
1: (CaseExactString: PWideChar);
|
||
|
|
2: (CaseIgnoreString: PWideChar);
|
||
|
|
3: (PrintableString: PWideChar);
|
||
|
|
4: (NumericString: PWideChar);
|
||
|
|
5: (Boolean_: LongWord);
|
||
|
|
6: (Integer_: LongWord);
|
||
|
|
7: (OctetString: ADS_OCTET_STRING);
|
||
|
|
8: (UTCTime: _SYSTEMTIME);
|
||
|
|
9: (LargeInteger: _LARGE_INTEGER);
|
||
|
|
10: (_className: PWideChar);
|
||
|
|
11: (ProviderSpecific: ADS_PROV_SPECIFIC);
|
||
|
|
12: (pCaseIgnoreList: ^_ADS_CASEIGNORE_LIST);
|
||
|
|
13: (pOctetList: ^_ADS_OCTET_LIST);
|
||
|
|
14: (pPath: ^__MIDL___MIDL_itf_ads_0000_0000_0005);
|
||
|
|
15: (pPostalAddress: ^__MIDL___MIDL_itf_ads_0000_0000_0006);
|
||
|
|
16: (Timestamp: ADS_TIMESTAMP);
|
||
|
|
17: (BackLink: ADS_BACKLINK);
|
||
|
|
18: (pTypedName: ^__MIDL___MIDL_itf_ads_0000_0000_0009);
|
||
|
|
19: (Hold: ADS_HOLD);
|
||
|
|
20: (pNetAddress: ^__MIDL___MIDL_itf_ads_0000_0000_0011);
|
||
|
|
21: (pReplicaPointer: ^__MIDL___MIDL_itf_ads_0000_0000_0012);
|
||
|
|
22: (pFaxNumber: ^__MIDL___MIDL_itf_ads_0000_0000_0013);
|
||
|
|
23: (Email: ADS_EMAIL);
|
||
|
|
24: (SecurityDescriptor: ADS_NT_SECURITY_DESCRIPTOR);
|
||
|
|
25: (pDNWithBinary: ^__MIDL___MIDL_itf_ads_0000_0000_0015);
|
||
|
|
26: (pDNWithString: ^__MIDL___MIDL_itf_ads_0000_0000_0016);
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_AUTHENTICATION_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0018;
|
||
|
|
|
||
|
|
{$ALIGN 4}
|
||
|
|
_ads_object_info = record
|
||
|
|
pszRDN: PWideChar;
|
||
|
|
pszObjectDN: PWideChar;
|
||
|
|
pszParentDN: PWideChar;
|
||
|
|
pszSchemaDN: PWideChar;
|
||
|
|
pszClassName: PWideChar;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_STATUSENUM = __MIDL___MIDL_itf_ads_0000_0000_0019;
|
||
|
|
ADS_DEREFENUM = __MIDL___MIDL_itf_ads_0000_0000_0020;
|
||
|
|
ADS_SCOPEENUM = __MIDL___MIDL_itf_ads_0000_0000_0021;
|
||
|
|
ADS_PREFERENCES_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0022;
|
||
|
|
ADSI_DIALECT_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0023;
|
||
|
|
ADS_CHASE_REFERRALS_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0024;
|
||
|
|
ADS_SEARCHPREF_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0025;
|
||
|
|
ADS_PASSWORD_ENCODING_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0026;
|
||
|
|
|
||
|
|
{$ALIGN 8}
|
||
|
|
PADSVALUE = ^_adsvalue;
|
||
|
|
_adsvalue = record
|
||
|
|
dwType: ADSTYPEENUM;
|
||
|
|
__MIDL_0010: __MIDL___MIDL_itf_ads_0000_0000_0017;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$ALIGN 4}
|
||
|
|
ads_search_column = record
|
||
|
|
pszAttrName: PWideChar;
|
||
|
|
dwADsType: ADSTYPEENUM;
|
||
|
|
pADsValues: PADSVALUE;
|
||
|
|
dwNumValues: LongWord;
|
||
|
|
hReserved: Pointer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
_ads_attr_def = record
|
||
|
|
pszAttrName: PWideChar;
|
||
|
|
dwADsType: ADSTYPEENUM;
|
||
|
|
dwMinRange: LongWord;
|
||
|
|
dwMaxRange: LongWord;
|
||
|
|
fMultiValued: Integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
_ads_sortkey = record
|
||
|
|
pszAttrType: PWideChar;
|
||
|
|
pszReserved: PWideChar;
|
||
|
|
fReverseorder: Shortint;
|
||
|
|
end;
|
||
|
|
|
||
|
|
_ads_vlv = record
|
||
|
|
dwBeforeCount: LongWord;
|
||
|
|
dwAfterCount: LongWord;
|
||
|
|
dwOffset: LongWord;
|
||
|
|
dwContentCount: LongWord;
|
||
|
|
pszTarget: PWideChar;
|
||
|
|
dwContextIDLength: LongWord;
|
||
|
|
lpContextID: ^Byte;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_PROPERTY_OPERATION_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0027;
|
||
|
|
|
||
|
|
__MIDL_IOleAutomationTypes_0005 = record
|
||
|
|
case Integer of
|
||
|
|
0: (lptdesc: PUserType8);
|
||
|
|
1: (lpadesc: PUserType9);
|
||
|
|
2: (hreftype: LongWord);
|
||
|
|
end;
|
||
|
|
|
||
|
|
tagTYPEDESC = record
|
||
|
|
DUMMYUNIONNAME: __MIDL_IOleAutomationTypes_0005;
|
||
|
|
vt: Word;
|
||
|
|
end;
|
||
|
|
|
||
|
|
tagSAFEARRAYBOUND = record
|
||
|
|
cElements: LongWord;
|
||
|
|
lLbound: Integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ULONG_PTR = LongWord;
|
||
|
|
|
||
|
|
tagIDLDESC = record
|
||
|
|
dwReserved: ULONG_PTR;
|
||
|
|
wIDLFlags: Word;
|
||
|
|
end;
|
||
|
|
|
||
|
|
DWORD = LongWord;
|
||
|
|
|
||
|
|
{$ALIGN 8}
|
||
|
|
tagPARAMDESCEX = record
|
||
|
|
cBytes: LongWord;
|
||
|
|
varDefaultValue: OleVariant;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$ALIGN 4}
|
||
|
|
tagPARAMDESC = record
|
||
|
|
pparamdescex: ^tagPARAMDESCEX;
|
||
|
|
wParamFlags: Word;
|
||
|
|
end;
|
||
|
|
|
||
|
|
tagELEMDESC = record
|
||
|
|
tdesc: tagTYPEDESC;
|
||
|
|
paramdesc: tagPARAMDESC;
|
||
|
|
end;
|
||
|
|
|
||
|
|
tagFUNCDESC = record
|
||
|
|
memid: Integer;
|
||
|
|
lprgscode: ^SCODE;
|
||
|
|
lprgelemdescParam: ^tagELEMDESC;
|
||
|
|
funckind: tagFUNCKIND;
|
||
|
|
invkind: tagINVOKEKIND;
|
||
|
|
callconv: tagCALLCONV;
|
||
|
|
cParams: Smallint;
|
||
|
|
cParamsOpt: Smallint;
|
||
|
|
oVft: Smallint;
|
||
|
|
cScodes: Smallint;
|
||
|
|
elemdescFunc: tagELEMDESC;
|
||
|
|
wFuncFlags: Word;
|
||
|
|
end;
|
||
|
|
|
||
|
|
__MIDL_IOleAutomationTypes_0006 = record
|
||
|
|
case Integer of
|
||
|
|
0: (oInst: LongWord);
|
||
|
|
1: (lpvarValue: ^OleVariant);
|
||
|
|
end;
|
||
|
|
|
||
|
|
tagVARDESC = record
|
||
|
|
memid: Integer;
|
||
|
|
lpstrSchema: PWideChar;
|
||
|
|
DUMMYUNIONNAME: __MIDL_IOleAutomationTypes_0006;
|
||
|
|
elemdescVar: tagELEMDESC;
|
||
|
|
wVarFlags: Word;
|
||
|
|
varkind: tagVARKIND;
|
||
|
|
end;
|
||
|
|
|
||
|
|
tagTLIBATTR = record
|
||
|
|
GUID: TGUID;
|
||
|
|
lcid: LongWord;
|
||
|
|
syskind: tagSYSKIND;
|
||
|
|
wMajorVerNum: Word;
|
||
|
|
wMinorVerNum: Word;
|
||
|
|
wLibFlags: Word;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ADS_SYSTEMFLAG_ENUM = __MIDL___MIDL_itf_ads_0001_0017_0001;
|
||
|
|
ADS_GROUP_TYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0023_0001;
|
||
|
|
ADS_RIGHTS_ENUM = __MIDL___MIDL_itf_ads_0001_0048_0001;
|
||
|
|
ADS_ACETYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0048_0002;
|
||
|
|
ADS_ACEFLAG_ENUM = __MIDL___MIDL_itf_ads_0001_0048_0003;
|
||
|
|
ADS_FLAGTYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0048_0004;
|
||
|
|
ADS_SD_CONTROL_ENUM = __MIDL___MIDL_itf_ads_0001_0048_0005;
|
||
|
|
ADS_SD_REVISION_ENUM = __MIDL___MIDL_itf_ads_0001_0048_0006;
|
||
|
|
ADS_NAME_TYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0050_0001;
|
||
|
|
ADS_NAME_INITTYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0050_0002;
|
||
|
|
ADS_OPTION_ENUM = __MIDL___MIDL_itf_ads_0001_0077_0001;
|
||
|
|
ADS_SECURITY_INFO_ENUM = __MIDL___MIDL_itf_ads_0001_0077_0002;
|
||
|
|
ADS_SETTYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0078_0001;
|
||
|
|
ADS_FORMAT_ENUM = __MIDL___MIDL_itf_ads_0001_0078_0002;
|
||
|
|
ADS_DISPLAY_ENUM = __MIDL___MIDL_itf_ads_0001_0078_0003;
|
||
|
|
ADS_ESCAPE_MODE_ENUM = __MIDL___MIDL_itf_ads_0001_0078_0004;
|
||
|
|
ADS_PATHTYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0088_0001;
|
||
|
|
ADS_SD_FORMAT_ENUM = __MIDL___MIDL_itf_ads_0001_0088_0002;
|
||
|
|
|
||
|
|
_ads_attr_info = record
|
||
|
|
pszAttrName: PWideChar;
|
||
|
|
dwControlCode: LongWord;
|
||
|
|
dwADsType: ADSTYPEENUM;
|
||
|
|
pADsValues: ^_adsvalue;
|
||
|
|
dwNumValues: LongWord;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$ALIGN 8}
|
||
|
|
ads_searchpref_info = record
|
||
|
|
dwSearchPref: ADS_SEARCHPREF_ENUM;
|
||
|
|
vValue: _adsvalue;
|
||
|
|
dwStatus: ADS_STATUSENUM;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$ALIGN 4}
|
||
|
|
_ads_class_def = record
|
||
|
|
pszClassName: PWideChar;
|
||
|
|
dwMandatoryAttrs: LongWord;
|
||
|
|
ppszMandatoryAttrs: ^PWideChar;
|
||
|
|
optionalAttrs: LongWord;
|
||
|
|
ppszOptionalAttrs: ^PPWideChar1;
|
||
|
|
dwNamingAttrs: LongWord;
|
||
|
|
ppszNamingAttrs: ^PPWideChar1;
|
||
|
|
dwSuperClasses: LongWord;
|
||
|
|
ppszSuperClasses: ^PPWideChar1;
|
||
|
|
fIsContainer: Integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
tagTYPEATTR = record
|
||
|
|
GUID: TGUID;
|
||
|
|
lcid: LongWord;
|
||
|
|
dwReserved: LongWord;
|
||
|
|
memidConstructor: Integer;
|
||
|
|
memidDestructor: Integer;
|
||
|
|
lpstrSchema: PWideChar;
|
||
|
|
cbSizeInstance: LongWord;
|
||
|
|
typekind: tagTYPEKIND;
|
||
|
|
cFuncs: Word;
|
||
|
|
cVars: Word;
|
||
|
|
cImplTypes: Word;
|
||
|
|
cbSizeVft: Word;
|
||
|
|
cbAlignment: Word;
|
||
|
|
wTypeFlags: Word;
|
||
|
|
wMajorVerNum: Word;
|
||
|
|
wMinorVerNum: Word;
|
||
|
|
tdescAlias: tagTYPEDESC;
|
||
|
|
idldescType: tagIDLDESC;
|
||
|
|
end;
|
||
|
|
|
||
|
|
tagARRAYDESC = record
|
||
|
|
tdescElem: tagTYPEDESC;
|
||
|
|
cDims: Word;
|
||
|
|
rgbounds: ^tagSAFEARRAYBOUND;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADs
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADs = interface(IDispatch)
|
||
|
|
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
|
||
|
|
function Get_Name: WideString; safecall;
|
||
|
|
function Get_Class_: WideString; safecall;
|
||
|
|
function Get_GUID: WideString; safecall;
|
||
|
|
function Get_ADsPath: WideString; safecall;
|
||
|
|
function Get_Parent: WideString; safecall;
|
||
|
|
function Get_Schema: WideString; safecall;
|
||
|
|
procedure GetInfo; safecall;
|
||
|
|
procedure SetInfo; safecall;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; safecall;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); safecall;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; safecall;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); safecall;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); safecall;
|
||
|
|
property Name: WideString read Get_Name;
|
||
|
|
property Class_: WideString read Get_Class_;
|
||
|
|
property GUID: WideString read Get_GUID;
|
||
|
|
property ADsPath: WideString read Get_ADsPath;
|
||
|
|
property Parent: WideString read Get_Parent;
|
||
|
|
property Schema: WideString read Get_Schema;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsDisp = dispinterface
|
||
|
|
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsContainer
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsContainer = interface(IDispatch)
|
||
|
|
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
|
||
|
|
function Get_Count: Integer; safecall;
|
||
|
|
function Get__NewEnum: IUnknown; safecall;
|
||
|
|
function Get_Filter: OleVariant; safecall;
|
||
|
|
procedure Set_Filter(pVar: OleVariant); safecall;
|
||
|
|
function Get_Hints: OleVariant; safecall;
|
||
|
|
procedure Set_Hints(pvFilter: OleVariant); safecall;
|
||
|
|
function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
|
||
|
|
function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
|
||
|
|
procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); safecall;
|
||
|
|
function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
|
||
|
|
function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
|
||
|
|
property Count: Integer read Get_Count;
|
||
|
|
property _NewEnum: IUnknown read Get__NewEnum;
|
||
|
|
property Filter: OleVariant read Get_Filter write Set_Filter;
|
||
|
|
property Hints: OleVariant read Get_Hints write Set_Hints;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsContainerDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsContainerDisp = dispinterface
|
||
|
|
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
|
||
|
|
property Count: Integer readonly dispid 2;
|
||
|
|
property _NewEnum: IUnknown readonly dispid -4;
|
||
|
|
property Filter: OleVariant dispid 3;
|
||
|
|
property Hints: OleVariant dispid 4;
|
||
|
|
function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 5;
|
||
|
|
function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 6;
|
||
|
|
procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); dispid 7;
|
||
|
|
function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 8;
|
||
|
|
function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 9;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsCollection
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsCollection = interface(IDispatch)
|
||
|
|
['{72B945E0-253B-11CF-A988-00AA006BC149}']
|
||
|
|
function Get__NewEnum: IUnknown; safecall;
|
||
|
|
procedure Add(const bstrName: WideString; vItem: OleVariant); safecall;
|
||
|
|
procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
|
||
|
|
function GetObject(const bstrName: WideString): OleVariant; safecall;
|
||
|
|
property _NewEnum: IUnknown read Get__NewEnum;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsCollectionDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsCollectionDisp = dispinterface
|
||
|
|
['{72B945E0-253B-11CF-A988-00AA006BC149}']
|
||
|
|
property _NewEnum: IUnknown readonly dispid -4;
|
||
|
|
procedure Add(const bstrName: WideString; vItem: OleVariant); dispid 4;
|
||
|
|
procedure Remove(const bstrItemToBeRemoved: WideString); dispid 5;
|
||
|
|
function GetObject(const bstrName: WideString): OleVariant; dispid 6;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsMembers
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsMembers = interface(IDispatch)
|
||
|
|
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
|
||
|
|
function Get_Count: Integer; safecall;
|
||
|
|
function Get__NewEnum: IUnknown; safecall;
|
||
|
|
function Get_Filter: OleVariant; safecall;
|
||
|
|
procedure Set_Filter(pvFilter: OleVariant); safecall;
|
||
|
|
property Count: Integer read Get_Count;
|
||
|
|
property _NewEnum: IUnknown read Get__NewEnum;
|
||
|
|
property Filter: OleVariant read Get_Filter write Set_Filter;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsMembersDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsMembersDisp = dispinterface
|
||
|
|
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
|
||
|
|
property Count: Integer readonly dispid 2;
|
||
|
|
property _NewEnum: IUnknown readonly dispid -4;
|
||
|
|
property Filter: OleVariant dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPropertyList
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPropertyList = interface(IDispatch)
|
||
|
|
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
|
||
|
|
function Get_PropertyCount: Integer; safecall;
|
||
|
|
function Next: OleVariant; safecall;
|
||
|
|
procedure Skip(cElements: Integer); safecall;
|
||
|
|
procedure Reset; safecall;
|
||
|
|
function Item(varIndex: OleVariant): OleVariant; safecall;
|
||
|
|
function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; safecall;
|
||
|
|
procedure PutPropertyItem(varData: OleVariant); safecall;
|
||
|
|
procedure ResetPropertyItem(varEntry: OleVariant); safecall;
|
||
|
|
procedure PurgePropertyList; safecall;
|
||
|
|
property PropertyCount: Integer read Get_PropertyCount;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPropertyListDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPropertyListDisp = dispinterface
|
||
|
|
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
|
||
|
|
property PropertyCount: Integer readonly dispid 2;
|
||
|
|
function Next: OleVariant; dispid 3;
|
||
|
|
procedure Skip(cElements: Integer); dispid 4;
|
||
|
|
procedure Reset; dispid 5;
|
||
|
|
function Item(varIndex: OleVariant): OleVariant; dispid 0;
|
||
|
|
function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; dispid 6;
|
||
|
|
procedure PutPropertyItem(varData: OleVariant); dispid 7;
|
||
|
|
procedure ResetPropertyItem(varEntry: OleVariant); dispid 8;
|
||
|
|
procedure PurgePropertyList; dispid 9;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPropertyEntry
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPropertyEntry = interface(IDispatch)
|
||
|
|
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
|
||
|
|
procedure Clear; safecall;
|
||
|
|
function Get_Name: WideString; safecall;
|
||
|
|
procedure Set_Name(const retval: WideString); safecall;
|
||
|
|
function Get_ADsType: Integer; safecall;
|
||
|
|
procedure Set_ADsType(retval: Integer); safecall;
|
||
|
|
function Get_ControlCode: Integer; safecall;
|
||
|
|
procedure Set_ControlCode(retval: Integer); safecall;
|
||
|
|
function Get_Values: OleVariant; safecall;
|
||
|
|
procedure Set_Values(retval: OleVariant); safecall;
|
||
|
|
property Name: WideString read Get_Name write Set_Name;
|
||
|
|
property ADsType: Integer read Get_ADsType write Set_ADsType;
|
||
|
|
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
|
||
|
|
property Values: OleVariant read Get_Values write Set_Values;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPropertyEntryDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPropertyEntryDisp = dispinterface
|
||
|
|
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
|
||
|
|
procedure Clear; dispid 1;
|
||
|
|
property Name: WideString dispid 2;
|
||
|
|
property ADsType: Integer dispid 3;
|
||
|
|
property ControlCode: Integer dispid 4;
|
||
|
|
property Values: OleVariant dispid 5;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPropertyValue
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPropertyValue = interface(IDispatch)
|
||
|
|
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
|
||
|
|
procedure Clear; safecall;
|
||
|
|
function Get_ADsType: Integer; safecall;
|
||
|
|
procedure Set_ADsType(retval: Integer); safecall;
|
||
|
|
function Get_DNString: WideString; safecall;
|
||
|
|
procedure Set_DNString(const retval: WideString); safecall;
|
||
|
|
function Get_CaseExactString: WideString; safecall;
|
||
|
|
procedure Set_CaseExactString(const retval: WideString); safecall;
|
||
|
|
function Get_CaseIgnoreString: WideString; safecall;
|
||
|
|
procedure Set_CaseIgnoreString(const retval: WideString); safecall;
|
||
|
|
function Get_PrintableString: WideString; safecall;
|
||
|
|
procedure Set_PrintableString(const retval: WideString); safecall;
|
||
|
|
function Get_NumericString: WideString; safecall;
|
||
|
|
procedure Set_NumericString(const retval: WideString); safecall;
|
||
|
|
function Get_Boolean: Integer; safecall;
|
||
|
|
procedure Set_Boolean(retval: Integer); safecall;
|
||
|
|
function Get_Integer: Integer; safecall;
|
||
|
|
procedure Set_Integer(retval: Integer); safecall;
|
||
|
|
function Get_OctetString: OleVariant; safecall;
|
||
|
|
procedure Set_OctetString(retval: OleVariant); safecall;
|
||
|
|
function Get_SecurityDescriptor: IDispatch; safecall;
|
||
|
|
procedure Set_SecurityDescriptor(const retval: IDispatch); safecall;
|
||
|
|
function Get_LargeInteger: IDispatch; safecall;
|
||
|
|
procedure Set_LargeInteger(const retval: IDispatch); safecall;
|
||
|
|
function Get_UTCTime: TDateTime; safecall;
|
||
|
|
procedure Set_UTCTime(retval: TDateTime); safecall;
|
||
|
|
property ADsType: Integer read Get_ADsType write Set_ADsType;
|
||
|
|
property DNString: WideString read Get_DNString write Set_DNString;
|
||
|
|
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
|
||
|
|
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
|
||
|
|
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
|
||
|
|
property NumericString: WideString read Get_NumericString write Set_NumericString;
|
||
|
|
property Boolean: Integer read Get_Boolean write Set_Boolean;
|
||
|
|
property Integer: Integer read Get_Integer write Set_Integer;
|
||
|
|
property OctetString: OleVariant read Get_OctetString write Set_OctetString;
|
||
|
|
property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
|
||
|
|
property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
|
||
|
|
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPropertyValueDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPropertyValueDisp = dispinterface
|
||
|
|
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
|
||
|
|
procedure Clear; dispid 1;
|
||
|
|
property ADsType: Integer dispid 2;
|
||
|
|
property DNString: WideString dispid 3;
|
||
|
|
property CaseExactString: WideString dispid 4;
|
||
|
|
property CaseIgnoreString: WideString dispid 5;
|
||
|
|
property PrintableString: WideString dispid 6;
|
||
|
|
property NumericString: WideString dispid 7;
|
||
|
|
property Boolean: Integer dispid 8;
|
||
|
|
property Integer: Integer dispid 9;
|
||
|
|
property OctetString: OleVariant dispid 10;
|
||
|
|
property SecurityDescriptor: IDispatch dispid 11;
|
||
|
|
property LargeInteger: IDispatch dispid 12;
|
||
|
|
property UTCTime: TDateTime dispid 13;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPropertyValue2
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPropertyValue2 = interface(IDispatch)
|
||
|
|
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
|
||
|
|
function GetObjectProperty(var lnADsType: Integer): OleVariant; safecall;
|
||
|
|
procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); safecall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPropertyValue2Disp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPropertyValue2Disp = dispinterface
|
||
|
|
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
|
||
|
|
function GetObjectProperty(var lnADsType: Integer): OleVariant; dispid 1;
|
||
|
|
procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); dispid 2;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IPrivateDispatch
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {86AB4BBE-65F6-11D1-8C13-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IPrivateDispatch = interface(IUnknown)
|
||
|
|
['{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}']
|
||
|
|
function ADSIInitializeDispatchManager(dwExtensionId: Integer): HResult; stdcall;
|
||
|
|
function ADSIGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
|
||
|
|
function ADSIGetTypeInfo(itinfo: SYSUINT; lcid: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
|
||
|
|
function ADSIGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
|
||
|
|
lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
|
||
|
|
function ADSIInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
|
||
|
|
var pdispparams: DISPPARAMS; out pvarResult: OleVariant;
|
||
|
|
out pexcepinfo: EXCEPINFO; out puArgErr: SYSUINT): HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: ITypeInfo
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {00020401-0000-0000-C000-000000000046}
|
||
|
|
// *********************************************************************//
|
||
|
|
ITypeInfo = interface(IUnknown)
|
||
|
|
['{00020401-0000-0000-C000-000000000046}']
|
||
|
|
function RemoteGetTypeAttr(out ppTypeAttr: PUserType5; out pDummy: DWORD): HResult; stdcall;
|
||
|
|
function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
|
||
|
|
function RemoteGetFuncDesc(index: SYSUINT; out ppFuncDesc: PUserType6; out pDummy: DWORD): HResult; stdcall;
|
||
|
|
function RemoteGetVarDesc(index: SYSUINT; out ppVarDesc: PUserType7; out pDummy: DWORD): HResult; stdcall;
|
||
|
|
function RemoteGetNames(memid: Integer; out rgBstrNames: WideString; cMaxNames: SYSUINT;
|
||
|
|
out pcNames: SYSUINT): HResult; stdcall;
|
||
|
|
function GetRefTypeOfImplType(index: SYSUINT; out pRefType: LongWord): HResult; stdcall;
|
||
|
|
function GetImplTypeFlags(index: SYSUINT; out pImplTypeFlags: SYSINT): HResult; stdcall;
|
||
|
|
function LocalGetIDsOfNames: HResult; stdcall;
|
||
|
|
function LocalInvoke: HResult; stdcall;
|
||
|
|
function RemoteGetDocumentation(memid: Integer; refPtrFlags: LongWord;
|
||
|
|
out pBstrName: WideString; out pBstrDocString: WideString;
|
||
|
|
out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
|
||
|
|
function RemoteGetDllEntry(memid: Integer; invkind: tagINVOKEKIND; refPtrFlags: LongWord;
|
||
|
|
out pBstrDllName: WideString; out pBstrName: WideString;
|
||
|
|
out pwOrdinal: Word): HResult; stdcall;
|
||
|
|
function GetRefTypeInfo(hreftype: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
|
||
|
|
function LocalAddressOfMember: HResult; stdcall;
|
||
|
|
function RemoteCreateInstance(var riid: TGUID; out ppvObj: IUnknown): HResult; stdcall;
|
||
|
|
function GetMops(memid: Integer; out pBstrMops: WideString): HResult; stdcall;
|
||
|
|
function RemoteGetContainingTypeLib(out ppTLib: ITypeLib; out pIndex: SYSUINT): HResult; stdcall;
|
||
|
|
function LocalReleaseTypeAttr: HResult; stdcall;
|
||
|
|
function LocalReleaseFuncDesc: HResult; stdcall;
|
||
|
|
function LocalReleaseVarDesc: HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: ITypeComp
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {00020403-0000-0000-C000-000000000046}
|
||
|
|
// *********************************************************************//
|
||
|
|
ITypeComp = interface(IUnknown)
|
||
|
|
['{00020403-0000-0000-C000-000000000046}']
|
||
|
|
function RemoteBind(szName: PWideChar; lHashVal: LongWord; wFlags: Word;
|
||
|
|
out ppTInfo: ITypeInfo; out pDescKind: tagDESCKIND;
|
||
|
|
out ppFuncDesc: PUserType6; out ppVarDesc: PUserType7;
|
||
|
|
out ppTypeComp: ITypeComp; out pDummy: DWORD): HResult; stdcall;
|
||
|
|
function RemoteBindType(szName: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: ITypeLib
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {00020402-0000-0000-C000-000000000046}
|
||
|
|
// *********************************************************************//
|
||
|
|
ITypeLib = interface(IUnknown)
|
||
|
|
['{00020402-0000-0000-C000-000000000046}']
|
||
|
|
function RemoteGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
|
||
|
|
function GetTypeInfo(index: SYSUINT; out ppTInfo: ITypeInfo): HResult; stdcall;
|
||
|
|
function GetTypeInfoType(index: SYSUINT; out pTKind: tagTYPEKIND): HResult; stdcall;
|
||
|
|
function GetTypeInfoOfGuid(var GUID: TGUID; out ppTInfo: ITypeInfo): HResult; stdcall;
|
||
|
|
function RemoteGetLibAttr(out ppTLibAttr: PUserType10; out pDummy: DWORD): HResult; stdcall;
|
||
|
|
function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
|
||
|
|
function RemoteGetDocumentation(index: SYSINT; refPtrFlags: LongWord;
|
||
|
|
out pBstrName: WideString; out pBstrDocString: WideString;
|
||
|
|
out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
|
||
|
|
function RemoteIsName(szNameBuf: PWideChar; lHashVal: LongWord; out pfName: Integer;
|
||
|
|
out pBstrLibName: WideString): HResult; stdcall;
|
||
|
|
function RemoteFindName(szNameBuf: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo;
|
||
|
|
out rgMemId: Integer; var pcFound: Word; out pBstrLibName: WideString): HResult; stdcall;
|
||
|
|
function LocalReleaseTLibAttr: HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IPrivateUnknown
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {89126BAB-6EAD-11D1-8C18-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IPrivateUnknown = interface(IUnknown)
|
||
|
|
['{89126BAB-6EAD-11D1-8C18-00C04FD8D503}']
|
||
|
|
function ADSIInitializeObject(const lpszUserName: WideString; const lpszPassword: WideString;
|
||
|
|
lnReserved: Integer): HResult; stdcall;
|
||
|
|
function ADSIReleaseObject: HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsExtension
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {3D35553C-D2B0-11D1-B17B-0000F87593A0}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsExtension = interface(IUnknown)
|
||
|
|
['{3D35553C-D2B0-11D1-B17B-0000F87593A0}']
|
||
|
|
function Operate(dwCode: LongWord; varData1: OleVariant; varData2: OleVariant;
|
||
|
|
varData3: OleVariant): HResult; stdcall;
|
||
|
|
function PrivateGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
|
||
|
|
lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
|
||
|
|
function PrivateInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
|
||
|
|
var pdispparams: DISPPARAMS; out pvarResult: OleVariant;
|
||
|
|
out pexcepinfo: EXCEPINFO; out puArgErr: SYSUINT): HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsDeleteOps
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsDeleteOps = interface(IDispatch)
|
||
|
|
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
|
||
|
|
procedure DeleteObject(lnFlags: Integer); safecall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsDeleteOpsDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsDeleteOpsDisp = dispinterface
|
||
|
|
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
|
||
|
|
procedure DeleteObject(lnFlags: Integer); dispid 2;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsNamespaces
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsNamespaces = interface(IADs)
|
||
|
|
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
|
||
|
|
function Get_DefaultContainer: WideString; safecall;
|
||
|
|
procedure Set_DefaultContainer(const retval: WideString); safecall;
|
||
|
|
property DefaultContainer: WideString read Get_DefaultContainer write Set_DefaultContainer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsNamespacesDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsNamespacesDisp = dispinterface
|
||
|
|
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
|
||
|
|
property DefaultContainer: WideString dispid 1;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsClass
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsClass = interface(IADs)
|
||
|
|
['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
|
||
|
|
function Get_PrimaryInterface: WideString; safecall;
|
||
|
|
function Get_CLSID: WideString; safecall;
|
||
|
|
procedure Set_CLSID(const retval: WideString); safecall;
|
||
|
|
function Get_OID: WideString; safecall;
|
||
|
|
procedure Set_OID(const retval: WideString); safecall;
|
||
|
|
function Get_Abstract: WordBool; safecall;
|
||
|
|
procedure Set_Abstract(retval: WordBool); safecall;
|
||
|
|
function Get_Auxiliary: WordBool; safecall;
|
||
|
|
procedure Set_Auxiliary(retval: WordBool); safecall;
|
||
|
|
function Get_MandatoryProperties: OleVariant; safecall;
|
||
|
|
procedure Set_MandatoryProperties(retval: OleVariant); safecall;
|
||
|
|
function Get_OptionalProperties: OleVariant; safecall;
|
||
|
|
procedure Set_OptionalProperties(retval: OleVariant); safecall;
|
||
|
|
function Get_NamingProperties: OleVariant; safecall;
|
||
|
|
procedure Set_NamingProperties(retval: OleVariant); safecall;
|
||
|
|
function Get_DerivedFrom: OleVariant; safecall;
|
||
|
|
procedure Set_DerivedFrom(retval: OleVariant); safecall;
|
||
|
|
function Get_AuxDerivedFrom: OleVariant; safecall;
|
||
|
|
procedure Set_AuxDerivedFrom(retval: OleVariant); safecall;
|
||
|
|
function Get_PossibleSuperiors: OleVariant; safecall;
|
||
|
|
procedure Set_PossibleSuperiors(retval: OleVariant); safecall;
|
||
|
|
function Get_Containment: OleVariant; safecall;
|
||
|
|
procedure Set_Containment(retval: OleVariant); safecall;
|
||
|
|
function Get_Container: WordBool; safecall;
|
||
|
|
procedure Set_Container(retval: WordBool); safecall;
|
||
|
|
function Get_HelpFileName: WideString; safecall;
|
||
|
|
procedure Set_HelpFileName(const retval: WideString); safecall;
|
||
|
|
function Get_HelpFileContext: Integer; safecall;
|
||
|
|
procedure Set_HelpFileContext(retval: Integer); safecall;
|
||
|
|
function Qualifiers: IADsCollection; safecall;
|
||
|
|
property PrimaryInterface: WideString read Get_PrimaryInterface;
|
||
|
|
property CLSID: WideString read Get_CLSID write Set_CLSID;
|
||
|
|
property OID: WideString read Get_OID write Set_OID;
|
||
|
|
property Abstract: WordBool read Get_Abstract write Set_Abstract;
|
||
|
|
property Auxiliary: WordBool read Get_Auxiliary write Set_Auxiliary;
|
||
|
|
property MandatoryProperties: OleVariant read Get_MandatoryProperties write Set_MandatoryProperties;
|
||
|
|
property OptionalProperties: OleVariant read Get_OptionalProperties write Set_OptionalProperties;
|
||
|
|
property NamingProperties: OleVariant read Get_NamingProperties write Set_NamingProperties;
|
||
|
|
property DerivedFrom: OleVariant read Get_DerivedFrom write Set_DerivedFrom;
|
||
|
|
property AuxDerivedFrom: OleVariant read Get_AuxDerivedFrom write Set_AuxDerivedFrom;
|
||
|
|
property PossibleSuperiors: OleVariant read Get_PossibleSuperiors write Set_PossibleSuperiors;
|
||
|
|
property Containment: OleVariant read Get_Containment write Set_Containment;
|
||
|
|
property Container: WordBool read Get_Container write Set_Container;
|
||
|
|
property HelpFileName: WideString read Get_HelpFileName write Set_HelpFileName;
|
||
|
|
property HelpFileContext: Integer read Get_HelpFileContext write Set_HelpFileContext;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsClassDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsClassDisp = dispinterface
|
||
|
|
['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
|
||
|
|
property PrimaryInterface: WideString readonly dispid 15;
|
||
|
|
property CLSID: WideString dispid 16;
|
||
|
|
property OID: WideString dispid 17;
|
||
|
|
property Abstract: WordBool dispid 18;
|
||
|
|
property Auxiliary: WordBool dispid 26;
|
||
|
|
property MandatoryProperties: OleVariant dispid 19;
|
||
|
|
property OptionalProperties: OleVariant dispid 29;
|
||
|
|
property NamingProperties: OleVariant dispid 30;
|
||
|
|
property DerivedFrom: OleVariant dispid 20;
|
||
|
|
property AuxDerivedFrom: OleVariant dispid 27;
|
||
|
|
property PossibleSuperiors: OleVariant dispid 28;
|
||
|
|
property Containment: OleVariant dispid 21;
|
||
|
|
property Container: WordBool dispid 22;
|
||
|
|
property HelpFileName: WideString dispid 23;
|
||
|
|
property HelpFileContext: Integer dispid 24;
|
||
|
|
function Qualifiers: IADsCollection; dispid 25;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsProperty
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsProperty = interface(IADs)
|
||
|
|
['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
|
||
|
|
function Get_OID: WideString; safecall;
|
||
|
|
procedure Set_OID(const retval: WideString); safecall;
|
||
|
|
function Get_Syntax: WideString; safecall;
|
||
|
|
procedure Set_Syntax(const retval: WideString); safecall;
|
||
|
|
function Get_MaxRange: Integer; safecall;
|
||
|
|
procedure Set_MaxRange(retval: Integer); safecall;
|
||
|
|
function Get_MinRange: Integer; safecall;
|
||
|
|
procedure Set_MinRange(retval: Integer); safecall;
|
||
|
|
function Get_MultiValued: WordBool; safecall;
|
||
|
|
procedure Set_MultiValued(retval: WordBool); safecall;
|
||
|
|
function Qualifiers: IADsCollection; safecall;
|
||
|
|
property OID: WideString read Get_OID write Set_OID;
|
||
|
|
property Syntax: WideString read Get_Syntax write Set_Syntax;
|
||
|
|
property MaxRange: Integer read Get_MaxRange write Set_MaxRange;
|
||
|
|
property MinRange: Integer read Get_MinRange write Set_MinRange;
|
||
|
|
property MultiValued: WordBool read Get_MultiValued write Set_MultiValued;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPropertyDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPropertyDisp = dispinterface
|
||
|
|
['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
|
||
|
|
property OID: WideString dispid 17;
|
||
|
|
property Syntax: WideString dispid 18;
|
||
|
|
property MaxRange: Integer dispid 19;
|
||
|
|
property MinRange: Integer dispid 20;
|
||
|
|
property MultiValued: WordBool dispid 21;
|
||
|
|
function Qualifiers: IADsCollection; dispid 22;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsSyntax
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsSyntax = interface(IADs)
|
||
|
|
['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
|
||
|
|
function Get_OleAutoDataType: Integer; safecall;
|
||
|
|
procedure Set_OleAutoDataType(retval: Integer); safecall;
|
||
|
|
property OleAutoDataType: Integer read Get_OleAutoDataType write Set_OleAutoDataType;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsSyntaxDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsSyntaxDisp = dispinterface
|
||
|
|
['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
|
||
|
|
property OleAutoDataType: Integer dispid 15;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsLocality
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsLocality = interface(IADs)
|
||
|
|
['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Get_LocalityName: WideString; safecall;
|
||
|
|
procedure Set_LocalityName(const retval: WideString); safecall;
|
||
|
|
function Get_PostalAddress: WideString; safecall;
|
||
|
|
procedure Set_PostalAddress(const retval: WideString); safecall;
|
||
|
|
function Get_SeeAlso: OleVariant; safecall;
|
||
|
|
procedure Set_SeeAlso(retval: OleVariant); safecall;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
|
||
|
|
property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
|
||
|
|
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsLocalityDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsLocalityDisp = dispinterface
|
||
|
|
['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
|
||
|
|
property Description: WideString dispid 15;
|
||
|
|
property LocalityName: WideString dispid 16;
|
||
|
|
property PostalAddress: WideString dispid 17;
|
||
|
|
property SeeAlso: OleVariant dispid 18;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsO
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsO = interface(IADs)
|
||
|
|
['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Get_LocalityName: WideString; safecall;
|
||
|
|
procedure Set_LocalityName(const retval: WideString); safecall;
|
||
|
|
function Get_PostalAddress: WideString; safecall;
|
||
|
|
procedure Set_PostalAddress(const retval: WideString); safecall;
|
||
|
|
function Get_TelephoneNumber: WideString; safecall;
|
||
|
|
procedure Set_TelephoneNumber(const retval: WideString); safecall;
|
||
|
|
function Get_FaxNumber: WideString; safecall;
|
||
|
|
procedure Set_FaxNumber(const retval: WideString); safecall;
|
||
|
|
function Get_SeeAlso: OleVariant; safecall;
|
||
|
|
procedure Set_SeeAlso(retval: OleVariant); safecall;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
|
||
|
|
property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
|
||
|
|
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
|
||
|
|
property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
|
||
|
|
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsODisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsODisp = dispinterface
|
||
|
|
['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
|
||
|
|
property Description: WideString dispid 15;
|
||
|
|
property LocalityName: WideString dispid 16;
|
||
|
|
property PostalAddress: WideString dispid 17;
|
||
|
|
property TelephoneNumber: WideString dispid 18;
|
||
|
|
property FaxNumber: WideString dispid 19;
|
||
|
|
property SeeAlso: OleVariant dispid 20;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsOU
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsOU = interface(IADs)
|
||
|
|
['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Get_LocalityName: WideString; safecall;
|
||
|
|
procedure Set_LocalityName(const retval: WideString); safecall;
|
||
|
|
function Get_PostalAddress: WideString; safecall;
|
||
|
|
procedure Set_PostalAddress(const retval: WideString); safecall;
|
||
|
|
function Get_TelephoneNumber: WideString; safecall;
|
||
|
|
procedure Set_TelephoneNumber(const retval: WideString); safecall;
|
||
|
|
function Get_FaxNumber: WideString; safecall;
|
||
|
|
procedure Set_FaxNumber(const retval: WideString); safecall;
|
||
|
|
function Get_SeeAlso: OleVariant; safecall;
|
||
|
|
procedure Set_SeeAlso(retval: OleVariant); safecall;
|
||
|
|
function Get_BusinessCategory: WideString; safecall;
|
||
|
|
procedure Set_BusinessCategory(const retval: WideString); safecall;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
|
||
|
|
property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
|
||
|
|
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
|
||
|
|
property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
|
||
|
|
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
|
||
|
|
property BusinessCategory: WideString read Get_BusinessCategory write Set_BusinessCategory;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsOUDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsOUDisp = dispinterface
|
||
|
|
['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
|
||
|
|
property Description: WideString dispid 15;
|
||
|
|
property LocalityName: WideString dispid 16;
|
||
|
|
property PostalAddress: WideString dispid 17;
|
||
|
|
property TelephoneNumber: WideString dispid 18;
|
||
|
|
property FaxNumber: WideString dispid 19;
|
||
|
|
property SeeAlso: OleVariant dispid 20;
|
||
|
|
property BusinessCategory: WideString dispid 21;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsDomain
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsDomain = interface(IADs)
|
||
|
|
['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
|
||
|
|
function Get_IsWorkgroup: WordBool; safecall;
|
||
|
|
function Get_MinPasswordLength: Integer; safecall;
|
||
|
|
procedure Set_MinPasswordLength(retval: Integer); safecall;
|
||
|
|
function Get_MinPasswordAge: Integer; safecall;
|
||
|
|
procedure Set_MinPasswordAge(retval: Integer); safecall;
|
||
|
|
function Get_MaxPasswordAge: Integer; safecall;
|
||
|
|
procedure Set_MaxPasswordAge(retval: Integer); safecall;
|
||
|
|
function Get_MaxBadPasswordsAllowed: Integer; safecall;
|
||
|
|
procedure Set_MaxBadPasswordsAllowed(retval: Integer); safecall;
|
||
|
|
function Get_PasswordHistoryLength: Integer; safecall;
|
||
|
|
procedure Set_PasswordHistoryLength(retval: Integer); safecall;
|
||
|
|
function Get_PasswordAttributes: Integer; safecall;
|
||
|
|
procedure Set_PasswordAttributes(retval: Integer); safecall;
|
||
|
|
function Get_AutoUnlockInterval: Integer; safecall;
|
||
|
|
procedure Set_AutoUnlockInterval(retval: Integer); safecall;
|
||
|
|
function Get_LockoutObservationInterval: Integer; safecall;
|
||
|
|
procedure Set_LockoutObservationInterval(retval: Integer); safecall;
|
||
|
|
property IsWorkgroup: WordBool read Get_IsWorkgroup;
|
||
|
|
property MinPasswordLength: Integer read Get_MinPasswordLength write Set_MinPasswordLength;
|
||
|
|
property MinPasswordAge: Integer read Get_MinPasswordAge write Set_MinPasswordAge;
|
||
|
|
property MaxPasswordAge: Integer read Get_MaxPasswordAge write Set_MaxPasswordAge;
|
||
|
|
property MaxBadPasswordsAllowed: Integer read Get_MaxBadPasswordsAllowed write Set_MaxBadPasswordsAllowed;
|
||
|
|
property PasswordHistoryLength: Integer read Get_PasswordHistoryLength write Set_PasswordHistoryLength;
|
||
|
|
property PasswordAttributes: Integer read Get_PasswordAttributes write Set_PasswordAttributes;
|
||
|
|
property AutoUnlockInterval: Integer read Get_AutoUnlockInterval write Set_AutoUnlockInterval;
|
||
|
|
property LockoutObservationInterval: Integer read Get_LockoutObservationInterval write Set_LockoutObservationInterval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsDomainDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsDomainDisp = dispinterface
|
||
|
|
['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
|
||
|
|
property IsWorkgroup: WordBool readonly dispid 15;
|
||
|
|
property MinPasswordLength: Integer dispid 16;
|
||
|
|
property MinPasswordAge: Integer dispid 17;
|
||
|
|
property MaxPasswordAge: Integer dispid 18;
|
||
|
|
property MaxBadPasswordsAllowed: Integer dispid 19;
|
||
|
|
property PasswordHistoryLength: Integer dispid 20;
|
||
|
|
property PasswordAttributes: Integer dispid 21;
|
||
|
|
property AutoUnlockInterval: Integer dispid 22;
|
||
|
|
property LockoutObservationInterval: Integer dispid 23;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsComputer
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsComputer = interface(IADs)
|
||
|
|
['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
|
||
|
|
function Get_ComputerID: WideString; safecall;
|
||
|
|
function Get_Site: WideString; safecall;
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Get_Location: WideString; safecall;
|
||
|
|
procedure Set_Location(const retval: WideString); safecall;
|
||
|
|
function Get_PrimaryUser: WideString; safecall;
|
||
|
|
procedure Set_PrimaryUser(const retval: WideString); safecall;
|
||
|
|
function Get_Owner: WideString; safecall;
|
||
|
|
procedure Set_Owner(const retval: WideString); safecall;
|
||
|
|
function Get_Division: WideString; safecall;
|
||
|
|
procedure Set_Division(const retval: WideString); safecall;
|
||
|
|
function Get_Department: WideString; safecall;
|
||
|
|
procedure Set_Department(const retval: WideString); safecall;
|
||
|
|
function Get_Role: WideString; safecall;
|
||
|
|
procedure Set_Role(const retval: WideString); safecall;
|
||
|
|
function Get_OperatingSystem: WideString; safecall;
|
||
|
|
procedure Set_OperatingSystem(const retval: WideString); safecall;
|
||
|
|
function Get_OperatingSystemVersion: WideString; safecall;
|
||
|
|
procedure Set_OperatingSystemVersion(const retval: WideString); safecall;
|
||
|
|
function Get_Model: WideString; safecall;
|
||
|
|
procedure Set_Model(const retval: WideString); safecall;
|
||
|
|
function Get_Processor: WideString; safecall;
|
||
|
|
procedure Set_Processor(const retval: WideString); safecall;
|
||
|
|
function Get_ProcessorCount: WideString; safecall;
|
||
|
|
procedure Set_ProcessorCount(const retval: WideString); safecall;
|
||
|
|
function Get_MemorySize: WideString; safecall;
|
||
|
|
procedure Set_MemorySize(const retval: WideString); safecall;
|
||
|
|
function Get_StorageCapacity: WideString; safecall;
|
||
|
|
procedure Set_StorageCapacity(const retval: WideString); safecall;
|
||
|
|
function Get_NetAddresses: OleVariant; safecall;
|
||
|
|
procedure Set_NetAddresses(retval: OleVariant); safecall;
|
||
|
|
property ComputerID: WideString read Get_ComputerID;
|
||
|
|
property Site: WideString read Get_Site;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
property Location: WideString read Get_Location write Set_Location;
|
||
|
|
property PrimaryUser: WideString read Get_PrimaryUser write Set_PrimaryUser;
|
||
|
|
property Owner: WideString read Get_Owner write Set_Owner;
|
||
|
|
property Division: WideString read Get_Division write Set_Division;
|
||
|
|
property Department: WideString read Get_Department write Set_Department;
|
||
|
|
property Role: WideString read Get_Role write Set_Role;
|
||
|
|
property OperatingSystem: WideString read Get_OperatingSystem write Set_OperatingSystem;
|
||
|
|
property OperatingSystemVersion: WideString read Get_OperatingSystemVersion write Set_OperatingSystemVersion;
|
||
|
|
property Model: WideString read Get_Model write Set_Model;
|
||
|
|
property Processor: WideString read Get_Processor write Set_Processor;
|
||
|
|
property ProcessorCount: WideString read Get_ProcessorCount write Set_ProcessorCount;
|
||
|
|
property MemorySize: WideString read Get_MemorySize write Set_MemorySize;
|
||
|
|
property StorageCapacity: WideString read Get_StorageCapacity write Set_StorageCapacity;
|
||
|
|
property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsComputerDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsComputerDisp = dispinterface
|
||
|
|
['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
|
||
|
|
property ComputerID: WideString readonly dispid 16;
|
||
|
|
property Site: WideString readonly dispid 18;
|
||
|
|
property Description: WideString dispid 19;
|
||
|
|
property Location: WideString dispid 20;
|
||
|
|
property PrimaryUser: WideString dispid 21;
|
||
|
|
property Owner: WideString dispid 22;
|
||
|
|
property Division: WideString dispid 23;
|
||
|
|
property Department: WideString dispid 24;
|
||
|
|
property Role: WideString dispid 25;
|
||
|
|
property OperatingSystem: WideString dispid 26;
|
||
|
|
property OperatingSystemVersion: WideString dispid 27;
|
||
|
|
property Model: WideString dispid 28;
|
||
|
|
property Processor: WideString dispid 29;
|
||
|
|
property ProcessorCount: WideString dispid 30;
|
||
|
|
property MemorySize: WideString dispid 31;
|
||
|
|
property StorageCapacity: WideString dispid 32;
|
||
|
|
property NetAddresses: OleVariant dispid 17;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsComputerOperations
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsComputerOperations = interface(IADs)
|
||
|
|
['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
|
||
|
|
function Status: IDispatch; safecall;
|
||
|
|
procedure Shutdown(bReboot: WordBool); safecall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsComputerOperationsDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsComputerOperationsDisp = dispinterface
|
||
|
|
['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
|
||
|
|
function Status: IDispatch; dispid 33;
|
||
|
|
procedure Shutdown(bReboot: WordBool); dispid 34;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsGroup
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsGroup = interface(IADs)
|
||
|
|
['{27636B00-410F-11CF-B1FF-02608C9E7553}']
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Members: IADsMembers; safecall;
|
||
|
|
function IsMember(const bstrMember: WideString): WordBool; safecall;
|
||
|
|
procedure Add(const bstrNewItem: WideString); safecall;
|
||
|
|
procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsGroupDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsGroupDisp = dispinterface
|
||
|
|
['{27636B00-410F-11CF-B1FF-02608C9E7553}']
|
||
|
|
property Description: WideString dispid 15;
|
||
|
|
function Members: IADsMembers; dispid 16;
|
||
|
|
function IsMember(const bstrMember: WideString): WordBool; dispid 17;
|
||
|
|
procedure Add(const bstrNewItem: WideString); dispid 18;
|
||
|
|
procedure Remove(const bstrItemToBeRemoved: WideString); dispid 19;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsUser
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsUser = interface(IADs)
|
||
|
|
['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
|
||
|
|
function Get_BadLoginAddress: WideString; safecall;
|
||
|
|
function Get_BadLoginCount: Integer; safecall;
|
||
|
|
function Get_LastLogin: TDateTime; safecall;
|
||
|
|
function Get_LastLogoff: TDateTime; safecall;
|
||
|
|
function Get_LastFailedLogin: TDateTime; safecall;
|
||
|
|
function Get_PasswordLastChanged: TDateTime; safecall;
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Get_Division: WideString; safecall;
|
||
|
|
procedure Set_Division(const retval: WideString); safecall;
|
||
|
|
function Get_Department: WideString; safecall;
|
||
|
|
procedure Set_Department(const retval: WideString); safecall;
|
||
|
|
function Get_EmployeeID: WideString; safecall;
|
||
|
|
procedure Set_EmployeeID(const retval: WideString); safecall;
|
||
|
|
function Get_FullName: WideString; safecall;
|
||
|
|
procedure Set_FullName(const retval: WideString); safecall;
|
||
|
|
function Get_FirstName: WideString; safecall;
|
||
|
|
procedure Set_FirstName(const retval: WideString); safecall;
|
||
|
|
function Get_LastName: WideString; safecall;
|
||
|
|
procedure Set_LastName(const retval: WideString); safecall;
|
||
|
|
function Get_OtherName: WideString; safecall;
|
||
|
|
procedure Set_OtherName(const retval: WideString); safecall;
|
||
|
|
function Get_NamePrefix: WideString; safecall;
|
||
|
|
procedure Set_NamePrefix(const retval: WideString); safecall;
|
||
|
|
function Get_NameSuffix: WideString; safecall;
|
||
|
|
procedure Set_NameSuffix(const retval: WideString); safecall;
|
||
|
|
function Get_Title: WideString; safecall;
|
||
|
|
procedure Set_Title(const retval: WideString); safecall;
|
||
|
|
function Get_Manager: WideString; safecall;
|
||
|
|
procedure Set_Manager(const retval: WideString); safecall;
|
||
|
|
function Get_TelephoneHome: OleVariant; safecall;
|
||
|
|
procedure Set_TelephoneHome(retval: OleVariant); safecall;
|
||
|
|
function Get_TelephoneMobile: OleVariant; safecall;
|
||
|
|
procedure Set_TelephoneMobile(retval: OleVariant); safecall;
|
||
|
|
function Get_TelephoneNumber: OleVariant; safecall;
|
||
|
|
procedure Set_TelephoneNumber(retval: OleVariant); safecall;
|
||
|
|
function Get_TelephonePager: OleVariant; safecall;
|
||
|
|
procedure Set_TelephonePager(retval: OleVariant); safecall;
|
||
|
|
function Get_FaxNumber: OleVariant; safecall;
|
||
|
|
procedure Set_FaxNumber(retval: OleVariant); safecall;
|
||
|
|
function Get_OfficeLocations: OleVariant; safecall;
|
||
|
|
procedure Set_OfficeLocations(retval: OleVariant); safecall;
|
||
|
|
function Get_PostalAddresses: OleVariant; safecall;
|
||
|
|
procedure Set_PostalAddresses(retval: OleVariant); safecall;
|
||
|
|
function Get_PostalCodes: OleVariant; safecall;
|
||
|
|
procedure Set_PostalCodes(retval: OleVariant); safecall;
|
||
|
|
function Get_SeeAlso: OleVariant; safecall;
|
||
|
|
procedure Set_SeeAlso(retval: OleVariant); safecall;
|
||
|
|
function Get_AccountDisabled: WordBool; safecall;
|
||
|
|
procedure Set_AccountDisabled(retval: WordBool); safecall;
|
||
|
|
function Get_AccountExpirationDate: TDateTime; safecall;
|
||
|
|
procedure Set_AccountExpirationDate(retval: TDateTime); safecall;
|
||
|
|
function Get_GraceLoginsAllowed: Integer; safecall;
|
||
|
|
procedure Set_GraceLoginsAllowed(retval: Integer); safecall;
|
||
|
|
function Get_GraceLoginsRemaining: Integer; safecall;
|
||
|
|
procedure Set_GraceLoginsRemaining(retval: Integer); safecall;
|
||
|
|
function Get_IsAccountLocked: WordBool; safecall;
|
||
|
|
procedure Set_IsAccountLocked(retval: WordBool); safecall;
|
||
|
|
function Get_LoginHours: OleVariant; safecall;
|
||
|
|
procedure Set_LoginHours(retval: OleVariant); safecall;
|
||
|
|
function Get_LoginWorkstations: OleVariant; safecall;
|
||
|
|
procedure Set_LoginWorkstations(retval: OleVariant); safecall;
|
||
|
|
function Get_MaxLogins: Integer; safecall;
|
||
|
|
procedure Set_MaxLogins(retval: Integer); safecall;
|
||
|
|
function Get_MaxStorage: Integer; safecall;
|
||
|
|
procedure Set_MaxStorage(retval: Integer); safecall;
|
||
|
|
function Get_PasswordExpirationDate: TDateTime; safecall;
|
||
|
|
procedure Set_PasswordExpirationDate(retval: TDateTime); safecall;
|
||
|
|
function Get_PasswordMinimumLength: Integer; safecall;
|
||
|
|
procedure Set_PasswordMinimumLength(retval: Integer); safecall;
|
||
|
|
function Get_PasswordRequired: WordBool; safecall;
|
||
|
|
procedure Set_PasswordRequired(retval: WordBool); safecall;
|
||
|
|
function Get_RequireUniquePassword: WordBool; safecall;
|
||
|
|
procedure Set_RequireUniquePassword(retval: WordBool); safecall;
|
||
|
|
function Get_EmailAddress: WideString; safecall;
|
||
|
|
procedure Set_EmailAddress(const retval: WideString); safecall;
|
||
|
|
function Get_HomeDirectory: WideString; safecall;
|
||
|
|
procedure Set_HomeDirectory(const retval: WideString); safecall;
|
||
|
|
function Get_Languages: OleVariant; safecall;
|
||
|
|
procedure Set_Languages(retval: OleVariant); safecall;
|
||
|
|
function Get_Profile: WideString; safecall;
|
||
|
|
procedure Set_Profile(const retval: WideString); safecall;
|
||
|
|
function Get_LoginScript: WideString; safecall;
|
||
|
|
procedure Set_LoginScript(const retval: WideString); safecall;
|
||
|
|
function Get_Picture: OleVariant; safecall;
|
||
|
|
procedure Set_Picture(retval: OleVariant); safecall;
|
||
|
|
function Get_HomePage: WideString; safecall;
|
||
|
|
procedure Set_HomePage(const retval: WideString); safecall;
|
||
|
|
function Groups: IADsMembers; safecall;
|
||
|
|
procedure SetPassword(const NewPassword: WideString); safecall;
|
||
|
|
procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); safecall;
|
||
|
|
property BadLoginAddress: WideString read Get_BadLoginAddress;
|
||
|
|
property BadLoginCount: Integer read Get_BadLoginCount;
|
||
|
|
property LastLogin: TDateTime read Get_LastLogin;
|
||
|
|
property LastLogoff: TDateTime read Get_LastLogoff;
|
||
|
|
property LastFailedLogin: TDateTime read Get_LastFailedLogin;
|
||
|
|
property PasswordLastChanged: TDateTime read Get_PasswordLastChanged;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
property Division: WideString read Get_Division write Set_Division;
|
||
|
|
property Department: WideString read Get_Department write Set_Department;
|
||
|
|
property EmployeeID: WideString read Get_EmployeeID write Set_EmployeeID;
|
||
|
|
property FullName: WideString read Get_FullName write Set_FullName;
|
||
|
|
property FirstName: WideString read Get_FirstName write Set_FirstName;
|
||
|
|
property LastName: WideString read Get_LastName write Set_LastName;
|
||
|
|
property OtherName: WideString read Get_OtherName write Set_OtherName;
|
||
|
|
property NamePrefix: WideString read Get_NamePrefix write Set_NamePrefix;
|
||
|
|
property NameSuffix: WideString read Get_NameSuffix write Set_NameSuffix;
|
||
|
|
property Title: WideString read Get_Title write Set_Title;
|
||
|
|
property Manager: WideString read Get_Manager write Set_Manager;
|
||
|
|
property TelephoneHome: OleVariant read Get_TelephoneHome write Set_TelephoneHome;
|
||
|
|
property TelephoneMobile: OleVariant read Get_TelephoneMobile write Set_TelephoneMobile;
|
||
|
|
property TelephoneNumber: OleVariant read Get_TelephoneNumber write Set_TelephoneNumber;
|
||
|
|
property TelephonePager: OleVariant read Get_TelephonePager write Set_TelephonePager;
|
||
|
|
property FaxNumber: OleVariant read Get_FaxNumber write Set_FaxNumber;
|
||
|
|
property OfficeLocations: OleVariant read Get_OfficeLocations write Set_OfficeLocations;
|
||
|
|
property PostalAddresses: OleVariant read Get_PostalAddresses write Set_PostalAddresses;
|
||
|
|
property PostalCodes: OleVariant read Get_PostalCodes write Set_PostalCodes;
|
||
|
|
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
|
||
|
|
property AccountDisabled: WordBool read Get_AccountDisabled write Set_AccountDisabled;
|
||
|
|
property AccountExpirationDate: TDateTime read Get_AccountExpirationDate write Set_AccountExpirationDate;
|
||
|
|
property GraceLoginsAllowed: Integer read Get_GraceLoginsAllowed write Set_GraceLoginsAllowed;
|
||
|
|
property GraceLoginsRemaining: Integer read Get_GraceLoginsRemaining write Set_GraceLoginsRemaining;
|
||
|
|
property IsAccountLocked: WordBool read Get_IsAccountLocked write Set_IsAccountLocked;
|
||
|
|
property LoginHours: OleVariant read Get_LoginHours write Set_LoginHours;
|
||
|
|
property LoginWorkstations: OleVariant read Get_LoginWorkstations write Set_LoginWorkstations;
|
||
|
|
property MaxLogins: Integer read Get_MaxLogins write Set_MaxLogins;
|
||
|
|
property MaxStorage: Integer read Get_MaxStorage write Set_MaxStorage;
|
||
|
|
property PasswordExpirationDate: TDateTime read Get_PasswordExpirationDate write Set_PasswordExpirationDate;
|
||
|
|
property PasswordMinimumLength: Integer read Get_PasswordMinimumLength write Set_PasswordMinimumLength;
|
||
|
|
property PasswordRequired: WordBool read Get_PasswordRequired write Set_PasswordRequired;
|
||
|
|
property RequireUniquePassword: WordBool read Get_RequireUniquePassword write Set_RequireUniquePassword;
|
||
|
|
property EmailAddress: WideString read Get_EmailAddress write Set_EmailAddress;
|
||
|
|
property HomeDirectory: WideString read Get_HomeDirectory write Set_HomeDirectory;
|
||
|
|
property Languages: OleVariant read Get_Languages write Set_Languages;
|
||
|
|
property Profile: WideString read Get_Profile write Set_Profile;
|
||
|
|
property LoginScript: WideString read Get_LoginScript write Set_LoginScript;
|
||
|
|
property Picture: OleVariant read Get_Picture write Set_Picture;
|
||
|
|
property HomePage: WideString read Get_HomePage write Set_HomePage;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsUserDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsUserDisp = dispinterface
|
||
|
|
['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
|
||
|
|
property BadLoginAddress: WideString readonly dispid 53;
|
||
|
|
property BadLoginCount: Integer readonly dispid 54;
|
||
|
|
property LastLogin: TDateTime readonly dispid 56;
|
||
|
|
property LastLogoff: TDateTime readonly dispid 57;
|
||
|
|
property LastFailedLogin: TDateTime readonly dispid 58;
|
||
|
|
property PasswordLastChanged: TDateTime readonly dispid 59;
|
||
|
|
property Description: WideString dispid 15;
|
||
|
|
property Division: WideString dispid 19;
|
||
|
|
property Department: WideString dispid 122;
|
||
|
|
property EmployeeID: WideString dispid 20;
|
||
|
|
property FullName: WideString dispid 23;
|
||
|
|
property FirstName: WideString dispid 22;
|
||
|
|
property LastName: WideString dispid 25;
|
||
|
|
property OtherName: WideString dispid 27;
|
||
|
|
property NamePrefix: WideString dispid 114;
|
||
|
|
property NameSuffix: WideString dispid 115;
|
||
|
|
property Title: WideString dispid 36;
|
||
|
|
property Manager: WideString dispid 26;
|
||
|
|
property TelephoneHome: OleVariant dispid 32;
|
||
|
|
property TelephoneMobile: OleVariant dispid 33;
|
||
|
|
property TelephoneNumber: OleVariant dispid 34;
|
||
|
|
property TelephonePager: OleVariant dispid 17;
|
||
|
|
property FaxNumber: OleVariant dispid 16;
|
||
|
|
property OfficeLocations: OleVariant dispid 28;
|
||
|
|
property PostalAddresses: OleVariant dispid 30;
|
||
|
|
property PostalCodes: OleVariant dispid 31;
|
||
|
|
property SeeAlso: OleVariant dispid 117;
|
||
|
|
property AccountDisabled: WordBool dispid 37;
|
||
|
|
property AccountExpirationDate: TDateTime dispid 38;
|
||
|
|
property GraceLoginsAllowed: Integer dispid 41;
|
||
|
|
property GraceLoginsRemaining: Integer dispid 42;
|
||
|
|
property IsAccountLocked: WordBool dispid 43;
|
||
|
|
property LoginHours: OleVariant dispid 45;
|
||
|
|
property LoginWorkstations: OleVariant dispid 46;
|
||
|
|
property MaxLogins: Integer dispid 47;
|
||
|
|
property MaxStorage: Integer dispid 48;
|
||
|
|
property PasswordExpirationDate: TDateTime dispid 49;
|
||
|
|
property PasswordMinimumLength: Integer dispid 50;
|
||
|
|
property PasswordRequired: WordBool dispid 51;
|
||
|
|
property RequireUniquePassword: WordBool dispid 52;
|
||
|
|
property EmailAddress: WideString dispid 60;
|
||
|
|
property HomeDirectory: WideString dispid 61;
|
||
|
|
property Languages: OleVariant dispid 62;
|
||
|
|
property Profile: WideString dispid 63;
|
||
|
|
property LoginScript: WideString dispid 64;
|
||
|
|
property Picture: OleVariant dispid 65;
|
||
|
|
property HomePage: WideString dispid 120;
|
||
|
|
function Groups: IADsMembers; dispid 66;
|
||
|
|
procedure SetPassword(const NewPassword: WideString); dispid 67;
|
||
|
|
procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); dispid 68;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPrintQueue
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPrintQueue = interface(IADs)
|
||
|
|
['{B15160D0-1226-11CF-A985-00AA006BC149}']
|
||
|
|
function Get_PrinterPath: WideString; safecall;
|
||
|
|
procedure Set_PrinterPath(const retval: WideString); safecall;
|
||
|
|
function Get_Model: WideString; safecall;
|
||
|
|
procedure Set_Model(const retval: WideString); safecall;
|
||
|
|
function Get_Datatype: WideString; safecall;
|
||
|
|
procedure Set_Datatype(const retval: WideString); safecall;
|
||
|
|
function Get_PrintProcessor: WideString; safecall;
|
||
|
|
procedure Set_PrintProcessor(const retval: WideString); safecall;
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Get_Location: WideString; safecall;
|
||
|
|
procedure Set_Location(const retval: WideString); safecall;
|
||
|
|
function Get_StartTime: TDateTime; safecall;
|
||
|
|
procedure Set_StartTime(retval: TDateTime); safecall;
|
||
|
|
function Get_UntilTime: TDateTime; safecall;
|
||
|
|
procedure Set_UntilTime(retval: TDateTime); safecall;
|
||
|
|
function Get_DefaultJobPriority: Integer; safecall;
|
||
|
|
procedure Set_DefaultJobPriority(retval: Integer); safecall;
|
||
|
|
function Get_Priority: Integer; safecall;
|
||
|
|
procedure Set_Priority(retval: Integer); safecall;
|
||
|
|
function Get_BannerPage: WideString; safecall;
|
||
|
|
procedure Set_BannerPage(const retval: WideString); safecall;
|
||
|
|
function Get_PrintDevices: OleVariant; safecall;
|
||
|
|
procedure Set_PrintDevices(retval: OleVariant); safecall;
|
||
|
|
function Get_NetAddresses: OleVariant; safecall;
|
||
|
|
procedure Set_NetAddresses(retval: OleVariant); safecall;
|
||
|
|
property PrinterPath: WideString read Get_PrinterPath write Set_PrinterPath;
|
||
|
|
property Model: WideString read Get_Model write Set_Model;
|
||
|
|
property Datatype: WideString read Get_Datatype write Set_Datatype;
|
||
|
|
property PrintProcessor: WideString read Get_PrintProcessor write Set_PrintProcessor;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
property Location: WideString read Get_Location write Set_Location;
|
||
|
|
property StartTime: TDateTime read Get_StartTime write Set_StartTime;
|
||
|
|
property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
|
||
|
|
property DefaultJobPriority: Integer read Get_DefaultJobPriority write Set_DefaultJobPriority;
|
||
|
|
property Priority: Integer read Get_Priority write Set_Priority;
|
||
|
|
property BannerPage: WideString read Get_BannerPage write Set_BannerPage;
|
||
|
|
property PrintDevices: OleVariant read Get_PrintDevices write Set_PrintDevices;
|
||
|
|
property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPrintQueueDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPrintQueueDisp = dispinterface
|
||
|
|
['{B15160D0-1226-11CF-A985-00AA006BC149}']
|
||
|
|
property PrinterPath: WideString dispid 15;
|
||
|
|
property Model: WideString dispid 16;
|
||
|
|
property Datatype: WideString dispid 17;
|
||
|
|
property PrintProcessor: WideString dispid 18;
|
||
|
|
property Description: WideString dispid 19;
|
||
|
|
property Location: WideString dispid 20;
|
||
|
|
property StartTime: TDateTime dispid 21;
|
||
|
|
property UntilTime: TDateTime dispid 22;
|
||
|
|
property DefaultJobPriority: Integer dispid 23;
|
||
|
|
property Priority: Integer dispid 24;
|
||
|
|
property BannerPage: WideString dispid 25;
|
||
|
|
property PrintDevices: OleVariant dispid 26;
|
||
|
|
property NetAddresses: OleVariant dispid 27;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPrintQueueOperations
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPrintQueueOperations = interface(IADs)
|
||
|
|
['{124BE5C0-156E-11CF-A986-00AA006BC149}']
|
||
|
|
function Get_Status: Integer; safecall;
|
||
|
|
function PrintJobs: IADsCollection; safecall;
|
||
|
|
procedure Pause; safecall;
|
||
|
|
procedure Resume; safecall;
|
||
|
|
procedure Purge; safecall;
|
||
|
|
property Status: Integer read Get_Status;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPrintQueueOperationsDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPrintQueueOperationsDisp = dispinterface
|
||
|
|
['{124BE5C0-156E-11CF-A986-00AA006BC149}']
|
||
|
|
property Status: Integer readonly dispid 27;
|
||
|
|
function PrintJobs: IADsCollection; dispid 28;
|
||
|
|
procedure Pause; dispid 29;
|
||
|
|
procedure Resume; dispid 30;
|
||
|
|
procedure Purge; dispid 31;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPrintJob
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPrintJob = interface(IADs)
|
||
|
|
['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
|
||
|
|
function Get_HostPrintQueue: WideString; safecall;
|
||
|
|
function Get_User: WideString; safecall;
|
||
|
|
function Get_UserPath: WideString; safecall;
|
||
|
|
function Get_TimeSubmitted: TDateTime; safecall;
|
||
|
|
function Get_TotalPages: Integer; safecall;
|
||
|
|
function Get_Size: Integer; safecall;
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Get_Priority: Integer; safecall;
|
||
|
|
procedure Set_Priority(retval: Integer); safecall;
|
||
|
|
function Get_StartTime: TDateTime; safecall;
|
||
|
|
procedure Set_StartTime(retval: TDateTime); safecall;
|
||
|
|
function Get_UntilTime: TDateTime; safecall;
|
||
|
|
procedure Set_UntilTime(retval: TDateTime); safecall;
|
||
|
|
function Get_Notify: WideString; safecall;
|
||
|
|
procedure Set_Notify(const retval: WideString); safecall;
|
||
|
|
function Get_NotifyPath: WideString; safecall;
|
||
|
|
procedure Set_NotifyPath(const retval: WideString); safecall;
|
||
|
|
property HostPrintQueue: WideString read Get_HostPrintQueue;
|
||
|
|
property User: WideString read Get_User;
|
||
|
|
property UserPath: WideString read Get_UserPath;
|
||
|
|
property TimeSubmitted: TDateTime read Get_TimeSubmitted;
|
||
|
|
property TotalPages: Integer read Get_TotalPages;
|
||
|
|
property Size: Integer read Get_Size;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
property Priority: Integer read Get_Priority write Set_Priority;
|
||
|
|
property StartTime: TDateTime read Get_StartTime write Set_StartTime;
|
||
|
|
property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
|
||
|
|
property Notify: WideString read Get_Notify write Set_Notify;
|
||
|
|
property NotifyPath: WideString read Get_NotifyPath write Set_NotifyPath;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPrintJobDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPrintJobDisp = dispinterface
|
||
|
|
['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
|
||
|
|
property HostPrintQueue: WideString readonly dispid 15;
|
||
|
|
property User: WideString readonly dispid 16;
|
||
|
|
property UserPath: WideString readonly dispid 17;
|
||
|
|
property TimeSubmitted: TDateTime readonly dispid 18;
|
||
|
|
property TotalPages: Integer readonly dispid 19;
|
||
|
|
property Size: Integer readonly dispid 234;
|
||
|
|
property Description: WideString dispid 20;
|
||
|
|
property Priority: Integer dispid 21;
|
||
|
|
property StartTime: TDateTime dispid 22;
|
||
|
|
property UntilTime: TDateTime dispid 23;
|
||
|
|
property Notify: WideString dispid 24;
|
||
|
|
property NotifyPath: WideString dispid 25;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPrintJobOperations
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPrintJobOperations = interface(IADs)
|
||
|
|
['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
|
||
|
|
function Get_Status: Integer; safecall;
|
||
|
|
function Get_TimeElapsed: Integer; safecall;
|
||
|
|
function Get_PagesPrinted: Integer; safecall;
|
||
|
|
function Get_Position: Integer; safecall;
|
||
|
|
procedure Set_Position(retval: Integer); safecall;
|
||
|
|
procedure Pause; safecall;
|
||
|
|
procedure Resume; safecall;
|
||
|
|
property Status: Integer read Get_Status;
|
||
|
|
property TimeElapsed: Integer read Get_TimeElapsed;
|
||
|
|
property PagesPrinted: Integer read Get_PagesPrinted;
|
||
|
|
property Position: Integer read Get_Position write Set_Position;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPrintJobOperationsDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPrintJobOperationsDisp = dispinterface
|
||
|
|
['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
|
||
|
|
property Status: Integer readonly dispid 26;
|
||
|
|
property TimeElapsed: Integer readonly dispid 27;
|
||
|
|
property PagesPrinted: Integer readonly dispid 28;
|
||
|
|
property Position: Integer dispid 29;
|
||
|
|
procedure Pause; dispid 30;
|
||
|
|
procedure Resume; dispid 31;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsService
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsService = interface(IADs)
|
||
|
|
['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
|
||
|
|
function Get_HostComputer: WideString; safecall;
|
||
|
|
procedure Set_HostComputer(const retval: WideString); safecall;
|
||
|
|
function Get_DisplayName: WideString; safecall;
|
||
|
|
procedure Set_DisplayName(const retval: WideString); safecall;
|
||
|
|
function Get_Version: WideString; safecall;
|
||
|
|
procedure Set_Version(const retval: WideString); safecall;
|
||
|
|
function Get_ServiceType: Integer; safecall;
|
||
|
|
procedure Set_ServiceType(retval: Integer); safecall;
|
||
|
|
function Get_StartType: Integer; safecall;
|
||
|
|
procedure Set_StartType(retval: Integer); safecall;
|
||
|
|
function Get_Path: WideString; safecall;
|
||
|
|
procedure Set_Path(const retval: WideString); safecall;
|
||
|
|
function Get_StartupParameters: WideString; safecall;
|
||
|
|
procedure Set_StartupParameters(const retval: WideString); safecall;
|
||
|
|
function Get_ErrorControl: Integer; safecall;
|
||
|
|
procedure Set_ErrorControl(retval: Integer); safecall;
|
||
|
|
function Get_LoadOrderGroup: WideString; safecall;
|
||
|
|
procedure Set_LoadOrderGroup(const retval: WideString); safecall;
|
||
|
|
function Get_ServiceAccountName: WideString; safecall;
|
||
|
|
procedure Set_ServiceAccountName(const retval: WideString); safecall;
|
||
|
|
function Get_ServiceAccountPath: WideString; safecall;
|
||
|
|
procedure Set_ServiceAccountPath(const retval: WideString); safecall;
|
||
|
|
function Get_Dependencies: OleVariant; safecall;
|
||
|
|
procedure Set_Dependencies(retval: OleVariant); safecall;
|
||
|
|
property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
|
||
|
|
property DisplayName: WideString read Get_DisplayName write Set_DisplayName;
|
||
|
|
property Version: WideString read Get_Version write Set_Version;
|
||
|
|
property ServiceType: Integer read Get_ServiceType write Set_ServiceType;
|
||
|
|
property StartType: Integer read Get_StartType write Set_StartType;
|
||
|
|
property Path: WideString read Get_Path write Set_Path;
|
||
|
|
property StartupParameters: WideString read Get_StartupParameters write Set_StartupParameters;
|
||
|
|
property ErrorControl: Integer read Get_ErrorControl write Set_ErrorControl;
|
||
|
|
property LoadOrderGroup: WideString read Get_LoadOrderGroup write Set_LoadOrderGroup;
|
||
|
|
property ServiceAccountName: WideString read Get_ServiceAccountName write Set_ServiceAccountName;
|
||
|
|
property ServiceAccountPath: WideString read Get_ServiceAccountPath write Set_ServiceAccountPath;
|
||
|
|
property Dependencies: OleVariant read Get_Dependencies write Set_Dependencies;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsServiceDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsServiceDisp = dispinterface
|
||
|
|
['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
|
||
|
|
property HostComputer: WideString dispid 15;
|
||
|
|
property DisplayName: WideString dispid 16;
|
||
|
|
property Version: WideString dispid 17;
|
||
|
|
property ServiceType: Integer dispid 18;
|
||
|
|
property StartType: Integer dispid 19;
|
||
|
|
property Path: WideString dispid 20;
|
||
|
|
property StartupParameters: WideString dispid 21;
|
||
|
|
property ErrorControl: Integer dispid 22;
|
||
|
|
property LoadOrderGroup: WideString dispid 23;
|
||
|
|
property ServiceAccountName: WideString dispid 24;
|
||
|
|
property ServiceAccountPath: WideString dispid 25;
|
||
|
|
property Dependencies: OleVariant dispid 26;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsServiceOperations
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsServiceOperations = interface(IADs)
|
||
|
|
['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
|
||
|
|
function Get_Status: Integer; safecall;
|
||
|
|
procedure Start; safecall;
|
||
|
|
procedure Stop; safecall;
|
||
|
|
procedure Pause; safecall;
|
||
|
|
procedure Continue; safecall;
|
||
|
|
procedure SetPassword(const bstrNewPassword: WideString); safecall;
|
||
|
|
property Status: Integer read Get_Status;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsServiceOperationsDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsServiceOperationsDisp = dispinterface
|
||
|
|
['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
|
||
|
|
property Status: Integer readonly dispid 27;
|
||
|
|
procedure Start; dispid 28;
|
||
|
|
procedure Stop; dispid 29;
|
||
|
|
procedure Pause; dispid 30;
|
||
|
|
procedure Continue; dispid 31;
|
||
|
|
procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsFileService
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsFileService = interface(IADsService)
|
||
|
|
['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Get_MaxUserCount: Integer; safecall;
|
||
|
|
procedure Set_MaxUserCount(retval: Integer); safecall;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsFileServiceDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsFileServiceDisp = dispinterface
|
||
|
|
['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
|
||
|
|
property Description: WideString dispid 33;
|
||
|
|
property MaxUserCount: Integer dispid 34;
|
||
|
|
property HostComputer: WideString dispid 15;
|
||
|
|
property DisplayName: WideString dispid 16;
|
||
|
|
property Version: WideString dispid 17;
|
||
|
|
property ServiceType: Integer dispid 18;
|
||
|
|
property StartType: Integer dispid 19;
|
||
|
|
property Path: WideString dispid 20;
|
||
|
|
property StartupParameters: WideString dispid 21;
|
||
|
|
property ErrorControl: Integer dispid 22;
|
||
|
|
property LoadOrderGroup: WideString dispid 23;
|
||
|
|
property ServiceAccountName: WideString dispid 24;
|
||
|
|
property ServiceAccountPath: WideString dispid 25;
|
||
|
|
property Dependencies: OleVariant dispid 26;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsFileServiceOperations
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsFileServiceOperations = interface(IADsServiceOperations)
|
||
|
|
['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
|
||
|
|
function Sessions: IADsCollection; safecall;
|
||
|
|
function Resources: IADsCollection; safecall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsFileServiceOperationsDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsFileServiceOperationsDisp = dispinterface
|
||
|
|
['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
|
||
|
|
function Sessions: IADsCollection; dispid 35;
|
||
|
|
function Resources: IADsCollection; dispid 36;
|
||
|
|
property Status: Integer readonly dispid 27;
|
||
|
|
procedure Start; dispid 28;
|
||
|
|
procedure Stop; dispid 29;
|
||
|
|
procedure Pause; dispid 30;
|
||
|
|
procedure Continue; dispid 31;
|
||
|
|
procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsFileShare
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsFileShare = interface(IADs)
|
||
|
|
['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
|
||
|
|
function Get_CurrentUserCount: Integer; safecall;
|
||
|
|
function Get_Description: WideString; safecall;
|
||
|
|
procedure Set_Description(const retval: WideString); safecall;
|
||
|
|
function Get_HostComputer: WideString; safecall;
|
||
|
|
procedure Set_HostComputer(const retval: WideString); safecall;
|
||
|
|
function Get_Path: WideString; safecall;
|
||
|
|
procedure Set_Path(const retval: WideString); safecall;
|
||
|
|
function Get_MaxUserCount: Integer; safecall;
|
||
|
|
procedure Set_MaxUserCount(retval: Integer); safecall;
|
||
|
|
property CurrentUserCount: Integer read Get_CurrentUserCount;
|
||
|
|
property Description: WideString read Get_Description write Set_Description;
|
||
|
|
property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
|
||
|
|
property Path: WideString read Get_Path write Set_Path;
|
||
|
|
property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsFileShareDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsFileShareDisp = dispinterface
|
||
|
|
['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
|
||
|
|
property CurrentUserCount: Integer readonly dispid 15;
|
||
|
|
property Description: WideString dispid 16;
|
||
|
|
property HostComputer: WideString dispid 17;
|
||
|
|
property Path: WideString dispid 18;
|
||
|
|
property MaxUserCount: Integer dispid 19;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsSession
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsSession = interface(IADs)
|
||
|
|
['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
|
||
|
|
function Get_User: WideString; safecall;
|
||
|
|
function Get_UserPath: WideString; safecall;
|
||
|
|
function Get_Computer: WideString; safecall;
|
||
|
|
function Get_ComputerPath: WideString; safecall;
|
||
|
|
function Get_ConnectTime: Integer; safecall;
|
||
|
|
function Get_IdleTime: Integer; safecall;
|
||
|
|
property User: WideString read Get_User;
|
||
|
|
property UserPath: WideString read Get_UserPath;
|
||
|
|
property Computer: WideString read Get_Computer;
|
||
|
|
property ComputerPath: WideString read Get_ComputerPath;
|
||
|
|
property ConnectTime: Integer read Get_ConnectTime;
|
||
|
|
property IdleTime: Integer read Get_IdleTime;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsSessionDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsSessionDisp = dispinterface
|
||
|
|
['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
|
||
|
|
property User: WideString readonly dispid 15;
|
||
|
|
property UserPath: WideString readonly dispid 16;
|
||
|
|
property Computer: WideString readonly dispid 17;
|
||
|
|
property ComputerPath: WideString readonly dispid 18;
|
||
|
|
property ConnectTime: Integer readonly dispid 19;
|
||
|
|
property IdleTime: Integer readonly dispid 20;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsResource
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsResource = interface(IADs)
|
||
|
|
['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
|
||
|
|
function Get_User: WideString; safecall;
|
||
|
|
function Get_UserPath: WideString; safecall;
|
||
|
|
function Get_Path: WideString; safecall;
|
||
|
|
function Get_LockCount: Integer; safecall;
|
||
|
|
property User: WideString read Get_User;
|
||
|
|
property UserPath: WideString read Get_UserPath;
|
||
|
|
property Path: WideString read Get_Path;
|
||
|
|
property LockCount: Integer read Get_LockCount;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsResourceDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsResourceDisp = dispinterface
|
||
|
|
['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
|
||
|
|
property User: WideString readonly dispid 15;
|
||
|
|
property UserPath: WideString readonly dispid 16;
|
||
|
|
property Path: WideString readonly dispid 17;
|
||
|
|
property LockCount: Integer readonly dispid 18;
|
||
|
|
property Name: WideString readonly dispid 2;
|
||
|
|
property Class_: WideString readonly dispid 3;
|
||
|
|
property GUID: WideString readonly dispid 4;
|
||
|
|
property ADsPath: WideString readonly dispid 5;
|
||
|
|
property Parent: WideString readonly dispid 6;
|
||
|
|
property Schema: WideString readonly dispid 7;
|
||
|
|
procedure GetInfo; dispid 8;
|
||
|
|
procedure SetInfo; dispid 9;
|
||
|
|
function Get(const bstrName: WideString): OleVariant; dispid 10;
|
||
|
|
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
|
||
|
|
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
|
||
|
|
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
|
||
|
|
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsOpenDSObject
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsOpenDSObject = interface(IDispatch)
|
||
|
|
['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
|
||
|
|
function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
|
||
|
|
const lpszPassword: WideString; lnReserved: Integer): IDispatch; safecall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsOpenDSObjectDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsOpenDSObjectDisp = dispinterface
|
||
|
|
['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
|
||
|
|
function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
|
||
|
|
const lpszPassword: WideString; lnReserved: Integer): IDispatch; dispid 1;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IDirectoryObject
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {E798DE2C-22E4-11D0-84FE-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IDirectoryObject = interface(IUnknown)
|
||
|
|
['{E798DE2C-22E4-11D0-84FE-00C04FD8D503}']
|
||
|
|
function GetObjectInformation(out ppObjInfo: PUserType11): HResult; stdcall;
|
||
|
|
function GetObjectAttributes(var pAttributeNames: PWideChar; dwNumberAttributes: LongWord;
|
||
|
|
out ppAttributeEntries: PUserType12;
|
||
|
|
out pdwNumAttributesReturned: LongWord): HResult; stdcall;
|
||
|
|
function SetObjectAttributes(var pAttributeEntries: _ads_attr_info; dwNumAttributes: LongWord;
|
||
|
|
out pdwNumAttributesModified: LongWord): HResult; stdcall;
|
||
|
|
function CreateDSObject(pszRDNName: PWideChar; var pAttributeEntries: _ads_attr_info;
|
||
|
|
dwNumAttributes: LongWord; out ppObject: IDispatch): HResult; stdcall;
|
||
|
|
function DeleteDSObject(pszRDNName: PWideChar): HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IDirectorySearch
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {109BA8EC-92F0-11D0-A790-00C04FD8D5A8}
|
||
|
|
// *********************************************************************//
|
||
|
|
IDirectorySearch = interface(IUnknown)
|
||
|
|
['{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}']
|
||
|
|
function SetSearchPreference(var pSearchPrefs: ads_searchpref_info; dwNumPrefs: LongWord): HResult; stdcall;
|
||
|
|
function ExecuteSearch(pszSearchFilter: PWideChar; var pAttributeNames: PWideChar;
|
||
|
|
dwNumberAttributes: LongWord; out phSearchResult: Pointer): HResult; stdcall;
|
||
|
|
function AbandonSearch(phSearchResult: Pointer): HResult; stdcall;
|
||
|
|
function GetFirstRow(hSearchResult: Pointer): HResult; stdcall;
|
||
|
|
function GetNextRow(hSearchResult: Pointer): HResult; stdcall;
|
||
|
|
function GetPreviousRow(hSearchResult: Pointer): HResult; stdcall;
|
||
|
|
function GetNextColumnName(hSearchHandle: Pointer; out ppszColumnName: PWideChar): HResult; stdcall;
|
||
|
|
function GetColumn(hSearchResult: Pointer; szColumnName: PWideChar;
|
||
|
|
out pSearchColumn: ads_search_column): HResult; stdcall;
|
||
|
|
function FreeColumn(var pSearchColumn: ads_search_column): HResult; stdcall;
|
||
|
|
function CloseSearchHandle(hSearchResult: Pointer): HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IDirectorySchemaMgmt
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}
|
||
|
|
// *********************************************************************//
|
||
|
|
IDirectorySchemaMgmt = interface(IUnknown)
|
||
|
|
['{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}']
|
||
|
|
function EnumAttributes(var ppszAttrNames: PWideChar; dwNumAttributes: LongWord;
|
||
|
|
ppAttrDefinition: PPUserType1; var pdwNumAttributes: LongWord): HResult; stdcall;
|
||
|
|
function CreateAttributeDefinition(pszAttributeName: PWideChar;
|
||
|
|
var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
|
||
|
|
function WriteAttributeDefinition(pszAttributeName: PWideChar;
|
||
|
|
var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
|
||
|
|
function DeleteAttributeDefinition(pszAttributeName: PWideChar): HResult; stdcall;
|
||
|
|
function EnumClasses(var ppszClassNames: PWideChar; dwNumClasses: LongWord;
|
||
|
|
ppClassDefinition: PPUserType2; var pdwNumClasses: LongWord): HResult; stdcall;
|
||
|
|
function WriteClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
|
||
|
|
function CreateClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
|
||
|
|
function DeleteClassDefinition(pszClassName: PWideChar): HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsAggregatee
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {1346CE8C-9039-11D0-8528-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsAggregatee = interface(IUnknown)
|
||
|
|
['{1346CE8C-9039-11D0-8528-00C04FD8D503}']
|
||
|
|
function ConnectAsAggregatee(const pOuterUnknown: IUnknown): HResult; stdcall;
|
||
|
|
function DisconnectAsAggregatee: HResult; stdcall;
|
||
|
|
function RelinquishInterface(var riid: TGUID): HResult; stdcall;
|
||
|
|
function RestoreInterface(var riid: TGUID): HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsAggregator
|
||
|
|
// Flags: (0)
|
||
|
|
// GUID: {52DB5FB0-941F-11D0-8529-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsAggregator = interface(IUnknown)
|
||
|
|
['{52DB5FB0-941F-11D0-8529-00C04FD8D503}']
|
||
|
|
function ConnectAsAggregator(const pAggregatee: IUnknown): HResult; stdcall;
|
||
|
|
function DisconnectAsAggregator: HResult; stdcall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsAccessControlEntry
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsAccessControlEntry = interface(IDispatch)
|
||
|
|
['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
|
||
|
|
function Get_AccessMask: Integer; safecall;
|
||
|
|
procedure Set_AccessMask(retval: Integer); safecall;
|
||
|
|
function Get_AceType: Integer; safecall;
|
||
|
|
procedure Set_AceType(retval: Integer); safecall;
|
||
|
|
function Get_AceFlags: Integer; safecall;
|
||
|
|
procedure Set_AceFlags(retval: Integer); safecall;
|
||
|
|
function Get_Flags: Integer; safecall;
|
||
|
|
procedure Set_Flags(retval: Integer); safecall;
|
||
|
|
function Get_ObjectType: WideString; safecall;
|
||
|
|
procedure Set_ObjectType(const retval: WideString); safecall;
|
||
|
|
function Get_InheritedObjectType: WideString; safecall;
|
||
|
|
procedure Set_InheritedObjectType(const retval: WideString); safecall;
|
||
|
|
function Get_Trustee: WideString; safecall;
|
||
|
|
procedure Set_Trustee(const retval: WideString); safecall;
|
||
|
|
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
|
||
|
|
property AceType: Integer read Get_AceType write Set_AceType;
|
||
|
|
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
|
||
|
|
property Flags: Integer read Get_Flags write Set_Flags;
|
||
|
|
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
|
||
|
|
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
|
||
|
|
property Trustee: WideString read Get_Trustee write Set_Trustee;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsAccessControlEntryDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsAccessControlEntryDisp = dispinterface
|
||
|
|
['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
|
||
|
|
property AccessMask: Integer dispid 2;
|
||
|
|
property AceType: Integer dispid 3;
|
||
|
|
property AceFlags: Integer dispid 4;
|
||
|
|
property Flags: Integer dispid 5;
|
||
|
|
property ObjectType: WideString dispid 6;
|
||
|
|
property InheritedObjectType: WideString dispid 7;
|
||
|
|
property Trustee: WideString dispid 8;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsAccessControlList
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsAccessControlList = interface(IDispatch)
|
||
|
|
['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
|
||
|
|
function Get_AclRevision: Integer; safecall;
|
||
|
|
procedure Set_AclRevision(retval: Integer); safecall;
|
||
|
|
function Get_AceCount: Integer; safecall;
|
||
|
|
procedure Set_AceCount(retval: Integer); safecall;
|
||
|
|
procedure AddAce(const pAccessControlEntry: IDispatch); safecall;
|
||
|
|
procedure RemoveAce(const pAccessControlEntry: IDispatch); safecall;
|
||
|
|
function CopyAccessList: IDispatch; safecall;
|
||
|
|
function Get__NewEnum: IUnknown; safecall;
|
||
|
|
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
|
||
|
|
property AceCount: Integer read Get_AceCount write Set_AceCount;
|
||
|
|
property _NewEnum: IUnknown read Get__NewEnum;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsAccessControlListDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsAccessControlListDisp = dispinterface
|
||
|
|
['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
|
||
|
|
property AclRevision: Integer dispid 3;
|
||
|
|
property AceCount: Integer dispid 4;
|
||
|
|
procedure AddAce(const pAccessControlEntry: IDispatch); dispid 5;
|
||
|
|
procedure RemoveAce(const pAccessControlEntry: IDispatch); dispid 6;
|
||
|
|
function CopyAccessList: IDispatch; dispid 7;
|
||
|
|
property _NewEnum: IUnknown readonly dispid -4;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsSecurityDescriptor
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsSecurityDescriptor = interface(IDispatch)
|
||
|
|
['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
|
||
|
|
function Get_Revision: Integer; safecall;
|
||
|
|
procedure Set_Revision(retval: Integer); safecall;
|
||
|
|
function Get_Control: Integer; safecall;
|
||
|
|
procedure Set_Control(retval: Integer); safecall;
|
||
|
|
function Get_Owner: WideString; safecall;
|
||
|
|
procedure Set_Owner(const retval: WideString); safecall;
|
||
|
|
function Get_OwnerDefaulted: WordBool; safecall;
|
||
|
|
procedure Set_OwnerDefaulted(retval: WordBool); safecall;
|
||
|
|
function Get_Group: WideString; safecall;
|
||
|
|
procedure Set_Group(const retval: WideString); safecall;
|
||
|
|
function Get_GroupDefaulted: WordBool; safecall;
|
||
|
|
procedure Set_GroupDefaulted(retval: WordBool); safecall;
|
||
|
|
function Get_DiscretionaryAcl: IDispatch; safecall;
|
||
|
|
procedure Set_DiscretionaryAcl(const retval: IDispatch); safecall;
|
||
|
|
function Get_DaclDefaulted: WordBool; safecall;
|
||
|
|
procedure Set_DaclDefaulted(retval: WordBool); safecall;
|
||
|
|
function Get_SystemAcl: IDispatch; safecall;
|
||
|
|
procedure Set_SystemAcl(const retval: IDispatch); safecall;
|
||
|
|
function Get_SaclDefaulted: WordBool; safecall;
|
||
|
|
procedure Set_SaclDefaulted(retval: WordBool); safecall;
|
||
|
|
function CopySecurityDescriptor: IDispatch; safecall;
|
||
|
|
property Revision: Integer read Get_Revision write Set_Revision;
|
||
|
|
property Control: Integer read Get_Control write Set_Control;
|
||
|
|
property Owner: WideString read Get_Owner write Set_Owner;
|
||
|
|
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
|
||
|
|
property Group: WideString read Get_Group write Set_Group;
|
||
|
|
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
|
||
|
|
property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
|
||
|
|
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
|
||
|
|
property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
|
||
|
|
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsSecurityDescriptorDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsSecurityDescriptorDisp = dispinterface
|
||
|
|
['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
|
||
|
|
property Revision: Integer dispid 2;
|
||
|
|
property Control: Integer dispid 3;
|
||
|
|
property Owner: WideString dispid 4;
|
||
|
|
property OwnerDefaulted: WordBool dispid 5;
|
||
|
|
property Group: WideString dispid 6;
|
||
|
|
property GroupDefaulted: WordBool dispid 7;
|
||
|
|
property DiscretionaryAcl: IDispatch dispid 8;
|
||
|
|
property DaclDefaulted: WordBool dispid 9;
|
||
|
|
property SystemAcl: IDispatch dispid 10;
|
||
|
|
property SaclDefaulted: WordBool dispid 11;
|
||
|
|
function CopySecurityDescriptor: IDispatch; dispid 12;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsLargeInteger
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsLargeInteger = interface(IDispatch)
|
||
|
|
['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
|
||
|
|
function Get_HighPart: Integer; safecall;
|
||
|
|
procedure Set_HighPart(retval: Integer); safecall;
|
||
|
|
function Get_LowPart: Integer; safecall;
|
||
|
|
procedure Set_LowPart(retval: Integer); safecall;
|
||
|
|
property HighPart: Integer read Get_HighPart write Set_HighPart;
|
||
|
|
property LowPart: Integer read Get_LowPart write Set_LowPart;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsLargeIntegerDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsLargeIntegerDisp = dispinterface
|
||
|
|
['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
|
||
|
|
property HighPart: Integer dispid 2;
|
||
|
|
property LowPart: Integer dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsNameTranslate
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsNameTranslate = interface(IDispatch)
|
||
|
|
['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
|
||
|
|
procedure Set_ChaseReferral(Param1: Integer); safecall;
|
||
|
|
procedure Init(lnSetType: Integer; const bstrADsPath: WideString); safecall;
|
||
|
|
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
|
||
|
|
const bstrUserID: WideString; const bstrDomain: WideString;
|
||
|
|
const bstrPassword: WideString); safecall;
|
||
|
|
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); safecall;
|
||
|
|
function Get(lnFormatType: Integer): WideString; safecall;
|
||
|
|
procedure SetEx(lnFormatType: Integer; pVar: OleVariant); safecall;
|
||
|
|
function GetEx(lnFormatType: Integer): OleVariant; safecall;
|
||
|
|
property ChaseReferral: Integer write Set_ChaseReferral;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsNameTranslateDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsNameTranslateDisp = dispinterface
|
||
|
|
['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
|
||
|
|
property ChaseReferral: Integer writeonly dispid 1;
|
||
|
|
procedure Init(lnSetType: Integer; const bstrADsPath: WideString); dispid 2;
|
||
|
|
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
|
||
|
|
const bstrUserID: WideString; const bstrDomain: WideString;
|
||
|
|
const bstrPassword: WideString); dispid 3;
|
||
|
|
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); dispid 4;
|
||
|
|
function Get(lnFormatType: Integer): WideString; dispid 5;
|
||
|
|
procedure SetEx(lnFormatType: Integer; pVar: OleVariant); dispid 6;
|
||
|
|
function GetEx(lnFormatType: Integer): OleVariant; dispid 7;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsCaseIgnoreList
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsCaseIgnoreList = interface(IDispatch)
|
||
|
|
['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
|
||
|
|
function Get_CaseIgnoreList: OleVariant; safecall;
|
||
|
|
procedure Set_CaseIgnoreList(retval: OleVariant); safecall;
|
||
|
|
property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsCaseIgnoreListDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsCaseIgnoreListDisp = dispinterface
|
||
|
|
['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
|
||
|
|
property CaseIgnoreList: OleVariant dispid 2;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsFaxNumber
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsFaxNumber = interface(IDispatch)
|
||
|
|
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
|
||
|
|
function Get_TelephoneNumber: WideString; safecall;
|
||
|
|
procedure Set_TelephoneNumber(const retval: WideString); safecall;
|
||
|
|
function Get_Parameters: OleVariant; safecall;
|
||
|
|
procedure Set_Parameters(retval: OleVariant); safecall;
|
||
|
|
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
|
||
|
|
property Parameters: OleVariant read Get_Parameters write Set_Parameters;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsFaxNumberDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsFaxNumberDisp = dispinterface
|
||
|
|
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
|
||
|
|
property TelephoneNumber: WideString dispid 2;
|
||
|
|
property Parameters: OleVariant dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsNetAddress
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsNetAddress = interface(IDispatch)
|
||
|
|
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
function Get_AddressType: Integer; safecall;
|
||
|
|
procedure Set_AddressType(retval: Integer); safecall;
|
||
|
|
function Get_Address: OleVariant; safecall;
|
||
|
|
procedure Set_Address(retval: OleVariant); safecall;
|
||
|
|
property AddressType: Integer read Get_AddressType write Set_AddressType;
|
||
|
|
property Address: OleVariant read Get_Address write Set_Address;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsNetAddressDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsNetAddressDisp = dispinterface
|
||
|
|
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
property AddressType: Integer dispid 2;
|
||
|
|
property Address: OleVariant dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsOctetList
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsOctetList = interface(IDispatch)
|
||
|
|
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
|
||
|
|
function Get_OctetList: OleVariant; safecall;
|
||
|
|
procedure Set_OctetList(retval: OleVariant); safecall;
|
||
|
|
property OctetList: OleVariant read Get_OctetList write Set_OctetList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsOctetListDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsOctetListDisp = dispinterface
|
||
|
|
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
|
||
|
|
property OctetList: OleVariant dispid 2;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsEmail
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsEmail = interface(IDispatch)
|
||
|
|
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
|
||
|
|
function Get_type_: Integer; safecall;
|
||
|
|
procedure Set_type_(retval: Integer); safecall;
|
||
|
|
function Get_Address: WideString; safecall;
|
||
|
|
procedure Set_Address(const retval: WideString); safecall;
|
||
|
|
property type_: Integer read Get_type_ write Set_type_;
|
||
|
|
property Address: WideString read Get_Address write Set_Address;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsEmailDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsEmailDisp = dispinterface
|
||
|
|
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
|
||
|
|
property type_: Integer dispid 2;
|
||
|
|
property Address: WideString dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPath
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPath = interface(IDispatch)
|
||
|
|
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
function Get_type_: Integer; safecall;
|
||
|
|
procedure Set_type_(retval: Integer); safecall;
|
||
|
|
function Get_VolumeName: WideString; safecall;
|
||
|
|
procedure Set_VolumeName(const retval: WideString); safecall;
|
||
|
|
function Get_Path: WideString; safecall;
|
||
|
|
procedure Set_Path(const retval: WideString); safecall;
|
||
|
|
property type_: Integer read Get_type_ write Set_type_;
|
||
|
|
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
|
||
|
|
property Path: WideString read Get_Path write Set_Path;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPathDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPathDisp = dispinterface
|
||
|
|
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
property type_: Integer dispid 2;
|
||
|
|
property VolumeName: WideString dispid 3;
|
||
|
|
property Path: WideString dispid 4;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsReplicaPointer
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsReplicaPointer = interface(IDispatch)
|
||
|
|
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
function Get_ServerName: WideString; safecall;
|
||
|
|
procedure Set_ServerName(const retval: WideString); safecall;
|
||
|
|
function Get_ReplicaType: Integer; safecall;
|
||
|
|
procedure Set_ReplicaType(retval: Integer); safecall;
|
||
|
|
function Get_ReplicaNumber: Integer; safecall;
|
||
|
|
procedure Set_ReplicaNumber(retval: Integer); safecall;
|
||
|
|
function Get_Count: Integer; safecall;
|
||
|
|
procedure Set_Count(retval: Integer); safecall;
|
||
|
|
function Get_ReplicaAddressHints: OleVariant; safecall;
|
||
|
|
procedure Set_ReplicaAddressHints(retval: OleVariant); safecall;
|
||
|
|
property ServerName: WideString read Get_ServerName write Set_ServerName;
|
||
|
|
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
|
||
|
|
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
|
||
|
|
property Count: Integer read Get_Count write Set_Count;
|
||
|
|
property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsReplicaPointerDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsReplicaPointerDisp = dispinterface
|
||
|
|
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
property ServerName: WideString dispid 2;
|
||
|
|
property ReplicaType: Integer dispid 3;
|
||
|
|
property ReplicaNumber: Integer dispid 4;
|
||
|
|
property Count: Integer dispid 5;
|
||
|
|
property ReplicaAddressHints: OleVariant dispid 6;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsAcl
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsAcl = interface(IDispatch)
|
||
|
|
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
|
||
|
|
function Get_ProtectedAttrName: WideString; safecall;
|
||
|
|
procedure Set_ProtectedAttrName(const retval: WideString); safecall;
|
||
|
|
function Get_SubjectName: WideString; safecall;
|
||
|
|
procedure Set_SubjectName(const retval: WideString); safecall;
|
||
|
|
function Get_Privileges: Integer; safecall;
|
||
|
|
procedure Set_Privileges(retval: Integer); safecall;
|
||
|
|
function CopyAcl: IDispatch; safecall;
|
||
|
|
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
|
||
|
|
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
|
||
|
|
property Privileges: Integer read Get_Privileges write Set_Privileges;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsAclDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsAclDisp = dispinterface
|
||
|
|
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
|
||
|
|
property ProtectedAttrName: WideString dispid 2;
|
||
|
|
property SubjectName: WideString dispid 3;
|
||
|
|
property Privileges: Integer dispid 4;
|
||
|
|
function CopyAcl: IDispatch; dispid 5;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsTimestamp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsTimestamp = interface(IDispatch)
|
||
|
|
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
function Get_WholeSeconds: Integer; safecall;
|
||
|
|
procedure Set_WholeSeconds(retval: Integer); safecall;
|
||
|
|
function Get_EventID: Integer; safecall;
|
||
|
|
procedure Set_EventID(retval: Integer); safecall;
|
||
|
|
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
|
||
|
|
property EventID: Integer read Get_EventID write Set_EventID;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsTimestampDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsTimestampDisp = dispinterface
|
||
|
|
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
property WholeSeconds: Integer dispid 2;
|
||
|
|
property EventID: Integer dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPostalAddress
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPostalAddress = interface(IDispatch)
|
||
|
|
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
|
||
|
|
function Get_PostalAddress: OleVariant; safecall;
|
||
|
|
procedure Set_PostalAddress(retval: OleVariant); safecall;
|
||
|
|
property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPostalAddressDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPostalAddressDisp = dispinterface
|
||
|
|
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
|
||
|
|
property PostalAddress: OleVariant dispid 2;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsBackLink
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsBackLink = interface(IDispatch)
|
||
|
|
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
function Get_RemoteID: Integer; safecall;
|
||
|
|
procedure Set_RemoteID(retval: Integer); safecall;
|
||
|
|
function Get_ObjectName: WideString; safecall;
|
||
|
|
procedure Set_ObjectName(const retval: WideString); safecall;
|
||
|
|
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
|
||
|
|
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsBackLinkDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsBackLinkDisp = dispinterface
|
||
|
|
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
property RemoteID: Integer dispid 2;
|
||
|
|
property ObjectName: WideString dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsTypedName
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsTypedName = interface(IDispatch)
|
||
|
|
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
function Get_ObjectName: WideString; safecall;
|
||
|
|
procedure Set_ObjectName(const retval: WideString); safecall;
|
||
|
|
function Get_Level: Integer; safecall;
|
||
|
|
procedure Set_Level(retval: Integer); safecall;
|
||
|
|
function Get_Interval: Integer; safecall;
|
||
|
|
procedure Set_Interval(retval: Integer); safecall;
|
||
|
|
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
|
||
|
|
property Level: Integer read Get_Level write Set_Level;
|
||
|
|
property Interval: Integer read Get_Interval write Set_Interval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsTypedNameDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsTypedNameDisp = dispinterface
|
||
|
|
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
property ObjectName: WideString dispid 2;
|
||
|
|
property Level: Integer dispid 3;
|
||
|
|
property Interval: Integer dispid 4;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsHold
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsHold = interface(IDispatch)
|
||
|
|
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
function Get_ObjectName: WideString; safecall;
|
||
|
|
procedure Set_ObjectName(const retval: WideString); safecall;
|
||
|
|
function Get_Amount: Integer; safecall;
|
||
|
|
procedure Set_Amount(retval: Integer); safecall;
|
||
|
|
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
|
||
|
|
property Amount: Integer read Get_Amount write Set_Amount;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsHoldDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsHoldDisp = dispinterface
|
||
|
|
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
|
||
|
|
property ObjectName: WideString dispid 2;
|
||
|
|
property Amount: Integer dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsObjectOptions
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsObjectOptions = interface(IDispatch)
|
||
|
|
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
|
||
|
|
function GetOption(lnOption: Integer): OleVariant; safecall;
|
||
|
|
procedure SetOption(lnOption: Integer; vValue: OleVariant); safecall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsObjectOptionsDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsObjectOptionsDisp = dispinterface
|
||
|
|
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
|
||
|
|
function GetOption(lnOption: Integer): OleVariant; dispid 2;
|
||
|
|
procedure SetOption(lnOption: Integer; vValue: OleVariant); dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsPathname
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPathname = interface(IDispatch)
|
||
|
|
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
|
||
|
|
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); safecall;
|
||
|
|
procedure SetDisplayType(lnDisplayType: Integer); safecall;
|
||
|
|
function Retrieve(lnFormatType: Integer): WideString; safecall;
|
||
|
|
function GetNumElements: Integer; safecall;
|
||
|
|
function GetElement(lnElementIndex: Integer): WideString; safecall;
|
||
|
|
procedure AddLeafElement(const bstrLeafElement: WideString); safecall;
|
||
|
|
procedure RemoveLeafElement; safecall;
|
||
|
|
function CopyPath: IDispatch; safecall;
|
||
|
|
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; safecall;
|
||
|
|
function Get_EscapedMode: Integer; safecall;
|
||
|
|
procedure Set_EscapedMode(retval: Integer); safecall;
|
||
|
|
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsPathnameDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsPathnameDisp = dispinterface
|
||
|
|
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
|
||
|
|
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); dispid 2;
|
||
|
|
procedure SetDisplayType(lnDisplayType: Integer); dispid 3;
|
||
|
|
function Retrieve(lnFormatType: Integer): WideString; dispid 4;
|
||
|
|
function GetNumElements: Integer; dispid 5;
|
||
|
|
function GetElement(lnElementIndex: Integer): WideString; dispid 6;
|
||
|
|
procedure AddLeafElement(const bstrLeafElement: WideString); dispid 7;
|
||
|
|
procedure RemoveLeafElement; dispid 8;
|
||
|
|
function CopyPath: IDispatch; dispid 9;
|
||
|
|
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; dispid 10;
|
||
|
|
property EscapedMode: Integer dispid 11;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsADSystemInfo
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsADSystemInfo = interface(IDispatch)
|
||
|
|
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
|
||
|
|
function Get_UserName: WideString; safecall;
|
||
|
|
function Get_ComputerName: WideString; safecall;
|
||
|
|
function Get_SiteName: WideString; safecall;
|
||
|
|
function Get_DomainShortName: WideString; safecall;
|
||
|
|
function Get_DomainDNSName: WideString; safecall;
|
||
|
|
function Get_ForestDNSName: WideString; safecall;
|
||
|
|
function Get_PDCRoleOwner: WideString; safecall;
|
||
|
|
function Get_SchemaRoleOwner: WideString; safecall;
|
||
|
|
function Get_IsNativeMode: WordBool; safecall;
|
||
|
|
function GetAnyDCName: WideString; safecall;
|
||
|
|
function GetDCSiteName(const szServer: WideString): WideString; safecall;
|
||
|
|
procedure RefreshSchemaCache; safecall;
|
||
|
|
function GetTrees: OleVariant; safecall;
|
||
|
|
property UserName: WideString read Get_UserName;
|
||
|
|
property ComputerName: WideString read Get_ComputerName;
|
||
|
|
property SiteName: WideString read Get_SiteName;
|
||
|
|
property DomainShortName: WideString read Get_DomainShortName;
|
||
|
|
property DomainDNSName: WideString read Get_DomainDNSName;
|
||
|
|
property ForestDNSName: WideString read Get_ForestDNSName;
|
||
|
|
property PDCRoleOwner: WideString read Get_PDCRoleOwner;
|
||
|
|
property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
|
||
|
|
property IsNativeMode: WordBool read Get_IsNativeMode;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsADSystemInfoDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsADSystemInfoDisp = dispinterface
|
||
|
|
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
|
||
|
|
property UserName: WideString readonly dispid 2;
|
||
|
|
property ComputerName: WideString readonly dispid 3;
|
||
|
|
property SiteName: WideString readonly dispid 4;
|
||
|
|
property DomainShortName: WideString readonly dispid 5;
|
||
|
|
property DomainDNSName: WideString readonly dispid 6;
|
||
|
|
property ForestDNSName: WideString readonly dispid 7;
|
||
|
|
property PDCRoleOwner: WideString readonly dispid 8;
|
||
|
|
property SchemaRoleOwner: WideString readonly dispid 9;
|
||
|
|
property IsNativeMode: WordBool readonly dispid 10;
|
||
|
|
function GetAnyDCName: WideString; dispid 11;
|
||
|
|
function GetDCSiteName(const szServer: WideString): WideString; dispid 12;
|
||
|
|
procedure RefreshSchemaCache; dispid 13;
|
||
|
|
function GetTrees: OleVariant; dispid 14;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsWinNTSystemInfo
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsWinNTSystemInfo = interface(IDispatch)
|
||
|
|
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
|
||
|
|
function Get_UserName: WideString; safecall;
|
||
|
|
function Get_ComputerName: WideString; safecall;
|
||
|
|
function Get_DomainName: WideString; safecall;
|
||
|
|
function Get_PDC: WideString; safecall;
|
||
|
|
property UserName: WideString read Get_UserName;
|
||
|
|
property ComputerName: WideString read Get_ComputerName;
|
||
|
|
property DomainName: WideString read Get_DomainName;
|
||
|
|
property PDC: WideString read Get_PDC;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsWinNTSystemInfoDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsWinNTSystemInfoDisp = dispinterface
|
||
|
|
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
|
||
|
|
property UserName: WideString readonly dispid 2;
|
||
|
|
property ComputerName: WideString readonly dispid 3;
|
||
|
|
property DomainName: WideString readonly dispid 4;
|
||
|
|
property PDC: WideString readonly dispid 5;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsDNWithBinary
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsDNWithBinary = interface(IDispatch)
|
||
|
|
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
|
||
|
|
function Get_BinaryValue: OleVariant; safecall;
|
||
|
|
procedure Set_BinaryValue(retval: OleVariant); safecall;
|
||
|
|
function Get_DNString: WideString; safecall;
|
||
|
|
procedure Set_DNString(const retval: WideString); safecall;
|
||
|
|
property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
|
||
|
|
property DNString: WideString read Get_DNString write Set_DNString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsDNWithBinaryDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsDNWithBinaryDisp = dispinterface
|
||
|
|
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
|
||
|
|
property BinaryValue: OleVariant dispid 2;
|
||
|
|
property DNString: WideString dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsDNWithString
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsDNWithString = interface(IDispatch)
|
||
|
|
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
|
||
|
|
function Get_StringValue: WideString; safecall;
|
||
|
|
procedure Set_StringValue(const retval: WideString); safecall;
|
||
|
|
function Get_DNString: WideString; safecall;
|
||
|
|
procedure Set_DNString(const retval: WideString); safecall;
|
||
|
|
property StringValue: WideString read Get_StringValue write Set_StringValue;
|
||
|
|
property DNString: WideString read Get_DNString write Set_DNString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsDNWithStringDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsDNWithStringDisp = dispinterface
|
||
|
|
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
|
||
|
|
property StringValue: WideString dispid 2;
|
||
|
|
property DNString: WideString dispid 3;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// Interface: IADsSecurityUtility
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A63251B2-5F21-474B-AB52-4A8EFAD10895}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsSecurityUtility = interface(IDispatch)
|
||
|
|
['{A63251B2-5F21-474B-AB52-4A8EFAD10895}']
|
||
|
|
function GetSecurityDescriptor(varPath: OleVariant; lPathFormat: Integer; lFormat: Integer): OleVariant; safecall;
|
||
|
|
procedure SetSecurityDescriptor(varPath: OleVariant; lPathFormat: Integer; varData: OleVariant;
|
||
|
|
lDataFormat: Integer); safecall;
|
||
|
|
function ConvertSecurityDescriptor(varSD: OleVariant; lDataFormat: Integer; lOutFormat: Integer): OleVariant; safecall;
|
||
|
|
function Get_SecurityMask: Integer; safecall;
|
||
|
|
procedure Set_SecurityMask(retval: Integer); safecall;
|
||
|
|
property SecurityMask: Integer read Get_SecurityMask write Set_SecurityMask;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// DispIntf: IADsSecurityUtilityDisp
|
||
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||
|
|
// GUID: {A63251B2-5F21-474B-AB52-4A8EFAD10895}
|
||
|
|
// *********************************************************************//
|
||
|
|
IADsSecurityUtilityDisp = dispinterface
|
||
|
|
['{A63251B2-5F21-474B-AB52-4A8EFAD10895}']
|
||
|
|
function GetSecurityDescriptor(varPath: OleVariant; lPathFormat: Integer; lFormat: Integer): OleVariant; dispid 2;
|
||
|
|
procedure SetSecurityDescriptor(varPath: OleVariant; lPathFormat: Integer; varData: OleVariant;
|
||
|
|
lDataFormat: Integer); dispid 3;
|
||
|
|
function ConvertSecurityDescriptor(varSD: OleVariant; lDataFormat: Integer; lOutFormat: Integer): OleVariant; dispid 4;
|
||
|
|
property SecurityMask: Integer dispid 5;
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoPropertyEntry provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsPropertyEntry exposed by
|
||
|
|
// the CoClass PropertyEntry. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoPropertyEntry = class
|
||
|
|
class function Create: IADsPropertyEntry;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsPropertyEntry;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TPropertyEntry
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsPropertyEntry
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TPropertyEntry = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsPropertyEntry;
|
||
|
|
function GetDefaultInterface: IADsPropertyEntry;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_Name: WideString;
|
||
|
|
procedure Set_Name(const retval: WideString);
|
||
|
|
function Get_ADsType: Integer;
|
||
|
|
procedure Set_ADsType(retval: Integer);
|
||
|
|
function Get_ControlCode: Integer;
|
||
|
|
procedure Set_ControlCode(retval: Integer);
|
||
|
|
function Get_Values: OleVariant;
|
||
|
|
procedure Set_Values(retval: OleVariant);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsPropertyEntry);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
procedure Clear;
|
||
|
|
property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
|
||
|
|
property Values: OleVariant read Get_Values write Set_Values;
|
||
|
|
property Name: WideString read Get_Name write Set_Name;
|
||
|
|
property ADsType: Integer read Get_ADsType write Set_ADsType;
|
||
|
|
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoPropertyValue provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsPropertyValue exposed by
|
||
|
|
// the CoClass PropertyValue. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoPropertyValue = class
|
||
|
|
class function Create: IADsPropertyValue;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsPropertyValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TPropertyValue
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsPropertyValue
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TPropertyValue = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsPropertyValue;
|
||
|
|
function GetDefaultInterface: IADsPropertyValue;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_ADsType: Integer;
|
||
|
|
procedure Set_ADsType(retval: Integer);
|
||
|
|
function Get_DNString: WideString;
|
||
|
|
procedure Set_DNString(const retval: WideString);
|
||
|
|
function Get_CaseExactString: WideString;
|
||
|
|
procedure Set_CaseExactString(const retval: WideString);
|
||
|
|
function Get_CaseIgnoreString: WideString;
|
||
|
|
procedure Set_CaseIgnoreString(const retval: WideString);
|
||
|
|
function Get_PrintableString: WideString;
|
||
|
|
procedure Set_PrintableString(const retval: WideString);
|
||
|
|
function Get_NumericString: WideString;
|
||
|
|
procedure Set_NumericString(const retval: WideString);
|
||
|
|
function Get_Boolean: Integer;
|
||
|
|
procedure Set_Boolean(retval: Integer);
|
||
|
|
function Get_Integer: Integer;
|
||
|
|
procedure Set_Integer(retval: Integer);
|
||
|
|
function Get_OctetString: OleVariant;
|
||
|
|
procedure Set_OctetString(retval: OleVariant);
|
||
|
|
function Get_SecurityDescriptor: IDispatch;
|
||
|
|
procedure Set_SecurityDescriptor(const retval: IDispatch);
|
||
|
|
function Get_LargeInteger: IDispatch;
|
||
|
|
procedure Set_LargeInteger(const retval: IDispatch);
|
||
|
|
function Get_UTCTime: TDateTime;
|
||
|
|
procedure Set_UTCTime(retval: TDateTime);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsPropertyValue);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
procedure Clear;
|
||
|
|
property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
|
||
|
|
property OctetString: OleVariant read Get_OctetString write Set_OctetString;
|
||
|
|
property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
|
||
|
|
property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
|
||
|
|
property ADsType: Integer read Get_ADsType write Set_ADsType;
|
||
|
|
property DNString: WideString read Get_DNString write Set_DNString;
|
||
|
|
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
|
||
|
|
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
|
||
|
|
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
|
||
|
|
property NumericString: WideString read Get_NumericString write Set_NumericString;
|
||
|
|
property Boolean: Integer read Get_Boolean write Set_Boolean;
|
||
|
|
property Integer: Integer read Get_Integer write Set_Integer;
|
||
|
|
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoAccessControlEntry provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsAccessControlEntry exposed by
|
||
|
|
// the CoClass AccessControlEntry. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoAccessControlEntry = class
|
||
|
|
class function Create: IADsAccessControlEntry;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsAccessControlEntry;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TAccessControlEntry
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsAccessControlEntry
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TAccessControlEntry = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsAccessControlEntry;
|
||
|
|
function GetDefaultInterface: IADsAccessControlEntry;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_AccessMask: Integer;
|
||
|
|
procedure Set_AccessMask(retval: Integer);
|
||
|
|
function Get_AceType: Integer;
|
||
|
|
procedure Set_AceType(retval: Integer);
|
||
|
|
function Get_AceFlags: Integer;
|
||
|
|
procedure Set_AceFlags(retval: Integer);
|
||
|
|
function Get_Flags: Integer;
|
||
|
|
procedure Set_Flags(retval: Integer);
|
||
|
|
function Get_ObjectType: WideString;
|
||
|
|
procedure Set_ObjectType(const retval: WideString);
|
||
|
|
function Get_InheritedObjectType: WideString;
|
||
|
|
procedure Set_InheritedObjectType(const retval: WideString);
|
||
|
|
function Get_Trustee: WideString;
|
||
|
|
procedure Set_Trustee(const retval: WideString);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsAccessControlEntry);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
|
||
|
|
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
|
||
|
|
property AceType: Integer read Get_AceType write Set_AceType;
|
||
|
|
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
|
||
|
|
property Flags: Integer read Get_Flags write Set_Flags;
|
||
|
|
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
|
||
|
|
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
|
||
|
|
property Trustee: WideString read Get_Trustee write Set_Trustee;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoAccessControlList provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsAccessControlList exposed by
|
||
|
|
// the CoClass AccessControlList. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoAccessControlList = class
|
||
|
|
class function Create: IADsAccessControlList;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsAccessControlList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TAccessControlList
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsAccessControlList
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TAccessControlList = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsAccessControlList;
|
||
|
|
function GetDefaultInterface: IADsAccessControlList;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_AclRevision: Integer;
|
||
|
|
procedure Set_AclRevision(retval: Integer);
|
||
|
|
function Get_AceCount: Integer;
|
||
|
|
procedure Set_AceCount(retval: Integer);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsAccessControlList);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
procedure AddAce(const pAccessControlEntry: IDispatch);
|
||
|
|
procedure RemoveAce(const pAccessControlEntry: IDispatch);
|
||
|
|
function CopyAccessList: IDispatch;
|
||
|
|
property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
|
||
|
|
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
|
||
|
|
property AceCount: Integer read Get_AceCount write Set_AceCount;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoSecurityDescriptor provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsSecurityDescriptor exposed by
|
||
|
|
// the CoClass SecurityDescriptor. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoSecurityDescriptor = class
|
||
|
|
class function Create: IADsSecurityDescriptor;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsSecurityDescriptor;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TSecurityDescriptor
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsSecurityDescriptor
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TSecurityDescriptor = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsSecurityDescriptor;
|
||
|
|
function GetDefaultInterface: IADsSecurityDescriptor;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_Revision: Integer;
|
||
|
|
procedure Set_Revision(retval: Integer);
|
||
|
|
function Get_Control: Integer;
|
||
|
|
procedure Set_Control(retval: Integer);
|
||
|
|
function Get_Owner: WideString;
|
||
|
|
procedure Set_Owner(const retval: WideString);
|
||
|
|
function Get_OwnerDefaulted: WordBool;
|
||
|
|
procedure Set_OwnerDefaulted(retval: WordBool);
|
||
|
|
function Get_Group: WideString;
|
||
|
|
procedure Set_Group(const retval: WideString);
|
||
|
|
function Get_GroupDefaulted: WordBool;
|
||
|
|
procedure Set_GroupDefaulted(retval: WordBool);
|
||
|
|
function Get_DiscretionaryAcl: IDispatch;
|
||
|
|
procedure Set_DiscretionaryAcl(const retval: IDispatch);
|
||
|
|
function Get_DaclDefaulted: WordBool;
|
||
|
|
procedure Set_DaclDefaulted(retval: WordBool);
|
||
|
|
function Get_SystemAcl: IDispatch;
|
||
|
|
procedure Set_SystemAcl(const retval: IDispatch);
|
||
|
|
function Get_SaclDefaulted: WordBool;
|
||
|
|
procedure Set_SaclDefaulted(retval: WordBool);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsSecurityDescriptor);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
function CopySecurityDescriptor: IDispatch;
|
||
|
|
property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
|
||
|
|
property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
|
||
|
|
property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
|
||
|
|
property Revision: Integer read Get_Revision write Set_Revision;
|
||
|
|
property Control: Integer read Get_Control write Set_Control;
|
||
|
|
property Owner: WideString read Get_Owner write Set_Owner;
|
||
|
|
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
|
||
|
|
property Group: WideString read Get_Group write Set_Group;
|
||
|
|
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
|
||
|
|
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
|
||
|
|
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoLargeInteger provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsLargeInteger exposed by
|
||
|
|
// the CoClass LargeInteger. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoLargeInteger = class
|
||
|
|
class function Create: IADsLargeInteger;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsLargeInteger;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TLargeInteger
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsLargeInteger
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TLargeInteger = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsLargeInteger;
|
||
|
|
function GetDefaultInterface: IADsLargeInteger;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_HighPart: Integer;
|
||
|
|
procedure Set_HighPart(retval: Integer);
|
||
|
|
function Get_LowPart: Integer;
|
||
|
|
procedure Set_LowPart(retval: Integer);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsLargeInteger);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
|
||
|
|
property HighPart: Integer read Get_HighPart write Set_HighPart;
|
||
|
|
property LowPart: Integer read Get_LowPart write Set_LowPart;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoNameTranslate provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsNameTranslate exposed by
|
||
|
|
// the CoClass NameTranslate. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoNameTranslate = class
|
||
|
|
class function Create: IADsNameTranslate;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsNameTranslate;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TNameTranslate
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsNameTranslate
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TNameTranslate = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsNameTranslate;
|
||
|
|
function GetDefaultInterface: IADsNameTranslate;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
procedure Set_ChaseReferral(Param1: Integer);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsNameTranslate);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
procedure Init(lnSetType: Integer; const bstrADsPath: WideString);
|
||
|
|
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
|
||
|
|
const bstrUserID: WideString; const bstrDomain: WideString;
|
||
|
|
const bstrPassword: WideString);
|
||
|
|
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString);
|
||
|
|
function Get(lnFormatType: Integer): WideString;
|
||
|
|
procedure SetEx(lnFormatType: Integer; pVar: OleVariant);
|
||
|
|
function GetEx(lnFormatType: Integer): OleVariant;
|
||
|
|
property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
|
||
|
|
property ChaseReferral: Integer write Set_ChaseReferral;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoCaseIgnoreList provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsCaseIgnoreList exposed by
|
||
|
|
// the CoClass CaseIgnoreList. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoCaseIgnoreList = class
|
||
|
|
class function Create: IADsCaseIgnoreList;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsCaseIgnoreList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TCaseIgnoreList
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsCaseIgnoreList
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TCaseIgnoreList = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsCaseIgnoreList;
|
||
|
|
function GetDefaultInterface: IADsCaseIgnoreList;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_CaseIgnoreList: OleVariant;
|
||
|
|
procedure Set_CaseIgnoreList(retval: OleVariant);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsCaseIgnoreList);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
|
||
|
|
property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoFaxNumber provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsFaxNumber exposed by
|
||
|
|
// the CoClass FaxNumber. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoFaxNumber = class
|
||
|
|
class function Create: IADsFaxNumber;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsFaxNumber;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TFaxNumber
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsFaxNumber
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TFaxNumber = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsFaxNumber;
|
||
|
|
function GetDefaultInterface: IADsFaxNumber;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_TelephoneNumber: WideString;
|
||
|
|
procedure Set_TelephoneNumber(const retval: WideString);
|
||
|
|
function Get_Parameters: OleVariant;
|
||
|
|
procedure Set_Parameters(retval: OleVariant);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsFaxNumber);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
|
||
|
|
property Parameters: OleVariant read Get_Parameters write Set_Parameters;
|
||
|
|
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoNetAddress provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsNetAddress exposed by
|
||
|
|
// the CoClass NetAddress. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoNetAddress = class
|
||
|
|
class function Create: IADsNetAddress;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsNetAddress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TNetAddress
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsNetAddress
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TNetAddress = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsNetAddress;
|
||
|
|
function GetDefaultInterface: IADsNetAddress;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_AddressType: Integer;
|
||
|
|
procedure Set_AddressType(retval: Integer);
|
||
|
|
function Get_Address: OleVariant;
|
||
|
|
procedure Set_Address(retval: OleVariant);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsNetAddress);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsNetAddress read GetDefaultInterface;
|
||
|
|
property Address: OleVariant read Get_Address write Set_Address;
|
||
|
|
property AddressType: Integer read Get_AddressType write Set_AddressType;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoOctetList provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsOctetList exposed by
|
||
|
|
// the CoClass OctetList. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoOctetList = class
|
||
|
|
class function Create: IADsOctetList;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsOctetList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TOctetList
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsOctetList
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TOctetList = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsOctetList;
|
||
|
|
function GetDefaultInterface: IADsOctetList;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_OctetList: OleVariant;
|
||
|
|
procedure Set_OctetList(retval: OleVariant);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsOctetList);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsOctetList read GetDefaultInterface;
|
||
|
|
property OctetList: OleVariant read Get_OctetList write Set_OctetList;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoEmail provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsEmail exposed by
|
||
|
|
// the CoClass Email. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoEmail = class
|
||
|
|
class function Create: IADsEmail;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsEmail;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TEmail
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsEmail
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TEmail = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsEmail;
|
||
|
|
function GetDefaultInterface: IADsEmail;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_type_: Integer;
|
||
|
|
procedure Set_type_(retval: Integer);
|
||
|
|
function Get_Address: WideString;
|
||
|
|
procedure Set_Address(const retval: WideString);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsEmail);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsEmail read GetDefaultInterface;
|
||
|
|
property type_: Integer read Get_type_ write Set_type_;
|
||
|
|
property Address: WideString read Get_Address write Set_Address;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoPath provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsPath exposed by
|
||
|
|
// the CoClass Path. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoPath = class
|
||
|
|
class function Create: IADsPath;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsPath;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TPath
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsPath
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TPath = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsPath;
|
||
|
|
function GetDefaultInterface: IADsPath;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_type_: Integer;
|
||
|
|
procedure Set_type_(retval: Integer);
|
||
|
|
function Get_VolumeName: WideString;
|
||
|
|
procedure Set_VolumeName(const retval: WideString);
|
||
|
|
function Get_Path: WideString;
|
||
|
|
procedure Set_Path(const retval: WideString);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsPath);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsPath read GetDefaultInterface;
|
||
|
|
property type_: Integer read Get_type_ write Set_type_;
|
||
|
|
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
|
||
|
|
property Path: WideString read Get_Path write Set_Path;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoReplicaPointer provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsReplicaPointer exposed by
|
||
|
|
// the CoClass ReplicaPointer. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoReplicaPointer = class
|
||
|
|
class function Create: IADsReplicaPointer;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsReplicaPointer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TReplicaPointer
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsReplicaPointer
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TReplicaPointer = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsReplicaPointer;
|
||
|
|
function GetDefaultInterface: IADsReplicaPointer;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_ServerName: WideString;
|
||
|
|
procedure Set_ServerName(const retval: WideString);
|
||
|
|
function Get_ReplicaType: Integer;
|
||
|
|
procedure Set_ReplicaType(retval: Integer);
|
||
|
|
function Get_ReplicaNumber: Integer;
|
||
|
|
procedure Set_ReplicaNumber(retval: Integer);
|
||
|
|
function Get_Count: Integer;
|
||
|
|
procedure Set_Count(retval: Integer);
|
||
|
|
function Get_ReplicaAddressHints: OleVariant;
|
||
|
|
procedure Set_ReplicaAddressHints(retval: OleVariant);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsReplicaPointer);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
|
||
|
|
property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
|
||
|
|
property ServerName: WideString read Get_ServerName write Set_ServerName;
|
||
|
|
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
|
||
|
|
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
|
||
|
|
property Count: Integer read Get_Count write Set_Count;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoTimestamp provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsTimestamp exposed by
|
||
|
|
// the CoClass Timestamp. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoTimestamp = class
|
||
|
|
class function Create: IADsTimestamp;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsTimestamp;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TTimestamp
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsTimestamp
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TTimestamp = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsTimestamp;
|
||
|
|
function GetDefaultInterface: IADsTimestamp;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_WholeSeconds: Integer;
|
||
|
|
procedure Set_WholeSeconds(retval: Integer);
|
||
|
|
function Get_EventID: Integer;
|
||
|
|
procedure Set_EventID(retval: Integer);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsTimestamp);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsTimestamp read GetDefaultInterface;
|
||
|
|
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
|
||
|
|
property EventID: Integer read Get_EventID write Set_EventID;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoPostalAddress provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsPostalAddress exposed by
|
||
|
|
// the CoClass PostalAddress. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoPostalAddress = class
|
||
|
|
class function Create: IADsPostalAddress;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsPostalAddress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TPostalAddress
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsPostalAddress
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TPostalAddress = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsPostalAddress;
|
||
|
|
function GetDefaultInterface: IADsPostalAddress;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_PostalAddress: OleVariant;
|
||
|
|
procedure Set_PostalAddress(retval: OleVariant);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsPostalAddress);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
|
||
|
|
property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoBackLink provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsBackLink exposed by
|
||
|
|
// the CoClass BackLink. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoBackLink = class
|
||
|
|
class function Create: IADsBackLink;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsBackLink;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TBackLink
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsBackLink
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TBackLink = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsBackLink;
|
||
|
|
function GetDefaultInterface: IADsBackLink;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_RemoteID: Integer;
|
||
|
|
procedure Set_RemoteID(retval: Integer);
|
||
|
|
function Get_ObjectName: WideString;
|
||
|
|
procedure Set_ObjectName(const retval: WideString);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsBackLink);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsBackLink read GetDefaultInterface;
|
||
|
|
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
|
||
|
|
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoTypedName provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsTypedName exposed by
|
||
|
|
// the CoClass TypedName. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoTypedName = class
|
||
|
|
class function Create: IADsTypedName;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsTypedName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TTypedName
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsTypedName
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
TTypedName = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsTypedName;
|
||
|
|
function GetDefaultInterface: IADsTypedName;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_ObjectName: WideString;
|
||
|
|
procedure Set_ObjectName(const retval: WideString);
|
||
|
|
function Get_Level: Integer;
|
||
|
|
procedure Set_Level(retval: Integer);
|
||
|
|
function Get_Interval: Integer;
|
||
|
|
procedure Set_Interval(retval: Integer);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsTypedName);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsTypedName read GetDefaultInterface;
|
||
|
|
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
|
||
|
|
property Level: Integer read Get_Level write Set_Level;
|
||
|
|
property Interval: Integer read Get_Interval write Set_Interval;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoHold provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsHold exposed by
|
||
|
|
// the CoClass Hold. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoHold = class
|
||
|
|
class function Create: IADsHold;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsHold;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : THold
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsHold
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (0)
|
||
|
|
// *********************************************************************//
|
||
|
|
THold = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsHold;
|
||
|
|
function GetDefaultInterface: IADsHold;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_ObjectName: WideString;
|
||
|
|
procedure Set_ObjectName(const retval: WideString);
|
||
|
|
function Get_Amount: Integer;
|
||
|
|
procedure Set_Amount(retval: Integer);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsHold);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsHold read GetDefaultInterface;
|
||
|
|
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
|
||
|
|
property Amount: Integer read Get_Amount write Set_Amount;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoPathname provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsPathname exposed by
|
||
|
|
// the CoClass Pathname. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoPathname = class
|
||
|
|
class function Create: IADsPathname;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsPathname;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TPathname
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsPathname
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TPathname = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsPathname;
|
||
|
|
function GetDefaultInterface: IADsPathname;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_EscapedMode: Integer;
|
||
|
|
procedure Set_EscapedMode(retval: Integer);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsPathname);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer);
|
||
|
|
procedure SetDisplayType(lnDisplayType: Integer);
|
||
|
|
function Retrieve(lnFormatType: Integer): WideString;
|
||
|
|
function GetNumElements: Integer;
|
||
|
|
function GetElement(lnElementIndex: Integer): WideString;
|
||
|
|
procedure AddLeafElement(const bstrLeafElement: WideString);
|
||
|
|
procedure RemoveLeafElement;
|
||
|
|
function CopyPath: IDispatch;
|
||
|
|
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
|
||
|
|
property DefaultInterface: IADsPathname read GetDefaultInterface;
|
||
|
|
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoADSystemInfo provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsADSystemInfo exposed by
|
||
|
|
// the CoClass ADSystemInfo. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoADSystemInfo = class
|
||
|
|
class function Create: IADsADSystemInfo;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsADSystemInfo;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TADSystemInfo
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsADSystemInfo
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TADSystemInfo = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsADSystemInfo;
|
||
|
|
function GetDefaultInterface: IADsADSystemInfo;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_UserName: WideString;
|
||
|
|
function Get_ComputerName: WideString;
|
||
|
|
function Get_SiteName: WideString;
|
||
|
|
function Get_DomainShortName: WideString;
|
||
|
|
function Get_DomainDNSName: WideString;
|
||
|
|
function Get_ForestDNSName: WideString;
|
||
|
|
function Get_PDCRoleOwner: WideString;
|
||
|
|
function Get_SchemaRoleOwner: WideString;
|
||
|
|
function Get_IsNativeMode: WordBool;
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsADSystemInfo);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
function GetAnyDCName: WideString;
|
||
|
|
function GetDCSiteName(const szServer: WideString): WideString;
|
||
|
|
procedure RefreshSchemaCache;
|
||
|
|
function GetTrees: OleVariant;
|
||
|
|
property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
|
||
|
|
property UserName: WideString read Get_UserName;
|
||
|
|
property ComputerName: WideString read Get_ComputerName;
|
||
|
|
property SiteName: WideString read Get_SiteName;
|
||
|
|
property DomainShortName: WideString read Get_DomainShortName;
|
||
|
|
property DomainDNSName: WideString read Get_DomainDNSName;
|
||
|
|
property ForestDNSName: WideString read Get_ForestDNSName;
|
||
|
|
property PDCRoleOwner: WideString read Get_PDCRoleOwner;
|
||
|
|
property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
|
||
|
|
property IsNativeMode: WordBool read Get_IsNativeMode;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoWinNTSystemInfo provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsWinNTSystemInfo exposed by
|
||
|
|
// the CoClass WinNTSystemInfo. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoWinNTSystemInfo = class
|
||
|
|
class function Create: IADsWinNTSystemInfo;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TWinNTSystemInfo
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsWinNTSystemInfo
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TWinNTSystemInfo = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsWinNTSystemInfo;
|
||
|
|
function GetDefaultInterface: IADsWinNTSystemInfo;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_UserName: WideString;
|
||
|
|
function Get_ComputerName: WideString;
|
||
|
|
function Get_DomainName: WideString;
|
||
|
|
function Get_PDC: WideString;
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsWinNTSystemInfo);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
|
||
|
|
property UserName: WideString read Get_UserName;
|
||
|
|
property ComputerName: WideString read Get_ComputerName;
|
||
|
|
property DomainName: WideString read Get_DomainName;
|
||
|
|
property PDC: WideString read Get_PDC;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoDNWithBinary provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsDNWithBinary exposed by
|
||
|
|
// the CoClass DNWithBinary. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoDNWithBinary = class
|
||
|
|
class function Create: IADsDNWithBinary;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsDNWithBinary;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TDNWithBinary
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsDNWithBinary
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TDNWithBinary = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsDNWithBinary;
|
||
|
|
function GetDefaultInterface: IADsDNWithBinary;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_BinaryValue: OleVariant;
|
||
|
|
procedure Set_BinaryValue(retval: OleVariant);
|
||
|
|
function Get_DNString: WideString;
|
||
|
|
procedure Set_DNString(const retval: WideString);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsDNWithBinary);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
|
||
|
|
property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
|
||
|
|
property DNString: WideString read Get_DNString write Set_DNString;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoDNWithString provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsDNWithString exposed by
|
||
|
|
// the CoClass DNWithString. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoDNWithString = class
|
||
|
|
class function Create: IADsDNWithString;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsDNWithString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TDNWithString
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsDNWithString
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TDNWithString = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsDNWithString;
|
||
|
|
function GetDefaultInterface: IADsDNWithString;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_StringValue: WideString;
|
||
|
|
procedure Set_StringValue(const retval: WideString);
|
||
|
|
function Get_DNString: WideString;
|
||
|
|
procedure Set_DNString(const retval: WideString);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsDNWithString);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
property DefaultInterface: IADsDNWithString read GetDefaultInterface;
|
||
|
|
property StringValue: WideString read Get_StringValue write Set_StringValue;
|
||
|
|
property DNString: WideString read Get_DNString write Set_DNString;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// The Class CoADsSecurityUtility provides a Create and CreateRemote method to
|
||
|
|
// create instances of the default interface IADsSecurityUtility exposed by
|
||
|
|
// the CoClass ADsSecurityUtility. The functions are intended to be used by
|
||
|
|
// clients wishing to automate the CoClass objects exposed by the
|
||
|
|
// server of this typelibrary.
|
||
|
|
// *********************************************************************//
|
||
|
|
CoADsSecurityUtility = class
|
||
|
|
class function Create: IADsSecurityUtility;
|
||
|
|
class function CreateRemote(const MachineName: string): IADsSecurityUtility;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
// *********************************************************************//
|
||
|
|
// OLE Server Proxy class declaration
|
||
|
|
// Server Object : TADsSecurityUtility
|
||
|
|
// Help String :
|
||
|
|
// Default Interface: IADsSecurityUtility
|
||
|
|
// Def. Intf. DISP? : No
|
||
|
|
// Event Interface:
|
||
|
|
// TypeFlags : (2) CanCreate
|
||
|
|
// *********************************************************************//
|
||
|
|
TADsSecurityUtility = class(TOleServer)
|
||
|
|
private
|
||
|
|
FIntf: IADsSecurityUtility;
|
||
|
|
function GetDefaultInterface: IADsSecurityUtility;
|
||
|
|
protected
|
||
|
|
procedure InitServerData; override;
|
||
|
|
function Get_SecurityMask: Integer;
|
||
|
|
procedure Set_SecurityMask(retval: Integer);
|
||
|
|
public
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Connect; override;
|
||
|
|
procedure ConnectTo(svrIntf: IADsSecurityUtility);
|
||
|
|
procedure Disconnect; override;
|
||
|
|
function GetSecurityDescriptor(varPath: OleVariant; lPathFormat: Integer; lFormat: Integer): OleVariant;
|
||
|
|
procedure SetSecurityDescriptor(varPath: OleVariant; lPathFormat: Integer; varData: OleVariant;
|
||
|
|
lDataFormat: Integer);
|
||
|
|
function ConvertSecurityDescriptor(varSD: OleVariant; lDataFormat: Integer; lOutFormat: Integer): OleVariant;
|
||
|
|
property DefaultInterface: IADsSecurityUtility read GetDefaultInterface;
|
||
|
|
property SecurityMask: Integer read Get_SecurityMask write Set_SecurityMask;
|
||
|
|
published
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Register;
|
||
|
|
|
||
|
|
resourcestring
|
||
|
|
dtlServerPage = 'ActiveX';
|
||
|
|
|
||
|
|
dtlOcxPage = 'ActiveX';
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses {$IFDEF RAD9PLUS}
|
||
|
|
System.Win.ComObj
|
||
|
|
{$ELSE}
|
||
|
|
ComObj
|
||
|
|
{$ENDIF};
|
||
|
|
|
||
|
|
class function CoPropertyEntry.Create: IADsPropertyEntry;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_PropertyEntry) as IADsPropertyEntry;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoPropertyEntry.CreateRemote(const MachineName: string): IADsPropertyEntry;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_PropertyEntry) as IADsPropertyEntry;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyEntry.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
|
||
|
|
IntfIID: '{05792C8E-941F-11D0-8529-00C04FD8D503}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyEntry.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsPropertyEntry;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyEntry.ConnectTo(svrIntf: IADsPropertyEntry);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyEntry.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyEntry.GetDefaultInterface: IADsPropertyEntry;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TPropertyEntry.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TPropertyEntry.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyEntry.Get_Name: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Name;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyEntry.Set_Name(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Name := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyEntry.Get_ADsType: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ADsType;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyEntry.Set_ADsType(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ADsType := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyEntry.Get_ControlCode: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ControlCode;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyEntry.Set_ControlCode(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ControlCode := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyEntry.Get_Values: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Values;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyEntry.Set_Values(retval: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Values := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyEntry.Clear;
|
||
|
|
begin
|
||
|
|
DefaultInterface.Clear;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoPropertyValue.Create: IADsPropertyValue;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_PropertyValue) as IADsPropertyValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoPropertyValue.CreateRemote(const MachineName: string): IADsPropertyValue;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_PropertyValue) as IADsPropertyValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
|
||
|
|
IntfIID: '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsPropertyValue;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.ConnectTo(svrIntf: IADsPropertyValue);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.GetDefaultInterface: IADsPropertyValue;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TPropertyValue.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TPropertyValue.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_ADsType: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ADsType;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_ADsType(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ADsType := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_DNString: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.DNString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_DNString(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.DNString := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_CaseExactString: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.CaseExactString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_CaseExactString(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.CaseExactString := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_CaseIgnoreString: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.CaseIgnoreString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_CaseIgnoreString(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.CaseIgnoreString := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_PrintableString: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.PrintableString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_PrintableString(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.PrintableString := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_NumericString: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.NumericString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_NumericString(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.NumericString := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_Boolean: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Boolean;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_Boolean(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Boolean := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_Integer: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_Integer(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Integer := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_OctetString: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.OctetString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_OctetString(retval: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.OctetString := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_SecurityDescriptor: IDispatch;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.SecurityDescriptor;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_SecurityDescriptor(const retval: IDispatch);
|
||
|
|
begin
|
||
|
|
DefaultInterface.SecurityDescriptor := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_LargeInteger: IDispatch;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.LargeInteger;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_LargeInteger(const retval: IDispatch);
|
||
|
|
begin
|
||
|
|
DefaultInterface.LargeInteger := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPropertyValue.Get_UTCTime: TDateTime;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.UTCTime;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Set_UTCTime(retval: TDateTime);
|
||
|
|
begin
|
||
|
|
DefaultInterface.UTCTime := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPropertyValue.Clear;
|
||
|
|
begin
|
||
|
|
DefaultInterface.Clear;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoAccessControlEntry.Create: IADsAccessControlEntry;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_AccessControlEntry) as IADsAccessControlEntry;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoAccessControlEntry.CreateRemote(const MachineName: string): IADsAccessControlEntry;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_AccessControlEntry) as IADsAccessControlEntry;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
IntfIID: '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsAccessControlEntry;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.ConnectTo(svrIntf: IADsAccessControlEntry);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlEntry.GetDefaultInterface: IADsAccessControlEntry;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TAccessControlEntry.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TAccessControlEntry.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlEntry.Get_AccessMask: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.AccessMask;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.Set_AccessMask(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.AccessMask := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlEntry.Get_AceType: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.AceType;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.Set_AceType(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.AceType := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlEntry.Get_AceFlags: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.AceFlags;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.Set_AceFlags(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.AceFlags := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlEntry.Get_Flags: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Flags;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.Set_Flags(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Flags := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlEntry.Get_ObjectType: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ObjectType;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.Set_ObjectType(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ObjectType := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlEntry.Get_InheritedObjectType: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.InheritedObjectType;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.Set_InheritedObjectType(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.InheritedObjectType := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlEntry.Get_Trustee: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Trustee;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlEntry.Set_Trustee(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Trustee := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoAccessControlList.Create: IADsAccessControlList;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_AccessControlList) as IADsAccessControlList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoAccessControlList.CreateRemote(const MachineName: string): IADsAccessControlList;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_AccessControlList) as IADsAccessControlList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlList.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
IntfIID: '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlList.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsAccessControlList;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlList.ConnectTo(svrIntf: IADsAccessControlList);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlList.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlList.GetDefaultInterface: IADsAccessControlList;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TAccessControlList.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TAccessControlList.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlList.Get_AclRevision: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.AclRevision;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlList.Set_AclRevision(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.AclRevision := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlList.Get_AceCount: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.AceCount;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlList.Set_AceCount(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.AceCount := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlList.AddAce(const pAccessControlEntry: IDispatch);
|
||
|
|
begin
|
||
|
|
DefaultInterface.AddAce(pAccessControlEntry);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TAccessControlList.RemoveAce(const pAccessControlEntry: IDispatch);
|
||
|
|
begin
|
||
|
|
DefaultInterface.RemoveAce(pAccessControlEntry);
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TAccessControlList.CopyAccessList: IDispatch;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.CopyAccessList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoSecurityDescriptor.Create: IADsSecurityDescriptor;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoSecurityDescriptor.CreateRemote(const MachineName: string): IADsSecurityDescriptor;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
IntfIID: '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsSecurityDescriptor;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.ConnectTo(svrIntf: IADsSecurityDescriptor);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.GetDefaultInterface: IADsSecurityDescriptor;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TSecurityDescriptor.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TSecurityDescriptor.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_Revision: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Revision;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_Revision(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Revision := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_Control: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Control;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_Control(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Control := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_Owner: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Owner;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_Owner(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Owner := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_OwnerDefaulted: WordBool;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.OwnerDefaulted;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_OwnerDefaulted(retval: WordBool);
|
||
|
|
begin
|
||
|
|
DefaultInterface.OwnerDefaulted := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_Group: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Group;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_Group(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Group := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_GroupDefaulted: WordBool;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.GroupDefaulted;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_GroupDefaulted(retval: WordBool);
|
||
|
|
begin
|
||
|
|
DefaultInterface.GroupDefaulted := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_DiscretionaryAcl: IDispatch;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.DiscretionaryAcl;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_DiscretionaryAcl(const retval: IDispatch);
|
||
|
|
begin
|
||
|
|
DefaultInterface.DiscretionaryAcl := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_DaclDefaulted: WordBool;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.DaclDefaulted;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_DaclDefaulted(retval: WordBool);
|
||
|
|
begin
|
||
|
|
DefaultInterface.DaclDefaulted := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_SystemAcl: IDispatch;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.SystemAcl;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_SystemAcl(const retval: IDispatch);
|
||
|
|
begin
|
||
|
|
DefaultInterface.SystemAcl := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.Get_SaclDefaulted: WordBool;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.SaclDefaulted;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSecurityDescriptor.Set_SaclDefaulted(retval: WordBool);
|
||
|
|
begin
|
||
|
|
DefaultInterface.SaclDefaulted := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TSecurityDescriptor.CopySecurityDescriptor: IDispatch;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.CopySecurityDescriptor;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoLargeInteger.Create: IADsLargeInteger;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_LargeInteger) as IADsLargeInteger;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoLargeInteger.CreateRemote(const MachineName: string): IADsLargeInteger;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_LargeInteger) as IADsLargeInteger;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TLargeInteger.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
|
||
|
|
IntfIID: '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TLargeInteger.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsLargeInteger;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TLargeInteger.ConnectTo(svrIntf: IADsLargeInteger);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TLargeInteger.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TLargeInteger.GetDefaultInterface: IADsLargeInteger;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TLargeInteger.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TLargeInteger.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TLargeInteger.Get_HighPart: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.HighPart;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TLargeInteger.Set_HighPart(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.HighPart := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TLargeInteger.Get_LowPart: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.LowPart;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TLargeInteger.Set_LowPart(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.LowPart := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoNameTranslate.Create: IADsNameTranslate;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_NameTranslate) as IADsNameTranslate;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoNameTranslate.CreateRemote(const MachineName: string): IADsNameTranslate;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_NameTranslate) as IADsNameTranslate;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNameTranslate.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
|
||
|
|
IntfIID: '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNameTranslate.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsNameTranslate;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNameTranslate.ConnectTo(svrIntf: IADsNameTranslate);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNameTranslate.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TNameTranslate.GetDefaultInterface: IADsNameTranslate;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TNameTranslate.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TNameTranslate.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNameTranslate.Set_ChaseReferral(Param1: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ChaseReferral := Param1;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNameTranslate.Init(lnSetType: Integer; const bstrADsPath: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Init(lnSetType, bstrADsPath);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNameTranslate.InitEx(lnSetType: Integer; const bstrADsPath: WideString;
|
||
|
|
const bstrUserID: WideString; const bstrDomain: WideString;
|
||
|
|
const bstrPassword: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.InitEx(lnSetType, bstrADsPath, bstrUserID, bstrDomain, bstrPassword);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNameTranslate.Set_(lnSetType: Integer; const bstrADsPath: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Set_(lnSetType, bstrADsPath);
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TNameTranslate.Get(lnFormatType: Integer): WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Get(lnFormatType);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNameTranslate.SetEx(lnFormatType: Integer; pVar: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.SetEx(lnFormatType, pVar);
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TNameTranslate.GetEx(lnFormatType: Integer): OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.GetEx(lnFormatType);
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoCaseIgnoreList.Create: IADsCaseIgnoreList;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoCaseIgnoreList.CreateRemote(const MachineName: string): IADsCaseIgnoreList;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TCaseIgnoreList.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IntfIID: '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TCaseIgnoreList.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsCaseIgnoreList;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TCaseIgnoreList.ConnectTo(svrIntf: IADsCaseIgnoreList);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TCaseIgnoreList.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TCaseIgnoreList.GetDefaultInterface: IADsCaseIgnoreList;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TCaseIgnoreList.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TCaseIgnoreList.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TCaseIgnoreList.Get_CaseIgnoreList: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.CaseIgnoreList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TCaseIgnoreList.Set_CaseIgnoreList(retval: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.CaseIgnoreList := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoFaxNumber.Create: IADsFaxNumber;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_FaxNumber) as IADsFaxNumber;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoFaxNumber.CreateRemote(const MachineName: string): IADsFaxNumber;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_FaxNumber) as IADsFaxNumber;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TFaxNumber.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IntfIID: '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TFaxNumber.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsFaxNumber;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TFaxNumber.ConnectTo(svrIntf: IADsFaxNumber);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TFaxNumber.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TFaxNumber.GetDefaultInterface: IADsFaxNumber;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TFaxNumber.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TFaxNumber.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TFaxNumber.Get_TelephoneNumber: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.TelephoneNumber;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TFaxNumber.Set_TelephoneNumber(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.TelephoneNumber := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TFaxNumber.Get_Parameters: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Parameters;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TFaxNumber.Set_Parameters(retval: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Parameters := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoNetAddress.Create: IADsNetAddress;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_NetAddress) as IADsNetAddress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoNetAddress.CreateRemote(const MachineName: string): IADsNetAddress;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_NetAddress) as IADsNetAddress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNetAddress.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IntfIID: '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNetAddress.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsNetAddress;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNetAddress.ConnectTo(svrIntf: IADsNetAddress);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNetAddress.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TNetAddress.GetDefaultInterface: IADsNetAddress;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TNetAddress.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TNetAddress.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TNetAddress.Get_AddressType: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.AddressType;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNetAddress.Set_AddressType(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.AddressType := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TNetAddress.Get_Address: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Address;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TNetAddress.Set_Address(retval: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Address := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoOctetList.Create: IADsOctetList;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_OctetList) as IADsOctetList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoOctetList.CreateRemote(const MachineName: string): IADsOctetList;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_OctetList) as IADsOctetList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TOctetList.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IntfIID: '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TOctetList.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsOctetList;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TOctetList.ConnectTo(svrIntf: IADsOctetList);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TOctetList.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TOctetList.GetDefaultInterface: IADsOctetList;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TOctetList.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TOctetList.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TOctetList.Get_OctetList: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.OctetList;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TOctetList.Set_OctetList(retval: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.OctetList := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoEmail.Create: IADsEmail;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_Email) as IADsEmail;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoEmail.CreateRemote(const MachineName: string): IADsEmail;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_Email) as IADsEmail;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEmail.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IntfIID: '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEmail.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsEmail;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEmail.ConnectTo(svrIntf: IADsEmail);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEmail.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TEmail.GetDefaultInterface: IADsEmail;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TEmail.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TEmail.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TEmail.Get_type_: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.type_;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEmail.Set_type_(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.type_ := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TEmail.Get_Address: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Address;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEmail.Set_Address(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Address := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoPath.Create: IADsPath;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_Path) as IADsPath;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoPath.CreateRemote(const MachineName: string): IADsPath;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_Path) as IADsPath;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPath.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IntfIID: '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPath.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsPath;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPath.ConnectTo(svrIntf: IADsPath);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPath.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPath.GetDefaultInterface: IADsPath;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TPath.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TPath.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPath.Get_type_: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.type_;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPath.Set_type_(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.type_ := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPath.Get_VolumeName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.VolumeName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPath.Set_VolumeName(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.VolumeName := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPath.Get_Path: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Path;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPath.Set_Path(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Path := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoReplicaPointer.Create: IADsReplicaPointer;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_ReplicaPointer) as IADsReplicaPointer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoReplicaPointer.CreateRemote(const MachineName: string): IADsReplicaPointer;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_ReplicaPointer) as IADsReplicaPointer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TReplicaPointer.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IntfIID: '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TReplicaPointer.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsReplicaPointer;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TReplicaPointer.ConnectTo(svrIntf: IADsReplicaPointer);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TReplicaPointer.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TReplicaPointer.GetDefaultInterface: IADsReplicaPointer;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TReplicaPointer.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TReplicaPointer.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TReplicaPointer.Get_ServerName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ServerName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TReplicaPointer.Set_ServerName(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ServerName := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TReplicaPointer.Get_ReplicaType: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ReplicaType;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TReplicaPointer.Set_ReplicaType(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ReplicaType := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TReplicaPointer.Get_ReplicaNumber: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ReplicaNumber;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TReplicaPointer.Set_ReplicaNumber(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ReplicaNumber := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TReplicaPointer.Get_Count: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Count;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TReplicaPointer.Set_Count(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Count := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TReplicaPointer.Get_ReplicaAddressHints: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ReplicaAddressHints;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TReplicaPointer.Set_ReplicaAddressHints(retval: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ReplicaAddressHints := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoTimestamp.Create: IADsTimestamp;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_Timestamp) as IADsTimestamp;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoTimestamp.CreateRemote(const MachineName: string): IADsTimestamp;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_Timestamp) as IADsTimestamp;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTimestamp.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IntfIID: '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTimestamp.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsTimestamp;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTimestamp.ConnectTo(svrIntf: IADsTimestamp);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTimestamp.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TTimestamp.GetDefaultInterface: IADsTimestamp;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TTimestamp.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TTimestamp.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TTimestamp.Get_WholeSeconds: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.WholeSeconds;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTimestamp.Set_WholeSeconds(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.WholeSeconds := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TTimestamp.Get_EventID: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.EventID;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTimestamp.Set_EventID(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.EventID := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoPostalAddress.Create: IADsPostalAddress;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_PostalAddress) as IADsPostalAddress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoPostalAddress.CreateRemote(const MachineName: string): IADsPostalAddress;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_PostalAddress) as IADsPostalAddress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPostalAddress.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
IntfIID: '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPostalAddress.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsPostalAddress;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPostalAddress.ConnectTo(svrIntf: IADsPostalAddress);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPostalAddress.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPostalAddress.GetDefaultInterface: IADsPostalAddress;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TPostalAddress.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TPostalAddress.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPostalAddress.Get_PostalAddress: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.PostalAddress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPostalAddress.Set_PostalAddress(retval: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.PostalAddress := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoBackLink.Create: IADsBackLink;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_BackLink) as IADsBackLink;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoBackLink.CreateRemote(const MachineName: string): IADsBackLink;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_BackLink) as IADsBackLink;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TBackLink.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IntfIID: '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TBackLink.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsBackLink;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TBackLink.ConnectTo(svrIntf: IADsBackLink);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TBackLink.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TBackLink.GetDefaultInterface: IADsBackLink;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TBackLink.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TBackLink.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TBackLink.Get_RemoteID: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.RemoteID;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TBackLink.Set_RemoteID(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.RemoteID := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TBackLink.Get_ObjectName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ObjectName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TBackLink.Set_ObjectName(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ObjectName := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoTypedName.Create: IADsTypedName;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_TypedName) as IADsTypedName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoTypedName.CreateRemote(const MachineName: string): IADsTypedName;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_TypedName) as IADsTypedName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTypedName.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IntfIID: '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTypedName.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsTypedName;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTypedName.ConnectTo(svrIntf: IADsTypedName);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTypedName.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TTypedName.GetDefaultInterface: IADsTypedName;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TTypedName.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TTypedName.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TTypedName.Get_ObjectName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ObjectName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTypedName.Set_ObjectName(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ObjectName := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TTypedName.Get_Level: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Level;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTypedName.Set_Level(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Level := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TTypedName.Get_Interval: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Interval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TTypedName.Set_Interval(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Interval := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoHold.Create: IADsHold;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_Hold) as IADsHold;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoHold.CreateRemote(const MachineName: string): IADsHold;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_Hold) as IADsHold;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure THold.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
IntfIID: '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure THold.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsHold;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure THold.ConnectTo(svrIntf: IADsHold);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure THold.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function THold.GetDefaultInterface: IADsHold;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor THold.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor THold.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function THold.Get_ObjectName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ObjectName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure THold.Set_ObjectName(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.ObjectName := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function THold.Get_Amount: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Amount;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure THold.Set_Amount(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Amount := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoPathname.Create: IADsPathname;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_Pathname) as IADsPathname;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoPathname.CreateRemote(const MachineName: string): IADsPathname;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_Pathname) as IADsPathname;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPathname.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
|
||
|
|
IntfIID: '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPathname.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsPathname;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPathname.ConnectTo(svrIntf: IADsPathname);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPathname.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPathname.GetDefaultInterface: IADsPathname;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TPathname.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TPathname.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPathname.Get_EscapedMode: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.EscapedMode;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPathname.Set_EscapedMode(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.EscapedMode := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPathname.Set_(const bstrADsPath: WideString; lnSetType: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.Set_(bstrADsPath, lnSetType);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPathname.SetDisplayType(lnDisplayType: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.SetDisplayType(lnDisplayType);
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPathname.Retrieve(lnFormatType: Integer): WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.Retrieve(lnFormatType);
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPathname.GetNumElements: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.GetNumElements;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPathname.GetElement(lnElementIndex: Integer): WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.GetElement(lnElementIndex);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPathname.AddLeafElement(const bstrLeafElement: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.AddLeafElement(bstrLeafElement);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TPathname.RemoveLeafElement;
|
||
|
|
begin
|
||
|
|
DefaultInterface.RemoveLeafElement;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPathname.CopyPath: IDispatch;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.CopyPath;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TPathname.GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.GetEscapedElement(lnReserved, bstrInStr);
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoADSystemInfo.Create: IADsADSystemInfo;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_ADSystemInfo) as IADsADSystemInfo;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoADSystemInfo.CreateRemote(const MachineName: string): IADsADSystemInfo;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_ADSystemInfo) as IADsADSystemInfo;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADSystemInfo.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
|
||
|
|
IntfIID: '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADSystemInfo.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsADSystemInfo;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADSystemInfo.ConnectTo(svrIntf: IADsADSystemInfo);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADSystemInfo.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.GetDefaultInterface: IADsADSystemInfo;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TADSystemInfo.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TADSystemInfo.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.Get_UserName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.UserName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.Get_ComputerName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ComputerName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.Get_SiteName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.SiteName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.Get_DomainShortName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.DomainShortName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.Get_DomainDNSName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.DomainDNSName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.Get_ForestDNSName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ForestDNSName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.Get_PDCRoleOwner: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.PDCRoleOwner;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.Get_SchemaRoleOwner: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.SchemaRoleOwner;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.Get_IsNativeMode: WordBool;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.IsNativeMode;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.GetAnyDCName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.GetAnyDCName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.GetDCSiteName(const szServer: WideString): WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.GetDCSiteName(szServer);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADSystemInfo.RefreshSchemaCache;
|
||
|
|
begin
|
||
|
|
DefaultInterface.RefreshSchemaCache;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADSystemInfo.GetTrees: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.GetTrees;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoWinNTSystemInfo.Create: IADsWinNTSystemInfo;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoWinNTSystemInfo.CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TWinNTSystemInfo.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
|
||
|
|
IntfIID: '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TWinNTSystemInfo.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsWinNTSystemInfo;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TWinNTSystemInfo.ConnectTo(svrIntf: IADsWinNTSystemInfo);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TWinNTSystemInfo.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TWinNTSystemInfo.GetDefaultInterface: IADsWinNTSystemInfo;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TWinNTSystemInfo.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TWinNTSystemInfo.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TWinNTSystemInfo.Get_UserName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.UserName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TWinNTSystemInfo.Get_ComputerName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ComputerName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TWinNTSystemInfo.Get_DomainName: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.DomainName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TWinNTSystemInfo.Get_PDC: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.PDC;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoDNWithBinary.Create: IADsDNWithBinary;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_DNWithBinary) as IADsDNWithBinary;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoDNWithBinary.CreateRemote(const MachineName: string): IADsDNWithBinary;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_DNWithBinary) as IADsDNWithBinary;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithBinary.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
|
||
|
|
IntfIID: '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithBinary.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsDNWithBinary;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithBinary.ConnectTo(svrIntf: IADsDNWithBinary);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithBinary.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TDNWithBinary.GetDefaultInterface: IADsDNWithBinary;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TDNWithBinary.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TDNWithBinary.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TDNWithBinary.Get_BinaryValue: OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.BinaryValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithBinary.Set_BinaryValue(retval: OleVariant);
|
||
|
|
begin
|
||
|
|
DefaultInterface.BinaryValue := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TDNWithBinary.Get_DNString: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.DNString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithBinary.Set_DNString(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.DNString := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoDNWithString.Create: IADsDNWithString;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_DNWithString) as IADsDNWithString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoDNWithString.CreateRemote(const MachineName: string): IADsDNWithString;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_DNWithString) as IADsDNWithString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithString.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
|
||
|
|
IntfIID: '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithString.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsDNWithString;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithString.ConnectTo(svrIntf: IADsDNWithString);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithString.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TDNWithString.GetDefaultInterface: IADsDNWithString;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TDNWithString.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TDNWithString.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TDNWithString.Get_StringValue: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.StringValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithString.Set_StringValue(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.StringValue := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TDNWithString.Get_DNString: WideString;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.DNString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDNWithString.Set_DNString(const retval: WideString);
|
||
|
|
begin
|
||
|
|
DefaultInterface.DNString := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoADsSecurityUtility.Create: IADsSecurityUtility;
|
||
|
|
begin
|
||
|
|
Result := CreateComObject(CLASS_ADsSecurityUtility) as IADsSecurityUtility;
|
||
|
|
end;
|
||
|
|
|
||
|
|
class function CoADsSecurityUtility.CreateRemote(const MachineName: string): IADsSecurityUtility;
|
||
|
|
begin
|
||
|
|
Result := CreateRemoteComObject(MachineName, CLASS_ADsSecurityUtility) as IADsSecurityUtility;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADsSecurityUtility.InitServerData;
|
||
|
|
const
|
||
|
|
CServerData: TServerData = (
|
||
|
|
ClassID: '{F270C64A-FFB8-4AE4-85FE-3A75E5347966}';
|
||
|
|
IntfIID: '{A63251B2-5F21-474B-AB52-4A8EFAD10895}';
|
||
|
|
EventIID: '';
|
||
|
|
LicenseKey: nil;
|
||
|
|
Version: 500);
|
||
|
|
begin
|
||
|
|
ServerData := @CServerData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADsSecurityUtility.Connect;
|
||
|
|
var
|
||
|
|
punk: IUnknown;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
begin
|
||
|
|
punk := GetServer;
|
||
|
|
Fintf:= punk as IADsSecurityUtility;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADsSecurityUtility.ConnectTo(svrIntf: IADsSecurityUtility);
|
||
|
|
begin
|
||
|
|
Disconnect;
|
||
|
|
FIntf := svrIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADsSecurityUtility.DisConnect;
|
||
|
|
begin
|
||
|
|
if Fintf <> nil then
|
||
|
|
begin
|
||
|
|
FIntf := nil;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADsSecurityUtility.GetDefaultInterface: IADsSecurityUtility;
|
||
|
|
begin
|
||
|
|
if FIntf = nil then
|
||
|
|
Connect;
|
||
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
|
||
|
|
Result := FIntf;
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor TADsSecurityUtility.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TADsSecurityUtility.Destroy;
|
||
|
|
begin
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADsSecurityUtility.Get_SecurityMask: Integer;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.SecurityMask;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADsSecurityUtility.Set_SecurityMask(retval: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.SecurityMask := retval;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADsSecurityUtility.GetSecurityDescriptor(varPath: OleVariant; lPathFormat: Integer;
|
||
|
|
lFormat: Integer): OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.GetSecurityDescriptor(varPath, lPathFormat, lFormat);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TADsSecurityUtility.SetSecurityDescriptor(varPath: OleVariant; lPathFormat: Integer;
|
||
|
|
varData: OleVariant; lDataFormat: Integer);
|
||
|
|
begin
|
||
|
|
DefaultInterface.SetSecurityDescriptor(varPath, lPathFormat, varData, lDataFormat);
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TADsSecurityUtility.ConvertSecurityDescriptor(varSD: OleVariant; lDataFormat: Integer;
|
||
|
|
lOutFormat: Integer): OleVariant;
|
||
|
|
begin
|
||
|
|
Result := DefaultInterface.ConvertSecurityDescriptor(varSD, lDataFormat, lOutFormat);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Register;
|
||
|
|
begin
|
||
|
|
RegisterComponents(dtlServerPage, [TPropertyEntry, TPropertyValue, TAccessControlEntry, TAccessControlList,
|
||
|
|
TSecurityDescriptor, TLargeInteger, TNameTranslate, TCaseIgnoreList, TFaxNumber,
|
||
|
|
TNetAddress, TOctetList, TEmail, TPath, TReplicaPointer,
|
||
|
|
TTimestamp, TPostalAddress, TBackLink, TTypedName, THold,
|
||
|
|
TPathname, TADSystemInfo, TWinNTSystemInfo, TDNWithBinary, TDNWithString,
|
||
|
|
TADsSecurityUtility]);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|