1
// $Id: jwaadstlb.pas,v 1.1 2005/04/04 07:56:10 marco Exp $
5
// ************************************************************************ //
8
// The types declared in this file were generated from data read from a
9
// Type Library. If this type library is explicitly or indirectly (via
10
// another type library referring to this type library) re-imported, or the
11
// 'Refresh' command of the Type Library Editor activated while editing the
12
// Type Library, the contents of this file will be regenerated and all
13
// manual modifications will be lost.
14
// ************************************************************************ //
16
// (rom) deactivated CVS string
17
// PASTLWTR : Revision: 1.88.1.0.1.0
18
// File generated on 9/25/2000 11:37:09 AM from Type Library described below.
20
// *************************************************************************//
22
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
23
// which return objects that may need to be explicitly created via a function
24
// call prior to any access via the property. These items have been disabled
25
// in order to prevent accidental use from within the object inspector. You
26
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
27
// removing them from the $IFDEF blocks. However, such items must still be
28
// programmatically created via a method of the appropriate CoClass before
30
// ************************************************************************ //
31
// Type Lib: C:\WINNT\system32\activeds.tlb (1)
32
// IID\LCID: {97D25DB0-0363-11CF-ABC4-02608C9E7553}\0
35
// (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
36
// (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
38
// Hint: Member 'String' of '_ADS_CASEIGNORE_LIST' changed to 'String_'
39
// Hint: Member 'Type' of '__MIDL___MIDL_itf_ads_0000_0005' changed to 'Type_'
40
// Hint: Member 'Type' of '__MIDL___MIDL_itf_ads_0000_0014' changed to 'Type_'
41
// Hint: Member 'Class' of 'IADs' changed to 'Class_'
42
// Hint: Member 'Set' of 'IADsNameTranslate' changed to 'Set_'
43
// Hint: Member 'Type' of 'IADsEmail' changed to 'Type_'
44
// Hint: Member 'Type' of 'IADsPath' changed to 'Type_'
45
// Hint: Member 'Set' of 'IADsPathname' changed to 'Set_'
46
// Error creating palette bitmap of (TPropertyEntry) : Server activeds.dll contains no icons
47
// Error creating palette bitmap of (TPropertyValue) : Server activeds.dll contains no icons
48
// Error creating palette bitmap of (TAccessControlEntry) : Server activeds.dll contains no icons
49
// Error creating palette bitmap of (TAccessControlList) : Server activeds.dll contains no icons
50
// Error creating palette bitmap of (TSecurityDescriptor) : Server activeds.dll contains no icons
51
// Error creating palette bitmap of (TLargeInteger) : Server activeds.dll contains no icons
52
// Error creating palette bitmap of (TNameTranslate) : Server activeds.dll contains no icons
53
// Error creating palette bitmap of (TCaseIgnoreList) : Server activeds.dll contains no icons
54
// Error creating palette bitmap of (TFaxNumber) : Server activeds.dll contains no icons
55
// Error creating palette bitmap of (TNetAddress) : Server activeds.dll contains no icons
56
// Error creating palette bitmap of (TOctetList) : Server activeds.dll contains no icons
57
// Error creating palette bitmap of (TEmail) : Server activeds.dll contains no icons
58
// Error creating palette bitmap of (TPath) : Server activeds.dll contains no icons
59
// Error creating palette bitmap of (TReplicaPointer) : Server activeds.dll contains no icons
60
// Error creating palette bitmap of (TAcl) : Server activeds.dll contains no icons
61
// Error creating palette bitmap of (TTimestamp) : Server activeds.dll contains no icons
62
// Error creating palette bitmap of (TPostalAddress) : Server activeds.dll contains no icons
63
// Error creating palette bitmap of (TBackLink) : Server activeds.dll contains no icons
64
// Error creating palette bitmap of (TTypedName) : Server activeds.dll contains no icons
65
// Error creating palette bitmap of (THold) : Server activeds.dll contains no icons
66
// Error creating palette bitmap of (TPathname) : Server activeds.dll contains no icons
67
// Error creating palette bitmap of (TADSystemInfo) : Server activeds.dll contains no icons
68
// Error creating palette bitmap of (TWinNTSystemInfo) : Server activeds.dll contains no icons
69
// Error creating palette bitmap of (TDNWithBinary) : Server activeds.dll contains no icons
70
// Error creating palette bitmap of (TDNWithString) : Server activeds.dll contains no icons
71
// ************************************************************************ //
72
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
77
Windows, ActiveX, Classes {$IFNDEF NOVCL} ,Graphics, OleServer, OleCtrls, StdVCL {$ENDIF} ;
81
// Temporary dummies to get FPC working.
85
EventIID: String; // probably TGUID too
92
TOleServer = Class(TComponent) // for registercomponents to work
94
ServerData : ^TServerData;
96
function GetServer:IUnknown;
97
procedure InitServerData; virtual;
98
constructor Create(AOwner: TComponent); virtual;
99
Procedure Connect; virtual;
100
procedure Disconnect; virtual;
104
SysUINT = Windows.UINT;
105
SysINT = Windows.WINT;
108
// *********************************************************************//
109
// GUIDS declared in the TypeLibrary. Following prefixes are used:
110
// Type Libraries : LIBID_xxxx
111
// CoClasses : CLASS_xxxx
112
// DISPInterfaces : DIID_xxxx
113
// Non-DISP interfaces: IID_xxxx
114
// *********************************************************************//
117
// TypeLibrary Major and minor versions
118
ActiveDsMajorVersion = 1;
119
ActiveDsMinorVersion = 0;
121
LIBID_ActiveDs: TGUID = '{97D25DB0-0363-11CF-ABC4-02608C9E7553}';
123
IID_IADs: TGUID = '{FD8256D0-FD15-11CE-ABC4-02608C9E7553}';
124
IID_IADsContainer: TGUID = '{001677D0-FD16-11CE-ABC4-02608C9E7553}';
125
IID_IADsCollection: TGUID = '{72B945E0-253B-11CF-A988-00AA006BC149}';
126
IID_IADsMembers: TGUID = '{451A0030-72EC-11CF-B03B-00AA006E0975}';
127
IID_IADsPropertyList: TGUID = '{C6F602B6-8F69-11D0-8528-00C04FD8D503}';
128
IID_IADsPropertyEntry: TGUID = '{05792C8E-941F-11D0-8529-00C04FD8D503}';
129
CLASS_PropertyEntry: TGUID = '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
130
IID_IADsPropertyValue: TGUID = '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
131
IID_IADsPropertyValue2: TGUID = '{306E831C-5BC7-11D1-A3B8-00C04FB950DC}';
132
CLASS_PropertyValue: TGUID = '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
133
IID_IPrivateDispatch: TGUID = '{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}';
134
IID_ITypeInfo: TGUID = '{00020401-0000-0000-C000-000000000046}';
135
IID_ITypeComp: TGUID = '{00020403-0000-0000-C000-000000000046}';
136
IID_ITypeLib: TGUID = '{00020402-0000-0000-C000-000000000046}';
137
IID_IPrivateUnknown: TGUID = '{89126BAB-6EAD-11D1-8C18-00C04FD8D503}';
138
IID_IADsExtension: TGUID = '{3D35553C-D2B0-11D1-B17B-0000F87593A0}';
139
IID_IADsDeleteOps: TGUID = '{B2BD0902-8878-11D1-8C21-00C04FD8D503}';
140
IID_IADsNamespaces: TGUID = '{28B96BA0-B330-11CF-A9AD-00AA006BC149}';
141
IID_IADsClass: TGUID = '{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}';
142
IID_IADsProperty: TGUID = '{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}';
143
IID_IADsSyntax: TGUID = '{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}';
144
IID_IADsLocality: TGUID = '{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}';
145
IID_IADsO: TGUID = '{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}';
146
IID_IADsOU: TGUID = '{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}';
147
IID_IADsDomain: TGUID = '{00E4C220-FD16-11CE-ABC4-02608C9E7553}';
148
IID_IADsComputer: TGUID = '{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}';
149
IID_IADsComputerOperations: TGUID = '{EF497680-1D9F-11CF-B1F3-02608C9E7553}';
150
IID_IADsGroup: TGUID = '{27636B00-410F-11CF-B1FF-02608C9E7553}';
151
IID_IADsUser: TGUID = '{3E37E320-17E2-11CF-ABC4-02608C9E7553}';
152
IID_IADsPrintQueue: TGUID = '{B15160D0-1226-11CF-A985-00AA006BC149}';
153
IID_IADsPrintQueueOperations: TGUID = '{124BE5C0-156E-11CF-A986-00AA006BC149}';
154
IID_IADsPrintJob: TGUID = '{32FB6780-1ED0-11CF-A988-00AA006BC149}';
155
IID_IADsPrintJobOperations: TGUID = '{9A52DB30-1ECF-11CF-A988-00AA006BC149}';
156
IID_IADsService: TGUID = '{68AF66E0-31CA-11CF-A98A-00AA006BC149}';
157
IID_IADsServiceOperations: TGUID = '{5D7B33F0-31CA-11CF-A98A-00AA006BC149}';
158
IID_IADsFileService: TGUID = '{A89D1900-31CA-11CF-A98A-00AA006BC149}';
159
IID_IADsFileServiceOperations: TGUID = '{A02DED10-31CA-11CF-A98A-00AA006BC149}';
160
IID_IADsFileShare: TGUID = '{EB6DCAF0-4B83-11CF-A995-00AA006BC149}';
161
IID_IADsSession: TGUID = '{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}';
162
IID_IADsResource: TGUID = '{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}';
163
IID_IADsOpenDSObject: TGUID = '{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}';
164
IID_IDirectoryObject: TGUID = '{E798DE2C-22E4-11D0-84FE-00C04FD8D503}';
165
IID_IDirectorySearch: TGUID = '{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}';
166
IID_IDirectorySchemaMgmt: TGUID = '{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}';
167
IID_IADsAggregatee: TGUID = '{1346CE8C-9039-11D0-8528-00C04FD8D503}';
168
IID_IADsAggregator: TGUID = '{52DB5FB0-941F-11D0-8529-00C04FD8D503}';
169
IID_IADsAccessControlEntry: TGUID = '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
170
CLASS_AccessControlEntry: TGUID = '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
171
IID_IADsAccessControlList: TGUID = '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
172
CLASS_AccessControlList: TGUID = '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
173
IID_IADsSecurityDescriptor: TGUID = '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
174
CLASS_SecurityDescriptor: TGUID = '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
175
IID_IADsLargeInteger: TGUID = '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
176
CLASS_LargeInteger: TGUID = '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
177
IID_IADsNameTranslate: TGUID = '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
178
CLASS_NameTranslate: TGUID = '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
179
IID_IADsCaseIgnoreList: TGUID = '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
180
CLASS_CaseIgnoreList: TGUID = '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
181
IID_IADsFaxNumber: TGUID = '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
182
CLASS_FaxNumber: TGUID = '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
183
IID_IADsNetAddress: TGUID = '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
184
CLASS_NetAddress: TGUID = '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
185
IID_IADsOctetList: TGUID = '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
186
CLASS_OctetList: TGUID = '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
187
IID_IADsEmail: TGUID = '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
188
CLASS_Email: TGUID = '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
189
IID_IADsPath: TGUID = '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
190
CLASS_Path: TGUID = '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
191
IID_IADsReplicaPointer: TGUID = '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
192
CLASS_ReplicaPointer: TGUID = '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
193
IID_IADsAcl: TGUID = '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
194
CLASS_Acl: TGUID = '{7AF1EFB6-0869-11D1-A377-00C04FB950DC}';
195
IID_IADsTimestamp: TGUID = '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
196
CLASS_Timestamp: TGUID = '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
197
IID_IADsPostalAddress: TGUID = '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
198
CLASS_PostalAddress: TGUID = '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
199
IID_IADsBackLink: TGUID = '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
200
CLASS_BackLink: TGUID = '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
201
IID_IADsTypedName: TGUID = '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
202
CLASS_TypedName: TGUID = '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
203
IID_IADsHold: TGUID = '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
204
CLASS_Hold: TGUID = '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
205
IID_IADsObjectOptions: TGUID = '{46F14FDA-232B-11D1-A808-00C04FD8D5A8}';
206
IID_IADsPathname: TGUID = '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
207
CLASS_Pathname: TGUID = '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
208
IID_IADsADSystemInfo: TGUID = '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
209
CLASS_ADSystemInfo: TGUID = '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
210
IID_IADsWinNTSystemInfo: TGUID = '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
211
CLASS_WinNTSystemInfo: TGUID = '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
212
IID_IADsDNWithBinary: TGUID = '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
213
CLASS_DNWithBinary: TGUID = '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
214
IID_IADsDNWithString: TGUID = '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
215
CLASS_DNWithString: TGUID = '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
217
// *********************************************************************//
218
// Declaration of Enumerations defined in Type Library
219
// *********************************************************************//
220
// Constants for enum __MIDL___MIDL_itf_ads_0000_0001
222
__MIDL___MIDL_itf_ads_0000_0001 = TOleEnum;
224
ADSTYPE_INVALID = $00000000;
225
ADSTYPE_DN_STRING = $00000001;
226
ADSTYPE_CASE_EXACT_STRING = $00000002;
227
ADSTYPE_CASE_IGNORE_STRING = $00000003;
228
ADSTYPE_PRINTABLE_STRING = $00000004;
229
ADSTYPE_NUMERIC_STRING = $00000005;
230
ADSTYPE_BOOLEAN = $00000006;
231
ADSTYPE_INTEGER = $00000007;
232
ADSTYPE_OCTET_STRING = $00000008;
233
ADSTYPE_UTC_TIME = $00000009;
234
ADSTYPE_LARGE_INTEGER = $0000000A;
235
ADSTYPE_PROV_SPECIFIC = $0000000B;
236
ADSTYPE_OBJECT_CLASS = $0000000C;
237
ADSTYPE_CASEIGNORE_LIST = $0000000D;
238
ADSTYPE_OCTET_LIST = $0000000E;
239
ADSTYPE_PATH = $0000000F;
240
ADSTYPE_POSTALADDRESS = $00000010;
241
ADSTYPE_TIMESTAMP = $00000011;
242
ADSTYPE_BACKLINK = $00000012;
243
ADSTYPE_TYPEDNAME = $00000013;
244
ADSTYPE_HOLD = $00000014;
245
ADSTYPE_NETADDRESS = $00000015;
246
ADSTYPE_REPLICAPOINTER = $00000016;
247
ADSTYPE_FAXNUMBER = $00000017;
248
ADSTYPE_EMAIL = $00000018;
249
ADSTYPE_NT_SECURITY_DESCRIPTOR = $00000019;
250
ADSTYPE_UNKNOWN = $0000001A;
251
ADSTYPE_DN_WITH_BINARY = $0000001B;
252
ADSTYPE_DN_WITH_STRING = $0000001C;
254
// Constants for enum __MIDL___MIDL_itf_ads_0000_0018
256
__MIDL___MIDL_itf_ads_0000_0018 = TOleEnum;
258
ADS_SECURE_AUTHENTICATION = $00000001;
259
ADS_USE_ENCRYPTION = $00000002;
260
ADS_USE_SSL = $00000002;
261
ADS_READONLY_SERVER = $00000004;
262
ADS_PROMPT_CREDENTIALS = $00000008;
263
ADS_NO_AUTHENTICATION = $00000010;
264
ADS_FAST_BIND = $00000020;
265
ADS_USE_SIGNING = $00000040;
266
ADS_USE_SEALING = $00000080;
267
ADS_USE_DELEGATION = $00000100;
268
ADS_AUTH_RESERVED = $80000000;
270
// Constants for enum __MIDL___MIDL_itf_ads_0000_0019
272
__MIDL___MIDL_itf_ads_0000_0019 = TOleEnum;
274
ADS_STATUS_S_OK = $00000000;
275
ADS_STATUS_INVALID_SEARCHPREF = $00000001;
276
ADS_STATUS_INVALID_SEARCHPREFVALUE = $00000002;
278
// Constants for enum __MIDL___MIDL_itf_ads_0000_0020
280
__MIDL___MIDL_itf_ads_0000_0020 = TOleEnum;
282
ADS_DEREF_NEVER = $00000000;
283
ADS_DEREF_SEARCHING = $00000001;
284
ADS_DEREF_FINDING = $00000002;
285
ADS_DEREF_ALWAYS = $00000003;
287
// Constants for enum __MIDL___MIDL_itf_ads_0000_0021
289
__MIDL___MIDL_itf_ads_0000_0021 = TOleEnum;
291
ADS_SCOPE_BASE = $00000000;
292
ADS_SCOPE_ONELEVEL = $00000001;
293
ADS_SCOPE_SUBTREE = $00000002;
295
// Constants for enum __MIDL___MIDL_itf_ads_0000_0022
297
__MIDL___MIDL_itf_ads_0000_0022 = TOleEnum;
299
ADSIPROP_ASYNCHRONOUS = $00000000;
300
ADSIPROP_DEREF_ALIASES = $00000001;
301
ADSIPROP_SIZE_LIMIT = $00000002;
302
ADSIPROP_TIME_LIMIT = $00000003;
303
ADSIPROP_ATTRIBTYPES_ONLY = $00000004;
304
ADSIPROP_SEARCH_SCOPE = $00000005;
305
ADSIPROP_TIMEOUT = $00000006;
306
ADSIPROP_PAGESIZE = $00000007;
307
ADSIPROP_PAGED_TIME_LIMIT = $00000008;
308
ADSIPROP_CHASE_REFERRALS = $00000009;
309
ADSIPROP_SORT_ON = $0000000A;
310
ADSIPROP_CACHE_RESULTS = $0000000B;
311
ADSIPROP_ADSIFLAG = $0000000C;
313
// Constants for enum __MIDL___MIDL_itf_ads_0000_0023
315
__MIDL___MIDL_itf_ads_0000_0023 = TOleEnum;
317
ADSI_DIALECT_LDAP = $00000000;
318
ADSI_DIALECT_SQL = $00000001;
320
// Constants for enum __MIDL___MIDL_itf_ads_0000_0024
322
__MIDL___MIDL_itf_ads_0000_0024 = TOleEnum;
324
ADS_CHASE_REFERRALS_NEVER = $00000000;
325
ADS_CHASE_REFERRALS_SUBORDINATE = $00000020;
326
ADS_CHASE_REFERRALS_EXTERNAL = $00000040;
327
ADS_CHASE_REFERRALS_ALWAYS = $00000060;
329
// Constants for enum __MIDL___MIDL_itf_ads_0000_0025
331
__MIDL___MIDL_itf_ads_0000_0025 = TOleEnum;
333
ADS_SEARCHPREF_ASYNCHRONOUS = $00000000;
334
ADS_SEARCHPREF_DEREF_ALIASES = $00000001;
335
ADS_SEARCHPREF_SIZE_LIMIT = $00000002;
336
ADS_SEARCHPREF_TIME_LIMIT = $00000003;
337
ADS_SEARCHPREF_ATTRIBTYPES_ONLY = $00000004;
338
ADS_SEARCHPREF_SEARCH_SCOPE = $00000005;
339
ADS_SEARCHPREF_TIMEOUT = $00000006;
340
ADS_SEARCHPREF_PAGESIZE = $00000007;
341
ADS_SEARCHPREF_PAGED_TIME_LIMIT = $00000008;
342
ADS_SEARCHPREF_CHASE_REFERRALS = $00000009;
343
ADS_SEARCHPREF_SORT_ON = $0000000A;
344
ADS_SEARCHPREF_CACHE_RESULTS = $0000000B;
345
ADS_SEARCHPREF_DIRSYNC = $0000000C;
346
ADS_SEARCHPREF_TOMBSTONE = $0000000D;
348
// Constants for enum __MIDL___MIDL_itf_ads_0000_0026
350
__MIDL___MIDL_itf_ads_0000_0026 = TOleEnum;
352
ADS_PROPERTY_CLEAR = $00000001;
353
ADS_PROPERTY_UPDATE = $00000002;
354
ADS_PROPERTY_APPEND = $00000003;
355
ADS_PROPERTY_DELETE = $00000004;
357
// Constants for enum tagTYPEKIND
359
tagTYPEKIND = TOleEnum;
361
TKIND_ENUM = $00000000;
362
TKIND_RECORD = $00000001;
363
TKIND_MODULE = $00000002;
364
TKIND_INTERFACE = $00000003;
365
TKIND_DISPATCH = $00000004;
366
TKIND_COCLASS = $00000005;
367
TKIND_ALIAS = $00000006;
368
TKIND_UNION = $00000007;
369
TKIND_MAX = $00000008;
371
// Constants for enum tagDESCKIND
373
tagDESCKIND = TOleEnum;
375
DESCKIND_NONE = $00000000;
376
DESCKIND_FUNCDESC = $00000001;
377
DESCKIND_VARDESC = $00000002;
378
DESCKIND_TYPECOMP = $00000003;
379
DESCKIND_IMPLICITAPPOBJ = $00000004;
380
DESCKIND_MAX = $00000005;
382
// Constants for enum tagFUNCKIND
384
tagFUNCKIND = TOleEnum;
386
FUNC_VIRTUAL = $00000000;
387
FUNC_PUREVIRTUAL = $00000001;
388
FUNC_NONVIRTUAL = $00000002;
389
FUNC_STATIC = $00000003;
390
FUNC_DISPATCH = $00000004;
392
// Constants for enum tagINVOKEKIND
394
tagINVOKEKIND = TOleEnum;
396
INVOKE_FUNC = $00000001;
397
INVOKE_PROPERTYGET = $00000002;
398
INVOKE_PROPERTYPUT = $00000004;
399
INVOKE_PROPERTYPUTREF = $00000008;
401
// Constants for enum tagCALLCONV
403
tagCALLCONV = TOleEnum;
405
CC_FASTCALL = $00000000;
406
CC_CDECL = $00000001;
407
CC_MSCPASCAL = $00000002;
408
CC_PASCAL = $00000002;
409
CC_MACPASCAL = $00000003;
410
CC_STDCALL = $00000004;
411
CC_FPFASTCALL = $00000005;
412
CC_SYSCALL = $00000006;
413
CC_MPWCDECL = $00000007;
414
CC_MPWPASCAL = $00000008;
417
// Constants for enum tagVARKIND
419
tagVARKIND = TOleEnum;
421
VAR_PERINSTANCE = $00000000;
422
VAR_STATIC = $00000001;
423
VAR_CONST = $00000002;
424
VAR_DISPATCH = $00000003;
426
// Constants for enum tagSYSKIND
428
tagSYSKIND = TOleEnum;
430
SYS_WIN16 = $00000000;
431
SYS_WIN32 = $00000001;
433
SYS_WIN64 = $00000001;
435
// Constants for enum __MIDL___MIDL_itf_ads_0120_0001
437
__MIDL___MIDL_itf_ads_0120_0001 = TOleEnum;
439
ADS_SYSTEMFLAG_DISALLOW_DELETE = $80000000;
440
ADS_SYSTEMFLAG_CONFIG_ALLOW_RENAME = $40000000;
441
ADS_SYSTEMFLAG_CONFIG_ALLOW_MOVE = $20000000;
442
ADS_SYSTEMFLAG_CONFIG_ALLOW_LIMITED_MOVE = $10000000;
443
ADS_SYSTEMFLAG_DOMAIN_DISALLOW_RENAME = $08000000;
444
ADS_SYSTEMFLAG_DOMAIN_DISALLOW_MOVE = $04000000;
445
ADS_SYSTEMFLAG_CR_NTDS_NC = $00000001;
446
ADS_SYSTEMFLAG_CR_NTDS_DOMAIN = $00000002;
447
ADS_SYSTEMFLAG_ATTR_NOT_REPLICATED = $00000001;
448
ADS_SYSTEMFLAG_ATTR_IS_CONSTRUCTED = $00000004;
450
// Constants for enum __MIDL___MIDL_itf_ads_0126_0001
452
__MIDL___MIDL_itf_ads_0126_0001 = TOleEnum;
454
ADS_GROUP_TYPE_GLOBAL_GROUP = $00000002;
455
ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = $00000004;
456
ADS_GROUP_TYPE_LOCAL_GROUP = $00000004;
457
ADS_GROUP_TYPE_UNIVERSAL_GROUP = $00000008;
458
ADS_GROUP_TYPE_SECURITY_ENABLED = $80000000;
460
// Constants for enum ADS_USER_FLAG
462
ADS_USER_FLAG = TOleEnum;
464
ADS_UF_SCRIPT = $00000001;
465
ADS_UF_ACCOUNTDISABLE = $00000002;
466
ADS_UF_HOMEDIR_REQUIRED = $00000008;
467
ADS_UF_LOCKOUT = $00000010;
468
ADS_UF_PASSWD_NOTREQD = $00000020;
469
ADS_UF_PASSWD_CANT_CHANGE = $00000040;
470
ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = $00000080;
471
ADS_UF_TEMP_DUPLICATE_ACCOUNT = $00000100;
472
ADS_UF_NORMAL_ACCOUNT = $00000200;
473
ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = $00000800;
474
ADS_UF_WORKSTATION_TRUST_ACCOUNT = $00001000;
475
ADS_UF_SERVER_TRUST_ACCOUNT = $00002000;
476
ADS_UF_DONT_EXPIRE_PASSWD = $00010000;
477
ADS_UF_MNS_LOGON_ACCOUNT = $00020000;
478
ADS_UF_SMARTCARD_REQUIRED = $00040000;
479
ADS_UF_TRUSTED_FOR_DELEGATION = $00080000;
480
ADS_UF_NOT_DELEGATED = $00100000;
482
// Constants for enum __MIDL___MIDL_itf_ads_0148_0001
484
__MIDL___MIDL_itf_ads_0148_0001 = TOleEnum;
486
ADS_RIGHT_DELETE = $00010000;
487
ADS_RIGHT_READ_CONTROL = $00020000;
488
ADS_RIGHT_WRITE_DAC = $00040000;
489
ADS_RIGHT_WRITE_OWNER = $00080000;
490
ADS_RIGHT_SYNCHRONIZE = $00100000;
491
ADS_RIGHT_ACCESS_SYSTEM_SECURITY = $01000000;
492
ADS_RIGHT_GENERIC_READ = $80000000;
493
ADS_RIGHT_GENERIC_WRITE = $40000000;
494
ADS_RIGHT_GENERIC_EXECUTE = $20000000;
495
ADS_RIGHT_GENERIC_ALL = $10000000;
496
ADS_RIGHT_DS_CREATE_CHILD = $00000001;
497
ADS_RIGHT_DS_DELETE_CHILD = $00000002;
498
ADS_RIGHT_ACTRL_DS_LIST = $00000004;
499
ADS_RIGHT_DS_SELF = $00000008;
500
ADS_RIGHT_DS_READ_PROP = $00000010;
501
ADS_RIGHT_DS_WRITE_PROP = $00000020;
502
ADS_RIGHT_DS_DELETE_TREE = $00000040;
503
ADS_RIGHT_DS_LIST_OBJECT = $00000080;
504
ADS_RIGHT_DS_CONTROL_ACCESS = $00000100;
506
// Constants for enum __MIDL___MIDL_itf_ads_0148_0002
508
__MIDL___MIDL_itf_ads_0148_0002 = TOleEnum;
510
ADS_ACETYPE_ACCESS_ALLOWED = $00000000;
511
ADS_ACETYPE_ACCESS_DENIED = $00000001;
512
ADS_ACETYPE_SYSTEM_AUDIT = $00000002;
513
ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = $00000005;
514
ADS_ACETYPE_ACCESS_DENIED_OBJECT = $00000006;
515
ADS_ACETYPE_SYSTEM_AUDIT_OBJECT = $00000007;
517
// Constants for enum __MIDL___MIDL_itf_ads_0148_0003
519
__MIDL___MIDL_itf_ads_0148_0003 = TOleEnum;
521
ADS_ACEFLAG_INHERIT_ACE = $00000002;
522
ADS_ACEFLAG_NO_PROPAGATE_INHERIT_ACE = $00000004;
523
ADS_ACEFLAG_INHERIT_ONLY_ACE = $00000008;
524
ADS_ACEFLAG_INHERITED_ACE = $00000010;
525
ADS_ACEFLAG_VALID_INHERIT_FLAGS = $0000001F;
526
ADS_ACEFLAG_SUCCESSFUL_ACCESS = $00000040;
527
ADS_ACEFLAG_FAILED_ACCESS = $00000080;
529
// Constants for enum __MIDL___MIDL_itf_ads_0148_0004
531
__MIDL___MIDL_itf_ads_0148_0004 = TOleEnum;
533
ADS_FLAG_OBJECT_TYPE_PRESENT = $00000001;
534
ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = $00000002;
536
// Constants for enum __MIDL___MIDL_itf_ads_0148_0005
538
__MIDL___MIDL_itf_ads_0148_0005 = TOleEnum;
540
ADS_SD_CONTROL_SE_OWNER_DEFAULTED = $00000001;
541
ADS_SD_CONTROL_SE_GROUP_DEFAULTED = $00000002;
542
ADS_SD_CONTROL_SE_DACL_PRESENT = $00000004;
543
ADS_SD_CONTROL_SE_DACL_DEFAULTED = $00000008;
544
ADS_SD_CONTROL_SE_SACL_PRESENT = $00000010;
545
ADS_SD_CONTROL_SE_SACL_DEFAULTED = $00000020;
546
ADS_SD_CONTROL_SE_DACL_AUTO_INHERIT_REQ = $00000100;
547
ADS_SD_CONTROL_SE_SACL_AUTO_INHERIT_REQ = $00000200;
548
ADS_SD_CONTROL_SE_DACL_AUTO_INHERITED = $00000400;
549
ADS_SD_CONTROL_SE_SACL_AUTO_INHERITED = $00000800;
550
ADS_SD_CONTROL_SE_DACL_PROTECTED = $00001000;
551
ADS_SD_CONTROL_SE_SACL_PROTECTED = $00002000;
552
ADS_SD_CONTROL_SE_SELF_RELATIVE = $00008000;
554
// Constants for enum __MIDL___MIDL_itf_ads_0148_0006
556
__MIDL___MIDL_itf_ads_0148_0006 = TOleEnum;
558
ADS_SD_REVISION_DS = $00000004;
560
// Constants for enum __MIDL___MIDL_itf_ads_0149_0001
562
__MIDL___MIDL_itf_ads_0149_0001 = TOleEnum;
564
ADS_NAME_TYPE_1779 = $00000001;
565
ADS_NAME_TYPE_CANONICAL = $00000002;
566
ADS_NAME_TYPE_NT4 = $00000003;
567
ADS_NAME_TYPE_DISPLAY = $00000004;
568
ADS_NAME_TYPE_DOMAIN_SIMPLE = $00000005;
569
ADS_NAME_TYPE_ENTERPRISE_SIMPLE = $00000006;
570
ADS_NAME_TYPE_GUID = $00000007;
571
ADS_NAME_TYPE_UNKNOWN = $00000008;
572
ADS_NAME_TYPE_USER_PRINCIPAL_NAME = $00000009;
573
ADS_NAME_TYPE_CANONICAL_EX = $0000000A;
574
ADS_NAME_TYPE_SERVICE_PRINCIPAL_NAME = $0000000B;
575
ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME = $0000000C;
577
// Constants for enum __MIDL___MIDL_itf_ads_0149_0002
579
__MIDL___MIDL_itf_ads_0149_0002 = TOleEnum;
581
ADS_NAME_INITTYPE_DOMAIN = $00000001;
582
ADS_NAME_INITTYPE_SERVER = $00000002;
583
ADS_NAME_INITTYPE_GC = $00000003;
585
// Constants for enum __MIDL___MIDL_itf_ads_0163_0001
587
__MIDL___MIDL_itf_ads_0163_0001 = TOleEnum;
589
ADS_OPTION_SERVERNAME = $00000000;
590
ADS_OPTION_REFERRALS = $00000001;
591
ADS_OPTION_PAGE_SIZE = $00000002;
592
ADS_OPTION_SECURITY_MASK = $00000003;
593
ADS_OPTION_MUTUAL_AUTH_STATUS = $00000004;
595
// Constants for enum __MIDL___MIDL_itf_ads_0163_0002
597
__MIDL___MIDL_itf_ads_0163_0002 = TOleEnum;
599
ADS_SECURITY_INFO_OWNER = $00000001;
600
ADS_SECURITY_INFO_GROUP = $00000002;
601
ADS_SECURITY_INFO_DACL = $00000004;
602
ADS_SECURITY_INFO_SACL = $00000008;
604
// Constants for enum __MIDL___MIDL_itf_ads_0164_0001
606
__MIDL___MIDL_itf_ads_0164_0001 = TOleEnum;
608
ADS_SETTYPE_FULL = $00000001;
609
ADS_SETTYPE_PROVIDER = $00000002;
610
ADS_SETTYPE_SERVER = $00000003;
611
ADS_SETTYPE_DN = $00000004;
613
// Constants for enum __MIDL___MIDL_itf_ads_0164_0002
615
__MIDL___MIDL_itf_ads_0164_0002 = TOleEnum;
617
ADS_FORMAT_WINDOWS = $00000001;
618
ADS_FORMAT_WINDOWS_NO_SERVER = $00000002;
619
ADS_FORMAT_WINDOWS_DN = $00000003;
620
ADS_FORMAT_WINDOWS_PARENT = $00000004;
621
ADS_FORMAT_X500 = $00000005;
622
ADS_FORMAT_X500_NO_SERVER = $00000006;
623
ADS_FORMAT_X500_DN = $00000007;
624
ADS_FORMAT_X500_PARENT = $00000008;
625
ADS_FORMAT_SERVER = $00000009;
626
ADS_FORMAT_PROVIDER = $0000000A;
627
ADS_FORMAT_LEAF = $0000000B;
629
// Constants for enum __MIDL___MIDL_itf_ads_0164_0003
631
__MIDL___MIDL_itf_ads_0164_0003 = TOleEnum;
633
ADS_DISPLAY_FULL = $00000001;
634
ADS_DISPLAY_VALUE_ONLY = $00000002;
636
// Constants for enum __MIDL___MIDL_itf_ads_0164_0004
638
__MIDL___MIDL_itf_ads_0164_0004 = TOleEnum;
640
ADS_ESCAPEDMODE_DEFAULT = $00000001;
641
ADS_ESCAPEDMODE_ON = $00000002;
642
ADS_ESCAPEDMODE_OFF = $00000003;
643
ADS_ESCAPEDMODE_OFF_EX = $00000004;
647
// *********************************************************************//
648
// Forward declaration of types defined in TypeLibrary
649
// *********************************************************************//
651
{$ifdef SUPPORTS_DISPINTERFACE}
652
IADsDisp = dispinterface;
654
IADsContainer = interface;
655
{$ifdef SUPPORTS_DISPINTERFACE}
656
IADsContainerDisp = dispinterface;
658
IADsCollection = interface;
659
{$ifdef SUPPORTS_DISPINTERFACE}
660
IADsCollectionDisp = dispinterface;
662
IADsMembers = interface;
663
{$ifdef SUPPORTS_DISPINTERFACE}
664
IADsMembersDisp = dispinterface;
666
IADsPropertyList = interface;
667
{$ifdef SUPPORTS_DISPINTERFACE}
668
IADsPropertyListDisp = dispinterface;
670
IADsPropertyEntry = interface;
671
{$ifdef SUPPORTS_DISPINTERFACE}
672
IADsPropertyEntryDisp = dispinterface;
674
IADsPropertyValue = interface;
675
{$ifdef SUPPORTS_DISPINTERFACE}
676
IADsPropertyValueDisp = dispinterface;
678
IADsPropertyValue2 = interface;
679
{$ifdef SUPPORTS_DISPINTERFACE}
680
IADsPropertyValue2Disp = dispinterface;
682
IPrivateDispatch = interface;
683
ITypeInfo = interface;
684
ITypeComp = interface;
685
ITypeLib = interface;
686
IPrivateUnknown = interface;
687
IADsExtension = interface;
688
IADsDeleteOps = interface;
689
{$ifdef SUPPORTS_DISPINTERFACE}
690
IADsDeleteOpsDisp = dispinterface;
692
IADsNamespaces = interface;
693
{$ifdef SUPPORTS_DISPINTERFACE}
694
IADsNamespacesDisp = dispinterface;
696
IADsClass = interface;
697
{$ifdef SUPPORTS_DISPINTERFACE}
698
IADsClassDisp = dispinterface;
700
IADsProperty = interface;
701
{$ifdef SUPPORTS_DISPINTERFACE}
702
IADsPropertyDisp = dispinterface;
704
IADsSyntax = interface;
705
{$ifdef SUPPORTS_DISPINTERFACE}
706
IADsSyntaxDisp = dispinterface;
708
IADsLocality = interface;
709
{$ifdef SUPPORTS_DISPINTERFACE}
710
IADsLocalityDisp = dispinterface;
713
{$ifdef SUPPORTS_DISPINTERFACE}
714
IADsODisp = dispinterface;
717
{$ifdef SUPPORTS_DISPINTERFACE}
718
IADsOUDisp = dispinterface;
720
IADsDomain = interface;
721
{$ifdef SUPPORTS_DISPINTERFACE}
722
IADsDomainDisp = dispinterface;
724
IADsComputer = interface;
725
{$ifdef SUPPORTS_DISPINTERFACE}
726
IADsComputerDisp = dispinterface;
728
IADsComputerOperations = interface;
729
{$ifdef SUPPORTS_DISPINTERFACE}
730
IADsComputerOperationsDisp = dispinterface;
732
IADsGroup = interface;
733
{$ifdef SUPPORTS_DISPINTERFACE}
734
IADsGroupDisp = dispinterface;
736
IADsUser = interface;
737
{$ifdef SUPPORTS_DISPINTERFACE}
738
IADsUserDisp = dispinterface;
740
IADsPrintQueue = interface;
741
{$ifdef SUPPORTS_DISPINTERFACE}
742
IADsPrintQueueDisp = dispinterface;
744
IADsPrintQueueOperations = interface;
745
{$ifdef SUPPORTS_DISPINTERFACE}
746
IADsPrintQueueOperationsDisp = dispinterface;
748
IADsPrintJob = interface;
749
{$ifdef SUPPORTS_DISPINTERFACE}
750
IADsPrintJobDisp = dispinterface;
752
IADsPrintJobOperations = interface;
753
{$ifdef SUPPORTS_DISPINTERFACE}
754
IADsPrintJobOperationsDisp = dispinterface;
756
IADsService = interface;
757
{$ifdef SUPPORTS_DISPINTERFACE}
758
IADsServiceDisp = dispinterface;
760
IADsServiceOperations = interface;
761
{$ifdef SUPPORTS_DISPINTERFACE}
762
IADsServiceOperationsDisp = dispinterface;
764
IADsFileService = interface;
765
{$ifdef SUPPORTS_DISPINTERFACE}
766
IADsFileServiceDisp = dispinterface;
768
IADsFileServiceOperations = interface;
769
{$ifdef SUPPORTS_DISPINTERFACE}
770
IADsFileServiceOperationsDisp = dispinterface;
772
IADsFileShare = interface;
773
{$ifdef SUPPORTS_DISPINTERFACE}
774
IADsFileShareDisp = dispinterface;
776
IADsSession = interface;
777
{$ifdef SUPPORTS_DISPINTERFACE}
778
IADsSessionDisp = dispinterface;
780
IADsResource = interface;
781
{$ifdef SUPPORTS_DISPINTERFACE}
782
IADsResourceDisp = dispinterface;
784
IADsOpenDSObject = interface;
785
{$ifdef SUPPORTS_DISPINTERFACE}
786
IADsOpenDSObjectDisp = dispinterface;
788
IDirectoryObject = interface;
789
IDirectorySearch = interface;
790
IDirectorySchemaMgmt = interface;
791
IADsAggregatee = interface;
792
IADsAggregator = interface;
793
IADsAccessControlEntry = interface;
794
{$ifdef SUPPORTS_DISPINTERFACE}
795
IADsAccessControlEntryDisp = dispinterface;
797
IADsAccessControlList = interface;
798
{$ifdef SUPPORTS_DISPINTERFACE}
799
IADsAccessControlListDisp = dispinterface;
801
IADsSecurityDescriptor = interface;
802
{$ifdef SUPPORTS_DISPINTERFACE}
803
IADsSecurityDescriptorDisp = dispinterface;
805
IADsLargeInteger = interface;
806
{$ifdef SUPPORTS_DISPINTERFACE}
807
IADsLargeIntegerDisp = dispinterface;
809
IADsNameTranslate = interface;
810
{$ifdef SUPPORTS_DISPINTERFACE}
811
IADsNameTranslateDisp = dispinterface;
813
IADsCaseIgnoreList = interface;
814
{$ifdef SUPPORTS_DISPINTERFACE}
815
IADsCaseIgnoreListDisp = dispinterface;
817
IADsFaxNumber = interface;
818
{$ifdef SUPPORTS_DISPINTERFACE}
819
IADsFaxNumberDisp = dispinterface;
821
IADsNetAddress = interface;
822
{$ifdef SUPPORTS_DISPINTERFACE}
823
IADsNetAddressDisp = dispinterface;
825
IADsOctetList = interface;
826
{$ifdef SUPPORTS_DISPINTERFACE}
827
IADsOctetListDisp = dispinterface;
829
IADsEmail = interface;
830
{$ifdef SUPPORTS_DISPINTERFACE}
831
IADsEmailDisp = dispinterface;
833
IADsPath = interface;
834
{$ifdef SUPPORTS_DISPINTERFACE}
835
IADsPathDisp = dispinterface;
837
IADsReplicaPointer = interface;
838
{$ifdef SUPPORTS_DISPINTERFACE}
839
IADsReplicaPointerDisp = dispinterface;
842
{$ifdef SUPPORTS_DISPINTERFACE}
843
IADsAclDisp = dispinterface;
845
IADsTimestamp = interface;
846
{$ifdef SUPPORTS_DISPINTERFACE}
847
IADsTimestampDisp = dispinterface;
849
IADsPostalAddress = interface;
850
{$ifdef SUPPORTS_DISPINTERFACE}
851
IADsPostalAddressDisp = dispinterface;
853
IADsBackLink = interface;
854
{$ifdef SUPPORTS_DISPINTERFACE}
855
IADsBackLinkDisp = dispinterface;
857
IADsTypedName = interface;
858
{$ifdef SUPPORTS_DISPINTERFACE}
859
IADsTypedNameDisp = dispinterface;
861
IADsHold = interface;
862
{$ifdef SUPPORTS_DISPINTERFACE}
863
IADsHoldDisp = dispinterface;
865
IADsObjectOptions = interface;
866
{$ifdef SUPPORTS_DISPINTERFACE}
867
IADsObjectOptionsDisp = dispinterface;
869
IADsPathname = interface;
870
{$ifdef SUPPORTS_DISPINTERFACE}
871
IADsPathnameDisp = dispinterface;
873
IADsADSystemInfo = interface;
874
{$ifdef SUPPORTS_DISPINTERFACE}
875
IADsADSystemInfoDisp = dispinterface;
877
IADsWinNTSystemInfo = interface;
878
{$ifdef SUPPORTS_DISPINTERFACE}
879
IADsWinNTSystemInfoDisp = dispinterface;
881
IADsDNWithBinary = interface;
882
{$ifdef SUPPORTS_DISPINTERFACE}
883
IADsDNWithBinaryDisp = dispinterface;
885
IADsDNWithString = interface;
886
{$ifdef SUPPORTS_DISPINTERFACE}
887
IADsDNWithStringDisp = dispinterface;
890
// *********************************************************************//
891
// Declaration of CoClasses defined in Type Library
892
// (NOTE: Here we map each CoClass to its Default Interface)
893
// *********************************************************************//
894
PropertyEntry = IADsPropertyEntry;
895
PropertyValue = IADsPropertyValue;
896
AccessControlEntry = IADsAccessControlEntry;
897
AccessControlList = IADsAccessControlList;
898
SecurityDescriptor = IADsSecurityDescriptor;
899
LargeInteger = IADsLargeInteger;
900
NameTranslate = IADsNameTranslate;
901
CaseIgnoreList = IADsCaseIgnoreList;
902
FaxNumber = IADsFaxNumber;
903
NetAddress = IADsNetAddress;
904
OctetList = IADsOctetList;
907
ReplicaPointer = IADsReplicaPointer;
909
Timestamp = IADsTimestamp;
910
PostalAddress = IADsPostalAddress;
911
BackLink = IADsBackLink;
912
TypedName = IADsTypedName;
914
Pathname = IADsPathname;
915
ADSystemInfo = IADsADSystemInfo;
916
WinNTSystemInfo = IADsWinNTSystemInfo;
917
DNWithBinary = IADsDNWithBinary;
918
DNWithString = IADsDNWithString;
920
// *********************************************************************//
921
// Declaration of structures, unions and aliases.
922
// *********************************************************************//
923
PUserType1 = ^_ADS_CASEIGNORE_LIST; {*}
924
PUserType2 = ^_ADS_OCTET_LIST; {*}
925
PPWideChar1 = ^PWideChar; {*}
926
PUserType8 = ^tagTYPEDESC; {*}
927
PUserType9 = ^tagARRAYDESC; {*}
928
PUserType3 = ^TGUID; {*}
930
PPWord1 = ^PWord1; {*}
931
PUserType4 = ^TGUID; {*}
932
PUserType5 = ^tagTYPEATTR; {*}
933
PUserType6 = ^tagFUNCDESC; {*}
934
PUserType7 = ^tagVARDESC; {*}
935
PUserType10 = ^tagTLIBATTR; {*}
936
PUserType11 = ^_ads_object_info; {*}
937
PUserType12 = ^_ads_attr_info; {*}
938
PUserType13 = ^ads_searchpref_info; {*}
939
PUserType14 = ^ads_search_column; {*}
940
PUserType15 = ^_ads_attr_def; {*}
941
PPUserType1 = ^PUserType15; {*}
942
PUINT1 = ^LongWord; {*}
943
PUserType16 = ^_ads_class_def; {*}
944
PPUserType2 = ^PUserType16; {*}
946
ADSTYPEENUM = __MIDL___MIDL_itf_ads_0000_0001;
948
__MIDL___MIDL_itf_ads_0000_0002 = packed record
953
ADS_OCTET_STRING = __MIDL___MIDL_itf_ads_0000_0002;
955
__MIDL___MIDL_itf_ads_0000_0003 = packed record
960
ADS_NT_SECURITY_DESCRIPTOR = __MIDL___MIDL_itf_ads_0000_0003;
962
_SYSTEMTIME = packed record
973
_LARGE_INTEGER = packed record
977
__MIDL___MIDL_itf_ads_0000_0004 = packed record
982
ADS_PROV_SPECIFIC = __MIDL___MIDL_itf_ads_0000_0004;
984
__MIDL___MIDL_itf_ads_0000_0005 = packed record
986
VolumeName: PWideChar;
990
ADS_PATH = __MIDL___MIDL_itf_ads_0000_0005;
992
__MIDL___MIDL_itf_ads_0000_0006 = packed record
993
PostalAddress: array[0..5] of PWideChar;
996
ADS_POSTALADDRESS = __MIDL___MIDL_itf_ads_0000_0006;
998
__MIDL___MIDL_itf_ads_0000_0007 = packed record
999
WholeSeconds: LongWord;
1003
ADS_TIMESTAMP = __MIDL___MIDL_itf_ads_0000_0007;
1005
__MIDL___MIDL_itf_ads_0000_0008 = packed record
1007
ObjectName: PWideChar;
1010
ADS_BACKLINK = __MIDL___MIDL_itf_ads_0000_0008;
1012
__MIDL___MIDL_itf_ads_0000_0009 = packed record
1013
ObjectName: PWideChar;
1018
ADS_TYPEDNAME = __MIDL___MIDL_itf_ads_0000_0009;
1020
__MIDL___MIDL_itf_ads_0000_0010 = packed record
1021
ObjectName: PWideChar;
1025
ADS_HOLD = __MIDL___MIDL_itf_ads_0000_0010;
1027
__MIDL___MIDL_itf_ads_0000_0011 = packed record
1028
AddressType: LongWord;
1029
AddressLength: LongWord;
1033
ADS_NETADDRESS = __MIDL___MIDL_itf_ads_0000_0011;
1035
__MIDL___MIDL_itf_ads_0000_0012 = packed record
1036
ServerName: PWideChar;
1037
ReplicaType: LongWord;
1038
ReplicaNumber: LongWord;
1040
ReplicaAddressHints: ^__MIDL___MIDL_itf_ads_0000_0011;
1043
ADS_REPLICAPOINTER = __MIDL___MIDL_itf_ads_0000_0012;
1045
__MIDL___MIDL_itf_ads_0000_0013 = packed record
1046
TelephoneNumber: PWideChar;
1047
NumberOfBits: LongWord;
1051
ADS_FAXNUMBER = __MIDL___MIDL_itf_ads_0000_0013;
1053
__MIDL___MIDL_itf_ads_0000_0014 = packed record
1058
ADS_EMAIL = __MIDL___MIDL_itf_ads_0000_0014;
1060
__MIDL___MIDL_itf_ads_0000_0015 = packed record
1062
lpBinaryValue: ^Byte;
1063
pszDNString: PWideChar;
1066
ADS_DN_WITH_BINARY = __MIDL___MIDL_itf_ads_0000_0015;
1068
__MIDL___MIDL_itf_ads_0000_0016 = packed record
1069
pszStringValue: PWideChar;
1070
pszDNString: PWideChar;
1073
ADS_DN_WITH_STRING = __MIDL___MIDL_itf_ads_0000_0016;
1075
_ADS_CASEIGNORE_LIST = packed record
1080
_ADS_OCTET_LIST = packed record
1086
__MIDL___MIDL_itf_ads_0000_0017 = record
1088
0: (DNString: PWideChar);
1089
1: (CaseExactString: PWideChar);
1090
2: (CaseIgnoreString: PWideChar);
1091
3: (PrintableString: PWideChar);
1092
4: (NumericString: PWideChar);
1093
5: (Boolean: LongWord);
1094
6: (Integer: LongWord);
1095
7: (OctetString: ADS_OCTET_STRING);
1096
8: (UTCTime: _SYSTEMTIME);
1097
9: (LargeInteger: _LARGE_INTEGER);
1098
10: (ClassName: PWideChar);
1099
11: (ProviderSpecific: ADS_PROV_SPECIFIC);
1100
12: (pCaseIgnoreList: ^_ADS_CASEIGNORE_LIST);
1101
13: (pOctetList: ^_ADS_OCTET_LIST);
1102
14: (pPath: ^__MIDL___MIDL_itf_ads_0000_0005);
1103
15: (pPostalAddress: ^__MIDL___MIDL_itf_ads_0000_0006);
1104
16: (Timestamp: ADS_TIMESTAMP);
1105
17: (BackLink: ADS_BACKLINK);
1106
18: (pTypedName: ^__MIDL___MIDL_itf_ads_0000_0009);
1107
19: (Hold: ADS_HOLD);
1108
20: (pNetAddress: ^__MIDL___MIDL_itf_ads_0000_0011);
1109
21: (pReplicaPointer: ^__MIDL___MIDL_itf_ads_0000_0012);
1110
22: (pFaxNumber: ^__MIDL___MIDL_itf_ads_0000_0013);
1111
23: (Email: ADS_EMAIL);
1112
24: (SecurityDescriptor: ADS_NT_SECURITY_DESCRIPTOR);
1113
25: (pDNWithBinary: ^__MIDL___MIDL_itf_ads_0000_0015);
1114
26: (pDNWithString: ^__MIDL___MIDL_itf_ads_0000_0016);
1117
ADS_AUTHENTICATION_ENUM = __MIDL___MIDL_itf_ads_0000_0018;
1119
_ads_object_info = packed record
1121
pszObjectDN: PWideChar;
1122
pszParentDN: PWideChar;
1123
pszSchemaDN: PWideChar;
1124
pszClassName: PWideChar;
1127
ADS_STATUSENUM = __MIDL___MIDL_itf_ads_0000_0019;
1128
ADS_DEREFENUM = __MIDL___MIDL_itf_ads_0000_0020;
1129
ADS_SCOPEENUM = __MIDL___MIDL_itf_ads_0000_0021;
1130
ADS_PREFERENCES_ENUM = __MIDL___MIDL_itf_ads_0000_0022;
1131
ADSI_DIALECT_ENUM = __MIDL___MIDL_itf_ads_0000_0023;
1132
ADS_CHASE_REFERRALS_ENUM = __MIDL___MIDL_itf_ads_0000_0024;
1133
ADS_SEARCHPREF_ENUM = __MIDL___MIDL_itf_ads_0000_0025;
1135
_adsvalue = packed record
1136
dwType: ADSTYPEENUM;
1137
__MIDL_0010: __MIDL___MIDL_itf_ads_0000_0017;
1140
ads_search_column = packed record
1141
pszAttrName: PWideChar;
1142
dwADsType: ADSTYPEENUM;
1143
pADsValues: ^_adsvalue;
1144
dwNumValues: LongWord;
1148
_ads_attr_def = packed record
1149
pszAttrName: PWideChar;
1150
dwADsType: ADSTYPEENUM;
1151
dwMinRange: LongWord;
1152
dwMaxRange: LongWord;
1153
fMultiValued: Integer;
1156
_ads_sortkey = packed record
1157
pszAttrType: PWideChar;
1158
pszReserved: PWideChar;
1159
fReverseorder: Shortint;
1162
ADS_PROPERTY_OPERATION_ENUM = __MIDL___MIDL_itf_ads_0000_0026;
1164
__MIDL_IOleAutomationTypes_0005 = record
1166
0: (lptdesc: PUserType8);
1167
1: (lpadesc: PUserType9);
1168
2: (hreftype: LongWord);
1171
tagTYPEDESC = packed record
1172
__MIDL_0008: __MIDL_IOleAutomationTypes_0005;
1176
tagSAFEARRAYBOUND = packed record
1177
cElements: LongWord;
1181
ULONG_PTR = LongWord;
1183
tagIDLDESC = packed record
1184
dwReserved: ULONG_PTR;
1190
tagPARAMDESCEX = packed record
1192
varDefaultValue: OleVariant;
1195
tagPARAMDESC = packed record
1196
pparamdescex: ^tagPARAMDESCEX;
1200
tagELEMDESC = packed record
1202
paramdesc: tagPARAMDESC;
1205
tagFUNCDESC = packed record
1208
lprgelemdescParam: ^tagELEMDESC;
1209
funckind: tagFUNCKIND;
1210
invkind: tagINVOKEKIND;
1211
callconv: tagCALLCONV;
1213
cParamsOpt: Smallint;
1216
elemdescFunc: tagELEMDESC;
1220
__MIDL_IOleAutomationTypes_0006 = record
1222
0: (oInst: LongWord);
1223
1: (lpvarValue: ^OleVariant);
1226
tagVARDESC = packed record
1228
lpstrSchema: PWideChar;
1229
__MIDL_0009: __MIDL_IOleAutomationTypes_0006;
1230
elemdescVar: tagELEMDESC;
1232
varkind: tagVARKIND;
1235
tagTLIBATTR = packed record
1238
syskind: tagSYSKIND;
1244
ADS_SYSTEMFLAG_ENUM = __MIDL___MIDL_itf_ads_0120_0001;
1245
ADS_GROUP_TYPE_ENUM = __MIDL___MIDL_itf_ads_0126_0001;
1246
ADS_RIGHTS_ENUM = __MIDL___MIDL_itf_ads_0148_0001;
1247
ADS_ACETYPE_ENUM = __MIDL___MIDL_itf_ads_0148_0002;
1248
ADS_ACEFLAG_ENUM = __MIDL___MIDL_itf_ads_0148_0003;
1249
ADS_FLAGTYPE_ENUM = __MIDL___MIDL_itf_ads_0148_0004;
1250
ADS_SD_CONTROL_ENUM = __MIDL___MIDL_itf_ads_0148_0005;
1251
ADS_SD_REVISION_ENUM = __MIDL___MIDL_itf_ads_0148_0006;
1252
ADS_NAME_TYPE_ENUM = __MIDL___MIDL_itf_ads_0149_0001;
1253
ADS_NAME_INITTYPE_ENUM = __MIDL___MIDL_itf_ads_0149_0002;
1254
ADS_OPTION_ENUM = __MIDL___MIDL_itf_ads_0163_0001;
1255
ADS_SECURITY_INFO_ENUM = __MIDL___MIDL_itf_ads_0163_0002;
1256
ADS_SETTYPE_ENUM = __MIDL___MIDL_itf_ads_0164_0001;
1257
ADS_FORMAT_ENUM = __MIDL___MIDL_itf_ads_0164_0002;
1258
ADS_DISPLAY_ENUM = __MIDL___MIDL_itf_ads_0164_0003;
1259
ADS_ESCAPE_MODE_ENUM = __MIDL___MIDL_itf_ads_0164_0004;
1261
_ads_attr_info = packed record
1262
pszAttrName: PWideChar;
1263
dwControlCode: LongWord;
1264
dwADsType: ADSTYPEENUM;
1265
pADsValues: ^_adsvalue;
1266
dwNumValues: LongWord;
1269
ads_searchpref_info = packed record
1270
dwSearchPref: ADS_SEARCHPREF_ENUM;
1272
dwStatus: ADS_STATUSENUM;
1275
_ads_class_def = packed record
1276
pszClassName: PWideChar;
1277
dwMandatoryAttrs: LongWord;
1278
ppszMandatoryAttrs: ^PWideChar;
1279
optionalAttrs: LongWord;
1280
ppszOptionalAttrs: ^PPWideChar1;
1281
dwNamingAttrs: LongWord;
1282
ppszNamingAttrs: ^PPWideChar1;
1283
dwSuperClasses: LongWord;
1284
ppszSuperClasses: ^PPWideChar1;
1285
fIsContainer: Integer;
1288
tagTYPEATTR = packed record
1291
dwReserved: LongWord;
1292
memidConstructor: Integer;
1293
memidDestructor: Integer;
1294
lpstrSchema: PWideChar;
1295
cbSizeInstance: LongWord;
1296
typekind: tagTYPEKIND;
1305
tdescAlias: tagTYPEDESC;
1306
idldescType: tagIDLDESC;
1309
tagARRAYDESC = packed record
1310
tdescElem: tagTYPEDESC;
1312
rgbounds: ^tagSAFEARRAYBOUND;
1315
// *********************************************************************//
1317
// Flags: (4416) Dual OleAutomation Dispatchable
1318
// GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
1319
// *********************************************************************//
1320
IADs = interface(IDispatch)
1321
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
1322
function Get_Name: WideString; safecall;
1323
function Get_Class_: WideString; safecall;
1324
function Get_GUID: WideString; safecall;
1325
function Get_ADsPath: WideString; safecall;
1326
function Get_Parent: WideString; safecall;
1327
function Get_Schema: WideString; safecall;
1328
procedure GetInfo; safecall;
1329
procedure SetInfo; safecall;
1330
function Get(const bstrName: WideString): OleVariant; safecall;
1331
procedure Put(const bstrName: WideString; vProp: OleVariant); safecall;
1332
function GetEx(const bstrName: WideString): OleVariant; safecall;
1333
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); safecall;
1334
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); safecall;
1335
property Name: WideString read Get_Name;
1336
property Class_: WideString read Get_Class_;
1337
property GUID: WideString read Get_GUID;
1338
property ADsPath: WideString read Get_ADsPath;
1339
property Parent: WideString read Get_Parent;
1340
property Schema: WideString read Get_Schema;
1343
// *********************************************************************//
1344
// DispIntf: IADsDisp
1345
// Flags: (4416) Dual OleAutomation Dispatchable
1346
// GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
1347
// *********************************************************************//
1348
{$ifdef SUPPORTS_DISPINTERFACE}
1349
IADsDisp = dispinterface
1350
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
1351
property Name: WideString readonly dispid 2;
1352
property Class_: WideString readonly dispid 3;
1353
property GUID: WideString readonly dispid 4;
1354
property ADsPath: WideString readonly dispid 5;
1355
property Parent: WideString readonly dispid 6;
1356
property Schema: WideString readonly dispid 7;
1357
procedure GetInfo; dispid 8;
1358
procedure SetInfo; dispid 9;
1359
function Get(const bstrName: WideString): OleVariant; dispid 10;
1360
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1361
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1362
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1363
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1366
// *********************************************************************//
1367
// Interface: IADsContainer
1368
// Flags: (4416) Dual OleAutomation Dispatchable
1369
// GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
1370
// *********************************************************************//
1371
IADsContainer = interface(IDispatch)
1372
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
1373
function Get_Count: Integer; safecall;
1374
function Get__NewEnum: IUnknown; safecall;
1375
function Get_Filter: OleVariant; safecall;
1376
procedure Set_Filter(pVar: OleVariant); safecall;
1377
function Get_Hints: OleVariant; safecall;
1378
procedure Set_Hints(pvFilter: OleVariant); safecall;
1379
function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
1380
function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
1381
procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); safecall;
1382
function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
1383
function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
1384
property Count: Integer read Get_Count;
1385
property _NewEnum: IUnknown read Get__NewEnum;
1386
property Filter: OleVariant read Get_Filter write Set_Filter;
1387
property Hints: OleVariant read Get_Hints write Set_Hints;
1390
// *********************************************************************//
1391
// DispIntf: IADsContainerDisp
1392
// Flags: (4416) Dual OleAutomation Dispatchable
1393
// GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
1394
// *********************************************************************//
1395
{$ifdef SUPPORTS_DISPINTERFACE}
1396
IADsContainerDisp = dispinterface
1397
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
1398
property Count: Integer readonly dispid 2;
1399
property _NewEnum: IUnknown readonly dispid -4;
1400
property Filter: OleVariant dispid 3;
1401
property Hints: OleVariant dispid 4;
1402
function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 5;
1403
function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 6;
1404
procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); dispid 7;
1405
function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 8;
1406
function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 9;
1409
// *********************************************************************//
1410
// Interface: IADsCollection
1411
// Flags: (4416) Dual OleAutomation Dispatchable
1412
// GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
1413
// *********************************************************************//
1414
IADsCollection = interface(IDispatch)
1415
['{72B945E0-253B-11CF-A988-00AA006BC149}']
1416
function Get__NewEnum: IUnknown; safecall;
1417
procedure Add(const bstrName: WideString; vItem: OleVariant); safecall;
1418
procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
1419
function GetObject(const bstrName: WideString): OleVariant; safecall;
1420
property _NewEnum: IUnknown read Get__NewEnum;
1423
// *********************************************************************//
1424
// DispIntf: IADsCollectionDisp
1425
// Flags: (4416) Dual OleAutomation Dispatchable
1426
// GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
1427
// *********************************************************************//
1428
{$ifdef SUPPORTS_DISPINTERFACE}
1429
IADsCollectionDisp = dispinterface
1430
['{72B945E0-253B-11CF-A988-00AA006BC149}']
1431
property _NewEnum: IUnknown readonly dispid -4;
1432
procedure Add(const bstrName: WideString; vItem: OleVariant); dispid 4;
1433
procedure Remove(const bstrItemToBeRemoved: WideString); dispid 5;
1434
function GetObject(const bstrName: WideString): OleVariant; dispid 6;
1437
// *********************************************************************//
1438
// Interface: IADsMembers
1439
// Flags: (4416) Dual OleAutomation Dispatchable
1440
// GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
1441
// *********************************************************************//
1442
IADsMembers = interface(IDispatch)
1443
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
1444
function Get_Count: Integer; safecall;
1445
function Get__NewEnum: IUnknown; safecall;
1446
function Get_Filter: OleVariant; safecall;
1447
procedure Set_Filter(pvFilter: OleVariant); safecall;
1448
property Count: Integer read Get_Count;
1449
property _NewEnum: IUnknown read Get__NewEnum;
1450
property Filter: OleVariant read Get_Filter write Set_Filter;
1453
// *********************************************************************//
1454
// DispIntf: IADsMembersDisp
1455
// Flags: (4416) Dual OleAutomation Dispatchable
1456
// GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
1457
// *********************************************************************//
1458
{$ifdef SUPPORTS_DISPINTERFACE}
1459
IADsMembersDisp = dispinterface
1460
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
1461
property Count: Integer readonly dispid 2;
1462
property _NewEnum: IUnknown readonly dispid -4;
1463
property Filter: OleVariant dispid 3;
1466
// *********************************************************************//
1467
// Interface: IADsPropertyList
1468
// Flags: (4416) Dual OleAutomation Dispatchable
1469
// GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
1470
// *********************************************************************//
1471
IADsPropertyList = interface(IDispatch)
1472
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
1473
function Get_PropertyCount: Integer; safecall;
1474
function Next: OleVariant; safecall;
1475
procedure Skip(cElements: Integer); safecall;
1476
procedure Reset; safecall;
1477
function Item(varIndex: OleVariant): OleVariant; safecall;
1478
function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; safecall;
1479
procedure PutPropertyItem(varData: OleVariant); safecall;
1480
procedure ResetPropertyItem(varEntry: OleVariant); safecall;
1481
procedure PurgePropertyList; safecall;
1482
property PropertyCount: Integer read Get_PropertyCount;
1485
// *********************************************************************//
1486
// DispIntf: IADsPropertyListDisp
1487
// Flags: (4416) Dual OleAutomation Dispatchable
1488
// GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
1489
// *********************************************************************//
1490
{$ifdef SUPPORTS_DISPINTERFACE}
1491
IADsPropertyListDisp = dispinterface
1492
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
1493
property PropertyCount: Integer readonly dispid 2;
1494
function Next: OleVariant; dispid 3;
1495
procedure Skip(cElements: Integer); dispid 4;
1496
procedure Reset; dispid 5;
1497
function Item(varIndex: OleVariant): OleVariant; dispid 0;
1498
function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; dispid 6;
1499
procedure PutPropertyItem(varData: OleVariant); dispid 7;
1500
procedure ResetPropertyItem(varEntry: OleVariant); dispid 8;
1501
procedure PurgePropertyList; dispid 9;
1504
// *********************************************************************//
1505
// Interface: IADsPropertyEntry
1506
// Flags: (4416) Dual OleAutomation Dispatchable
1507
// GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
1508
// *********************************************************************//
1509
IADsPropertyEntry = interface(IDispatch)
1510
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
1511
procedure Clear; safecall;
1512
function Get_Name: WideString; safecall;
1513
procedure Set_Name(const retval: WideString); safecall;
1514
function Get_ADsType: Integer; safecall;
1515
procedure Set_ADsType(retval: Integer); safecall;
1516
function Get_ControlCode: Integer; safecall;
1517
procedure Set_ControlCode(retval: Integer); safecall;
1518
function Get_Values: OleVariant; safecall;
1519
procedure Set_Values(retval: OleVariant); safecall;
1520
property Name: WideString read Get_Name write Set_Name;
1521
property ADsType: Integer read Get_ADsType write Set_ADsType;
1522
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
1523
property Values: OleVariant read Get_Values write Set_Values;
1526
// *********************************************************************//
1527
// DispIntf: IADsPropertyEntryDisp
1528
// Flags: (4416) Dual OleAutomation Dispatchable
1529
// GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
1530
// *********************************************************************//
1531
{$ifdef SUPPORTS_DISPINTERFACE}
1532
IADsPropertyEntryDisp = dispinterface
1533
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
1534
procedure Clear; dispid 1;
1535
property Name: WideString dispid 2;
1536
property ADsType: Integer dispid 3;
1537
property ControlCode: Integer dispid 4;
1538
property Values: OleVariant dispid 5;
1541
// *********************************************************************//
1542
// Interface: IADsPropertyValue
1543
// Flags: (4416) Dual OleAutomation Dispatchable
1544
// GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
1545
// *********************************************************************//
1546
IADsPropertyValue = interface(IDispatch)
1547
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
1548
procedure Clear; safecall;
1549
function Get_ADsType: Integer; safecall;
1550
procedure Set_ADsType(retval: Integer); safecall;
1551
function Get_DNString: WideString; safecall;
1552
procedure Set_DNString(const retval: WideString); safecall;
1553
function Get_CaseExactString: WideString; safecall;
1554
procedure Set_CaseExactString(const retval: WideString); safecall;
1555
function Get_CaseIgnoreString: WideString; safecall;
1556
procedure Set_CaseIgnoreString(const retval: WideString); safecall;
1557
function Get_PrintableString: WideString; safecall;
1558
procedure Set_PrintableString(const retval: WideString); safecall;
1559
function Get_NumericString: WideString; safecall;
1560
procedure Set_NumericString(const retval: WideString); safecall;
1561
function Get_Boolean: Integer; safecall;
1562
procedure Set_Boolean(retval: Integer); safecall;
1563
function Get_Integer: Integer; safecall;
1564
procedure Set_Integer(retval: Integer); safecall;
1565
function Get_OctetString: OleVariant; safecall;
1566
procedure Set_OctetString(retval: OleVariant); safecall;
1567
function Get_SecurityDescriptor: IDispatch; safecall;
1568
procedure Set_SecurityDescriptor(const retval: IDispatch); safecall;
1569
function Get_LargeInteger: IDispatch; safecall;
1570
procedure Set_LargeInteger(const retval: IDispatch); safecall;
1571
function Get_UTCTime: TDateTime; safecall;
1572
procedure Set_UTCTime(retval: TDateTime); safecall;
1573
property ADsType: Integer read Get_ADsType write Set_ADsType;
1574
property DNString: WideString read Get_DNString write Set_DNString;
1575
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
1576
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
1577
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
1578
property NumericString: WideString read Get_NumericString write Set_NumericString;
1579
property Boolean: Integer read Get_Boolean write Set_Boolean;
1580
property Integer: Integer read Get_Integer write Set_Integer;
1581
property OctetString: OleVariant read Get_OctetString write Set_OctetString;
1582
property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
1583
property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
1584
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
1587
// *********************************************************************//
1588
// DispIntf: IADsPropertyValueDisp
1589
// Flags: (4416) Dual OleAutomation Dispatchable
1590
// GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
1591
// *********************************************************************//
1592
{$ifdef SUPPORTS_DISPINTERFACE}
1593
IADsPropertyValueDisp = dispinterface
1594
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
1595
procedure Clear; dispid 1;
1596
property ADsType: Integer dispid 2;
1597
property DNString: WideString dispid 3;
1598
property CaseExactString: WideString dispid 4;
1599
property CaseIgnoreString: WideString dispid 5;
1600
property PrintableString: WideString dispid 6;
1601
property NumericString: WideString dispid 7;
1602
property Boolean: Integer dispid 8;
1603
property Integer: Integer dispid 9;
1604
property OctetString: OleVariant dispid 10;
1605
property SecurityDescriptor: IDispatch dispid 11;
1606
property LargeInteger: IDispatch dispid 12;
1607
property UTCTime: TDateTime dispid 13;
1610
// *********************************************************************//
1611
// Interface: IADsPropertyValue2
1612
// Flags: (4416) Dual OleAutomation Dispatchable
1613
// GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
1614
// *********************************************************************//
1615
IADsPropertyValue2 = interface(IDispatch)
1616
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
1617
function GetObjectProperty(var lnADsType: Integer): OleVariant; safecall;
1618
procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); safecall;
1621
// *********************************************************************//
1622
// DispIntf: IADsPropertyValue2Disp
1623
// Flags: (4416) Dual OleAutomation Dispatchable
1624
// GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
1625
// *********************************************************************//
1626
{$ifdef SUPPORTS_DISPINTERFACE}
1627
IADsPropertyValue2Disp = dispinterface
1628
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
1629
function GetObjectProperty(var lnADsType: Integer): OleVariant; dispid 1;
1630
procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); dispid 2;
1634
// *********************************************************************//
1635
// Interface: IPrivateDispatch
1637
// GUID: {86AB4BBE-65F6-11D1-8C13-00C04FD8D503}
1638
// *********************************************************************//
1639
IPrivateDispatch = interface(IUnknown)
1640
['{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}']
1641
function ADSIInitializeDispatchManager(dwExtensionId: Integer): HResult; stdcall;
1642
function ADSIGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
1643
function ADSIGetTypeInfo(itinfo: SYSUINT; lcid: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
1644
function ADSIGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
1645
lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
1646
function ADSIInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
1647
var pdispparams: TGUID; out pvarResult: OleVariant; out pexcepinfo: TGUID;
1648
out puArgErr: SYSUINT): HResult; stdcall;
1651
// *********************************************************************//
1652
// Interface: ITypeInfo
1654
// GUID: {00020401-0000-0000-C000-000000000046}
1655
// *********************************************************************//
1656
ITypeInfo = interface(IUnknown)
1657
['{00020401-0000-0000-C000-000000000046}']
1658
function RemoteGetTypeAttr(out ppTypeAttr: PUserType5; out pDummy: DWORD): HResult; stdcall;
1659
function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
1660
function RemoteGetFuncDesc(index: SYSUINT; out ppFuncDesc: PUserType6; out pDummy: DWORD): HResult; stdcall;
1661
function RemoteGetVarDesc(index: SYSUINT; out ppVarDesc: PUserType7; out pDummy: DWORD): HResult; stdcall;
1662
function RemoteGetNames(memid: Integer; out rgBstrNames: WideString; cMaxNames: SYSUINT;
1663
out pcNames: SYSUINT): HResult; stdcall;
1664
function GetRefTypeOfImplType(index: SYSUINT; out pRefType: LongWord): HResult; stdcall;
1665
function GetImplTypeFlags(index: SYSUINT; out pImplTypeFlags: SYSINT): HResult; stdcall;
1666
function LocalGetIDsOfNames: HResult; stdcall;
1667
function LocalInvoke: HResult; stdcall;
1668
function RemoteGetDocumentation(memid: Integer; refPtrFlags: LongWord;
1669
out pBstrName: WideString; out pBstrDocString: WideString;
1670
out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
1671
function RemoteGetDllEntry(memid: Integer; invkind: tagINVOKEKIND; refPtrFlags: LongWord;
1672
out pBstrDllName: WideString; out pBstrName: WideString;
1673
out pwOrdinal: Word): HResult; stdcall;
1674
function GetRefTypeInfo(hreftype: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
1675
function LocalAddressOfMember: HResult; stdcall;
1676
function RemoteCreateInstance(var riid: TGUID; out ppvObj: IUnknown): HResult; stdcall;
1677
function GetMops(memid: Integer; out pBstrMops: WideString): HResult; stdcall;
1678
function RemoteGetContainingTypeLib(out ppTLib: ITypeLib; out pIndex: SYSUINT): HResult; stdcall;
1679
function LocalReleaseTypeAttr: HResult; stdcall;
1680
function LocalReleaseFuncDesc: HResult; stdcall;
1681
function LocalReleaseVarDesc: HResult; stdcall;
1684
// *********************************************************************//
1685
// Interface: ITypeComp
1687
// GUID: {00020403-0000-0000-C000-000000000046}
1688
// *********************************************************************//
1689
ITypeComp = interface(IUnknown)
1690
['{00020403-0000-0000-C000-000000000046}']
1691
function RemoteBind(szName: PWideChar; lHashVal: LongWord; wFlags: Word;
1692
out ppTInfo: ITypeInfo; out pDescKind: tagDESCKIND;
1693
out ppFuncDesc: PUserType6; out ppVarDesc: PUserType7;
1694
out ppTypeComp: ITypeComp; out pDummy: DWORD): HResult; stdcall;
1695
function RemoteBindType(szName: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
1698
// *********************************************************************//
1699
// Interface: ITypeLib
1701
// GUID: {00020402-0000-0000-C000-000000000046}
1702
// *********************************************************************//
1703
ITypeLib = interface(IUnknown)
1704
['{00020402-0000-0000-C000-000000000046}']
1705
function RemoteGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
1706
function GetTypeInfo(index: SYSUINT; out ppTInfo: ITypeInfo): HResult; stdcall;
1707
function GetTypeInfoType(index: SYSUINT; out pTKind: tagTYPEKIND): HResult; stdcall;
1708
function GetTypeInfoOfGuid(var GUID: TGUID; out ppTInfo: ITypeInfo): HResult; stdcall;
1709
function RemoteGetLibAttr(out ppTLibAttr: PUserType10; out pDummy: DWORD): HResult; stdcall;
1710
function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
1711
function RemoteGetDocumentation(index: SYSINT; refPtrFlags: LongWord;
1712
out pBstrName: WideString; out pBstrDocString: WideString;
1713
out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
1714
function RemoteIsName(szNameBuf: PWideChar; lHashVal: LongWord; out pfName: Integer;
1715
out pBstrLibName: WideString): HResult; stdcall;
1716
function RemoteFindName(szNameBuf: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo;
1717
out rgMemId: Integer; var pcFound: Word; out pBstrLibName: WideString): HResult; stdcall;
1718
function LocalReleaseTLibAttr: HResult; stdcall;
1721
// *********************************************************************//
1722
// Interface: IPrivateUnknown
1724
// GUID: {89126BAB-6EAD-11D1-8C18-00C04FD8D503}
1725
// *********************************************************************//
1726
IPrivateUnknown = interface(IUnknown)
1727
['{89126BAB-6EAD-11D1-8C18-00C04FD8D503}']
1728
function ADSIInitializeObject(const lpszUserName: WideString; const lpszPassword: WideString;
1729
lnReserved: Integer): HResult; stdcall;
1730
function ADSIReleaseObject: HResult; stdcall;
1733
// *********************************************************************//
1734
// Interface: IADsExtension
1736
// GUID: {3D35553C-D2B0-11D1-B17B-0000F87593A0}
1737
// *********************************************************************//
1738
IADsExtension = interface(IUnknown)
1739
['{3D35553C-D2B0-11D1-B17B-0000F87593A0}']
1740
function Operate(dwCode: LongWord; varData1: OleVariant; varData2: OleVariant;
1741
varData3: OleVariant): HResult; stdcall;
1742
function PrivateGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
1743
lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
1744
function PrivateInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
1745
var pdispparams: TGUID; out pvarResult: OleVariant;
1746
out pexcepinfo: TGUID; out puArgErr: SYSUINT): HResult; stdcall;
1749
// *********************************************************************//
1750
// Interface: IADsDeleteOps
1751
// Flags: (4416) Dual OleAutomation Dispatchable
1752
// GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
1753
// *********************************************************************//
1754
IADsDeleteOps = interface(IDispatch)
1755
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
1756
procedure DeleteObject(lnFlags: Integer); safecall;
1759
// *********************************************************************//
1760
// DispIntf: IADsDeleteOpsDisp
1761
// Flags: (4416) Dual OleAutomation Dispatchable
1762
// GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
1763
// *********************************************************************//
1764
{$ifdef SUPPORTS_DISPINTERFACE}
1765
IADsDeleteOpsDisp = dispinterface
1766
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
1767
procedure DeleteObject(lnFlags: Integer); dispid 2;
1770
// *********************************************************************//
1771
// Interface: IADsNamespaces
1772
// Flags: (4416) Dual OleAutomation Dispatchable
1773
// GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
1774
// *********************************************************************//
1775
IADsNamespaces = interface(IADs)
1776
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
1777
function Get_DefaultContainer: WideString; safecall;
1778
procedure Set_DefaultContainer(const retval: WideString); safecall;
1779
property DefaultContainer: WideString read Get_DefaultContainer write Set_DefaultContainer;
1782
// *********************************************************************//
1783
// DispIntf: IADsNamespacesDisp
1784
// Flags: (4416) Dual OleAutomation Dispatchable
1785
// GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
1786
// *********************************************************************//
1787
{$ifdef SUPPORTS_DISPINTERFACE}
1788
IADsNamespacesDisp = dispinterface
1789
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
1790
property DefaultContainer: WideString dispid 1;
1791
property Name: WideString readonly dispid 2;
1792
property Class_: WideString readonly dispid 3;
1793
property GUID: WideString readonly dispid 4;
1794
property ADsPath: WideString readonly dispid 5;
1795
property Parent: WideString readonly dispid 6;
1796
property Schema: WideString readonly dispid 7;
1797
procedure GetInfo; dispid 8;
1798
procedure SetInfo; dispid 9;
1799
function Get(const bstrName: WideString): OleVariant; dispid 10;
1800
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1801
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1802
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1803
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1807
// *********************************************************************//
1808
// Interface: IADsClass
1809
// Flags: (4416) Dual OleAutomation Dispatchable
1810
// GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
1811
// *********************************************************************//
1812
IADsClass = interface(IADs)
1813
['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
1814
function Get_PrimaryInterface: WideString; safecall;
1815
function Get_CLSID: WideString; safecall;
1816
procedure Set_CLSID(const retval: WideString); safecall;
1817
function Get_OID: WideString; safecall;
1818
procedure Set_OID(const retval: WideString); safecall;
1819
function Get_Abstract: WordBool; safecall;
1820
procedure Set_Abstract(retval: WordBool); safecall;
1821
function Get_Auxiliary: WordBool; safecall;
1822
procedure Set_Auxiliary(retval: WordBool); safecall;
1823
function Get_MandatoryProperties: OleVariant; safecall;
1824
procedure Set_MandatoryProperties(retval: OleVariant); safecall;
1825
function Get_OptionalProperties: OleVariant; safecall;
1826
procedure Set_OptionalProperties(retval: OleVariant); safecall;
1827
function Get_NamingProperties: OleVariant; safecall;
1828
procedure Set_NamingProperties(retval: OleVariant); safecall;
1829
function Get_DerivedFrom: OleVariant; safecall;
1830
procedure Set_DerivedFrom(retval: OleVariant); safecall;
1831
function Get_AuxDerivedFrom: OleVariant; safecall;
1832
procedure Set_AuxDerivedFrom(retval: OleVariant); safecall;
1833
function Get_PossibleSuperiors: OleVariant; safecall;
1834
procedure Set_PossibleSuperiors(retval: OleVariant); safecall;
1835
function Get_Containment: OleVariant; safecall;
1836
procedure Set_Containment(retval: OleVariant); safecall;
1837
function Get_Container: WordBool; safecall;
1838
procedure Set_Container(retval: WordBool); safecall;
1839
function Get_HelpFileName: WideString; safecall;
1840
procedure Set_HelpFileName(const retval: WideString); safecall;
1841
function Get_HelpFileContext: Integer; safecall;
1842
procedure Set_HelpFileContext(retval: Integer); safecall;
1843
function Qualifiers: IADsCollection; safecall;
1844
property PrimaryInterface: WideString read Get_PrimaryInterface;
1845
property CLSID: WideString read Get_CLSID write Set_CLSID;
1846
property OID: WideString read Get_OID write Set_OID;
1847
property Abstract: WordBool read Get_Abstract write Set_Abstract;
1848
property Auxiliary: WordBool read Get_Auxiliary write Set_Auxiliary;
1849
property MandatoryProperties: OleVariant read Get_MandatoryProperties write Set_MandatoryProperties;
1850
property OptionalProperties: OleVariant read Get_OptionalProperties write Set_OptionalProperties;
1851
property NamingProperties: OleVariant read Get_NamingProperties write Set_NamingProperties;
1852
property DerivedFrom: OleVariant read Get_DerivedFrom write Set_DerivedFrom;
1853
property AuxDerivedFrom: OleVariant read Get_AuxDerivedFrom write Set_AuxDerivedFrom;
1854
property PossibleSuperiors: OleVariant read Get_PossibleSuperiors write Set_PossibleSuperiors;
1855
property Containment: OleVariant read Get_Containment write Set_Containment;
1856
property Container: WordBool read Get_Container write Set_Container;
1857
property HelpFileName: WideString read Get_HelpFileName write Set_HelpFileName;
1858
property HelpFileContext: Integer read Get_HelpFileContext write Set_HelpFileContext;
1861
// *********************************************************************//
1862
// DispIntf: IADsClassDisp
1863
// Flags: (4416) Dual OleAutomation Dispatchable
1864
// GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
1865
// *********************************************************************//
1866
{$ifdef SUPPORTS_DISPINTERFACE}
1867
IADsClassDisp = dispinterface
1868
['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
1869
property PrimaryInterface: WideString readonly dispid 15;
1870
property CLSID: WideString dispid 16;
1871
property OID: WideString dispid 17;
1872
property Abstract: WordBool dispid 18;
1873
property Auxiliary: WordBool dispid 26;
1874
property MandatoryProperties: OleVariant dispid 19;
1875
property OptionalProperties: OleVariant dispid 29;
1876
property NamingProperties: OleVariant dispid 30;
1877
property DerivedFrom: OleVariant dispid 20;
1878
property AuxDerivedFrom: OleVariant dispid 27;
1879
property PossibleSuperiors: OleVariant dispid 28;
1880
property Containment: OleVariant dispid 21;
1881
property Container: WordBool dispid 22;
1882
property HelpFileName: WideString dispid 23;
1883
property HelpFileContext: Integer dispid 24;
1884
function Qualifiers: IADsCollection; dispid 25;
1885
property Name: WideString readonly dispid 2;
1886
property Class_: WideString readonly dispid 3;
1887
property GUID: WideString readonly dispid 4;
1888
property ADsPath: WideString readonly dispid 5;
1889
property Parent: WideString readonly dispid 6;
1890
property Schema: WideString readonly dispid 7;
1891
procedure GetInfo; dispid 8;
1892
procedure SetInfo; dispid 9;
1893
function Get(const bstrName: WideString): OleVariant; dispid 10;
1894
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1895
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1896
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1897
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1900
// *********************************************************************//
1901
// Interface: IADsProperty
1902
// Flags: (4416) Dual OleAutomation Dispatchable
1903
// GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
1904
// *********************************************************************//
1905
IADsProperty = interface(IADs)
1906
['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
1907
function Get_OID: WideString; safecall;
1908
procedure Set_OID(const retval: WideString); safecall;
1909
function Get_Syntax: WideString; safecall;
1910
procedure Set_Syntax(const retval: WideString); safecall;
1911
function Get_MaxRange: Integer; safecall;
1912
procedure Set_MaxRange(retval: Integer); safecall;
1913
function Get_MinRange: Integer; safecall;
1914
procedure Set_MinRange(retval: Integer); safecall;
1915
function Get_MultiValued: WordBool; safecall;
1916
procedure Set_MultiValued(retval: WordBool); safecall;
1917
function Qualifiers: IADsCollection; safecall;
1918
property OID: WideString read Get_OID write Set_OID;
1919
property Syntax: WideString read Get_Syntax write Set_Syntax;
1920
property MaxRange: Integer read Get_MaxRange write Set_MaxRange;
1921
property MinRange: Integer read Get_MinRange write Set_MinRange;
1922
property MultiValued: WordBool read Get_MultiValued write Set_MultiValued;
1925
// *********************************************************************//
1926
// DispIntf: IADsPropertyDisp
1927
// Flags: (4416) Dual OleAutomation Dispatchable
1928
// GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
1929
// *********************************************************************//
1930
{$ifdef SUPPORTS_DISPINTERFACE}
1931
IADsPropertyDisp = dispinterface
1932
['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
1933
property OID: WideString dispid 17;
1934
property Syntax: WideString dispid 18;
1935
property MaxRange: Integer dispid 19;
1936
property MinRange: Integer dispid 20;
1937
property MultiValued: WordBool dispid 21;
1938
function Qualifiers: IADsCollection; dispid 22;
1939
property Name: WideString readonly dispid 2;
1940
property Class_: WideString readonly dispid 3;
1941
property GUID: WideString readonly dispid 4;
1942
property ADsPath: WideString readonly dispid 5;
1943
property Parent: WideString readonly dispid 6;
1944
property Schema: WideString readonly dispid 7;
1945
procedure GetInfo; dispid 8;
1946
procedure SetInfo; dispid 9;
1947
function Get(const bstrName: WideString): OleVariant; dispid 10;
1948
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1949
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1950
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1951
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1955
// *********************************************************************//
1956
// Interface: IADsSyntax
1957
// Flags: (4416) Dual OleAutomation Dispatchable
1958
// GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
1959
// *********************************************************************//
1960
IADsSyntax = interface(IADs)
1961
['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
1962
function Get_OleAutoDataType: Integer; safecall;
1963
procedure Set_OleAutoDataType(retval: Integer); safecall;
1964
property OleAutoDataType: Integer read Get_OleAutoDataType write Set_OleAutoDataType;
1967
// *********************************************************************//
1968
// DispIntf: IADsSyntaxDisp
1969
// Flags: (4416) Dual OleAutomation Dispatchable
1970
// GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
1971
// *********************************************************************//
1972
{$ifdef SUPPORTS_DISPINTERFACE}
1973
IADsSyntaxDisp = dispinterface
1974
['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
1975
property OleAutoDataType: Integer dispid 15;
1976
property Name: WideString readonly dispid 2;
1977
property Class_: WideString readonly dispid 3;
1978
property GUID: WideString readonly dispid 4;
1979
property ADsPath: WideString readonly dispid 5;
1980
property Parent: WideString readonly dispid 6;
1981
property Schema: WideString readonly dispid 7;
1982
procedure GetInfo; dispid 8;
1983
procedure SetInfo; dispid 9;
1984
function Get(const bstrName: WideString): OleVariant; dispid 10;
1985
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1986
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1987
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1988
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1992
// *********************************************************************//
1993
// Interface: IADsLocality
1994
// Flags: (4416) Dual OleAutomation Dispatchable
1995
// GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
1996
// *********************************************************************//
1997
IADsLocality = interface(IADs)
1998
['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
1999
function Get_Description: WideString; safecall;
2000
procedure Set_Description(const retval: WideString); safecall;
2001
function Get_LocalityName: WideString; safecall;
2002
procedure Set_LocalityName(const retval: WideString); safecall;
2003
function Get_PostalAddress: WideString; safecall;
2004
procedure Set_PostalAddress(const retval: WideString); safecall;
2005
function Get_SeeAlso: OleVariant; safecall;
2006
procedure Set_SeeAlso(retval: OleVariant); safecall;
2007
property Description: WideString read Get_Description write Set_Description;
2008
property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
2009
property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
2010
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
2013
// *********************************************************************//
2014
// DispIntf: IADsLocalityDisp
2015
// Flags: (4416) Dual OleAutomation Dispatchable
2016
// GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
2017
// *********************************************************************//
2018
{$ifdef SUPPORTS_DISPINTERFACE}
2019
IADsLocalityDisp = dispinterface
2020
['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
2021
property Description: WideString dispid 15;
2022
property LocalityName: WideString dispid 16;
2023
property PostalAddress: WideString dispid 17;
2024
property SeeAlso: OleVariant dispid 18;
2025
property Name: WideString readonly dispid 2;
2026
property Class_: WideString readonly dispid 3;
2027
property GUID: WideString readonly dispid 4;
2028
property ADsPath: WideString readonly dispid 5;
2029
property Parent: WideString readonly dispid 6;
2030
property Schema: WideString readonly dispid 7;
2031
procedure GetInfo; dispid 8;
2032
procedure SetInfo; dispid 9;
2033
function Get(const bstrName: WideString): OleVariant; dispid 10;
2034
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2035
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2036
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2037
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2041
// *********************************************************************//
2043
// Flags: (4416) Dual OleAutomation Dispatchable
2044
// GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
2045
// *********************************************************************//
2046
IADsO = interface(IADs)
2047
['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
2048
function Get_Description: WideString; safecall;
2049
procedure Set_Description(const retval: WideString); safecall;
2050
function Get_LocalityName: WideString; safecall;
2051
procedure Set_LocalityName(const retval: WideString); safecall;
2052
function Get_PostalAddress: WideString; safecall;
2053
procedure Set_PostalAddress(const retval: WideString); safecall;
2054
function Get_TelephoneNumber: WideString; safecall;
2055
procedure Set_TelephoneNumber(const retval: WideString); safecall;
2056
function Get_FaxNumber: WideString; safecall;
2057
procedure Set_FaxNumber(const retval: WideString); safecall;
2058
function Get_SeeAlso: OleVariant; safecall;
2059
procedure Set_SeeAlso(retval: OleVariant); safecall;
2060
property Description: WideString read Get_Description write Set_Description;
2061
property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
2062
property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
2063
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
2064
property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
2065
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
2068
// *********************************************************************//
2069
// DispIntf: IADsODisp
2070
// Flags: (4416) Dual OleAutomation Dispatchable
2071
// GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
2072
// *********************************************************************//
2073
{$ifdef SUPPORTS_DISPINTERFACE}
2074
IADsODisp = dispinterface
2075
['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
2076
property Description: WideString dispid 15;
2077
property LocalityName: WideString dispid 16;
2078
property PostalAddress: WideString dispid 17;
2079
property TelephoneNumber: WideString dispid 18;
2080
property FaxNumber: WideString dispid 19;
2081
property SeeAlso: OleVariant dispid 20;
2082
property Name: WideString readonly dispid 2;
2083
property Class_: WideString readonly dispid 3;
2084
property GUID: WideString readonly dispid 4;
2085
property ADsPath: WideString readonly dispid 5;
2086
property Parent: WideString readonly dispid 6;
2087
property Schema: WideString readonly dispid 7;
2088
procedure GetInfo; dispid 8;
2089
procedure SetInfo; dispid 9;
2090
function Get(const bstrName: WideString): OleVariant; dispid 10;
2091
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2092
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2093
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2094
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2098
// *********************************************************************//
2099
// Interface: IADsOU
2100
// Flags: (4416) Dual OleAutomation Dispatchable
2101
// GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
2102
// *********************************************************************//
2103
IADsOU = interface(IADs)
2104
['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
2105
function Get_Description: WideString; safecall;
2106
procedure Set_Description(const retval: WideString); safecall;
2107
function Get_LocalityName: WideString; safecall;
2108
procedure Set_LocalityName(const retval: WideString); safecall;
2109
function Get_PostalAddress: WideString; safecall;
2110
procedure Set_PostalAddress(const retval: WideString); safecall;
2111
function Get_TelephoneNumber: WideString; safecall;
2112
procedure Set_TelephoneNumber(const retval: WideString); safecall;
2113
function Get_FaxNumber: WideString; safecall;
2114
procedure Set_FaxNumber(const retval: WideString); safecall;
2115
function Get_SeeAlso: OleVariant; safecall;
2116
procedure Set_SeeAlso(retval: OleVariant); safecall;
2117
function Get_BusinessCategory: WideString; safecall;
2118
procedure Set_BusinessCategory(const retval: WideString); safecall;
2119
property Description: WideString read Get_Description write Set_Description;
2120
property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
2121
property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
2122
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
2123
property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
2124
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
2125
property BusinessCategory: WideString read Get_BusinessCategory write Set_BusinessCategory;
2128
// *********************************************************************//
2129
// DispIntf: IADsOUDisp
2130
// Flags: (4416) Dual OleAutomation Dispatchable
2131
// GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
2132
// *********************************************************************//
2133
{$ifdef SUPPORTS_DISPINTERFACE}
2134
IADsOUDisp = dispinterface
2135
['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
2136
property Description: WideString dispid 15;
2137
property LocalityName: WideString dispid 16;
2138
property PostalAddress: WideString dispid 17;
2139
property TelephoneNumber: WideString dispid 18;
2140
property FaxNumber: WideString dispid 19;
2141
property SeeAlso: OleVariant dispid 20;
2142
property BusinessCategory: WideString dispid 21;
2143
property Name: WideString readonly dispid 2;
2144
property Class_: WideString readonly dispid 3;
2145
property GUID: WideString readonly dispid 4;
2146
property ADsPath: WideString readonly dispid 5;
2147
property Parent: WideString readonly dispid 6;
2148
property Schema: WideString readonly dispid 7;
2149
procedure GetInfo; dispid 8;
2150
procedure SetInfo; dispid 9;
2151
function Get(const bstrName: WideString): OleVariant; dispid 10;
2152
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2153
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2154
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2155
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2159
// *********************************************************************//
2160
// Interface: IADsDomain
2161
// Flags: (4416) Dual OleAutomation Dispatchable
2162
// GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
2163
// *********************************************************************//
2164
IADsDomain = interface(IADs)
2165
['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
2166
function Get_IsWorkgroup: WordBool; safecall;
2167
function Get_MinPasswordLength: Integer; safecall;
2168
procedure Set_MinPasswordLength(retval: Integer); safecall;
2169
function Get_MinPasswordAge: Integer; safecall;
2170
procedure Set_MinPasswordAge(retval: Integer); safecall;
2171
function Get_MaxPasswordAge: Integer; safecall;
2172
procedure Set_MaxPasswordAge(retval: Integer); safecall;
2173
function Get_MaxBadPasswordsAllowed: Integer; safecall;
2174
procedure Set_MaxBadPasswordsAllowed(retval: Integer); safecall;
2175
function Get_PasswordHistoryLength: Integer; safecall;
2176
procedure Set_PasswordHistoryLength(retval: Integer); safecall;
2177
function Get_PasswordAttributes: Integer; safecall;
2178
procedure Set_PasswordAttributes(retval: Integer); safecall;
2179
function Get_AutoUnlockInterval: Integer; safecall;
2180
procedure Set_AutoUnlockInterval(retval: Integer); safecall;
2181
function Get_LockoutObservationInterval: Integer; safecall;
2182
procedure Set_LockoutObservationInterval(retval: Integer); safecall;
2183
property IsWorkgroup: WordBool read Get_IsWorkgroup;
2184
property MinPasswordLength: Integer read Get_MinPasswordLength write Set_MinPasswordLength;
2185
property MinPasswordAge: Integer read Get_MinPasswordAge write Set_MinPasswordAge;
2186
property MaxPasswordAge: Integer read Get_MaxPasswordAge write Set_MaxPasswordAge;
2187
property MaxBadPasswordsAllowed: Integer read Get_MaxBadPasswordsAllowed write Set_MaxBadPasswordsAllowed;
2188
property PasswordHistoryLength: Integer read Get_PasswordHistoryLength write Set_PasswordHistoryLength;
2189
property PasswordAttributes: Integer read Get_PasswordAttributes write Set_PasswordAttributes;
2190
property AutoUnlockInterval: Integer read Get_AutoUnlockInterval write Set_AutoUnlockInterval;
2191
property LockoutObservationInterval: Integer read Get_LockoutObservationInterval write Set_LockoutObservationInterval;
2194
// *********************************************************************//
2195
// DispIntf: IADsDomainDisp
2196
// Flags: (4416) Dual OleAutomation Dispatchable
2197
// GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
2198
// *********************************************************************//
2199
{$ifdef SUPPORTS_DISPINTERFACE}
2200
IADsDomainDisp = dispinterface
2201
['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
2202
property IsWorkgroup: WordBool readonly dispid 15;
2203
property MinPasswordLength: Integer dispid 16;
2204
property MinPasswordAge: Integer dispid 17;
2205
property MaxPasswordAge: Integer dispid 18;
2206
property MaxBadPasswordsAllowed: Integer dispid 19;
2207
property PasswordHistoryLength: Integer dispid 20;
2208
property PasswordAttributes: Integer dispid 21;
2209
property AutoUnlockInterval: Integer dispid 22;
2210
property LockoutObservationInterval: Integer dispid 23;
2211
property Name: WideString readonly dispid 2;
2212
property Class_: WideString readonly dispid 3;
2213
property GUID: WideString readonly dispid 4;
2214
property ADsPath: WideString readonly dispid 5;
2215
property Parent: WideString readonly dispid 6;
2216
property Schema: WideString readonly dispid 7;
2217
procedure GetInfo; dispid 8;
2218
procedure SetInfo; dispid 9;
2219
function Get(const bstrName: WideString): OleVariant; dispid 10;
2220
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2221
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2222
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2223
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2226
// *********************************************************************//
2227
// Interface: IADsComputer
2228
// Flags: (4416) Dual OleAutomation Dispatchable
2229
// GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
2230
// *********************************************************************//
2231
IADsComputer = interface(IADs)
2232
['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
2233
function Get_ComputerID: WideString; safecall;
2234
function Get_Site: WideString; safecall;
2235
function Get_Description: WideString; safecall;
2236
procedure Set_Description(const retval: WideString); safecall;
2237
function Get_Location: WideString; safecall;
2238
procedure Set_Location(const retval: WideString); safecall;
2239
function Get_PrimaryUser: WideString; safecall;
2240
procedure Set_PrimaryUser(const retval: WideString); safecall;
2241
function Get_Owner: WideString; safecall;
2242
procedure Set_Owner(const retval: WideString); safecall;
2243
function Get_Division: WideString; safecall;
2244
procedure Set_Division(const retval: WideString); safecall;
2245
function Get_Department: WideString; safecall;
2246
procedure Set_Department(const retval: WideString); safecall;
2247
function Get_Role: WideString; safecall;
2248
procedure Set_Role(const retval: WideString); safecall;
2249
function Get_OperatingSystem: WideString; safecall;
2250
procedure Set_OperatingSystem(const retval: WideString); safecall;
2251
function Get_OperatingSystemVersion: WideString; safecall;
2252
procedure Set_OperatingSystemVersion(const retval: WideString); safecall;
2253
function Get_Model: WideString; safecall;
2254
procedure Set_Model(const retval: WideString); safecall;
2255
function Get_Processor: WideString; safecall;
2256
procedure Set_Processor(const retval: WideString); safecall;
2257
function Get_ProcessorCount: WideString; safecall;
2258
procedure Set_ProcessorCount(const retval: WideString); safecall;
2259
function Get_MemorySize: WideString; safecall;
2260
procedure Set_MemorySize(const retval: WideString); safecall;
2261
function Get_StorageCapacity: WideString; safecall;
2262
procedure Set_StorageCapacity(const retval: WideString); safecall;
2263
function Get_NetAddresses: OleVariant; safecall;
2264
procedure Set_NetAddresses(retval: OleVariant); safecall;
2265
property ComputerID: WideString read Get_ComputerID;
2266
property Site: WideString read Get_Site;
2267
property Description: WideString read Get_Description write Set_Description;
2268
property Location: WideString read Get_Location write Set_Location;
2269
property PrimaryUser: WideString read Get_PrimaryUser write Set_PrimaryUser;
2270
property Owner: WideString read Get_Owner write Set_Owner;
2271
property Division: WideString read Get_Division write Set_Division;
2272
property Department: WideString read Get_Department write Set_Department;
2273
property Role: WideString read Get_Role write Set_Role;
2274
property OperatingSystem: WideString read Get_OperatingSystem write Set_OperatingSystem;
2275
property OperatingSystemVersion: WideString read Get_OperatingSystemVersion write Set_OperatingSystemVersion;
2276
property Model: WideString read Get_Model write Set_Model;
2277
property Processor: WideString read Get_Processor write Set_Processor;
2278
property ProcessorCount: WideString read Get_ProcessorCount write Set_ProcessorCount;
2279
property MemorySize: WideString read Get_MemorySize write Set_MemorySize;
2280
property StorageCapacity: WideString read Get_StorageCapacity write Set_StorageCapacity;
2281
property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
2284
// *********************************************************************//
2285
// DispIntf: IADsComputerDisp
2286
// Flags: (4416) Dual OleAutomation Dispatchable
2287
// GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
2288
// *********************************************************************//
2289
{$ifdef SUPPORTS_DISPINTERFACE}
2290
IADsComputerDisp = dispinterface
2291
['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
2292
property ComputerID: WideString readonly dispid 16;
2293
property Site: WideString readonly dispid 18;
2294
property Description: WideString dispid 19;
2295
property Location: WideString dispid 20;
2296
property PrimaryUser: WideString dispid 21;
2297
property Owner: WideString dispid 22;
2298
property Division: WideString dispid 23;
2299
property Department: WideString dispid 24;
2300
property Role: WideString dispid 25;
2301
property OperatingSystem: WideString dispid 26;
2302
property OperatingSystemVersion: WideString dispid 27;
2303
property Model: WideString dispid 28;
2304
property Processor: WideString dispid 29;
2305
property ProcessorCount: WideString dispid 30;
2306
property MemorySize: WideString dispid 31;
2307
property StorageCapacity: WideString dispid 32;
2308
property NetAddresses: OleVariant dispid 17;
2309
property Name: WideString readonly dispid 2;
2310
property Class_: WideString readonly dispid 3;
2311
property GUID: WideString readonly dispid 4;
2312
property ADsPath: WideString readonly dispid 5;
2313
property Parent: WideString readonly dispid 6;
2314
property Schema: WideString readonly dispid 7;
2315
procedure GetInfo; dispid 8;
2316
procedure SetInfo; dispid 9;
2317
function Get(const bstrName: WideString): OleVariant; dispid 10;
2318
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2319
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2320
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2321
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2324
// *********************************************************************//
2325
// Interface: IADsComputerOperations
2326
// Flags: (4416) Dual OleAutomation Dispatchable
2327
// GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
2328
// *********************************************************************//
2329
IADsComputerOperations = interface(IADs)
2330
['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
2331
function Status: IDispatch; safecall;
2332
procedure Shutdown(bReboot: WordBool); safecall;
2335
// *********************************************************************//
2336
// DispIntf: IADsComputerOperationsDisp
2337
// Flags: (4416) Dual OleAutomation Dispatchable
2338
// GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
2339
// *********************************************************************//
2340
{$ifdef SUPPORTS_DISPINTERFACE}
2341
IADsComputerOperationsDisp = dispinterface
2342
['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
2343
function Status: IDispatch; dispid 33;
2344
procedure Shutdown(bReboot: WordBool); dispid 34;
2345
property Name: WideString readonly dispid 2;
2346
property Class_: WideString readonly dispid 3;
2347
property GUID: WideString readonly dispid 4;
2348
property ADsPath: WideString readonly dispid 5;
2349
property Parent: WideString readonly dispid 6;
2350
property Schema: WideString readonly dispid 7;
2351
procedure GetInfo; dispid 8;
2352
procedure SetInfo; dispid 9;
2353
function Get(const bstrName: WideString): OleVariant; dispid 10;
2354
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2355
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2356
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2357
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2360
// *********************************************************************//
2361
// Interface: IADsGroup
2362
// Flags: (4416) Dual OleAutomation Dispatchable
2363
// GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
2364
// *********************************************************************//
2365
IADsGroup = interface(IADs)
2366
['{27636B00-410F-11CF-B1FF-02608C9E7553}']
2367
function Get_Description: WideString; safecall;
2368
procedure Set_Description(const retval: WideString); safecall;
2369
function Members: IADsMembers; safecall;
2370
function IsMember(const bstrMember: WideString): WordBool; safecall;
2371
procedure Add(const bstrNewItem: WideString); safecall;
2372
procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
2373
property Description: WideString read Get_Description write Set_Description;
2376
// *********************************************************************//
2377
// DispIntf: IADsGroupDisp
2378
// Flags: (4416) Dual OleAutomation Dispatchable
2379
// GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
2380
// *********************************************************************//
2381
{$ifdef SUPPORTS_DISPINTERFACE}
2382
IADsGroupDisp = dispinterface
2383
['{27636B00-410F-11CF-B1FF-02608C9E7553}']
2384
property Description: WideString dispid 15;
2385
function Members: IADsMembers; dispid 16;
2386
function IsMember(const bstrMember: WideString): WordBool; dispid 17;
2387
procedure Add(const bstrNewItem: WideString); dispid 18;
2388
procedure Remove(const bstrItemToBeRemoved: WideString); dispid 19;
2389
property Name: WideString readonly dispid 2;
2390
property Class_: WideString readonly dispid 3;
2391
property GUID: WideString readonly dispid 4;
2392
property ADsPath: WideString readonly dispid 5;
2393
property Parent: WideString readonly dispid 6;
2394
property Schema: WideString readonly dispid 7;
2395
procedure GetInfo; dispid 8;
2396
procedure SetInfo; dispid 9;
2397
function Get(const bstrName: WideString): OleVariant; dispid 10;
2398
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2399
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2400
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2401
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2404
// *********************************************************************//
2405
// Interface: IADsUser
2406
// Flags: (4416) Dual OleAutomation Dispatchable
2407
// GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
2408
// *********************************************************************//
2409
IADsUser = interface(IADs)
2410
['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
2411
function Get_BadLoginAddress: WideString; safecall;
2412
function Get_BadLoginCount: Integer; safecall;
2413
function Get_LastLogin: TDateTime; safecall;
2414
function Get_LastLogoff: TDateTime; safecall;
2415
function Get_LastFailedLogin: TDateTime; safecall;
2416
function Get_PasswordLastChanged: TDateTime; safecall;
2417
function Get_Description: WideString; safecall;
2418
procedure Set_Description(const retval: WideString); safecall;
2419
function Get_Division: WideString; safecall;
2420
procedure Set_Division(const retval: WideString); safecall;
2421
function Get_Department: WideString; safecall;
2422
procedure Set_Department(const retval: WideString); safecall;
2423
function Get_EmployeeID: WideString; safecall;
2424
procedure Set_EmployeeID(const retval: WideString); safecall;
2425
function Get_FullName: WideString; safecall;
2426
procedure Set_FullName(const retval: WideString); safecall;
2427
function Get_FirstName: WideString; safecall;
2428
procedure Set_FirstName(const retval: WideString); safecall;
2429
function Get_LastName: WideString; safecall;
2430
procedure Set_LastName(const retval: WideString); safecall;
2431
function Get_OtherName: WideString; safecall;
2432
procedure Set_OtherName(const retval: WideString); safecall;
2433
function Get_NamePrefix: WideString; safecall;
2434
procedure Set_NamePrefix(const retval: WideString); safecall;
2435
function Get_NameSuffix: WideString; safecall;
2436
procedure Set_NameSuffix(const retval: WideString); safecall;
2437
function Get_Title: WideString; safecall;
2438
procedure Set_Title(const retval: WideString); safecall;
2439
function Get_Manager: WideString; safecall;
2440
procedure Set_Manager(const retval: WideString); safecall;
2441
function Get_TelephoneHome: OleVariant; safecall;
2442
procedure Set_TelephoneHome(retval: OleVariant); safecall;
2443
function Get_TelephoneMobile: OleVariant; safecall;
2444
procedure Set_TelephoneMobile(retval: OleVariant); safecall;
2445
function Get_TelephoneNumber: OleVariant; safecall;
2446
procedure Set_TelephoneNumber(retval: OleVariant); safecall;
2447
function Get_TelephonePager: OleVariant; safecall;
2448
procedure Set_TelephonePager(retval: OleVariant); safecall;
2449
function Get_FaxNumber: OleVariant; safecall;
2450
procedure Set_FaxNumber(retval: OleVariant); safecall;
2451
function Get_OfficeLocations: OleVariant; safecall;
2452
procedure Set_OfficeLocations(retval: OleVariant); safecall;
2453
function Get_PostalAddresses: OleVariant; safecall;
2454
procedure Set_PostalAddresses(retval: OleVariant); safecall;
2455
function Get_PostalCodes: OleVariant; safecall;
2456
procedure Set_PostalCodes(retval: OleVariant); safecall;
2457
function Get_SeeAlso: OleVariant; safecall;
2458
procedure Set_SeeAlso(retval: OleVariant); safecall;
2459
function Get_AccountDisabled: WordBool; safecall;
2460
procedure Set_AccountDisabled(retval: WordBool); safecall;
2461
function Get_AccountExpirationDate: TDateTime; safecall;
2462
procedure Set_AccountExpirationDate(retval: TDateTime); safecall;
2463
function Get_GraceLoginsAllowed: Integer; safecall;
2464
procedure Set_GraceLoginsAllowed(retval: Integer); safecall;
2465
function Get_GraceLoginsRemaining: Integer; safecall;
2466
procedure Set_GraceLoginsRemaining(retval: Integer); safecall;
2467
function Get_IsAccountLocked: WordBool; safecall;
2468
procedure Set_IsAccountLocked(retval: WordBool); safecall;
2469
function Get_LoginHours: OleVariant; safecall;
2470
procedure Set_LoginHours(retval: OleVariant); safecall;
2471
function Get_LoginWorkstations: OleVariant; safecall;
2472
procedure Set_LoginWorkstations(retval: OleVariant); safecall;
2473
function Get_MaxLogins: Integer; safecall;
2474
procedure Set_MaxLogins(retval: Integer); safecall;
2475
function Get_MaxStorage: Integer; safecall;
2476
procedure Set_MaxStorage(retval: Integer); safecall;
2477
function Get_PasswordExpirationDate: TDateTime; safecall;
2478
procedure Set_PasswordExpirationDate(retval: TDateTime); safecall;
2479
function Get_PasswordMinimumLength: Integer; safecall;
2480
procedure Set_PasswordMinimumLength(retval: Integer); safecall;
2481
function Get_PasswordRequired: WordBool; safecall;
2482
procedure Set_PasswordRequired(retval: WordBool); safecall;
2483
function Get_RequireUniquePassword: WordBool; safecall;
2484
procedure Set_RequireUniquePassword(retval: WordBool); safecall;
2485
function Get_EmailAddress: WideString; safecall;
2486
procedure Set_EmailAddress(const retval: WideString); safecall;
2487
function Get_HomeDirectory: WideString; safecall;
2488
procedure Set_HomeDirectory(const retval: WideString); safecall;
2489
function Get_Languages: OleVariant; safecall;
2490
procedure Set_Languages(retval: OleVariant); safecall;
2491
function Get_Profile: WideString; safecall;
2492
procedure Set_Profile(const retval: WideString); safecall;
2493
function Get_LoginScript: WideString; safecall;
2494
procedure Set_LoginScript(const retval: WideString); safecall;
2495
function Get_Picture: OleVariant; safecall;
2496
procedure Set_Picture(retval: OleVariant); safecall;
2497
function Get_HomePage: WideString; safecall;
2498
procedure Set_HomePage(const retval: WideString); safecall;
2499
function Groups: IADsMembers; safecall;
2500
procedure SetPassword(const NewPassword: WideString); safecall;
2501
procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); safecall;
2502
property BadLoginAddress: WideString read Get_BadLoginAddress;
2503
property BadLoginCount: Integer read Get_BadLoginCount;
2504
property LastLogin: TDateTime read Get_LastLogin;
2505
property LastLogoff: TDateTime read Get_LastLogoff;
2506
property LastFailedLogin: TDateTime read Get_LastFailedLogin;
2507
property PasswordLastChanged: TDateTime read Get_PasswordLastChanged;
2508
property Description: WideString read Get_Description write Set_Description;
2509
property Division: WideString read Get_Division write Set_Division;
2510
property Department: WideString read Get_Department write Set_Department;
2511
property EmployeeID: WideString read Get_EmployeeID write Set_EmployeeID;
2512
property FullName: WideString read Get_FullName write Set_FullName;
2513
property FirstName: WideString read Get_FirstName write Set_FirstName;
2514
property LastName: WideString read Get_LastName write Set_LastName;
2515
property OtherName: WideString read Get_OtherName write Set_OtherName;
2516
property NamePrefix: WideString read Get_NamePrefix write Set_NamePrefix;
2517
property NameSuffix: WideString read Get_NameSuffix write Set_NameSuffix;
2518
property Title: WideString read Get_Title write Set_Title;
2519
property Manager: WideString read Get_Manager write Set_Manager;
2520
property TelephoneHome: OleVariant read Get_TelephoneHome write Set_TelephoneHome;
2521
property TelephoneMobile: OleVariant read Get_TelephoneMobile write Set_TelephoneMobile;
2522
property TelephoneNumber: OleVariant read Get_TelephoneNumber write Set_TelephoneNumber;
2523
property TelephonePager: OleVariant read Get_TelephonePager write Set_TelephonePager;
2524
property FaxNumber: OleVariant read Get_FaxNumber write Set_FaxNumber;
2525
property OfficeLocations: OleVariant read Get_OfficeLocations write Set_OfficeLocations;
2526
property PostalAddresses: OleVariant read Get_PostalAddresses write Set_PostalAddresses;
2527
property PostalCodes: OleVariant read Get_PostalCodes write Set_PostalCodes;
2528
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
2529
property AccountDisabled: WordBool read Get_AccountDisabled write Set_AccountDisabled;
2530
property AccountExpirationDate: TDateTime read Get_AccountExpirationDate write Set_AccountExpirationDate;
2531
property GraceLoginsAllowed: Integer read Get_GraceLoginsAllowed write Set_GraceLoginsAllowed;
2532
property GraceLoginsRemaining: Integer read Get_GraceLoginsRemaining write Set_GraceLoginsRemaining;
2533
property IsAccountLocked: WordBool read Get_IsAccountLocked write Set_IsAccountLocked;
2534
property LoginHours: OleVariant read Get_LoginHours write Set_LoginHours;
2535
property LoginWorkstations: OleVariant read Get_LoginWorkstations write Set_LoginWorkstations;
2536
property MaxLogins: Integer read Get_MaxLogins write Set_MaxLogins;
2537
property MaxStorage: Integer read Get_MaxStorage write Set_MaxStorage;
2538
property PasswordExpirationDate: TDateTime read Get_PasswordExpirationDate write Set_PasswordExpirationDate;
2539
property PasswordMinimumLength: Integer read Get_PasswordMinimumLength write Set_PasswordMinimumLength;
2540
property PasswordRequired: WordBool read Get_PasswordRequired write Set_PasswordRequired;
2541
property RequireUniquePassword: WordBool read Get_RequireUniquePassword write Set_RequireUniquePassword;
2542
property EmailAddress: WideString read Get_EmailAddress write Set_EmailAddress;
2543
property HomeDirectory: WideString read Get_HomeDirectory write Set_HomeDirectory;
2544
property Languages: OleVariant read Get_Languages write Set_Languages;
2545
property Profile: WideString read Get_Profile write Set_Profile;
2546
property LoginScript: WideString read Get_LoginScript write Set_LoginScript;
2547
property Picture: OleVariant read Get_Picture write Set_Picture;
2548
property HomePage: WideString read Get_HomePage write Set_HomePage;
2551
// *********************************************************************//
2552
// DispIntf: IADsUserDisp
2553
// Flags: (4416) Dual OleAutomation Dispatchable
2554
// GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
2555
// *********************************************************************//
2556
{$ifdef SUPPORTS_DISPINTERFACE}
2557
IADsUserDisp = dispinterface
2558
['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
2559
property BadLoginAddress: WideString readonly dispid 53;
2560
property BadLoginCount: Integer readonly dispid 54;
2561
property LastLogin: TDateTime readonly dispid 56;
2562
property LastLogoff: TDateTime readonly dispid 57;
2563
property LastFailedLogin: TDateTime readonly dispid 58;
2564
property PasswordLastChanged: TDateTime readonly dispid 59;
2565
property Description: WideString dispid 15;
2566
property Division: WideString dispid 19;
2567
property Department: WideString dispid 122;
2568
property EmployeeID: WideString dispid 20;
2569
property FullName: WideString dispid 23;
2570
property FirstName: WideString dispid 22;
2571
property LastName: WideString dispid 25;
2572
property OtherName: WideString dispid 27;
2573
property NamePrefix: WideString dispid 114;
2574
property NameSuffix: WideString dispid 115;
2575
property Title: WideString dispid 36;
2576
property Manager: WideString dispid 26;
2577
property TelephoneHome: OleVariant dispid 32;
2578
property TelephoneMobile: OleVariant dispid 33;
2579
property TelephoneNumber: OleVariant dispid 34;
2580
property TelephonePager: OleVariant dispid 17;
2581
property FaxNumber: OleVariant dispid 16;
2582
property OfficeLocations: OleVariant dispid 28;
2583
property PostalAddresses: OleVariant dispid 30;
2584
property PostalCodes: OleVariant dispid 31;
2585
property SeeAlso: OleVariant dispid 117;
2586
property AccountDisabled: WordBool dispid 37;
2587
property AccountExpirationDate: TDateTime dispid 38;
2588
property GraceLoginsAllowed: Integer dispid 41;
2589
property GraceLoginsRemaining: Integer dispid 42;
2590
property IsAccountLocked: WordBool dispid 43;
2591
property LoginHours: OleVariant dispid 45;
2592
property LoginWorkstations: OleVariant dispid 46;
2593
property MaxLogins: Integer dispid 47;
2594
property MaxStorage: Integer dispid 48;
2595
property PasswordExpirationDate: TDateTime dispid 49;
2596
property PasswordMinimumLength: Integer dispid 50;
2597
property PasswordRequired: WordBool dispid 51;
2598
property RequireUniquePassword: WordBool dispid 52;
2599
property EmailAddress: WideString dispid 60;
2600
property HomeDirectory: WideString dispid 61;
2601
property Languages: OleVariant dispid 62;
2602
property Profile: WideString dispid 63;
2603
property LoginScript: WideString dispid 64;
2604
property Picture: OleVariant dispid 65;
2605
property HomePage: WideString dispid 120;
2606
function Groups: IADsMembers; dispid 66;
2607
procedure SetPassword(const NewPassword: WideString); dispid 67;
2608
procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); dispid 68;
2609
property Name: WideString readonly dispid 2;
2610
property Class_: WideString readonly dispid 3;
2611
property GUID: WideString readonly dispid 4;
2612
property ADsPath: WideString readonly dispid 5;
2613
property Parent: WideString readonly dispid 6;
2614
property Schema: WideString readonly dispid 7;
2615
procedure GetInfo; dispid 8;
2616
procedure SetInfo; dispid 9;
2617
function Get(const bstrName: WideString): OleVariant; dispid 10;
2618
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2619
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2620
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2621
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2624
// *********************************************************************//
2625
// Interface: IADsPrintQueue
2626
// Flags: (4416) Dual OleAutomation Dispatchable
2627
// GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
2628
// *********************************************************************//
2629
IADsPrintQueue = interface(IADs)
2630
['{B15160D0-1226-11CF-A985-00AA006BC149}']
2631
function Get_PrinterPath: WideString; safecall;
2632
procedure Set_PrinterPath(const retval: WideString); safecall;
2633
function Get_Model: WideString; safecall;
2634
procedure Set_Model(const retval: WideString); safecall;
2635
function Get_Datatype: WideString; safecall;
2636
procedure Set_Datatype(const retval: WideString); safecall;
2637
function Get_PrintProcessor: WideString; safecall;
2638
procedure Set_PrintProcessor(const retval: WideString); safecall;
2639
function Get_Description: WideString; safecall;
2640
procedure Set_Description(const retval: WideString); safecall;
2641
function Get_Location: WideString; safecall;
2642
procedure Set_Location(const retval: WideString); safecall;
2643
function Get_StartTime: TDateTime; safecall;
2644
procedure Set_StartTime(retval: TDateTime); safecall;
2645
function Get_UntilTime: TDateTime; safecall;
2646
procedure Set_UntilTime(retval: TDateTime); safecall;
2647
function Get_DefaultJobPriority: Integer; safecall;
2648
procedure Set_DefaultJobPriority(retval: Integer); safecall;
2649
function Get_Priority: Integer; safecall;
2650
procedure Set_Priority(retval: Integer); safecall;
2651
function Get_BannerPage: WideString; safecall;
2652
procedure Set_BannerPage(const retval: WideString); safecall;
2653
function Get_PrintDevices: OleVariant; safecall;
2654
procedure Set_PrintDevices(retval: OleVariant); safecall;
2655
function Get_NetAddresses: OleVariant; safecall;
2656
procedure Set_NetAddresses(retval: OleVariant); safecall;
2657
property PrinterPath: WideString read Get_PrinterPath write Set_PrinterPath;
2658
property Model: WideString read Get_Model write Set_Model;
2659
property Datatype: WideString read Get_Datatype write Set_Datatype;
2660
property PrintProcessor: WideString read Get_PrintProcessor write Set_PrintProcessor;
2661
property Description: WideString read Get_Description write Set_Description;
2662
property Location: WideString read Get_Location write Set_Location;
2663
property StartTime: TDateTime read Get_StartTime write Set_StartTime;
2664
property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
2665
property DefaultJobPriority: Integer read Get_DefaultJobPriority write Set_DefaultJobPriority;
2666
property Priority: Integer read Get_Priority write Set_Priority;
2667
property BannerPage: WideString read Get_BannerPage write Set_BannerPage;
2668
property PrintDevices: OleVariant read Get_PrintDevices write Set_PrintDevices;
2669
property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
2672
// *********************************************************************//
2673
// DispIntf: IADsPrintQueueDisp
2674
// Flags: (4416) Dual OleAutomation Dispatchable
2675
// GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
2676
// *********************************************************************//
2677
{$ifdef SUPPORTS_DISPINTERFACE}
2678
IADsPrintQueueDisp = dispinterface
2679
['{B15160D0-1226-11CF-A985-00AA006BC149}']
2680
property PrinterPath: WideString dispid 15;
2681
property Model: WideString dispid 16;
2682
property Datatype: WideString dispid 17;
2683
property PrintProcessor: WideString dispid 18;
2684
property Description: WideString dispid 19;
2685
property Location: WideString dispid 20;
2686
property StartTime: TDateTime dispid 21;
2687
property UntilTime: TDateTime dispid 22;
2688
property DefaultJobPriority: Integer dispid 23;
2689
property Priority: Integer dispid 24;
2690
property BannerPage: WideString dispid 25;
2691
property PrintDevices: OleVariant dispid 26;
2692
property NetAddresses: OleVariant dispid 27;
2693
property Name: WideString readonly dispid 2;
2694
property Class_: WideString readonly dispid 3;
2695
property GUID: WideString readonly dispid 4;
2696
property ADsPath: WideString readonly dispid 5;
2697
property Parent: WideString readonly dispid 6;
2698
property Schema: WideString readonly dispid 7;
2699
procedure GetInfo; dispid 8;
2700
procedure SetInfo; dispid 9;
2701
function Get(const bstrName: WideString): OleVariant; dispid 10;
2702
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2703
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2704
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2705
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2708
// *********************************************************************//
2709
// Interface: IADsPrintQueueOperations
2710
// Flags: (4416) Dual OleAutomation Dispatchable
2711
// GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
2712
// *********************************************************************//
2713
IADsPrintQueueOperations = interface(IADs)
2714
['{124BE5C0-156E-11CF-A986-00AA006BC149}']
2715
function Get_Status: Integer; safecall;
2716
function PrintJobs: IADsCollection; safecall;
2717
procedure Pause; safecall;
2718
procedure Resume; safecall;
2719
procedure Purge; safecall;
2720
property Status: Integer read Get_Status;
2723
// *********************************************************************//
2724
// DispIntf: IADsPrintQueueOperationsDisp
2725
// Flags: (4416) Dual OleAutomation Dispatchable
2726
// GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
2727
// *********************************************************************//
2728
{$ifdef SUPPORTS_DISPINTERFACE}
2729
IADsPrintQueueOperationsDisp = dispinterface
2730
['{124BE5C0-156E-11CF-A986-00AA006BC149}']
2731
property Status: Integer readonly dispid 27;
2732
function PrintJobs: IADsCollection; dispid 28;
2733
procedure Pause; dispid 29;
2734
procedure Resume; dispid 30;
2735
procedure Purge; dispid 31;
2736
property Name: WideString readonly dispid 2;
2737
property Class_: WideString readonly dispid 3;
2738
property GUID: WideString readonly dispid 4;
2739
property ADsPath: WideString readonly dispid 5;
2740
property Parent: WideString readonly dispid 6;
2741
property Schema: WideString readonly dispid 7;
2742
procedure GetInfo; dispid 8;
2743
procedure SetInfo; dispid 9;
2744
function Get(const bstrName: WideString): OleVariant; dispid 10;
2745
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2746
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2747
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2748
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2751
// *********************************************************************//
2752
// Interface: IADsPrintJob
2753
// Flags: (4416) Dual OleAutomation Dispatchable
2754
// GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
2755
// *********************************************************************//
2756
IADsPrintJob = interface(IADs)
2757
['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
2758
function Get_HostPrintQueue: WideString; safecall;
2759
function Get_User: WideString; safecall;
2760
function Get_UserPath: WideString; safecall;
2761
function Get_TimeSubmitted: TDateTime; safecall;
2762
function Get_TotalPages: Integer; safecall;
2763
function Get_Size: Integer; safecall;
2764
function Get_Description: WideString; safecall;
2765
procedure Set_Description(const retval: WideString); safecall;
2766
function Get_Priority: Integer; safecall;
2767
procedure Set_Priority(retval: Integer); safecall;
2768
function Get_StartTime: TDateTime; safecall;
2769
procedure Set_StartTime(retval: TDateTime); safecall;
2770
function Get_UntilTime: TDateTime; safecall;
2771
procedure Set_UntilTime(retval: TDateTime); safecall;
2772
function Get_Notify: WideString; safecall;
2773
procedure Set_Notify(const retval: WideString); safecall;
2774
function Get_NotifyPath: WideString; safecall;
2775
procedure Set_NotifyPath(const retval: WideString); safecall;
2776
property HostPrintQueue: WideString read Get_HostPrintQueue;
2777
property User: WideString read Get_User;
2778
property UserPath: WideString read Get_UserPath;
2779
property TimeSubmitted: TDateTime read Get_TimeSubmitted;
2780
property TotalPages: Integer read Get_TotalPages;
2781
property Size: Integer read Get_Size;
2782
property Description: WideString read Get_Description write Set_Description;
2783
property Priority: Integer read Get_Priority write Set_Priority;
2784
property StartTime: TDateTime read Get_StartTime write Set_StartTime;
2785
property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
2786
property Notify: WideString read Get_Notify write Set_Notify;
2787
property NotifyPath: WideString read Get_NotifyPath write Set_NotifyPath;
2790
// *********************************************************************//
2791
// DispIntf: IADsPrintJobDisp
2792
// Flags: (4416) Dual OleAutomation Dispatchable
2793
// GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
2794
// *********************************************************************//
2795
{$ifdef SUPPORTS_DISPINTERFACE}
2796
IADsPrintJobDisp = dispinterface
2797
['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
2798
property HostPrintQueue: WideString readonly dispid 15;
2799
property User: WideString readonly dispid 16;
2800
property UserPath: WideString readonly dispid 17;
2801
property TimeSubmitted: TDateTime readonly dispid 18;
2802
property TotalPages: Integer readonly dispid 19;
2803
property Size: Integer readonly dispid 234;
2804
property Description: WideString dispid 20;
2805
property Priority: Integer dispid 21;
2806
property StartTime: TDateTime dispid 22;
2807
property UntilTime: TDateTime dispid 23;
2808
property Notify: WideString dispid 24;
2809
property NotifyPath: WideString dispid 25;
2810
property Name: WideString readonly dispid 2;
2811
property Class_: WideString readonly dispid 3;
2812
property GUID: WideString readonly dispid 4;
2813
property ADsPath: WideString readonly dispid 5;
2814
property Parent: WideString readonly dispid 6;
2815
property Schema: WideString readonly dispid 7;
2816
procedure GetInfo; dispid 8;
2817
procedure SetInfo; dispid 9;
2818
function Get(const bstrName: WideString): OleVariant; dispid 10;
2819
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2820
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2821
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2822
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2825
// *********************************************************************//
2826
// Interface: IADsPrintJobOperations
2827
// Flags: (4416) Dual OleAutomation Dispatchable
2828
// GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
2829
// *********************************************************************//
2830
IADsPrintJobOperations = interface(IADs)
2831
['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
2832
function Get_Status: Integer; safecall;
2833
function Get_TimeElapsed: Integer; safecall;
2834
function Get_PagesPrinted: Integer; safecall;
2835
function Get_Position: Integer; safecall;
2836
procedure Set_Position(retval: Integer); safecall;
2837
procedure Pause; safecall;
2838
procedure Resume; safecall;
2839
property Status: Integer read Get_Status;
2840
property TimeElapsed: Integer read Get_TimeElapsed;
2841
property PagesPrinted: Integer read Get_PagesPrinted;
2842
property Position: Integer read Get_Position write Set_Position;
2845
// *********************************************************************//
2846
// DispIntf: IADsPrintJobOperationsDisp
2847
// Flags: (4416) Dual OleAutomation Dispatchable
2848
// GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
2849
// *********************************************************************//
2850
{$ifdef SUPPORTS_DISPINTERFACE}
2851
IADsPrintJobOperationsDisp = dispinterface
2852
['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
2853
property Status: Integer readonly dispid 26;
2854
property TimeElapsed: Integer readonly dispid 27;
2855
property PagesPrinted: Integer readonly dispid 28;
2856
property Position: Integer dispid 29;
2857
procedure Pause; dispid 30;
2858
procedure Resume; dispid 31;
2859
property Name: WideString readonly dispid 2;
2860
property Class_: WideString readonly dispid 3;
2861
property GUID: WideString readonly dispid 4;
2862
property ADsPath: WideString readonly dispid 5;
2863
property Parent: WideString readonly dispid 6;
2864
property Schema: WideString readonly dispid 7;
2865
procedure GetInfo; dispid 8;
2866
procedure SetInfo; dispid 9;
2867
function Get(const bstrName: WideString): OleVariant; dispid 10;
2868
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2869
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2870
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2871
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2874
// *********************************************************************//
2875
// Interface: IADsService
2876
// Flags: (4416) Dual OleAutomation Dispatchable
2877
// GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
2878
// *********************************************************************//
2879
IADsService = interface(IADs)
2880
['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
2881
function Get_HostComputer: WideString; safecall;
2882
procedure Set_HostComputer(const retval: WideString); safecall;
2883
function Get_DisplayName: WideString; safecall;
2884
procedure Set_DisplayName(const retval: WideString); safecall;
2885
function Get_Version: WideString; safecall;
2886
procedure Set_Version(const retval: WideString); safecall;
2887
function Get_ServiceType: Integer; safecall;
2888
procedure Set_ServiceType(retval: Integer); safecall;
2889
function Get_StartType: Integer; safecall;
2890
procedure Set_StartType(retval: Integer); safecall;
2891
function Get_Path: WideString; safecall;
2892
procedure Set_Path(const retval: WideString); safecall;
2893
function Get_StartupParameters: WideString; safecall;
2894
procedure Set_StartupParameters(const retval: WideString); safecall;
2895
function Get_ErrorControl: Integer; safecall;
2896
procedure Set_ErrorControl(retval: Integer); safecall;
2897
function Get_LoadOrderGroup: WideString; safecall;
2898
procedure Set_LoadOrderGroup(const retval: WideString); safecall;
2899
function Get_ServiceAccountName: WideString; safecall;
2900
procedure Set_ServiceAccountName(const retval: WideString); safecall;
2901
function Get_ServiceAccountPath: WideString; safecall;
2902
procedure Set_ServiceAccountPath(const retval: WideString); safecall;
2903
function Get_Dependencies: OleVariant; safecall;
2904
procedure Set_Dependencies(retval: OleVariant); safecall;
2905
property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
2906
property DisplayName: WideString read Get_DisplayName write Set_DisplayName;
2907
property Version: WideString read Get_Version write Set_Version;
2908
property ServiceType: Integer read Get_ServiceType write Set_ServiceType;
2909
property StartType: Integer read Get_StartType write Set_StartType;
2910
property Path: WideString read Get_Path write Set_Path;
2911
property StartupParameters: WideString read Get_StartupParameters write Set_StartupParameters;
2912
property ErrorControl: Integer read Get_ErrorControl write Set_ErrorControl;
2913
property LoadOrderGroup: WideString read Get_LoadOrderGroup write Set_LoadOrderGroup;
2914
property ServiceAccountName: WideString read Get_ServiceAccountName write Set_ServiceAccountName;
2915
property ServiceAccountPath: WideString read Get_ServiceAccountPath write Set_ServiceAccountPath;
2916
property Dependencies: OleVariant read Get_Dependencies write Set_Dependencies;
2919
// *********************************************************************//
2920
// DispIntf: IADsServiceDisp
2921
// Flags: (4416) Dual OleAutomation Dispatchable
2922
// GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
2923
// *********************************************************************//
2924
{$ifdef SUPPORTS_DISPINTERFACE}
2925
IADsServiceDisp = dispinterface
2926
['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
2927
property HostComputer: WideString dispid 15;
2928
property DisplayName: WideString dispid 16;
2929
property Version: WideString dispid 17;
2930
property ServiceType: Integer dispid 18;
2931
property StartType: Integer dispid 19;
2932
property Path: WideString dispid 20;
2933
property StartupParameters: WideString dispid 21;
2934
property ErrorControl: Integer dispid 22;
2935
property LoadOrderGroup: WideString dispid 23;
2936
property ServiceAccountName: WideString dispid 24;
2937
property ServiceAccountPath: WideString dispid 25;
2938
property Dependencies: OleVariant dispid 26;
2939
property Name: WideString readonly dispid 2;
2940
property Class_: WideString readonly dispid 3;
2941
property GUID: WideString readonly dispid 4;
2942
property ADsPath: WideString readonly dispid 5;
2943
property Parent: WideString readonly dispid 6;
2944
property Schema: WideString readonly dispid 7;
2945
procedure GetInfo; dispid 8;
2946
procedure SetInfo; dispid 9;
2947
function Get(const bstrName: WideString): OleVariant; dispid 10;
2948
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2949
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2950
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2951
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2954
// *********************************************************************//
2955
// Interface: IADsServiceOperations
2956
// Flags: (4416) Dual OleAutomation Dispatchable
2957
// GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
2958
// *********************************************************************//
2959
IADsServiceOperations = interface(IADs)
2960
['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
2961
function Get_Status: Integer; safecall;
2962
procedure Start; safecall;
2963
procedure Stop; safecall;
2964
procedure Pause; safecall;
2965
procedure Continue; safecall;
2966
procedure SetPassword(const bstrNewPassword: WideString); safecall;
2967
property Status: Integer read Get_Status;
2970
// *********************************************************************//
2971
// DispIntf: IADsServiceOperationsDisp
2972
// Flags: (4416) Dual OleAutomation Dispatchable
2973
// GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
2974
// *********************************************************************//
2975
{$ifdef SUPPORTS_DISPINTERFACE}
2976
IADsServiceOperationsDisp = dispinterface
2977
['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
2978
property Status: Integer readonly dispid 27;
2979
procedure Start; dispid 28;
2980
procedure Stop; dispid 29;
2981
procedure Pause; dispid 30;
2982
procedure Continue; dispid 31;
2983
procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
2984
property Name: WideString readonly dispid 2;
2985
property Class_: WideString readonly dispid 3;
2986
property GUID: WideString readonly dispid 4;
2987
property ADsPath: WideString readonly dispid 5;
2988
property Parent: WideString readonly dispid 6;
2989
property Schema: WideString readonly dispid 7;
2990
procedure GetInfo; dispid 8;
2991
procedure SetInfo; dispid 9;
2992
function Get(const bstrName: WideString): OleVariant; dispid 10;
2993
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2994
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2995
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2996
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3000
// *********************************************************************//
3001
// Interface: IADsFileService
3002
// Flags: (4416) Dual OleAutomation Dispatchable
3003
// GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
3004
// *********************************************************************//
3005
IADsFileService = interface(IADsService)
3006
['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
3007
function Get_Description: WideString; safecall;
3008
procedure Set_Description(const retval: WideString); safecall;
3009
function Get_MaxUserCount: Integer; safecall;
3010
procedure Set_MaxUserCount(retval: Integer); safecall;
3011
property Description: WideString read Get_Description write Set_Description;
3012
property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
3015
// *********************************************************************//
3016
// DispIntf: IADsFileServiceDisp
3017
// Flags: (4416) Dual OleAutomation Dispatchable
3018
// GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
3019
// *********************************************************************//
3020
{$ifdef SUPPORTS_DISPINTERFACE}
3021
IADsFileServiceDisp = dispinterface
3022
['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
3023
property Description: WideString dispid 33;
3024
property MaxUserCount: Integer dispid 34;
3025
property HostComputer: WideString dispid 15;
3026
property DisplayName: WideString dispid 16;
3027
property Version: WideString dispid 17;
3028
property ServiceType: Integer dispid 18;
3029
property StartType: Integer dispid 19;
3030
property Path: WideString dispid 20;
3031
property StartupParameters: WideString dispid 21;
3032
property ErrorControl: Integer dispid 22;
3033
property LoadOrderGroup: WideString dispid 23;
3034
property ServiceAccountName: WideString dispid 24;
3035
property ServiceAccountPath: WideString dispid 25;
3036
property Dependencies: OleVariant dispid 26;
3037
property Name: WideString readonly dispid 2;
3038
property Class_: WideString readonly dispid 3;
3039
property GUID: WideString readonly dispid 4;
3040
property ADsPath: WideString readonly dispid 5;
3041
property Parent: WideString readonly dispid 6;
3042
property Schema: WideString readonly dispid 7;
3043
procedure GetInfo; dispid 8;
3044
procedure SetInfo; dispid 9;
3045
function Get(const bstrName: WideString): OleVariant; dispid 10;
3046
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3047
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3048
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3049
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3052
// *********************************************************************//
3053
// Interface: IADsFileServiceOperations
3054
// Flags: (4416) Dual OleAutomation Dispatchable
3055
// GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
3056
// *********************************************************************//
3057
IADsFileServiceOperations = interface(IADsServiceOperations)
3058
['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
3059
function Sessions: IADsCollection; safecall;
3060
function Resources: IADsCollection; safecall;
3063
// *********************************************************************//
3064
// DispIntf: IADsFileServiceOperationsDisp
3065
// Flags: (4416) Dual OleAutomation Dispatchable
3066
// GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
3067
// *********************************************************************//
3068
{$ifdef SUPPORTS_DISPINTERFACE}
3069
IADsFileServiceOperationsDisp = dispinterface
3070
['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
3071
function Sessions: IADsCollection; dispid 35;
3072
function Resources: IADsCollection; dispid 36;
3073
property Status: Integer readonly dispid 27;
3074
procedure Start; dispid 28;
3075
procedure Stop; dispid 29;
3076
procedure Pause; dispid 30;
3077
procedure Continue; dispid 31;
3078
procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
3079
property Name: WideString readonly dispid 2;
3080
property Class_: WideString readonly dispid 3;
3081
property GUID: WideString readonly dispid 4;
3082
property ADsPath: WideString readonly dispid 5;
3083
property Parent: WideString readonly dispid 6;
3084
property Schema: WideString readonly dispid 7;
3085
procedure GetInfo; dispid 8;
3086
procedure SetInfo; dispid 9;
3087
function Get(const bstrName: WideString): OleVariant; dispid 10;
3088
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3089
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3090
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3091
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3094
// *********************************************************************//
3095
// Interface: IADsFileShare
3096
// Flags: (4416) Dual OleAutomation Dispatchable
3097
// GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
3098
// *********************************************************************//
3099
IADsFileShare = interface(IADs)
3100
['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
3101
function Get_CurrentUserCount: Integer; safecall;
3102
function Get_Description: WideString; safecall;
3103
procedure Set_Description(const retval: WideString); safecall;
3104
function Get_HostComputer: WideString; safecall;
3105
procedure Set_HostComputer(const retval: WideString); safecall;
3106
function Get_Path: WideString; safecall;
3107
procedure Set_Path(const retval: WideString); safecall;
3108
function Get_MaxUserCount: Integer; safecall;
3109
procedure Set_MaxUserCount(retval: Integer); safecall;
3110
property CurrentUserCount: Integer read Get_CurrentUserCount;
3111
property Description: WideString read Get_Description write Set_Description;
3112
property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
3113
property Path: WideString read Get_Path write Set_Path;
3114
property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
3117
// *********************************************************************//
3118
// DispIntf: IADsFileShareDisp
3119
// Flags: (4416) Dual OleAutomation Dispatchable
3120
// GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
3121
// *********************************************************************//
3122
{$ifdef SUPPORTS_DISPINTERFACE}
3123
IADsFileShareDisp = dispinterface
3124
['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
3125
property CurrentUserCount: Integer readonly dispid 15;
3126
property Description: WideString dispid 16;
3127
property HostComputer: WideString dispid 17;
3128
property Path: WideString dispid 18;
3129
property MaxUserCount: Integer dispid 19;
3130
property Name: WideString readonly dispid 2;
3131
property Class_: WideString readonly dispid 3;
3132
property GUID: WideString readonly dispid 4;
3133
property ADsPath: WideString readonly dispid 5;
3134
property Parent: WideString readonly dispid 6;
3135
property Schema: WideString readonly dispid 7;
3136
procedure GetInfo; dispid 8;
3137
procedure SetInfo; dispid 9;
3138
function Get(const bstrName: WideString): OleVariant; dispid 10;
3139
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3140
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3141
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3142
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3146
// *********************************************************************//
3147
// Interface: IADsSession
3148
// Flags: (4416) Dual OleAutomation Dispatchable
3149
// GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
3150
// *********************************************************************//
3151
IADsSession = interface(IADs)
3152
['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
3153
function Get_User: WideString; safecall;
3154
function Get_UserPath: WideString; safecall;
3155
function Get_Computer: WideString; safecall;
3156
function Get_ComputerPath: WideString; safecall;
3157
function Get_ConnectTime: Integer; safecall;
3158
function Get_IdleTime: Integer; safecall;
3159
property User: WideString read Get_User;
3160
property UserPath: WideString read Get_UserPath;
3161
property Computer: WideString read Get_Computer;
3162
property ComputerPath: WideString read Get_ComputerPath;
3163
property ConnectTime: Integer read Get_ConnectTime;
3164
property IdleTime: Integer read Get_IdleTime;
3167
// *********************************************************************//
3168
// DispIntf: IADsSessionDisp
3169
// Flags: (4416) Dual OleAutomation Dispatchable
3170
// GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
3171
// *********************************************************************//
3172
{$ifdef SUPPORTS_DISPINTERFACE}
3173
IADsSessionDisp = dispinterface
3174
['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
3175
property User: WideString readonly dispid 15;
3176
property UserPath: WideString readonly dispid 16;
3177
property Computer: WideString readonly dispid 17;
3178
property ComputerPath: WideString readonly dispid 18;
3179
property ConnectTime: Integer readonly dispid 19;
3180
property IdleTime: Integer readonly dispid 20;
3181
property Name: WideString readonly dispid 2;
3182
property Class_: WideString readonly dispid 3;
3183
property GUID: WideString readonly dispid 4;
3184
property ADsPath: WideString readonly dispid 5;
3185
property Parent: WideString readonly dispid 6;
3186
property Schema: WideString readonly dispid 7;
3187
procedure GetInfo; dispid 8;
3188
procedure SetInfo; dispid 9;
3189
function Get(const bstrName: WideString): OleVariant; dispid 10;
3190
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3191
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3192
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3193
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3196
// *********************************************************************//
3197
// Interface: IADsResource
3198
// Flags: (4416) Dual OleAutomation Dispatchable
3199
// GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
3200
// *********************************************************************//
3201
IADsResource = interface(IADs)
3202
['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
3203
function Get_User: WideString; safecall;
3204
function Get_UserPath: WideString; safecall;
3205
function Get_Path: WideString; safecall;
3206
function Get_LockCount: Integer; safecall;
3207
property User: WideString read Get_User;
3208
property UserPath: WideString read Get_UserPath;
3209
property Path: WideString read Get_Path;
3210
property LockCount: Integer read Get_LockCount;
3213
// *********************************************************************//
3214
// DispIntf: IADsResourceDisp
3215
// Flags: (4416) Dual OleAutomation Dispatchable
3216
// GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
3217
// *********************************************************************//
3218
{$ifdef SUPPORTS_DISPINTERFACE}
3219
IADsResourceDisp = dispinterface
3220
['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
3221
property User: WideString readonly dispid 15;
3222
property UserPath: WideString readonly dispid 16;
3223
property Path: WideString readonly dispid 17;
3224
property LockCount: Integer readonly dispid 18;
3225
property Name: WideString readonly dispid 2;
3226
property Class_: WideString readonly dispid 3;
3227
property GUID: WideString readonly dispid 4;
3228
property ADsPath: WideString readonly dispid 5;
3229
property Parent: WideString readonly dispid 6;
3230
property Schema: WideString readonly dispid 7;
3231
procedure GetInfo; dispid 8;
3232
procedure SetInfo; dispid 9;
3233
function Get(const bstrName: WideString): OleVariant; dispid 10;
3234
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3235
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3236
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3237
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3240
// *********************************************************************//
3241
// Interface: IADsOpenDSObject
3242
// Flags: (4416) Dual OleAutomation Dispatchable
3243
// GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
3244
// *********************************************************************//
3245
IADsOpenDSObject = interface(IDispatch)
3246
['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
3247
function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
3248
const lpszPassword: WideString; lnReserved: Integer): IDispatch; safecall;
3251
// *********************************************************************//
3252
// DispIntf: IADsOpenDSObjectDisp
3253
// Flags: (4416) Dual OleAutomation Dispatchable
3254
// GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
3255
// *********************************************************************//
3256
{$ifdef SUPPORTS_DISPINTERFACE}
3257
IADsOpenDSObjectDisp = dispinterface
3258
['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
3259
function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
3260
const lpszPassword: WideString; lnReserved: Integer): IDispatch; dispid 1;
3263
// *********************************************************************//
3264
// Interface: IDirectoryObject
3266
// GUID: {E798DE2C-22E4-11D0-84FE-00C04FD8D503}
3267
// *********************************************************************//
3268
IDirectoryObject = interface(IUnknown)
3269
['{E798DE2C-22E4-11D0-84FE-00C04FD8D503}']
3270
function GetObjectInformation(out ppObjInfo: PUserType11): HResult; stdcall;
3271
function GetObjectAttributes(var pAttributeNames: PWideChar; dwNumberAttributes: LongWord;
3272
out ppAttributeEntries: PUserType12;
3273
out pdwNumAttributesReturned: LongWord): HResult; stdcall;
3274
function SetObjectAttributes(var pAttributeEntries: _ads_attr_info; dwNumAttributes: LongWord;
3275
out pdwNumAttributesModified: LongWord): HResult; stdcall;
3276
function CreateDSObject(pszRDNName: PWideChar; var pAttributeEntries: _ads_attr_info;
3277
dwNumAttributes: LongWord; out ppObject: IDispatch): HResult; stdcall;
3278
function DeleteDSObject(pszRDNName: PWideChar): HResult; stdcall;
3281
// *********************************************************************//
3282
// Interface: IDirectorySearch
3284
// GUID: {109BA8EC-92F0-11D0-A790-00C04FD8D5A8}
3285
// *********************************************************************//
3286
IDirectorySearch = interface(IUnknown)
3287
['{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}']
3288
function SetSearchPreference(var pSearchPrefs: ads_searchpref_info; dwNumPrefs: LongWord): HResult; stdcall;
3289
function ExecuteSearch(pszSearchFilter: PWideChar; var pAttributeNames: PWideChar;
3290
dwNumberAttributes: LongWord; out phSearchResult: Pointer): HResult; stdcall;
3291
function AbandonSearch(var phSearchResult: Pointer): HResult; stdcall;
3292
function GetFirstRow(var hSearchResult: Pointer): HResult; stdcall;
3293
function GetNextRow(var hSearchResult: Pointer): HResult; stdcall;
3294
function GetPreviousRow(var hSearchResult: Pointer): HResult; stdcall;
3295
function GetNextColumnName(var hSearchHandle: Pointer; out ppszColumnName: PWideChar): HResult; stdcall;
3296
function GetColumn(var hSearchResult: Pointer; szColumnName: PWideChar;
3297
out pSearchColumn: ads_search_column): HResult; stdcall;
3298
function FreeColumn(var pSearchColumn: ads_search_column): HResult; stdcall;
3299
function CloseSearchHandle(var hSearchResult: Pointer): HResult; stdcall;
3302
// *********************************************************************//
3303
// Interface: IDirectorySchemaMgmt
3305
// GUID: {75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}
3306
// *********************************************************************//
3307
IDirectorySchemaMgmt = interface(IUnknown)
3308
['{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}']
3309
function EnumAttributes(var ppszAttrNames: PWideChar; dwNumAttributes: LongWord;
3310
ppAttrDefinition: PPUserType1; var pdwNumAttributes: LongWord): HResult; stdcall;
3311
function CreateAttributeDefinition(pszAttributeName: PWideChar;
3312
var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
3313
function WriteAttributeDefinition(pszAttributeName: PWideChar;
3314
var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
3315
function DeleteAttributeDefinition(pszAttributeName: PWideChar): HResult; stdcall;
3316
function EnumClasses(var ppszClassNames: PWideChar; dwNumClasses: LongWord;
3317
ppClassDefinition: PPUserType2; var pdwNumClasses: LongWord): HResult; stdcall;
3318
function WriteClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
3319
function CreateClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
3320
function DeleteClassDefinition(pszClassName: PWideChar): HResult; stdcall;
3323
// *********************************************************************//
3324
// Interface: IADsAggregatee
3326
// GUID: {1346CE8C-9039-11D0-8528-00C04FD8D503}
3327
// *********************************************************************//
3328
IADsAggregatee = interface(IUnknown)
3329
['{1346CE8C-9039-11D0-8528-00C04FD8D503}']
3330
function ConnectAsAggregatee(const pOuterUnknown: IUnknown): HResult; stdcall;
3331
function DisconnectAsAggregatee: HResult; stdcall;
3332
function RelinquishInterface(var riid: TGUID): HResult; stdcall;
3333
function RestoreInterface(var riid: TGUID): HResult; stdcall;
3336
// *********************************************************************//
3337
// Interface: IADsAggregator
3339
// GUID: {52DB5FB0-941F-11D0-8529-00C04FD8D503}
3340
// *********************************************************************//
3341
IADsAggregator = interface(IUnknown)
3342
['{52DB5FB0-941F-11D0-8529-00C04FD8D503}']
3343
function ConnectAsAggregator(const pAggregatee: IUnknown): HResult; stdcall;
3344
function DisconnectAsAggregator: HResult; stdcall;
3347
// *********************************************************************//
3348
// Interface: IADsAccessControlEntry
3349
// Flags: (4416) Dual OleAutomation Dispatchable
3350
// GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
3351
// *********************************************************************//
3352
IADsAccessControlEntry = interface(IDispatch)
3353
['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
3354
function Get_AccessMask: Integer; safecall;
3355
procedure Set_AccessMask(retval: Integer); safecall;
3356
function Get_AceType: Integer; safecall;
3357
procedure Set_AceType(retval: Integer); safecall;
3358
function Get_AceFlags: Integer; safecall;
3359
procedure Set_AceFlags(retval: Integer); safecall;
3360
function Get_Flags: Integer; safecall;
3361
procedure Set_Flags(retval: Integer); safecall;
3362
function Get_ObjectType: WideString; safecall;
3363
procedure Set_ObjectType(const retval: WideString); safecall;
3364
function Get_InheritedObjectType: WideString; safecall;
3365
procedure Set_InheritedObjectType(const retval: WideString); safecall;
3366
function Get_Trustee: WideString; safecall;
3367
procedure Set_Trustee(const retval: WideString); safecall;
3368
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
3369
property AceType: Integer read Get_AceType write Set_AceType;
3370
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
3371
property Flags: Integer read Get_Flags write Set_Flags;
3372
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
3373
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
3374
property Trustee: WideString read Get_Trustee write Set_Trustee;
3377
// *********************************************************************//
3378
// DispIntf: IADsAccessControlEntryDisp
3379
// Flags: (4416) Dual OleAutomation Dispatchable
3380
// GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
3381
// *********************************************************************//
3382
{$ifdef SUPPORTS_DISPINTERFACE}
3383
IADsAccessControlEntryDisp = dispinterface
3384
['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
3385
property AccessMask: Integer dispid 2;
3386
property AceType: Integer dispid 3;
3387
property AceFlags: Integer dispid 4;
3388
property Flags: Integer dispid 5;
3389
property ObjectType: WideString dispid 6;
3390
property InheritedObjectType: WideString dispid 7;
3391
property Trustee: WideString dispid 8;
3394
// *********************************************************************//
3395
// Interface: IADsAccessControlList
3396
// Flags: (4416) Dual OleAutomation Dispatchable
3397
// GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
3398
// *********************************************************************//
3399
IADsAccessControlList = interface(IDispatch)
3400
['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
3401
function Get_AclRevision: Integer; safecall;
3402
procedure Set_AclRevision(retval: Integer); safecall;
3403
function Get_AceCount: Integer; safecall;
3404
procedure Set_AceCount(retval: Integer); safecall;
3405
procedure AddAce(const pAccessControlEntry: IDispatch); safecall;
3406
procedure RemoveAce(const pAccessControlEntry: IDispatch); safecall;
3407
function CopyAccessList: IDispatch; safecall;
3408
function Get__NewEnum: IUnknown; safecall;
3409
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
3410
property AceCount: Integer read Get_AceCount write Set_AceCount;
3411
property _NewEnum: IUnknown read Get__NewEnum;
3414
// *********************************************************************//
3415
// DispIntf: IADsAccessControlListDisp
3416
// Flags: (4416) Dual OleAutomation Dispatchable
3417
// GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
3418
// *********************************************************************//
3419
{$ifdef SUPPORTS_DISPINTERFACE}
3420
IADsAccessControlListDisp = dispinterface
3421
['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
3422
property AclRevision: Integer dispid 3;
3423
property AceCount: Integer dispid 4;
3424
procedure AddAce(const pAccessControlEntry: IDispatch); dispid 5;
3425
procedure RemoveAce(const pAccessControlEntry: IDispatch); dispid 6;
3426
function CopyAccessList: IDispatch; dispid 7;
3427
property _NewEnum: IUnknown readonly dispid -4;
3430
// *********************************************************************//
3431
// Interface: IADsSecurityDescriptor
3432
// Flags: (4416) Dual OleAutomation Dispatchable
3433
// GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
3434
// *********************************************************************//
3435
IADsSecurityDescriptor = interface(IDispatch)
3436
['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
3437
function Get_Revision: Integer; safecall;
3438
procedure Set_Revision(retval: Integer); safecall;
3439
function Get_Control: Integer; safecall;
3440
procedure Set_Control(retval: Integer); safecall;
3441
function Get_Owner: WideString; safecall;
3442
procedure Set_Owner(const retval: WideString); safecall;
3443
function Get_OwnerDefaulted: WordBool; safecall;
3444
procedure Set_OwnerDefaulted(retval: WordBool); safecall;
3445
function Get_Group: WideString; safecall;
3446
procedure Set_Group(const retval: WideString); safecall;
3447
function Get_GroupDefaulted: WordBool; safecall;
3448
procedure Set_GroupDefaulted(retval: WordBool); safecall;
3449
function Get_DiscretionaryAcl: IDispatch; safecall;
3450
procedure Set_DiscretionaryAcl(const retval: IDispatch); safecall;
3451
function Get_DaclDefaulted: WordBool; safecall;
3452
procedure Set_DaclDefaulted(retval: WordBool); safecall;
3453
function Get_SystemAcl: IDispatch; safecall;
3454
procedure Set_SystemAcl(const retval: IDispatch); safecall;
3455
function Get_SaclDefaulted: WordBool; safecall;
3456
procedure Set_SaclDefaulted(retval: WordBool); safecall;
3457
function CopySecurityDescriptor: IDispatch; safecall;
3458
property Revision: Integer read Get_Revision write Set_Revision;
3459
property Control: Integer read Get_Control write Set_Control;
3460
property Owner: WideString read Get_Owner write Set_Owner;
3461
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
3462
property Group: WideString read Get_Group write Set_Group;
3463
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
3464
property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
3465
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
3466
property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
3467
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
3470
// *********************************************************************//
3471
// DispIntf: IADsSecurityDescriptorDisp
3472
// Flags: (4416) Dual OleAutomation Dispatchable
3473
// GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
3474
// *********************************************************************//
3475
{$ifdef SUPPORTS_DISPINTERFACE}
3476
IADsSecurityDescriptorDisp = dispinterface
3477
['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
3478
property Revision: Integer dispid 2;
3479
property Control: Integer dispid 3;
3480
property Owner: WideString dispid 4;
3481
property OwnerDefaulted: WordBool dispid 5;
3482
property Group: WideString dispid 6;
3483
property GroupDefaulted: WordBool dispid 7;
3484
property DiscretionaryAcl: IDispatch dispid 8;
3485
property DaclDefaulted: WordBool dispid 9;
3486
property SystemAcl: IDispatch dispid 10;
3487
property SaclDefaulted: WordBool dispid 11;
3488
function CopySecurityDescriptor: IDispatch; dispid 12;
3491
// *********************************************************************//
3492
// Interface: IADsLargeInteger
3493
// Flags: (4416) Dual OleAutomation Dispatchable
3494
// GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
3495
// *********************************************************************//
3496
IADsLargeInteger = interface(IDispatch)
3497
['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
3498
function Get_HighPart: Integer; safecall;
3499
procedure Set_HighPart(retval: Integer); safecall;
3500
function Get_LowPart: Integer; safecall;
3501
procedure Set_LowPart(retval: Integer); safecall;
3502
property HighPart: Integer read Get_HighPart write Set_HighPart;
3503
property LowPart: Integer read Get_LowPart write Set_LowPart;
3506
// *********************************************************************//
3507
// DispIntf: IADsLargeIntegerDisp
3508
// Flags: (4416) Dual OleAutomation Dispatchable
3509
// GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
3510
// *********************************************************************//
3511
{$ifdef SUPPORTS_DISPINTERFACE}
3512
IADsLargeIntegerDisp = dispinterface
3513
['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
3514
property HighPart: Integer dispid 2;
3515
property LowPart: Integer dispid 3;
3518
// *********************************************************************//
3519
// Interface: IADsNameTranslate
3520
// Flags: (4416) Dual OleAutomation Dispatchable
3521
// GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
3522
// *********************************************************************//
3523
IADsNameTranslate = interface(IDispatch)
3524
['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
3525
procedure Set_ChaseReferral(Param1: Integer); safecall;
3526
procedure Init(lnSetType: Integer; const bstrADsPath: WideString); safecall;
3527
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
3528
const bstrUserID: WideString; const bstrDomain: WideString;
3529
const bstrPassword: WideString); safecall;
3530
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); safecall;
3531
function Get(lnFormatType: Integer): WideString; safecall;
3532
procedure SetEx(lnFormatType: Integer; pVar: OleVariant); safecall;
3533
function GetEx(lnFormatType: Integer): OleVariant; safecall;
3534
property ChaseReferral: Integer write Set_ChaseReferral;
3537
// *********************************************************************//
3538
// DispIntf: IADsNameTranslateDisp
3539
// Flags: (4416) Dual OleAutomation Dispatchable
3540
// GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
3541
// *********************************************************************//
3542
{$ifdef SUPPORTS_DISPINTERFACE}
3543
IADsNameTranslateDisp = dispinterface
3544
['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
3545
property ChaseReferral: Integer writeonly dispid 1;
3546
procedure Init(lnSetType: Integer; const bstrADsPath: WideString); dispid 2;
3547
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
3548
const bstrUserID: WideString; const bstrDomain: WideString;
3549
const bstrPassword: WideString); dispid 3;
3550
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); dispid 4;
3551
function Get(lnFormatType: Integer): WideString; dispid 5;
3552
procedure SetEx(lnFormatType: Integer; pVar: OleVariant); dispid 6;
3553
function GetEx(lnFormatType: Integer): OleVariant; dispid 7;
3556
// *********************************************************************//
3557
// Interface: IADsCaseIgnoreList
3558
// Flags: (4416) Dual OleAutomation Dispatchable
3559
// GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
3560
// *********************************************************************//
3561
IADsCaseIgnoreList = interface(IDispatch)
3562
['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
3563
function Get_CaseIgnoreList: OleVariant; safecall;
3564
procedure Set_CaseIgnoreList(retval: OleVariant); safecall;
3565
property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
3568
// *********************************************************************//
3569
// DispIntf: IADsCaseIgnoreListDisp
3570
// Flags: (4416) Dual OleAutomation Dispatchable
3571
// GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
3572
// *********************************************************************//
3573
{$ifdef SUPPORTS_DISPINTERFACE}
3574
IADsCaseIgnoreListDisp = dispinterface
3575
['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
3576
property CaseIgnoreList: OleVariant dispid 2;
3579
// *********************************************************************//
3580
// Interface: IADsFaxNumber
3581
// Flags: (4416) Dual OleAutomation Dispatchable
3582
// GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
3583
// *********************************************************************//
3584
IADsFaxNumber = interface(IDispatch)
3585
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
3586
function Get_TelephoneNumber: WideString; safecall;
3587
procedure Set_TelephoneNumber(const retval: WideString); safecall;
3588
function Get_Parameters: OleVariant; safecall;
3589
procedure Set_Parameters(retval: OleVariant); safecall;
3590
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
3591
property Parameters: OleVariant read Get_Parameters write Set_Parameters;
3594
// *********************************************************************//
3595
// DispIntf: IADsFaxNumberDisp
3596
// Flags: (4416) Dual OleAutomation Dispatchable
3597
// GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
3598
// *********************************************************************//
3599
{$ifdef SUPPORTS_DISPINTERFACE}
3600
IADsFaxNumberDisp = dispinterface
3601
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
3602
property TelephoneNumber: WideString dispid 2;
3603
property Parameters: OleVariant dispid 3;
3606
// *********************************************************************//
3607
// Interface: IADsNetAddress
3608
// Flags: (4416) Dual OleAutomation Dispatchable
3609
// GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
3610
// *********************************************************************//
3611
IADsNetAddress = interface(IDispatch)
3612
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
3613
function Get_AddressType: Integer; safecall;
3614
procedure Set_AddressType(retval: Integer); safecall;
3615
function Get_Address: OleVariant; safecall;
3616
procedure Set_Address(retval: OleVariant); safecall;
3617
property AddressType: Integer read Get_AddressType write Set_AddressType;
3618
property Address: OleVariant read Get_Address write Set_Address;
3621
// *********************************************************************//
3622
// DispIntf: IADsNetAddressDisp
3623
// Flags: (4416) Dual OleAutomation Dispatchable
3624
// GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
3625
// *********************************************************************//
3626
{$ifdef SUPPORTS_DISPINTERFACE}
3627
IADsNetAddressDisp = dispinterface
3628
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
3629
property AddressType: Integer dispid 2;
3630
property Address: OleVariant dispid 3;
3633
// *********************************************************************//
3634
// Interface: IADsOctetList
3635
// Flags: (4416) Dual OleAutomation Dispatchable
3636
// GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
3637
// *********************************************************************//
3638
IADsOctetList = interface(IDispatch)
3639
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
3640
function Get_OctetList: OleVariant; safecall;
3641
procedure Set_OctetList(retval: OleVariant); safecall;
3642
property OctetList: OleVariant read Get_OctetList write Set_OctetList;
3645
// *********************************************************************//
3646
// DispIntf: IADsOctetListDisp
3647
// Flags: (4416) Dual OleAutomation Dispatchable
3648
// GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
3649
// *********************************************************************//
3650
{$ifdef SUPPORTS_DISPINTERFACE}
3651
IADsOctetListDisp = dispinterface
3652
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
3653
property OctetList: OleVariant dispid 2;
3656
// *********************************************************************//
3657
// Interface: IADsEmail
3658
// Flags: (4416) Dual OleAutomation Dispatchable
3659
// GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
3660
// *********************************************************************//
3661
IADsEmail = interface(IDispatch)
3662
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
3663
function Get_Type_: Integer; safecall;
3664
procedure Set_Type_(retval: Integer); safecall;
3665
function Get_Address: WideString; safecall;
3666
procedure Set_Address(const retval: WideString); safecall;
3667
property Type_: Integer read Get_Type_ write Set_Type_;
3668
property Address: WideString read Get_Address write Set_Address;
3671
// *********************************************************************//
3672
// DispIntf: IADsEmailDisp
3673
// Flags: (4416) Dual OleAutomation Dispatchable
3674
// GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
3675
// *********************************************************************//
3676
{$ifdef SUPPORTS_DISPINTERFACE}
3677
IADsEmailDisp = dispinterface
3678
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
3679
property Type_: Integer dispid 2;
3680
property Address: WideString dispid 3;
3683
// *********************************************************************//
3684
// Interface: IADsPath
3685
// Flags: (4416) Dual OleAutomation Dispatchable
3686
// GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
3687
// *********************************************************************//
3688
IADsPath = interface(IDispatch)
3689
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
3690
function Get_Type_: Integer; safecall;
3691
procedure Set_Type_(retval: Integer); safecall;
3692
function Get_VolumeName: WideString; safecall;
3693
procedure Set_VolumeName(const retval: WideString); safecall;
3694
function Get_Path: WideString; safecall;
3695
procedure Set_Path(const retval: WideString); safecall;
3696
property Type_: Integer read Get_Type_ write Set_Type_;
3697
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
3698
property Path: WideString read Get_Path write Set_Path;
3701
// *********************************************************************//
3702
// DispIntf: IADsPathDisp
3703
// Flags: (4416) Dual OleAutomation Dispatchable
3704
// GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
3705
// *********************************************************************//
3706
{$ifdef SUPPORTS_DISPINTERFACE}
3707
IADsPathDisp = dispinterface
3708
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
3709
property Type_: Integer dispid 2;
3710
property VolumeName: WideString dispid 3;
3711
property Path: WideString dispid 4;
3714
// *********************************************************************//
3715
// Interface: IADsReplicaPointer
3716
// Flags: (4416) Dual OleAutomation Dispatchable
3717
// GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
3718
// *********************************************************************//
3719
IADsReplicaPointer = interface(IDispatch)
3720
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
3721
function Get_ServerName: WideString; safecall;
3722
procedure Set_ServerName(const retval: WideString); safecall;
3723
function Get_ReplicaType: Integer; safecall;
3724
procedure Set_ReplicaType(retval: Integer); safecall;
3725
function Get_ReplicaNumber: Integer; safecall;
3726
procedure Set_ReplicaNumber(retval: Integer); safecall;
3727
function Get_Count: Integer; safecall;
3728
procedure Set_Count(retval: Integer); safecall;
3729
function Get_ReplicaAddressHints: OleVariant; safecall;
3730
procedure Set_ReplicaAddressHints(retval: OleVariant); safecall;
3731
property ServerName: WideString read Get_ServerName write Set_ServerName;
3732
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
3733
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
3734
property Count: Integer read Get_Count write Set_Count;
3735
property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
3738
// *********************************************************************//
3739
// DispIntf: IADsReplicaPointerDisp
3740
// Flags: (4416) Dual OleAutomation Dispatchable
3741
// GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
3742
// *********************************************************************//
3743
{$ifdef SUPPORTS_DISPINTERFACE}
3744
IADsReplicaPointerDisp = dispinterface
3745
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
3746
property ServerName: WideString dispid 2;
3747
property ReplicaType: Integer dispid 3;
3748
property ReplicaNumber: Integer dispid 4;
3749
property Count: Integer dispid 5;
3750
property ReplicaAddressHints: OleVariant dispid 6;
3753
// *********************************************************************//
3754
// Interface: IADsAcl
3755
// Flags: (4416) Dual OleAutomation Dispatchable
3756
// GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
3757
// *********************************************************************//
3758
IADsAcl = interface(IDispatch)
3759
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
3760
function Get_ProtectedAttrName: WideString; safecall;
3761
procedure Set_ProtectedAttrName(const retval: WideString); safecall;
3762
function Get_SubjectName: WideString; safecall;
3763
procedure Set_SubjectName(const retval: WideString); safecall;
3764
function Get_Privileges: Integer; safecall;
3765
procedure Set_Privileges(retval: Integer); safecall;
3766
function CopyAcl: IDispatch; safecall;
3767
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
3768
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
3769
property Privileges: Integer read Get_Privileges write Set_Privileges;
3772
// *********************************************************************//
3773
// DispIntf: IADsAclDisp
3774
// Flags: (4416) Dual OleAutomation Dispatchable
3775
// GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
3776
// *********************************************************************//
3777
{$ifdef SUPPORTS_DISPINTERFACE}
3778
IADsAclDisp = dispinterface
3779
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
3780
property ProtectedAttrName: WideString dispid 2;
3781
property SubjectName: WideString dispid 3;
3782
property Privileges: Integer dispid 4;
3783
function CopyAcl: IDispatch; dispid 5;
3786
// *********************************************************************//
3787
// Interface: IADsTimestamp
3788
// Flags: (4416) Dual OleAutomation Dispatchable
3789
// GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
3790
// *********************************************************************//
3791
IADsTimestamp = interface(IDispatch)
3792
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
3793
function Get_WholeSeconds: Integer; safecall;
3794
procedure Set_WholeSeconds(retval: Integer); safecall;
3795
function Get_EventID: Integer; safecall;
3796
procedure Set_EventID(retval: Integer); safecall;
3797
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
3798
property EventID: Integer read Get_EventID write Set_EventID;
3801
// *********************************************************************//
3802
// DispIntf: IADsTimestampDisp
3803
// Flags: (4416) Dual OleAutomation Dispatchable
3804
// GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
3805
// *********************************************************************//
3806
{$ifdef SUPPORTS_DISPINTERFACE}
3807
IADsTimestampDisp = dispinterface
3808
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
3809
property WholeSeconds: Integer dispid 2;
3810
property EventID: Integer dispid 3;
3813
// *********************************************************************//
3814
// Interface: IADsPostalAddress
3815
// Flags: (4416) Dual OleAutomation Dispatchable
3816
// GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
3817
// *********************************************************************//
3818
IADsPostalAddress = interface(IDispatch)
3819
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
3820
function Get_PostalAddress: OleVariant; safecall;
3821
procedure Set_PostalAddress(retval: OleVariant); safecall;
3822
property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
3825
// *********************************************************************//
3826
// DispIntf: IADsPostalAddressDisp
3827
// Flags: (4416) Dual OleAutomation Dispatchable
3828
// GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
3829
// *********************************************************************//
3830
{$ifdef SUPPORTS_DISPINTERFACE}
3831
IADsPostalAddressDisp = dispinterface
3832
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
3833
property PostalAddress: OleVariant dispid 2;
3836
// *********************************************************************//
3837
// Interface: IADsBackLink
3838
// Flags: (4416) Dual OleAutomation Dispatchable
3839
// GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
3840
// *********************************************************************//
3841
IADsBackLink = interface(IDispatch)
3842
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
3843
function Get_RemoteID: Integer; safecall;
3844
procedure Set_RemoteID(retval: Integer); safecall;
3845
function Get_ObjectName: WideString; safecall;
3846
procedure Set_ObjectName(const retval: WideString); safecall;
3847
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
3848
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
3851
// *********************************************************************//
3852
// DispIntf: IADsBackLinkDisp
3853
// Flags: (4416) Dual OleAutomation Dispatchable
3854
// GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
3855
// *********************************************************************//
3856
{$ifdef SUPPORTS_DISPINTERFACE}
3857
IADsBackLinkDisp = dispinterface
3858
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
3859
property RemoteID: Integer dispid 2;
3860
property ObjectName: WideString dispid 3;
3863
// *********************************************************************//
3864
// Interface: IADsTypedName
3865
// Flags: (4416) Dual OleAutomation Dispatchable
3866
// GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
3867
// *********************************************************************//
3868
IADsTypedName = interface(IDispatch)
3869
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
3870
function Get_ObjectName: WideString; safecall;
3871
procedure Set_ObjectName(const retval: WideString); safecall;
3872
function Get_Level: Integer; safecall;
3873
procedure Set_Level(retval: Integer); safecall;
3874
function Get_Interval: Integer; safecall;
3875
procedure Set_Interval(retval: Integer); safecall;
3876
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
3877
property Level: Integer read Get_Level write Set_Level;
3878
property Interval: Integer read Get_Interval write Set_Interval;
3881
// *********************************************************************//
3882
// DispIntf: IADsTypedNameDisp
3883
// Flags: (4416) Dual OleAutomation Dispatchable
3884
// GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
3885
// *********************************************************************//
3886
{$ifdef SUPPORTS_DISPINTERFACE}
3887
IADsTypedNameDisp = dispinterface
3888
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
3889
property ObjectName: WideString dispid 2;
3890
property Level: Integer dispid 3;
3891
property Interval: Integer dispid 4;
3894
// *********************************************************************//
3895
// Interface: IADsHold
3896
// Flags: (4416) Dual OleAutomation Dispatchable
3897
// GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
3898
// *********************************************************************//
3899
IADsHold = interface(IDispatch)
3900
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
3901
function Get_ObjectName: WideString; safecall;
3902
procedure Set_ObjectName(const retval: WideString); safecall;
3903
function Get_Amount: Integer; safecall;
3904
procedure Set_Amount(retval: Integer); safecall;
3905
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
3906
property Amount: Integer read Get_Amount write Set_Amount;
3909
// *********************************************************************//
3910
// DispIntf: IADsHoldDisp
3911
// Flags: (4416) Dual OleAutomation Dispatchable
3912
// GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
3913
// *********************************************************************//
3914
{$ifdef SUPPORTS_DISPINTERFACE}
3915
IADsHoldDisp = dispinterface
3916
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
3917
property ObjectName: WideString dispid 2;
3918
property Amount: Integer dispid 3;
3921
// *********************************************************************//
3922
// Interface: IADsObjectOptions
3923
// Flags: (4416) Dual OleAutomation Dispatchable
3924
// GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
3925
// *********************************************************************//
3926
IADsObjectOptions = interface(IDispatch)
3927
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
3928
function GetOption(lnOption: Integer): OleVariant; safecall;
3929
procedure SetOption(lnOption: Integer; vValue: OleVariant); safecall;
3932
// *********************************************************************//
3933
// DispIntf: IADsObjectOptionsDisp
3934
// Flags: (4416) Dual OleAutomation Dispatchable
3935
// GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
3936
// *********************************************************************//
3937
{$ifdef SUPPORTS_DISPINTERFACE}
3938
IADsObjectOptionsDisp = dispinterface
3939
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
3940
function GetOption(lnOption: Integer): OleVariant; dispid 2;
3941
procedure SetOption(lnOption: Integer; vValue: OleVariant); dispid 3;
3944
// *********************************************************************//
3945
// Interface: IADsPathname
3946
// Flags: (4416) Dual OleAutomation Dispatchable
3947
// GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
3948
// *********************************************************************//
3949
IADsPathname = interface(IDispatch)
3950
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
3951
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); safecall;
3952
procedure SetDisplayType(lnDisplayType: Integer); safecall;
3953
function Retrieve(lnFormatType: Integer): WideString; safecall;
3954
function GetNumElements: Integer; safecall;
3955
function GetElement(lnElementIndex: Integer): WideString; safecall;
3956
procedure AddLeafElement(const bstrLeafElement: WideString); safecall;
3957
procedure RemoveLeafElement; safecall;
3958
function CopyPath: IDispatch; safecall;
3959
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; safecall;
3960
function Get_EscapedMode: Integer; safecall;
3961
procedure Set_EscapedMode(retval: Integer); safecall;
3962
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
3965
// *********************************************************************//
3966
// DispIntf: IADsPathnameDisp
3967
// Flags: (4416) Dual OleAutomation Dispatchable
3968
// GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
3969
// *********************************************************************//
3970
{$ifdef SUPPORTS_DISPINTERFACE}
3971
IADsPathnameDisp = dispinterface
3972
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
3973
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); dispid 2;
3974
procedure SetDisplayType(lnDisplayType: Integer); dispid 3;
3975
function Retrieve(lnFormatType: Integer): WideString; dispid 4;
3976
function GetNumElements: Integer; dispid 5;
3977
function GetElement(lnElementIndex: Integer): WideString; dispid 6;
3978
procedure AddLeafElement(const bstrLeafElement: WideString); dispid 7;
3979
procedure RemoveLeafElement; dispid 8;
3980
function CopyPath: IDispatch; dispid 9;
3981
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; dispid 10;
3982
property EscapedMode: Integer dispid 11;
3985
// *********************************************************************//
3986
// Interface: IADsADSystemInfo
3987
// Flags: (4416) Dual OleAutomation Dispatchable
3988
// GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
3989
// *********************************************************************//
3990
IADsADSystemInfo = interface(IDispatch)
3991
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
3992
function Get_UserName: WideString; safecall;
3993
function Get_ComputerName: WideString; safecall;
3994
function Get_SiteName: WideString; safecall;
3995
function Get_DomainShortName: WideString; safecall;
3996
function Get_DomainDNSName: WideString; safecall;
3997
function Get_ForestDNSName: WideString; safecall;
3998
function Get_PDCRoleOwner: WideString; safecall;
3999
function Get_SchemaRoleOwner: WideString; safecall;
4000
function Get_IsNativeMode: WordBool; safecall;
4001
function GetAnyDCName: WideString; safecall;
4002
function GetDCSiteName(const szServer: WideString): WideString; safecall;
4003
procedure RefreshSchemaCache; safecall;
4004
function GetTrees: OleVariant; safecall;
4005
property UserName: WideString read Get_UserName;
4006
property ComputerName: WideString read Get_ComputerName;
4007
property SiteName: WideString read Get_SiteName;
4008
property DomainShortName: WideString read Get_DomainShortName;
4009
property DomainDNSName: WideString read Get_DomainDNSName;
4010
property ForestDNSName: WideString read Get_ForestDNSName;
4011
property PDCRoleOwner: WideString read Get_PDCRoleOwner;
4012
property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
4013
property IsNativeMode: WordBool read Get_IsNativeMode;
4016
// *********************************************************************//
4017
// DispIntf: IADsADSystemInfoDisp
4018
// Flags: (4416) Dual OleAutomation Dispatchable
4019
// GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
4020
// *********************************************************************//
4021
{$ifdef SUPPORTS_DISPINTERFACE}
4022
IADsADSystemInfoDisp = dispinterface
4023
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
4024
property UserName: WideString readonly dispid 2;
4025
property ComputerName: WideString readonly dispid 3;
4026
property SiteName: WideString readonly dispid 4;
4027
property DomainShortName: WideString readonly dispid 5;
4028
property DomainDNSName: WideString readonly dispid 6;
4029
property ForestDNSName: WideString readonly dispid 7;
4030
property PDCRoleOwner: WideString readonly dispid 8;
4031
property SchemaRoleOwner: WideString readonly dispid 9;
4032
property IsNativeMode: WordBool readonly dispid 10;
4033
function GetAnyDCName: WideString; dispid 11;
4034
function GetDCSiteName(const szServer: WideString): WideString; dispid 12;
4035
procedure RefreshSchemaCache; dispid 13;
4036
function GetTrees: OleVariant; dispid 14;
4039
// *********************************************************************//
4040
// Interface: IADsWinNTSystemInfo
4041
// Flags: (4416) Dual OleAutomation Dispatchable
4042
// GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
4043
// *********************************************************************//
4044
IADsWinNTSystemInfo = interface(IDispatch)
4045
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
4046
function Get_UserName: WideString; safecall;
4047
function Get_ComputerName: WideString; safecall;
4048
function Get_DomainName: WideString; safecall;
4049
function Get_PDC: WideString; safecall;
4050
property UserName: WideString read Get_UserName;
4051
property ComputerName: WideString read Get_ComputerName;
4052
property DomainName: WideString read Get_DomainName;
4053
property PDC: WideString read Get_PDC;
4056
// *********************************************************************//
4057
// DispIntf: IADsWinNTSystemInfoDisp
4058
// Flags: (4416) Dual OleAutomation Dispatchable
4059
// GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
4060
// *********************************************************************//
4061
{$ifdef SUPPORTS_DISPINTERFACE}
4062
IADsWinNTSystemInfoDisp = dispinterface
4063
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
4064
property UserName: WideString readonly dispid 2;
4065
property ComputerName: WideString readonly dispid 3;
4066
property DomainName: WideString readonly dispid 4;
4067
property PDC: WideString readonly dispid 5;
4070
// *********************************************************************//
4071
// Interface: IADsDNWithBinary
4072
// Flags: (4416) Dual OleAutomation Dispatchable
4073
// GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
4074
// *********************************************************************//
4075
IADsDNWithBinary = interface(IDispatch)
4076
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
4077
function Get_BinaryValue: OleVariant; safecall;
4078
procedure Set_BinaryValue(retval: OleVariant); safecall;
4079
function Get_DNString: WideString; safecall;
4080
procedure Set_DNString(const retval: WideString); safecall;
4081
property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
4082
property DNString: WideString read Get_DNString write Set_DNString;
4085
// *********************************************************************//
4086
// DispIntf: IADsDNWithBinaryDisp
4087
// Flags: (4416) Dual OleAutomation Dispatchable
4088
// GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
4089
// *********************************************************************//
4090
{$ifdef SUPPORTS_DISPINTERFACE}
4091
IADsDNWithBinaryDisp = dispinterface
4092
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
4093
property BinaryValue: OleVariant dispid 2;
4094
property DNString: WideString dispid 3;
4098
// *********************************************************************//
4099
// Interface: IADsDNWithString
4100
// Flags: (4416) Dual OleAutomation Dispatchable
4101
// GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
4102
// *********************************************************************//
4103
IADsDNWithString = interface(IDispatch)
4104
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
4105
function Get_StringValue: WideString; safecall;
4106
procedure Set_StringValue(const retval: WideString); safecall;
4107
function Get_DNString: WideString; safecall;
4108
procedure Set_DNString(const retval: WideString); safecall;
4109
property StringValue: WideString read Get_StringValue write Set_StringValue;
4110
property DNString: WideString read Get_DNString write Set_DNString;
4113
// *********************************************************************//
4114
// DispIntf: IADsDNWithStringDisp
4115
// Flags: (4416) Dual OleAutomation Dispatchable
4116
// GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
4117
// *********************************************************************//
4118
{$ifdef SUPPORTS_DISPINTERFACE}
4119
IADsDNWithStringDisp = dispinterface
4120
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
4121
property StringValue: WideString dispid 2;
4122
property DNString: WideString dispid 3;
4125
// *********************************************************************//
4126
// The Class CoPropertyEntry provides a Create and CreateRemote method to
4127
// create instances of the default interface IADsPropertyEntry exposed by
4128
// the CoClass PropertyEntry. The functions are intended to be used by
4129
// clients wishing to automate the CoClass objects exposed by the
4130
// server of this typelibrary.
4131
// *********************************************************************//
4132
CoPropertyEntry = class
4133
class function Create: IADsPropertyEntry;
4134
class function CreateRemote(const MachineName: string): IADsPropertyEntry;
4137
// *********************************************************************//
4138
// OLE Server Proxy class declaration
4139
// Server Object : TPropertyEntry
4141
// Default Interface: IADsPropertyEntry
4142
// Def. Intf. DISP? : No
4144
// TypeFlags : (2) CanCreate
4145
// *********************************************************************//
4146
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4147
TPropertyEntryProperties= class;
4149
TPropertyEntry = class(TOleServer)
4151
FIntf: IADsPropertyEntry;
4152
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4153
FProps: TPropertyEntryProperties;
4154
function GetServerProperties: TPropertyEntryProperties;
4156
function GetDefaultInterface: IADsPropertyEntry;
4158
procedure InitServerData; override;
4159
function Get_Name: WideString;
4160
procedure Set_Name(const retval: WideString);
4161
function Get_ADsType: Integer;
4162
procedure Set_ADsType(retval: Integer);
4163
function Get_ControlCode: Integer;
4164
procedure Set_ControlCode(retval: Integer);
4165
function Get_Values: OleVariant;
4166
procedure Set_Values(retval: OleVariant);
4168
constructor Create(AOwner: TComponent); override;
4169
destructor Destroy; override;
4170
procedure Connect; override;
4171
procedure ConnectTo(svrIntf: IADsPropertyEntry);
4172
procedure Disconnect; override;
4174
property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
4175
property Values: OleVariant read Get_Values write Set_Values;
4176
property Name: WideString read Get_Name write Set_Name;
4177
property ADsType: Integer read Get_ADsType write Set_ADsType;
4178
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
4180
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4181
property Server: TPropertyEntryProperties read GetServerProperties;
4185
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4186
// *********************************************************************//
4187
// OLE Server Properties Proxy Class
4188
// Server Object : TPropertyEntry
4189
// (This object is used by the IDE's Property Inspector to allow editing
4190
// of the properties of this server)
4191
// *********************************************************************//
4192
TPropertyEntryProperties = class(TPersistent)
4194
FServer: TPropertyEntry;
4195
function GetDefaultInterface: IADsPropertyEntry;
4196
constructor Create(AServer: TPropertyEntry);
4198
function Get_Name: WideString;
4199
procedure Set_Name(const retval: WideString);
4200
function Get_ADsType: Integer;
4201
procedure Set_ADsType(retval: Integer);
4202
function Get_ControlCode: Integer;
4203
procedure Set_ControlCode(retval: Integer);
4204
function Get_Values: OleVariant;
4205
procedure Set_Values(retval: OleVariant);
4207
property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
4209
property Name: WideString read Get_Name write Set_Name;
4210
property ADsType: Integer read Get_ADsType write Set_ADsType;
4211
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
4215
// *********************************************************************//
4216
// The Class CoPropertyValue provides a Create and CreateRemote method to
4217
// create instances of the default interface IADsPropertyValue exposed by
4218
// the CoClass PropertyValue. The functions are intended to be used by
4219
// clients wishing to automate the CoClass objects exposed by the
4220
// server of this typelibrary.
4221
// *********************************************************************//
4222
CoPropertyValue = class
4223
class function Create: IADsPropertyValue;
4224
class function CreateRemote(const MachineName: string): IADsPropertyValue;
4227
// *********************************************************************//
4228
// OLE Server Proxy class declaration
4229
// Server Object : TPropertyValue
4231
// Default Interface: IADsPropertyValue
4232
// Def. Intf. DISP? : No
4234
// TypeFlags : (2) CanCreate
4235
// *********************************************************************//
4236
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4237
TPropertyValueProperties= class;
4239
TPropertyValue = class(TOleServer)
4241
FIntf: IADsPropertyValue;
4242
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4243
FProps: TPropertyValueProperties;
4244
function GetServerProperties: TPropertyValueProperties;
4246
function GetDefaultInterface: IADsPropertyValue;
4248
procedure InitServerData; override;
4249
function Get_ADsType: Integer;
4250
procedure Set_ADsType(retval: Integer);
4251
function Get_DNString: WideString;
4252
procedure Set_DNString(const retval: WideString);
4253
function Get_CaseExactString: WideString;
4254
procedure Set_CaseExactString(const retval: WideString);
4255
function Get_CaseIgnoreString: WideString;
4256
procedure Set_CaseIgnoreString(const retval: WideString);
4257
function Get_PrintableString: WideString;
4258
procedure Set_PrintableString(const retval: WideString);
4259
function Get_NumericString: WideString;
4260
procedure Set_NumericString(const retval: WideString);
4261
function Get_Boolean: Integer;
4262
procedure Set_Boolean(retval: Integer);
4263
function Get_Integer: Integer;
4264
procedure Set_Integer(retval: Integer);
4265
function Get_OctetString: OleVariant;
4266
procedure Set_OctetString(retval: OleVariant);
4267
function Get_SecurityDescriptor: IDispatch;
4268
procedure Set_SecurityDescriptor(const retval: IDispatch);
4269
function Get_LargeInteger: IDispatch;
4270
procedure Set_LargeInteger(const retval: IDispatch);
4271
function Get_UTCTime: TDateTime;
4272
procedure Set_UTCTime(retval: TDateTime);
4274
constructor Create(AOwner: TComponent); override;
4275
destructor Destroy; override;
4276
procedure Connect; override;
4277
procedure ConnectTo(svrIntf: IADsPropertyValue);
4278
procedure Disconnect; override;
4280
property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
4281
property OctetString: OleVariant read Get_OctetString write Set_OctetString;
4282
property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
4283
property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
4284
property ADsType: Integer read Get_ADsType write Set_ADsType;
4285
property DNString: WideString read Get_DNString write Set_DNString;
4286
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
4287
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
4288
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
4289
property NumericString: WideString read Get_NumericString write Set_NumericString;
4290
property Boolean: Integer read Get_Boolean write Set_Boolean;
4291
property Integer: Integer read Get_Integer write Set_Integer;
4292
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
4294
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4295
property Server: TPropertyValueProperties read GetServerProperties;
4299
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4300
// *********************************************************************//
4301
// OLE Server Properties Proxy Class
4302
// Server Object : TPropertyValue
4303
// (This object is used by the IDE's Property Inspector to allow editing
4304
// of the properties of this server)
4305
// *********************************************************************//
4306
TPropertyValueProperties = class(TPersistent)
4308
FServer: TPropertyValue;
4309
function GetDefaultInterface: IADsPropertyValue;
4310
constructor Create(AServer: TPropertyValue);
4312
function Get_ADsType: Integer;
4313
procedure Set_ADsType(retval: Integer);
4314
function Get_DNString: WideString;
4315
procedure Set_DNString(const retval: WideString);
4316
function Get_CaseExactString: WideString;
4317
procedure Set_CaseExactString(const retval: WideString);
4318
function Get_CaseIgnoreString: WideString;
4319
procedure Set_CaseIgnoreString(const retval: WideString);
4320
function Get_PrintableString: WideString;
4321
procedure Set_PrintableString(const retval: WideString);
4322
function Get_NumericString: WideString;
4323
procedure Set_NumericString(const retval: WideString);
4324
function Get_Boolean: Integer;
4325
procedure Set_Boolean(retval: Integer);
4326
function Get_Integer: Integer;
4327
procedure Set_Integer(retval: Integer);
4328
function Get_OctetString: OleVariant;
4329
procedure Set_OctetString(retval: OleVariant);
4330
function Get_SecurityDescriptor: IDispatch;
4331
procedure Set_SecurityDescriptor(const retval: IDispatch);
4332
function Get_LargeInteger: IDispatch;
4333
procedure Set_LargeInteger(const retval: IDispatch);
4334
function Get_UTCTime: TDateTime;
4335
procedure Set_UTCTime(retval: TDateTime);
4337
property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
4339
property ADsType: Integer read Get_ADsType write Set_ADsType;
4340
property DNString: WideString read Get_DNString write Set_DNString;
4341
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
4342
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
4343
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
4344
property NumericString: WideString read Get_NumericString write Set_NumericString;
4345
property Boolean: Integer read Get_Boolean write Set_Boolean;
4346
property Integer: Integer read Get_Integer write Set_Integer;
4347
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
4351
// *********************************************************************//
4352
// The Class CoAccessControlEntry provides a Create and CreateRemote method to
4353
// create instances of the default interface IADsAccessControlEntry exposed by
4354
// the CoClass AccessControlEntry. The functions are intended to be used by
4355
// clients wishing to automate the CoClass objects exposed by the
4356
// server of this typelibrary.
4357
// *********************************************************************//
4358
CoAccessControlEntry = class
4359
class function Create: IADsAccessControlEntry;
4360
class function CreateRemote(const MachineName: string): IADsAccessControlEntry;
4363
// *********************************************************************//
4364
// OLE Server Proxy class declaration
4365
// Server Object : TAccessControlEntry
4367
// Default Interface: IADsAccessControlEntry
4368
// Def. Intf. DISP? : No
4370
// TypeFlags : (2) CanCreate
4371
// *********************************************************************//
4372
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4373
TAccessControlEntryProperties= class;
4375
TAccessControlEntry = class(TOleServer)
4377
FIntf: IADsAccessControlEntry;
4378
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4379
FProps: TAccessControlEntryProperties;
4380
function GetServerProperties: TAccessControlEntryProperties;
4382
function GetDefaultInterface: IADsAccessControlEntry;
4384
procedure InitServerData; override;
4385
function Get_AccessMask: Integer;
4386
procedure Set_AccessMask(retval: Integer);
4387
function Get_AceType: Integer;
4388
procedure Set_AceType(retval: Integer);
4389
function Get_AceFlags: Integer;
4390
procedure Set_AceFlags(retval: Integer);
4391
function Get_Flags: Integer;
4392
procedure Set_Flags(retval: Integer);
4393
function Get_ObjectType: WideString;
4394
procedure Set_ObjectType(const retval: WideString);
4395
function Get_InheritedObjectType: WideString;
4396
procedure Set_InheritedObjectType(const retval: WideString);
4397
function Get_Trustee: WideString;
4398
procedure Set_Trustee(const retval: WideString);
4400
constructor Create(AOwner: TComponent); override;
4401
destructor Destroy; override;
4402
procedure Connect; override;
4403
procedure ConnectTo(svrIntf: IADsAccessControlEntry);
4404
procedure Disconnect; override;
4405
property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
4406
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
4407
property AceType: Integer read Get_AceType write Set_AceType;
4408
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
4409
property Flags: Integer read Get_Flags write Set_Flags;
4410
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
4411
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
4412
property Trustee: WideString read Get_Trustee write Set_Trustee;
4414
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4415
property Server: TAccessControlEntryProperties read GetServerProperties;
4419
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4420
// *********************************************************************//
4421
// OLE Server Properties Proxy Class
4422
// Server Object : TAccessControlEntry
4423
// (This object is used by the IDE's Property Inspector to allow editing
4424
// of the properties of this server)
4425
// *********************************************************************//
4426
TAccessControlEntryProperties = class(TPersistent)
4428
FServer: TAccessControlEntry;
4429
function GetDefaultInterface: IADsAccessControlEntry;
4430
constructor Create(AServer: TAccessControlEntry);
4432
function Get_AccessMask: Integer;
4433
procedure Set_AccessMask(retval: Integer);
4434
function Get_AceType: Integer;
4435
procedure Set_AceType(retval: Integer);
4436
function Get_AceFlags: Integer;
4437
procedure Set_AceFlags(retval: Integer);
4438
function Get_Flags: Integer;
4439
procedure Set_Flags(retval: Integer);
4440
function Get_ObjectType: WideString;
4441
procedure Set_ObjectType(const retval: WideString);
4442
function Get_InheritedObjectType: WideString;
4443
procedure Set_InheritedObjectType(const retval: WideString);
4444
function Get_Trustee: WideString;
4445
procedure Set_Trustee(const retval: WideString);
4447
property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
4449
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
4450
property AceType: Integer read Get_AceType write Set_AceType;
4451
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
4452
property Flags: Integer read Get_Flags write Set_Flags;
4453
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
4454
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
4455
property Trustee: WideString read Get_Trustee write Set_Trustee;
4459
// *********************************************************************//
4460
// The Class CoAccessControlList provides a Create and CreateRemote method to
4461
// create instances of the default interface IADsAccessControlList exposed by
4462
// the CoClass AccessControlList. The functions are intended to be used by
4463
// clients wishing to automate the CoClass objects exposed by the
4464
// server of this typelibrary.
4465
// *********************************************************************//
4466
CoAccessControlList = class
4467
class function Create: IADsAccessControlList;
4468
class function CreateRemote(const MachineName: string): IADsAccessControlList;
4471
// *********************************************************************//
4472
// OLE Server Proxy class declaration
4473
// Server Object : TAccessControlList
4475
// Default Interface: IADsAccessControlList
4476
// Def. Intf. DISP? : No
4478
// TypeFlags : (2) CanCreate
4479
// *********************************************************************//
4480
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4481
TAccessControlListProperties= class;
4483
TAccessControlList = class(TOleServer)
4485
FIntf: IADsAccessControlList;
4486
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4487
FProps: TAccessControlListProperties;
4488
function GetServerProperties: TAccessControlListProperties;
4490
function GetDefaultInterface: IADsAccessControlList;
4492
procedure InitServerData; override;
4493
function Get_AclRevision: Integer;
4494
procedure Set_AclRevision(retval: Integer);
4495
function Get_AceCount: Integer;
4496
procedure Set_AceCount(retval: Integer);
4498
constructor Create(AOwner: TComponent); override;
4499
destructor Destroy; override;
4500
procedure Connect; override;
4501
procedure ConnectTo(svrIntf: IADsAccessControlList);
4502
procedure Disconnect; override;
4503
procedure AddAce(const pAccessControlEntry: IDispatch);
4504
procedure RemoveAce(const pAccessControlEntry: IDispatch);
4505
function CopyAccessList: IDispatch;
4506
property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
4507
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
4508
property AceCount: Integer read Get_AceCount write Set_AceCount;
4510
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4511
property Server: TAccessControlListProperties read GetServerProperties;
4515
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4516
// *********************************************************************//
4517
// OLE Server Properties Proxy Class
4518
// Server Object : TAccessControlList
4519
// (This object is used by the IDE's Property Inspector to allow editing
4520
// of the properties of this server)
4521
// *********************************************************************//
4522
TAccessControlListProperties = class(TPersistent)
4524
FServer: TAccessControlList;
4525
function GetDefaultInterface: IADsAccessControlList;
4526
constructor Create(AServer: TAccessControlList);
4528
function Get_AclRevision: Integer;
4529
procedure Set_AclRevision(retval: Integer);
4530
function Get_AceCount: Integer;
4531
procedure Set_AceCount(retval: Integer);
4533
property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
4535
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
4536
property AceCount: Integer read Get_AceCount write Set_AceCount;
4540
// *********************************************************************//
4541
// The Class CoSecurityDescriptor provides a Create and CreateRemote method to
4542
// create instances of the default interface IADsSecurityDescriptor exposed by
4543
// the CoClass SecurityDescriptor. The functions are intended to be used by
4544
// clients wishing to automate the CoClass objects exposed by the
4545
// server of this typelibrary.
4546
// *********************************************************************//
4547
CoSecurityDescriptor = class
4548
class function Create: IADsSecurityDescriptor;
4549
class function CreateRemote(const MachineName: string): IADsSecurityDescriptor;
4552
// *********************************************************************//
4553
// OLE Server Proxy class declaration
4554
// Server Object : TSecurityDescriptor
4556
// Default Interface: IADsSecurityDescriptor
4557
// Def. Intf. DISP? : No
4559
// TypeFlags : (2) CanCreate
4560
// *********************************************************************//
4561
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4562
TSecurityDescriptorProperties= class;
4564
TSecurityDescriptor = class(TOleServer)
4566
FIntf: IADsSecurityDescriptor;
4567
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4568
FProps: TSecurityDescriptorProperties;
4569
function GetServerProperties: TSecurityDescriptorProperties;
4571
function GetDefaultInterface: IADsSecurityDescriptor;
4573
procedure InitServerData; override;
4574
function Get_Revision: Integer;
4575
procedure Set_Revision(retval: Integer);
4576
function Get_Control: Integer;
4577
procedure Set_Control(retval: Integer);
4578
function Get_Owner: WideString;
4579
procedure Set_Owner(const retval: WideString);
4580
function Get_OwnerDefaulted: WordBool;
4581
procedure Set_OwnerDefaulted(retval: WordBool);
4582
function Get_Group: WideString;
4583
procedure Set_Group(const retval: WideString);
4584
function Get_GroupDefaulted: WordBool;
4585
procedure Set_GroupDefaulted(retval: WordBool);
4586
function Get_DiscretionaryAcl: IDispatch;
4587
procedure Set_DiscretionaryAcl(const retval: IDispatch);
4588
function Get_DaclDefaulted: WordBool;
4589
procedure Set_DaclDefaulted(retval: WordBool);
4590
function Get_SystemAcl: IDispatch;
4591
procedure Set_SystemAcl(const retval: IDispatch);
4592
function Get_SaclDefaulted: WordBool;
4593
procedure Set_SaclDefaulted(retval: WordBool);
4595
constructor Create(AOwner: TComponent); override;
4596
destructor Destroy; override;
4597
procedure Connect; override;
4598
procedure ConnectTo(svrIntf: IADsSecurityDescriptor);
4599
procedure Disconnect; override;
4600
function CopySecurityDescriptor: IDispatch;
4601
property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
4602
property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
4603
property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
4604
property Revision: Integer read Get_Revision write Set_Revision;
4605
property Control: Integer read Get_Control write Set_Control;
4606
property Owner: WideString read Get_Owner write Set_Owner;
4607
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
4608
property Group: WideString read Get_Group write Set_Group;
4609
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
4610
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
4611
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
4613
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4614
property Server: TSecurityDescriptorProperties read GetServerProperties;
4618
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4619
// *********************************************************************//
4620
// OLE Server Properties Proxy Class
4621
// Server Object : TSecurityDescriptor
4622
// (This object is used by the IDE's Property Inspector to allow editing
4623
// of the properties of this server)
4624
// *********************************************************************//
4625
TSecurityDescriptorProperties = class(TPersistent)
4627
FServer: TSecurityDescriptor;
4628
function GetDefaultInterface: IADsSecurityDescriptor;
4629
constructor Create(AServer: TSecurityDescriptor);
4631
function Get_Revision: Integer;
4632
procedure Set_Revision(retval: Integer);
4633
function Get_Control: Integer;
4634
procedure Set_Control(retval: Integer);
4635
function Get_Owner: WideString;
4636
procedure Set_Owner(const retval: WideString);
4637
function Get_OwnerDefaulted: WordBool;
4638
procedure Set_OwnerDefaulted(retval: WordBool);
4639
function Get_Group: WideString;
4640
procedure Set_Group(const retval: WideString);
4641
function Get_GroupDefaulted: WordBool;
4642
procedure Set_GroupDefaulted(retval: WordBool);
4643
function Get_DiscretionaryAcl: IDispatch;
4644
procedure Set_DiscretionaryAcl(const retval: IDispatch);
4645
function Get_DaclDefaulted: WordBool;
4646
procedure Set_DaclDefaulted(retval: WordBool);
4647
function Get_SystemAcl: IDispatch;
4648
procedure Set_SystemAcl(const retval: IDispatch);
4649
function Get_SaclDefaulted: WordBool;
4650
procedure Set_SaclDefaulted(retval: WordBool);
4652
property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
4654
property Revision: Integer read Get_Revision write Set_Revision;
4655
property Control: Integer read Get_Control write Set_Control;
4656
property Owner: WideString read Get_Owner write Set_Owner;
4657
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
4658
property Group: WideString read Get_Group write Set_Group;
4659
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
4660
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
4661
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
4665
// *********************************************************************//
4666
// The Class CoLargeInteger provides a Create and CreateRemote method to
4667
// create instances of the default interface IADsLargeInteger exposed by
4668
// the CoClass LargeInteger. The functions are intended to be used by
4669
// clients wishing to automate the CoClass objects exposed by the
4670
// server of this typelibrary.
4671
// *********************************************************************//
4672
CoLargeInteger = class
4673
class function Create: IADsLargeInteger;
4674
class function CreateRemote(const MachineName: string): IADsLargeInteger;
4677
// *********************************************************************//
4678
// OLE Server Proxy class declaration
4679
// Server Object : TLargeInteger
4681
// Default Interface: IADsLargeInteger
4682
// Def. Intf. DISP? : No
4684
// TypeFlags : (2) CanCreate
4685
// *********************************************************************//
4686
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4687
TLargeIntegerProperties= class;
4689
TLargeInteger = class(TOleServer)
4691
FIntf: IADsLargeInteger;
4692
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4693
FProps: TLargeIntegerProperties;
4694
function GetServerProperties: TLargeIntegerProperties;
4696
function GetDefaultInterface: IADsLargeInteger;
4698
procedure InitServerData; override;
4699
function Get_HighPart: Integer;
4700
procedure Set_HighPart(retval: Integer);
4701
function Get_LowPart: Integer;
4702
procedure Set_LowPart(retval: Integer);
4704
constructor Create(AOwner: TComponent); override;
4705
destructor Destroy; override;
4706
procedure Connect; override;
4707
procedure ConnectTo(svrIntf: IADsLargeInteger);
4708
procedure Disconnect; override;
4709
property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
4710
property HighPart: Integer read Get_HighPart write Set_HighPart;
4711
property LowPart: Integer read Get_LowPart write Set_LowPart;
4713
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4714
property Server: TLargeIntegerProperties read GetServerProperties;
4718
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4719
// *********************************************************************//
4720
// OLE Server Properties Proxy Class
4721
// Server Object : TLargeInteger
4722
// (This object is used by the IDE's Property Inspector to allow editing
4723
// of the properties of this server)
4724
// *********************************************************************//
4725
TLargeIntegerProperties = class(TPersistent)
4727
FServer: TLargeInteger;
4728
function GetDefaultInterface: IADsLargeInteger;
4729
constructor Create(AServer: TLargeInteger);
4731
function Get_HighPart: Integer;
4732
procedure Set_HighPart(retval: Integer);
4733
function Get_LowPart: Integer;
4734
procedure Set_LowPart(retval: Integer);
4736
property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
4738
property HighPart: Integer read Get_HighPart write Set_HighPart;
4739
property LowPart: Integer read Get_LowPart write Set_LowPart;
4743
// *********************************************************************//
4744
// The Class CoNameTranslate provides a Create and CreateRemote method to
4745
// create instances of the default interface IADsNameTranslate exposed by
4746
// the CoClass NameTranslate. The functions are intended to be used by
4747
// clients wishing to automate the CoClass objects exposed by the
4748
// server of this typelibrary.
4749
// *********************************************************************//
4750
CoNameTranslate = class
4751
class function Create: IADsNameTranslate;
4752
class function CreateRemote(const MachineName: string): IADsNameTranslate;
4755
// *********************************************************************//
4756
// OLE Server Proxy class declaration
4757
// Server Object : TNameTranslate
4759
// Default Interface: IADsNameTranslate
4760
// Def. Intf. DISP? : No
4762
// TypeFlags : (2) CanCreate
4763
// *********************************************************************//
4764
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4765
TNameTranslateProperties= class;
4767
TNameTranslate = class(TOleServer)
4769
FIntf: IADsNameTranslate;
4770
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4771
FProps: TNameTranslateProperties;
4772
function GetServerProperties: TNameTranslateProperties;
4774
function GetDefaultInterface: IADsNameTranslate;
4776
procedure InitServerData; override;
4777
procedure Set_ChaseReferral(Param1: Integer);
4779
constructor Create(AOwner: TComponent); override;
4780
destructor Destroy; override;
4781
procedure Connect; override;
4782
procedure ConnectTo(svrIntf: IADsNameTranslate);
4783
procedure Disconnect; override;
4784
procedure Init(lnSetType: Integer; const bstrADsPath: WideString);
4785
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
4786
const bstrUserID: WideString; const bstrDomain: WideString;
4787
const bstrPassword: WideString);
4788
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString);
4789
function Get(lnFormatType: Integer): WideString;
4790
procedure SetEx(lnFormatType: Integer; pVar: OleVariant);
4791
function GetEx(lnFormatType: Integer): OleVariant;
4792
property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
4793
property ChaseReferral: Integer write Set_ChaseReferral;
4795
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4796
property Server: TNameTranslateProperties read GetServerProperties;
4800
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4801
// *********************************************************************//
4802
// OLE Server Properties Proxy Class
4803
// Server Object : TNameTranslate
4804
// (This object is used by the IDE's Property Inspector to allow editing
4805
// of the properties of this server)
4806
// *********************************************************************//
4807
TNameTranslateProperties = class(TPersistent)
4809
FServer: TNameTranslate;
4810
function GetDefaultInterface: IADsNameTranslate;
4811
constructor Create(AServer: TNameTranslate);
4813
procedure Set_ChaseReferral(Param1: Integer);
4815
property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
4820
// *********************************************************************//
4821
// The Class CoCaseIgnoreList provides a Create and CreateRemote method to
4822
// create instances of the default interface IADsCaseIgnoreList exposed by
4823
// the CoClass CaseIgnoreList. The functions are intended to be used by
4824
// clients wishing to automate the CoClass objects exposed by the
4825
// server of this typelibrary.
4826
// *********************************************************************//
4827
CoCaseIgnoreList = class
4828
class function Create: IADsCaseIgnoreList;
4829
class function CreateRemote(const MachineName: string): IADsCaseIgnoreList;
4832
// *********************************************************************//
4833
// OLE Server Proxy class declaration
4834
// Server Object : TCaseIgnoreList
4836
// Default Interface: IADsCaseIgnoreList
4837
// Def. Intf. DISP? : No
4839
// TypeFlags : (2) CanCreate
4840
// *********************************************************************//
4841
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4842
TCaseIgnoreListProperties= class;
4844
TCaseIgnoreList = class(TOleServer)
4846
FIntf: IADsCaseIgnoreList;
4847
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4848
FProps: TCaseIgnoreListProperties;
4849
function GetServerProperties: TCaseIgnoreListProperties;
4851
function GetDefaultInterface: IADsCaseIgnoreList;
4853
procedure InitServerData; override;
4854
function Get_CaseIgnoreList: OleVariant;
4855
procedure Set_CaseIgnoreList(retval: OleVariant);
4857
constructor Create(AOwner: TComponent); override;
4858
destructor Destroy; override;
4859
procedure Connect; override;
4860
procedure ConnectTo(svrIntf: IADsCaseIgnoreList);
4861
procedure Disconnect; override;
4862
property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
4863
property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
4865
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4866
property Server: TCaseIgnoreListProperties read GetServerProperties;
4870
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4871
// *********************************************************************//
4872
// OLE Server Properties Proxy Class
4873
// Server Object : TCaseIgnoreList
4874
// (This object is used by the IDE's Property Inspector to allow editing
4875
// of the properties of this server)
4876
// *********************************************************************//
4877
TCaseIgnoreListProperties = class(TPersistent)
4879
FServer: TCaseIgnoreList;
4880
function GetDefaultInterface: IADsCaseIgnoreList;
4881
constructor Create(AServer: TCaseIgnoreList);
4883
function Get_CaseIgnoreList: OleVariant;
4884
procedure Set_CaseIgnoreList(retval: OleVariant);
4886
property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
4891
// *********************************************************************//
4892
// The Class CoFaxNumber provides a Create and CreateRemote method to
4893
// create instances of the default interface IADsFaxNumber exposed by
4894
// the CoClass FaxNumber. The functions are intended to be used by
4895
// clients wishing to automate the CoClass objects exposed by the
4896
// server of this typelibrary.
4897
// *********************************************************************//
4899
class function Create: IADsFaxNumber;
4900
class function CreateRemote(const MachineName: string): IADsFaxNumber;
4903
// *********************************************************************//
4904
// OLE Server Proxy class declaration
4905
// Server Object : TFaxNumber
4907
// Default Interface: IADsFaxNumber
4908
// Def. Intf. DISP? : No
4910
// TypeFlags : (2) CanCreate
4911
// *********************************************************************//
4912
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4913
TFaxNumberProperties= class;
4915
TFaxNumber = class(TOleServer)
4917
FIntf: IADsFaxNumber;
4918
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4919
FProps: TFaxNumberProperties;
4920
function GetServerProperties: TFaxNumberProperties;
4922
function GetDefaultInterface: IADsFaxNumber;
4924
procedure InitServerData; override;
4925
function Get_TelephoneNumber: WideString;
4926
procedure Set_TelephoneNumber(const retval: WideString);
4927
function Get_Parameters: OleVariant;
4928
procedure Set_Parameters(retval: OleVariant);
4930
constructor Create(AOwner: TComponent); override;
4931
destructor Destroy; override;
4932
procedure Connect; override;
4933
procedure ConnectTo(svrIntf: IADsFaxNumber);
4934
procedure Disconnect; override;
4935
property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
4936
property Parameters: OleVariant read Get_Parameters write Set_Parameters;
4937
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
4939
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4940
property Server: TFaxNumberProperties read GetServerProperties;
4944
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4945
// *********************************************************************//
4946
// OLE Server Properties Proxy Class
4947
// Server Object : TFaxNumber
4948
// (This object is used by the IDE's Property Inspector to allow editing
4949
// of the properties of this server)
4950
// *********************************************************************//
4951
TFaxNumberProperties = class(TPersistent)
4953
FServer: TFaxNumber;
4954
function GetDefaultInterface: IADsFaxNumber;
4955
constructor Create(AServer: TFaxNumber);
4957
function Get_TelephoneNumber: WideString;
4958
procedure Set_TelephoneNumber(const retval: WideString);
4959
function Get_Parameters: OleVariant;
4960
procedure Set_Parameters(retval: OleVariant);
4962
property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
4964
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
4968
// *********************************************************************//
4969
// The Class CoNetAddress provides a Create and CreateRemote method to
4970
// create instances of the default interface IADsNetAddress exposed by
4971
// the CoClass NetAddress. The functions are intended to be used by
4972
// clients wishing to automate the CoClass objects exposed by the
4973
// server of this typelibrary.
4974
// *********************************************************************//
4975
CoNetAddress = class
4976
class function Create: IADsNetAddress;
4977
class function CreateRemote(const MachineName: string): IADsNetAddress;
4980
// *********************************************************************//
4981
// OLE Server Proxy class declaration
4982
// Server Object : TNetAddress
4984
// Default Interface: IADsNetAddress
4985
// Def. Intf. DISP? : No
4987
// TypeFlags : (2) CanCreate
4988
// *********************************************************************//
4989
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4990
TNetAddressProperties= class;
4992
TNetAddress = class(TOleServer)
4994
FIntf: IADsNetAddress;
4995
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4996
FProps: TNetAddressProperties;
4997
function GetServerProperties: TNetAddressProperties;
4999
function GetDefaultInterface: IADsNetAddress;
5001
procedure InitServerData; override;
5002
function Get_AddressType: Integer;
5003
procedure Set_AddressType(retval: Integer);
5004
function Get_Address: OleVariant;
5005
procedure Set_Address(retval: OleVariant);
5007
constructor Create(AOwner: TComponent); override;
5008
destructor Destroy; override;
5009
procedure Connect; override;
5010
procedure ConnectTo(svrIntf: IADsNetAddress);
5011
procedure Disconnect; override;
5012
property DefaultInterface: IADsNetAddress read GetDefaultInterface;
5013
property Address: OleVariant read Get_Address write Set_Address;
5014
property AddressType: Integer read Get_AddressType write Set_AddressType;
5016
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5017
property Server: TNetAddressProperties read GetServerProperties;
5021
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5022
// *********************************************************************//
5023
// OLE Server Properties Proxy Class
5024
// Server Object : TNetAddress
5025
// (This object is used by the IDE's Property Inspector to allow editing
5026
// of the properties of this server)
5027
// *********************************************************************//
5028
TNetAddressProperties = class(TPersistent)
5030
FServer: TNetAddress;
5031
function GetDefaultInterface: IADsNetAddress;
5032
constructor Create(AServer: TNetAddress);
5034
function Get_AddressType: Integer;
5035
procedure Set_AddressType(retval: Integer);
5036
function Get_Address: OleVariant;
5037
procedure Set_Address(retval: OleVariant);
5039
property DefaultInterface: IADsNetAddress read GetDefaultInterface;
5041
property AddressType: Integer read Get_AddressType write Set_AddressType;
5045
// *********************************************************************//
5046
// The Class CoOctetList provides a Create and CreateRemote method to
5047
// create instances of the default interface IADsOctetList exposed by
5048
// the CoClass OctetList. The functions are intended to be used by
5049
// clients wishing to automate the CoClass objects exposed by the
5050
// server of this typelibrary.
5051
// *********************************************************************//
5053
class function Create: IADsOctetList;
5054
class function CreateRemote(const MachineName: string): IADsOctetList;
5057
// *********************************************************************//
5058
// OLE Server Proxy class declaration
5059
// Server Object : TOctetList
5061
// Default Interface: IADsOctetList
5062
// Def. Intf. DISP? : No
5064
// TypeFlags : (2) CanCreate
5065
// *********************************************************************//
5066
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5067
TOctetListProperties= class;
5069
TOctetList = class(TOleServer)
5071
FIntf: IADsOctetList;
5072
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5073
FProps: TOctetListProperties;
5074
function GetServerProperties: TOctetListProperties;
5076
function GetDefaultInterface: IADsOctetList;
5078
procedure InitServerData; override;
5079
function Get_OctetList: OleVariant;
5080
procedure Set_OctetList(retval: OleVariant);
5082
constructor Create(AOwner: TComponent); override;
5083
destructor Destroy; override;
5084
procedure Connect; override;
5085
procedure ConnectTo(svrIntf: IADsOctetList);
5086
procedure Disconnect; override;
5087
property DefaultInterface: IADsOctetList read GetDefaultInterface;
5088
property OctetList: OleVariant read Get_OctetList write Set_OctetList;
5090
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5091
property Server: TOctetListProperties read GetServerProperties;
5095
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5096
// *********************************************************************//
5097
// OLE Server Properties Proxy Class
5098
// Server Object : TOctetList
5099
// (This object is used by the IDE's Property Inspector to allow editing
5100
// of the properties of this server)
5101
// *********************************************************************//
5102
TOctetListProperties = class(TPersistent)
5104
FServer: TOctetList;
5105
function GetDefaultInterface: IADsOctetList;
5106
constructor Create(AServer: TOctetList);
5108
function Get_OctetList: OleVariant;
5109
procedure Set_OctetList(retval: OleVariant);
5111
property DefaultInterface: IADsOctetList read GetDefaultInterface;
5116
// *********************************************************************//
5117
// The Class CoEmail provides a Create and CreateRemote method to
5118
// create instances of the default interface IADsEmail exposed by
5119
// the CoClass Email. The functions are intended to be used by
5120
// clients wishing to automate the CoClass objects exposed by the
5121
// server of this typelibrary.
5122
// *********************************************************************//
5124
class function Create: IADsEmail;
5125
class function CreateRemote(const MachineName: string): IADsEmail;
5128
// *********************************************************************//
5129
// OLE Server Proxy class declaration
5130
// Server Object : TEmail
5132
// Default Interface: IADsEmail
5133
// Def. Intf. DISP? : No
5135
// TypeFlags : (2) CanCreate
5136
// *********************************************************************//
5137
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5138
TEmailProperties= class;
5140
TEmail = class(TOleServer)
5143
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5144
FProps: TEmailProperties;
5145
function GetServerProperties: TEmailProperties;
5147
function GetDefaultInterface: IADsEmail;
5149
procedure InitServerData; override;
5150
function Get_Type_: Integer;
5151
procedure Set_Type_(retval: Integer);
5152
function Get_Address: WideString;
5153
procedure Set_Address(const retval: WideString);
5155
constructor Create(AOwner: TComponent); override;
5156
destructor Destroy; override;
5157
procedure Connect; override;
5158
procedure ConnectTo(svrIntf: IADsEmail);
5159
procedure Disconnect; override;
5160
property DefaultInterface: IADsEmail read GetDefaultInterface;
5161
property Type_: Integer read Get_Type_ write Set_Type_;
5162
property Address: WideString read Get_Address write Set_Address;
5164
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5165
property Server: TEmailProperties read GetServerProperties;
5169
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5170
// *********************************************************************//
5171
// OLE Server Properties Proxy Class
5172
// Server Object : TEmail
5173
// (This object is used by the IDE's Property Inspector to allow editing
5174
// of the properties of this server)
5175
// *********************************************************************//
5176
TEmailProperties = class(TPersistent)
5179
function GetDefaultInterface: IADsEmail;
5180
constructor Create(AServer: TEmail);
5182
function Get_Type_: Integer;
5183
procedure Set_Type_(retval: Integer);
5184
function Get_Address: WideString;
5185
procedure Set_Address(const retval: WideString);
5187
property DefaultInterface: IADsEmail read GetDefaultInterface;
5189
property Type_: Integer read Get_Type_ write Set_Type_;
5190
property Address: WideString read Get_Address write Set_Address;
5194
// *********************************************************************//
5195
// The Class CoPath provides a Create and CreateRemote method to
5196
// create instances of the default interface IADsPath exposed by
5197
// the CoClass Path. The functions are intended to be used by
5198
// clients wishing to automate the CoClass objects exposed by the
5199
// server of this typelibrary.
5200
// *********************************************************************//
5202
class function Create: IADsPath;
5203
class function CreateRemote(const MachineName: string): IADsPath;
5206
// *********************************************************************//
5207
// OLE Server Proxy class declaration
5208
// Server Object : TPath
5210
// Default Interface: IADsPath
5211
// Def. Intf. DISP? : No
5213
// TypeFlags : (2) CanCreate
5214
// *********************************************************************//
5215
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5216
TPathProperties= class;
5218
TPath = class(TOleServer)
5221
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5222
FProps: TPathProperties;
5223
function GetServerProperties: TPathProperties;
5225
function GetDefaultInterface: IADsPath;
5227
procedure InitServerData; override;
5228
function Get_Type_: Integer;
5229
procedure Set_Type_(retval: Integer);
5230
function Get_VolumeName: WideString;
5231
procedure Set_VolumeName(const retval: WideString);
5232
function Get_Path: WideString;
5233
procedure Set_Path(const retval: WideString);
5235
constructor Create(AOwner: TComponent); override;
5236
destructor Destroy; override;
5237
procedure Connect; override;
5238
procedure ConnectTo(svrIntf: IADsPath);
5239
procedure Disconnect; override;
5240
property DefaultInterface: IADsPath read GetDefaultInterface;
5241
property Type_: Integer read Get_Type_ write Set_Type_;
5242
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
5243
property Path: WideString read Get_Path write Set_Path;
5245
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5246
property Server: TPathProperties read GetServerProperties;
5250
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5251
// *********************************************************************//
5252
// OLE Server Properties Proxy Class
5253
// Server Object : TPath
5254
// (This object is used by the IDE's Property Inspector to allow editing
5255
// of the properties of this server)
5256
// *********************************************************************//
5257
TPathProperties = class(TPersistent)
5260
function GetDefaultInterface: IADsPath;
5261
constructor Create(AServer: TPath);
5263
function Get_Type_: Integer;
5264
procedure Set_Type_(retval: Integer);
5265
function Get_VolumeName: WideString;
5266
procedure Set_VolumeName(const retval: WideString);
5267
function Get_Path: WideString;
5268
procedure Set_Path(const retval: WideString);
5270
property DefaultInterface: IADsPath read GetDefaultInterface;
5272
property Type_: Integer read Get_Type_ write Set_Type_;
5273
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
5274
property Path: WideString read Get_Path write Set_Path;
5278
// *********************************************************************//
5279
// The Class CoReplicaPointer provides a Create and CreateRemote method to
5280
// create instances of the default interface IADsReplicaPointer exposed by
5281
// the CoClass ReplicaPointer. The functions are intended to be used by
5282
// clients wishing to automate the CoClass objects exposed by the
5283
// server of this typelibrary.
5284
// *********************************************************************//
5285
CoReplicaPointer = class
5286
class function Create: IADsReplicaPointer;
5287
class function CreateRemote(const MachineName: string): IADsReplicaPointer;
5290
// *********************************************************************//
5291
// OLE Server Proxy class declaration
5292
// Server Object : TReplicaPointer
5294
// Default Interface: IADsReplicaPointer
5295
// Def. Intf. DISP? : No
5297
// TypeFlags : (2) CanCreate
5298
// *********************************************************************//
5299
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5300
TReplicaPointerProperties= class;
5302
TReplicaPointer = class(TOleServer)
5304
FIntf: IADsReplicaPointer;
5305
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5306
FProps: TReplicaPointerProperties;
5307
function GetServerProperties: TReplicaPointerProperties;
5309
function GetDefaultInterface: IADsReplicaPointer;
5311
procedure InitServerData; override;
5312
function Get_ServerName: WideString;
5313
procedure Set_ServerName(const retval: WideString);
5314
function Get_ReplicaType: Integer;
5315
procedure Set_ReplicaType(retval: Integer);
5316
function Get_ReplicaNumber: Integer;
5317
procedure Set_ReplicaNumber(retval: Integer);
5318
function Get_Count: Integer;
5319
procedure Set_Count(retval: Integer);
5320
function Get_ReplicaAddressHints: OleVariant;
5321
procedure Set_ReplicaAddressHints(retval: OleVariant);
5323
constructor Create(AOwner: TComponent); override;
5324
destructor Destroy; override;
5325
procedure Connect; override;
5326
procedure ConnectTo(svrIntf: IADsReplicaPointer);
5327
procedure Disconnect; override;
5328
property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
5329
property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
5330
property ServerName: WideString read Get_ServerName write Set_ServerName;
5331
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
5332
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
5333
property Count: Integer read Get_Count write Set_Count;
5335
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5336
property Server: TReplicaPointerProperties read GetServerProperties;
5340
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5341
// *********************************************************************//
5342
// OLE Server Properties Proxy Class
5343
// Server Object : TReplicaPointer
5344
// (This object is used by the IDE's Property Inspector to allow editing
5345
// of the properties of this server)
5346
// *********************************************************************//
5347
TReplicaPointerProperties = class(TPersistent)
5349
FServer: TReplicaPointer;
5350
function GetDefaultInterface: IADsReplicaPointer;
5351
constructor Create(AServer: TReplicaPointer);
5353
function Get_ServerName: WideString;
5354
procedure Set_ServerName(const retval: WideString);
5355
function Get_ReplicaType: Integer;
5356
procedure Set_ReplicaType(retval: Integer);
5357
function Get_ReplicaNumber: Integer;
5358
procedure Set_ReplicaNumber(retval: Integer);
5359
function Get_Count: Integer;
5360
procedure Set_Count(retval: Integer);
5361
function Get_ReplicaAddressHints: OleVariant;
5362
procedure Set_ReplicaAddressHints(retval: OleVariant);
5364
property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
5366
property ServerName: WideString read Get_ServerName write Set_ServerName;
5367
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
5368
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
5369
property Count: Integer read Get_Count write Set_Count;
5373
// *********************************************************************//
5374
// The Class CoAcl provides a Create and CreateRemote method to
5375
// create instances of the default interface IADsAcl exposed by
5376
// the CoClass Acl. The functions are intended to be used by
5377
// clients wishing to automate the CoClass objects exposed by the
5378
// server of this typelibrary.
5379
// *********************************************************************//
5381
class function Create: IADsAcl;
5382
class function CreateRemote(const MachineName: string): IADsAcl;
5385
// *********************************************************************//
5386
// OLE Server Proxy class declaration
5387
// Server Object : TAcl
5389
// Default Interface: IADsAcl
5390
// Def. Intf. DISP? : No
5392
// TypeFlags : (2) CanCreate
5393
// *********************************************************************//
5394
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5395
TAclProperties= class;
5397
TAcl = class(TOleServer)
5400
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5401
FProps: TAclProperties;
5402
function GetServerProperties: TAclProperties;
5404
function GetDefaultInterface: IADsAcl;
5406
procedure InitServerData; override;
5407
function Get_ProtectedAttrName: WideString;
5408
procedure Set_ProtectedAttrName(const retval: WideString);
5409
function Get_SubjectName: WideString;
5410
procedure Set_SubjectName(const retval: WideString);
5411
function Get_Privileges: Integer;
5412
procedure Set_Privileges(retval: Integer);
5414
constructor Create(AOwner: TComponent); override;
5415
destructor Destroy; override;
5416
procedure Connect; override;
5417
procedure ConnectTo(svrIntf: IADsAcl);
5418
procedure Disconnect; override;
5419
function CopyAcl: IDispatch;
5420
property DefaultInterface: IADsAcl read GetDefaultInterface;
5421
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
5422
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
5423
property Privileges: Integer read Get_Privileges write Set_Privileges;
5425
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5426
property Server: TAclProperties read GetServerProperties;
5430
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5431
// *********************************************************************//
5432
// OLE Server Properties Proxy Class
5433
// Server Object : TAcl
5434
// (This object is used by the IDE's Property Inspector to allow editing
5435
// of the properties of this server)
5436
// *********************************************************************//
5437
TAclProperties = class(TPersistent)
5440
function GetDefaultInterface: IADsAcl;
5441
constructor Create(AServer: TAcl);
5443
function Get_ProtectedAttrName: WideString;
5444
procedure Set_ProtectedAttrName(const retval: WideString);
5445
function Get_SubjectName: WideString;
5446
procedure Set_SubjectName(const retval: WideString);
5447
function Get_Privileges: Integer;
5448
procedure Set_Privileges(retval: Integer);
5450
property DefaultInterface: IADsAcl read GetDefaultInterface;
5452
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
5453
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
5454
property Privileges: Integer read Get_Privileges write Set_Privileges;
5458
// *********************************************************************//
5459
// The Class CoTimestamp provides a Create and CreateRemote method to
5460
// create instances of the default interface IADsTimestamp exposed by
5461
// the CoClass Timestamp. The functions are intended to be used by
5462
// clients wishing to automate the CoClass objects exposed by the
5463
// server of this typelibrary.
5464
// *********************************************************************//
5466
class function Create: IADsTimestamp;
5467
class function CreateRemote(const MachineName: string): IADsTimestamp;
5470
// *********************************************************************//
5471
// OLE Server Proxy class declaration
5472
// Server Object : TTimestamp
5474
// Default Interface: IADsTimestamp
5475
// Def. Intf. DISP? : No
5477
// TypeFlags : (2) CanCreate
5478
// *********************************************************************//
5479
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5480
TTimestampProperties= class;
5482
TTimestamp = class(TOleServer)
5484
FIntf: IADsTimestamp;
5485
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5486
FProps: TTimestampProperties;
5487
function GetServerProperties: TTimestampProperties;
5489
function GetDefaultInterface: IADsTimestamp;
5491
procedure InitServerData; override;
5492
function Get_WholeSeconds: Integer;
5493
procedure Set_WholeSeconds(retval: Integer);
5494
function Get_EventID: Integer;
5495
procedure Set_EventID(retval: Integer);
5497
constructor Create(AOwner: TComponent); override;
5498
destructor Destroy; override;
5499
procedure Connect; override;
5500
procedure ConnectTo(svrIntf: IADsTimestamp);
5501
procedure Disconnect; override;
5502
property DefaultInterface: IADsTimestamp read GetDefaultInterface;
5503
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
5504
property EventID: Integer read Get_EventID write Set_EventID;
5506
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5507
property Server: TTimestampProperties read GetServerProperties;
5511
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5512
// *********************************************************************//
5513
// OLE Server Properties Proxy Class
5514
// Server Object : TTimestamp
5515
// (This object is used by the IDE's Property Inspector to allow editing
5516
// of the properties of this server)
5517
// *********************************************************************//
5518
TTimestampProperties = class(TPersistent)
5520
FServer: TTimestamp;
5521
function GetDefaultInterface: IADsTimestamp;
5522
constructor Create(AServer: TTimestamp);
5524
function Get_WholeSeconds: Integer;
5525
procedure Set_WholeSeconds(retval: Integer);
5526
function Get_EventID: Integer;
5527
procedure Set_EventID(retval: Integer);
5529
property DefaultInterface: IADsTimestamp read GetDefaultInterface;
5531
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
5532
property EventID: Integer read Get_EventID write Set_EventID;
5536
// *********************************************************************//
5537
// The Class CoPostalAddress provides a Create and CreateRemote method to
5538
// create instances of the default interface IADsPostalAddress exposed by
5539
// the CoClass PostalAddress. The functions are intended to be used by
5540
// clients wishing to automate the CoClass objects exposed by the
5541
// server of this typelibrary.
5542
// *********************************************************************//
5543
CoPostalAddress = class
5544
class function Create: IADsPostalAddress;
5545
class function CreateRemote(const MachineName: string): IADsPostalAddress;
5548
// *********************************************************************//
5549
// OLE Server Proxy class declaration
5550
// Server Object : TPostalAddress
5552
// Default Interface: IADsPostalAddress
5553
// Def. Intf. DISP? : No
5555
// TypeFlags : (2) CanCreate
5556
// *********************************************************************//
5557
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5558
TPostalAddressProperties= class;
5560
TPostalAddress = class(TOleServer)
5562
FIntf: IADsPostalAddress;
5563
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5564
FProps: TPostalAddressProperties;
5565
function GetServerProperties: TPostalAddressProperties;
5567
function GetDefaultInterface: IADsPostalAddress;
5569
procedure InitServerData; override;
5570
function Get_PostalAddress: OleVariant;
5571
procedure Set_PostalAddress(retval: OleVariant);
5573
constructor Create(AOwner: TComponent); override;
5574
destructor Destroy; override;
5575
procedure Connect; override;
5576
procedure ConnectTo(svrIntf: IADsPostalAddress);
5577
procedure Disconnect; override;
5578
property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
5579
property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
5581
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5582
property Server: TPostalAddressProperties read GetServerProperties;
5586
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5587
// *********************************************************************//
5588
// OLE Server Properties Proxy Class
5589
// Server Object : TPostalAddress
5590
// (This object is used by the IDE's Property Inspector to allow editing
5591
// of the properties of this server)
5592
// *********************************************************************//
5593
TPostalAddressProperties = class(TPersistent)
5595
FServer: TPostalAddress;
5596
function GetDefaultInterface: IADsPostalAddress;
5597
constructor Create(AServer: TPostalAddress);
5599
function Get_PostalAddress: OleVariant;
5600
procedure Set_PostalAddress(retval: OleVariant);
5602
property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
5607
// *********************************************************************//
5608
// The Class CoBackLink provides a Create and CreateRemote method to
5609
// create instances of the default interface IADsBackLink exposed by
5610
// the CoClass BackLink. The functions are intended to be used by
5611
// clients wishing to automate the CoClass objects exposed by the
5612
// server of this typelibrary.
5613
// *********************************************************************//
5615
class function Create: IADsBackLink;
5616
class function CreateRemote(const MachineName: string): IADsBackLink;
5619
// *********************************************************************//
5620
// OLE Server Proxy class declaration
5621
// Server Object : TBackLink
5623
// Default Interface: IADsBackLink
5624
// Def. Intf. DISP? : No
5626
// TypeFlags : (2) CanCreate
5627
// *********************************************************************//
5628
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5629
TBackLinkProperties= class;
5631
TBackLink = class(TOleServer)
5633
FIntf: IADsBackLink;
5634
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5635
FProps: TBackLinkProperties;
5636
function GetServerProperties: TBackLinkProperties;
5638
function GetDefaultInterface: IADsBackLink;
5640
procedure InitServerData; override;
5641
function Get_RemoteID: Integer;
5642
procedure Set_RemoteID(retval: Integer);
5643
function Get_ObjectName: WideString;
5644
procedure Set_ObjectName(const retval: WideString);
5646
constructor Create(AOwner: TComponent); override;
5647
destructor Destroy; override;
5648
procedure Connect; override;
5649
procedure ConnectTo(svrIntf: IADsBackLink);
5650
procedure Disconnect; override;
5651
property DefaultInterface: IADsBackLink read GetDefaultInterface;
5652
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
5653
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5655
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5656
property Server: TBackLinkProperties read GetServerProperties;
5660
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5661
// *********************************************************************//
5662
// OLE Server Properties Proxy Class
5663
// Server Object : TBackLink
5664
// (This object is used by the IDE's Property Inspector to allow editing
5665
// of the properties of this server)
5666
// *********************************************************************//
5667
TBackLinkProperties = class(TPersistent)
5670
function GetDefaultInterface: IADsBackLink;
5671
constructor Create(AServer: TBackLink);
5673
function Get_RemoteID: Integer;
5674
procedure Set_RemoteID(retval: Integer);
5675
function Get_ObjectName: WideString;
5676
procedure Set_ObjectName(const retval: WideString);
5678
property DefaultInterface: IADsBackLink read GetDefaultInterface;
5680
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
5681
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5685
// *********************************************************************//
5686
// The Class CoTypedName provides a Create and CreateRemote method to
5687
// create instances of the default interface IADsTypedName exposed by
5688
// the CoClass TypedName. The functions are intended to be used by
5689
// clients wishing to automate the CoClass objects exposed by the
5690
// server of this typelibrary.
5691
// *********************************************************************//
5693
class function Create: IADsTypedName;
5694
class function CreateRemote(const MachineName: string): IADsTypedName;
5697
// *********************************************************************//
5698
// OLE Server Proxy class declaration
5699
// Server Object : TTypedName
5701
// Default Interface: IADsTypedName
5702
// Def. Intf. DISP? : No
5704
// TypeFlags : (2) CanCreate
5705
// *********************************************************************//
5706
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5707
TTypedNameProperties= class;
5709
TTypedName = class(TOleServer)
5711
FIntf: IADsTypedName;
5712
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5713
FProps: TTypedNameProperties;
5714
function GetServerProperties: TTypedNameProperties;
5716
function GetDefaultInterface: IADsTypedName;
5718
procedure InitServerData; override;
5719
function Get_ObjectName: WideString;
5720
procedure Set_ObjectName(const retval: WideString);
5721
function Get_Level: Integer;
5722
procedure Set_Level(retval: Integer);
5723
function Get_Interval: Integer;
5724
procedure Set_Interval(retval: Integer);
5726
constructor Create(AOwner: TComponent); override;
5727
destructor Destroy; override;
5728
procedure Connect; override;
5729
procedure ConnectTo(svrIntf: IADsTypedName);
5730
procedure Disconnect; override;
5731
property DefaultInterface: IADsTypedName read GetDefaultInterface;
5732
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5733
property Level: Integer read Get_Level write Set_Level;
5734
property Interval: Integer read Get_Interval write Set_Interval;
5736
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5737
property Server: TTypedNameProperties read GetServerProperties;
5741
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5742
// *********************************************************************//
5743
// OLE Server Properties Proxy Class
5744
// Server Object : TTypedName
5745
// (This object is used by the IDE's Property Inspector to allow editing
5746
// of the properties of this server)
5747
// *********************************************************************//
5748
TTypedNameProperties = class(TPersistent)
5750
FServer: TTypedName;
5751
function GetDefaultInterface: IADsTypedName;
5752
constructor Create(AServer: TTypedName);
5754
function Get_ObjectName: WideString;
5755
procedure Set_ObjectName(const retval: WideString);
5756
function Get_Level: Integer;
5757
procedure Set_Level(retval: Integer);
5758
function Get_Interval: Integer;
5759
procedure Set_Interval(retval: Integer);
5761
property DefaultInterface: IADsTypedName read GetDefaultInterface;
5763
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5764
property Level: Integer read Get_Level write Set_Level;
5765
property Interval: Integer read Get_Interval write Set_Interval;
5769
// *********************************************************************//
5770
// The Class CoHold provides a Create and CreateRemote method to
5771
// create instances of the default interface IADsHold exposed by
5772
// the CoClass Hold. The functions are intended to be used by
5773
// clients wishing to automate the CoClass objects exposed by the
5774
// server of this typelibrary.
5775
// *********************************************************************//
5777
class function Create: IADsHold;
5778
class function CreateRemote(const MachineName: string): IADsHold;
5781
// *********************************************************************//
5782
// OLE Server Proxy class declaration
5783
// Server Object : THold
5785
// Default Interface: IADsHold
5786
// Def. Intf. DISP? : No
5788
// TypeFlags : (2) CanCreate
5789
// *********************************************************************//
5790
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5791
THoldProperties= class;
5793
THold = class(TOleServer)
5796
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5797
FProps: THoldProperties;
5798
function GetServerProperties: THoldProperties;
5800
function GetDefaultInterface: IADsHold;
5802
procedure InitServerData; override;
5803
function Get_ObjectName: WideString;
5804
procedure Set_ObjectName(const retval: WideString);
5805
function Get_Amount: Integer;
5806
procedure Set_Amount(retval: Integer);
5808
constructor Create(AOwner: TComponent); override;
5809
destructor Destroy; override;
5810
procedure Connect; override;
5811
procedure ConnectTo(svrIntf: IADsHold);
5812
procedure Disconnect; override;
5813
property DefaultInterface: IADsHold read GetDefaultInterface;
5814
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5815
property Amount: Integer read Get_Amount write Set_Amount;
5817
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5818
property Server: THoldProperties read GetServerProperties;
5822
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5823
// *********************************************************************//
5824
// OLE Server Properties Proxy Class
5825
// Server Object : THold
5826
// (This object is used by the IDE's Property Inspector to allow editing
5827
// of the properties of this server)
5828
// *********************************************************************//
5829
THoldProperties = class(TPersistent)
5832
function GetDefaultInterface: IADsHold;
5833
constructor Create(AServer: THold);
5835
function Get_ObjectName: WideString;
5836
procedure Set_ObjectName(const retval: WideString);
5837
function Get_Amount: Integer;
5838
procedure Set_Amount(retval: Integer);
5840
property DefaultInterface: IADsHold read GetDefaultInterface;
5842
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5843
property Amount: Integer read Get_Amount write Set_Amount;
5847
// *********************************************************************//
5848
// The Class CoPathname provides a Create and CreateRemote method to
5849
// create instances of the default interface IADsPathname exposed by
5850
// the CoClass Pathname. The functions are intended to be used by
5851
// clients wishing to automate the CoClass objects exposed by the
5852
// server of this typelibrary.
5853
// *********************************************************************//
5855
class function Create: IADsPathname;
5856
class function CreateRemote(const MachineName: string): IADsPathname;
5859
// *********************************************************************//
5860
// OLE Server Proxy class declaration
5861
// Server Object : TPathname
5863
// Default Interface: IADsPathname
5864
// Def. Intf. DISP? : No
5866
// TypeFlags : (2) CanCreate
5867
// *********************************************************************//
5868
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5869
TPathnameProperties= class;
5871
TPathname = class(TOleServer)
5873
FIntf: IADsPathname;
5874
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5875
FProps: TPathnameProperties;
5876
function GetServerProperties: TPathnameProperties;
5878
function GetDefaultInterface: IADsPathname;
5880
procedure InitServerData; override;
5881
function Get_EscapedMode: Integer;
5882
procedure Set_EscapedMode(retval: Integer);
5884
constructor Create(AOwner: TComponent); override;
5885
destructor Destroy; override;
5886
procedure Connect; override;
5887
procedure ConnectTo(svrIntf: IADsPathname);
5888
procedure Disconnect; override;
5889
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer);
5890
procedure SetDisplayType(lnDisplayType: Integer);
5891
function Retrieve(lnFormatType: Integer): WideString;
5892
function GetNumElements: Integer;
5893
function GetElement(lnElementIndex: Integer): WideString;
5894
procedure AddLeafElement(const bstrLeafElement: WideString);
5895
procedure RemoveLeafElement;
5896
function CopyPath: IDispatch;
5897
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
5898
property DefaultInterface: IADsPathname read GetDefaultInterface;
5899
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
5901
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5902
property Server: TPathnameProperties read GetServerProperties;
5906
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5907
// *********************************************************************//
5908
// OLE Server Properties Proxy Class
5909
// Server Object : TPathname
5910
// (This object is used by the IDE's Property Inspector to allow editing
5911
// of the properties of this server)
5912
// *********************************************************************//
5913
TPathnameProperties = class(TPersistent)
5916
function GetDefaultInterface: IADsPathname;
5917
constructor Create(AServer: TPathname);
5919
function Get_EscapedMode: Integer;
5920
procedure Set_EscapedMode(retval: Integer);
5922
property DefaultInterface: IADsPathname read GetDefaultInterface;
5924
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
5928
// *********************************************************************//
5929
// The Class CoADSystemInfo provides a Create and CreateRemote method to
5930
// create instances of the default interface IADsADSystemInfo exposed by
5931
// the CoClass ADSystemInfo. The functions are intended to be used by
5932
// clients wishing to automate the CoClass objects exposed by the
5933
// server of this typelibrary.
5934
// *********************************************************************//
5935
CoADSystemInfo = class
5936
class function Create: IADsADSystemInfo;
5937
class function CreateRemote(const MachineName: string): IADsADSystemInfo;
5940
// *********************************************************************//
5941
// OLE Server Proxy class declaration
5942
// Server Object : TADSystemInfo
5944
// Default Interface: IADsADSystemInfo
5945
// Def. Intf. DISP? : No
5947
// TypeFlags : (2) CanCreate
5948
// *********************************************************************//
5949
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5950
TADSystemInfoProperties= class;
5952
TADSystemInfo = class(TOleServer)
5954
FIntf: IADsADSystemInfo;
5955
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5956
FProps: TADSystemInfoProperties;
5957
function GetServerProperties: TADSystemInfoProperties;
5959
function GetDefaultInterface: IADsADSystemInfo;
5961
procedure InitServerData; override;
5962
function Get_UserName: WideString;
5963
function Get_ComputerName: WideString;
5964
function Get_SiteName: WideString;
5965
function Get_DomainShortName: WideString;
5966
function Get_DomainDNSName: WideString;
5967
function Get_ForestDNSName: WideString;
5968
function Get_PDCRoleOwner: WideString;
5969
function Get_SchemaRoleOwner: WideString;
5970
function Get_IsNativeMode: WordBool;
5972
constructor Create(AOwner: TComponent); override;
5973
destructor Destroy; override;
5974
procedure Connect; override;
5975
procedure ConnectTo(svrIntf: IADsADSystemInfo);
5976
procedure Disconnect; override;
5977
function GetAnyDCName: WideString;
5978
function GetDCSiteName(const szServer: WideString): WideString;
5979
procedure RefreshSchemaCache;
5980
function GetTrees: OleVariant;
5981
property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
5982
property UserName: WideString read Get_UserName;
5983
property ComputerName: WideString read Get_ComputerName;
5984
property SiteName: WideString read Get_SiteName;
5985
property DomainShortName: WideString read Get_DomainShortName;
5986
property DomainDNSName: WideString read Get_DomainDNSName;
5987
property ForestDNSName: WideString read Get_ForestDNSName;
5988
property PDCRoleOwner: WideString read Get_PDCRoleOwner;
5989
property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
5990
property IsNativeMode: WordBool read Get_IsNativeMode;
5992
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5993
property Server: TADSystemInfoProperties read GetServerProperties;
5997
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5998
// *********************************************************************//
5999
// OLE Server Properties Proxy Class
6000
// Server Object : TADSystemInfo
6001
// (This object is used by the IDE's Property Inspector to allow editing
6002
// of the properties of this server)
6003
// *********************************************************************//
6004
TADSystemInfoProperties = class(TPersistent)
6006
FServer: TADSystemInfo;
6007
function GetDefaultInterface: IADsADSystemInfo;
6008
constructor Create(AServer: TADSystemInfo);
6010
function Get_UserName: WideString;
6011
function Get_ComputerName: WideString;
6012
function Get_SiteName: WideString;
6013
function Get_DomainShortName: WideString;
6014
function Get_DomainDNSName: WideString;
6015
function Get_ForestDNSName: WideString;
6016
function Get_PDCRoleOwner: WideString;
6017
function Get_SchemaRoleOwner: WideString;
6018
function Get_IsNativeMode: WordBool;
6020
property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
6025
// *********************************************************************//
6026
// The Class CoWinNTSystemInfo provides a Create and CreateRemote method to
6027
// create instances of the default interface IADsWinNTSystemInfo exposed by
6028
// the CoClass WinNTSystemInfo. The functions are intended to be used by
6029
// clients wishing to automate the CoClass objects exposed by the
6030
// server of this typelibrary.
6031
// *********************************************************************//
6032
CoWinNTSystemInfo = class
6033
class function Create: IADsWinNTSystemInfo;
6034
class function CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
6037
// *********************************************************************//
6038
// OLE Server Proxy class declaration
6039
// Server Object : TWinNTSystemInfo
6041
// Default Interface: IADsWinNTSystemInfo
6042
// Def. Intf. DISP? : No
6044
// TypeFlags : (2) CanCreate
6045
// *********************************************************************//
6046
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6047
TWinNTSystemInfoProperties= class;
6049
TWinNTSystemInfo = class(TOleServer)
6051
FIntf: IADsWinNTSystemInfo;
6052
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6053
FProps: TWinNTSystemInfoProperties;
6054
function GetServerProperties: TWinNTSystemInfoProperties;
6056
function GetDefaultInterface: IADsWinNTSystemInfo;
6058
procedure InitServerData; override;
6059
function Get_UserName: WideString;
6060
function Get_ComputerName: WideString;
6061
function Get_DomainName: WideString;
6062
function Get_PDC: WideString;
6064
constructor Create(AOwner: TComponent); override;
6065
destructor Destroy; override;
6066
procedure Connect; override;
6067
procedure ConnectTo(svrIntf: IADsWinNTSystemInfo);
6068
procedure Disconnect; override;
6069
property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
6070
property UserName: WideString read Get_UserName;
6071
property ComputerName: WideString read Get_ComputerName;
6072
property DomainName: WideString read Get_DomainName;
6073
property PDC: WideString read Get_PDC;
6075
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6076
property Server: TWinNTSystemInfoProperties read GetServerProperties;
6080
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6081
// *********************************************************************//
6082
// OLE Server Properties Proxy Class
6083
// Server Object : TWinNTSystemInfo
6084
// (This object is used by the IDE's Property Inspector to allow editing
6085
// of the properties of this server)
6086
// *********************************************************************//
6087
TWinNTSystemInfoProperties = class(TPersistent)
6089
FServer: TWinNTSystemInfo;
6090
function GetDefaultInterface: IADsWinNTSystemInfo;
6091
constructor Create(AServer: TWinNTSystemInfo);
6093
function Get_UserName: WideString;
6094
function Get_ComputerName: WideString;
6095
function Get_DomainName: WideString;
6096
function Get_PDC: WideString;
6098
property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
6103
// *********************************************************************//
6104
// The Class CoDNWithBinary provides a Create and CreateRemote method to
6105
// create instances of the default interface IADsDNWithBinary exposed by
6106
// the CoClass DNWithBinary. The functions are intended to be used by
6107
// clients wishing to automate the CoClass objects exposed by the
6108
// server of this typelibrary.
6109
// *********************************************************************//
6110
CoDNWithBinary = class
6111
class function Create: IADsDNWithBinary;
6112
class function CreateRemote(const MachineName: string): IADsDNWithBinary;
6115
// *********************************************************************//
6116
// OLE Server Proxy class declaration
6117
// Server Object : TDNWithBinary
6119
// Default Interface: IADsDNWithBinary
6120
// Def. Intf. DISP? : No
6122
// TypeFlags : (2) CanCreate
6123
// *********************************************************************//
6124
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6125
TDNWithBinaryProperties= class;
6127
TDNWithBinary = class(TOleServer)
6129
FIntf: IADsDNWithBinary;
6130
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6131
FProps: TDNWithBinaryProperties;
6132
function GetServerProperties: TDNWithBinaryProperties;
6134
function GetDefaultInterface: IADsDNWithBinary;
6136
procedure InitServerData; override;
6137
function Get_BinaryValue: OleVariant;
6138
procedure Set_BinaryValue(retval: OleVariant);
6139
function Get_DNString: WideString;
6140
procedure Set_DNString(const retval: WideString);
6142
constructor Create(AOwner: TComponent); override;
6143
destructor Destroy; override;
6144
procedure Connect; override;
6145
procedure ConnectTo(svrIntf: IADsDNWithBinary);
6146
procedure Disconnect; override;
6147
property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
6148
property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
6149
property DNString: WideString read Get_DNString write Set_DNString;
6151
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6152
property Server: TDNWithBinaryProperties read GetServerProperties;
6156
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6157
// *********************************************************************//
6158
// OLE Server Properties Proxy Class
6159
// Server Object : TDNWithBinary
6160
// (This object is used by the IDE's Property Inspector to allow editing
6161
// of the properties of this server)
6162
// *********************************************************************//
6163
TDNWithBinaryProperties = class(TPersistent)
6165
FServer: TDNWithBinary;
6166
function GetDefaultInterface: IADsDNWithBinary;
6167
constructor Create(AServer: TDNWithBinary);
6169
function Get_BinaryValue: OleVariant;
6170
procedure Set_BinaryValue(retval: OleVariant);
6171
function Get_DNString: WideString;
6172
procedure Set_DNString(const retval: WideString);
6174
property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
6176
property DNString: WideString read Get_DNString write Set_DNString;
6180
// *********************************************************************//
6181
// The Class CoDNWithString provides a Create and CreateRemote method to
6182
// create instances of the default interface IADsDNWithString exposed by
6183
// the CoClass DNWithString. The functions are intended to be used by
6184
// clients wishing to automate the CoClass objects exposed by the
6185
// server of this typelibrary.
6186
// *********************************************************************//
6187
CoDNWithString = class
6188
class function Create: IADsDNWithString;
6189
class function CreateRemote(const MachineName: string): IADsDNWithString;
6192
// *********************************************************************//
6193
// OLE Server Proxy class declaration
6194
// Server Object : TDNWithString
6196
// Default Interface: IADsDNWithString
6197
// Def. Intf. DISP? : No
6199
// TypeFlags : (2) CanCreate
6200
// *********************************************************************//
6201
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6202
TDNWithStringProperties= class;
6204
TDNWithString = class(TOleServer)
6206
FIntf: IADsDNWithString;
6207
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6208
FProps: TDNWithStringProperties;
6209
function GetServerProperties: TDNWithStringProperties;
6211
function GetDefaultInterface: IADsDNWithString;
6213
procedure InitServerData; override;
6214
function Get_StringValue: WideString;
6215
procedure Set_StringValue(const retval: WideString);
6216
function Get_DNString: WideString;
6217
procedure Set_DNString(const retval: WideString);
6219
constructor Create(AOwner: TComponent); override;
6220
destructor Destroy; override;
6221
procedure Connect; override;
6222
procedure ConnectTo(svrIntf: IADsDNWithString);
6223
procedure Disconnect; override;
6224
property DefaultInterface: IADsDNWithString read GetDefaultInterface;
6225
property StringValue: WideString read Get_StringValue write Set_StringValue;
6226
property DNString: WideString read Get_DNString write Set_DNString;
6228
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6229
property Server: TDNWithStringProperties read GetServerProperties;
6233
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6234
// *********************************************************************//
6235
// OLE Server Properties Proxy Class
6236
// Server Object : TDNWithString
6237
// (This object is used by the IDE's Property Inspector to allow editing
6238
// of the properties of this server)
6239
// *********************************************************************//
6240
TDNWithStringProperties = class(TPersistent)
6242
FServer: TDNWithString;
6243
function GetDefaultInterface: IADsDNWithString;
6244
constructor Create(AServer: TDNWithString);
6246
function Get_StringValue: WideString;
6247
procedure Set_StringValue(const retval: WideString);
6248
function Get_DNString: WideString;
6249
procedure Set_DNString(const retval: WideString);
6251
property DefaultInterface: IADsDNWithString read GetDefaultInterface;
6253
property StringValue: WideString read Get_StringValue write Set_StringValue;
6254
property DNString: WideString read Get_DNString write Set_DNString;
6264
class function CoPropertyEntry.Create: IADsPropertyEntry;
6266
Result := CreateComObject(CLASS_PropertyEntry) as IADsPropertyEntry;
6269
class function CoPropertyEntry.CreateRemote(const MachineName: string): IADsPropertyEntry;
6271
Result := CreateRemoteComObject(MachineName, CLASS_PropertyEntry) as IADsPropertyEntry;
6274
procedure TPropertyEntry.InitServerData;
6276
CServerData: TServerData = (
6277
ClassID: '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
6278
IntfIID: '{05792C8E-941F-11D0-8529-00C04FD8D503}';
6283
ServerData := @CServerData;
6286
procedure TPropertyEntry.Connect;
6293
Fintf:= punk as IADsPropertyEntry;
6297
procedure TPropertyEntry.ConnectTo(svrIntf: IADsPropertyEntry);
6303
procedure TPropertyEntry.DisConnect;
6305
if Fintf <> nil then
6311
function TPropertyEntry.GetDefaultInterface: IADsPropertyEntry;
6315
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
6319
constructor TPropertyEntry.Create(AOwner: TComponent);
6321
inherited Create(AOwner);
6322
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6323
FProps := TPropertyEntryProperties.Create(Self);
6327
destructor TPropertyEntry.Destroy;
6329
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6335
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6336
function TPropertyEntry.GetServerProperties: TPropertyEntryProperties;
6342
function TPropertyEntry.Get_Name: WideString;
6344
Result := DefaultInterface.Get_Name;
6347
procedure TPropertyEntry.Set_Name(const retval: WideString);
6349
DefaultInterface.Set_Name(retval);
6352
function TPropertyEntry.Get_ADsType: Integer;
6354
Result := DefaultInterface.Get_ADsType;
6357
procedure TPropertyEntry.Set_ADsType(retval: Integer);
6359
DefaultInterface.Set_ADsType(retval);
6362
function TPropertyEntry.Get_ControlCode: Integer;
6364
Result := DefaultInterface.Get_ControlCode;
6367
procedure TPropertyEntry.Set_ControlCode(retval: Integer);
6369
DefaultInterface.Set_ControlCode(retval);
6372
function TPropertyEntry.Get_Values: OleVariant;
6374
Result := DefaultInterface.Get_Values;
6377
procedure TPropertyEntry.Set_Values(retval: OleVariant);
6379
DefaultInterface.Set_Values(retval);
6382
procedure TPropertyEntry.Clear;
6384
DefaultInterface.Clear;
6387
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6388
constructor TPropertyEntryProperties.Create(AServer: TPropertyEntry);
6394
function TPropertyEntryProperties.GetDefaultInterface: IADsPropertyEntry;
6396
Result := FServer.DefaultInterface;
6399
function TPropertyEntryProperties.Get_Name: WideString;
6401
Result := DefaultInterface.Get_Name;
6404
procedure TPropertyEntryProperties.Set_Name(const retval: WideString);
6406
DefaultInterface.Set_Name(retval);
6409
function TPropertyEntryProperties.Get_ADsType: Integer;
6411
Result := DefaultInterface.Get_ADsType;
6414
procedure TPropertyEntryProperties.Set_ADsType(retval: Integer);
6416
DefaultInterface.Set_ADsType(retval);
6419
function TPropertyEntryProperties.Get_ControlCode: Integer;
6421
Result := DefaultInterface.Get_ControlCode;
6424
procedure TPropertyEntryProperties.Set_ControlCode(retval: Integer);
6426
DefaultInterface.Set_ControlCode(retval);
6429
function TPropertyEntryProperties.Get_Values: OleVariant;
6431
Result := DefaultInterface.Get_Values;
6434
procedure TPropertyEntryProperties.Set_Values(retval: OleVariant);
6436
DefaultInterface.Set_Values(retval);
6441
class function CoPropertyValue.Create: IADsPropertyValue;
6443
Result := CreateComObject(CLASS_PropertyValue) as IADsPropertyValue;
6446
class function CoPropertyValue.CreateRemote(const MachineName: string): IADsPropertyValue;
6448
Result := CreateRemoteComObject(MachineName, CLASS_PropertyValue) as IADsPropertyValue;
6451
procedure TPropertyValue.InitServerData;
6453
CServerData: TServerData = (
6454
ClassID: '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
6455
IntfIID: '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
6460
ServerData := @CServerData;
6463
procedure TPropertyValue.Connect;
6470
Fintf:= punk as IADsPropertyValue;
6474
procedure TPropertyValue.ConnectTo(svrIntf: IADsPropertyValue);
6480
procedure TPropertyValue.DisConnect;
6482
if Fintf <> nil then
6488
function TPropertyValue.GetDefaultInterface: IADsPropertyValue;
6492
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
6496
constructor TPropertyValue.Create(AOwner: TComponent);
6498
inherited Create(AOwner);
6499
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6500
FProps := TPropertyValueProperties.Create(Self);
6504
destructor TPropertyValue.Destroy;
6506
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6512
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6513
function TPropertyValue.GetServerProperties: TPropertyValueProperties;
6519
function TPropertyValue.Get_ADsType: Integer;
6521
Result := DefaultInterface.Get_ADsType;
6524
procedure TPropertyValue.Set_ADsType(retval: Integer);
6526
DefaultInterface.Set_ADsType(retval);
6529
function TPropertyValue.Get_DNString: WideString;
6531
Result := DefaultInterface.Get_DNString;
6534
procedure TPropertyValue.Set_DNString(const retval: WideString);
6536
DefaultInterface.Set_DNString(retval);
6539
function TPropertyValue.Get_CaseExactString: WideString;
6541
Result := DefaultInterface.Get_CaseExactString;
6544
procedure TPropertyValue.Set_CaseExactString(const retval: WideString);
6546
DefaultInterface.Set_CaseExactString(retval);
6549
function TPropertyValue.Get_CaseIgnoreString: WideString;
6551
Result := DefaultInterface.Get_CaseIgnoreString;
6554
procedure TPropertyValue.Set_CaseIgnoreString(const retval: WideString);
6556
DefaultInterface.Set_CaseIgnoreString(retval);
6559
function TPropertyValue.Get_PrintableString: WideString;
6561
Result := DefaultInterface.Get_PrintableString;
6564
procedure TPropertyValue.Set_PrintableString(const retval: WideString);
6566
DefaultInterface.Set_PrintableString(retval);
6569
function TPropertyValue.Get_NumericString: WideString;
6571
Result := DefaultInterface.Get_NumericString;
6574
procedure TPropertyValue.Set_NumericString(const retval: WideString);
6576
DefaultInterface.Set_NumericString(retval);
6579
function TPropertyValue.Get_Boolean: Integer;
6581
Result := DefaultInterface.Get_Boolean;
6584
procedure TPropertyValue.Set_Boolean(retval: Integer);
6586
DefaultInterface.Set_Boolean(retval);
6589
function TPropertyValue.Get_Integer: Integer;
6591
Result := DefaultInterface.Get_Integer;
6594
procedure TPropertyValue.Set_Integer(retval: Integer);
6596
DefaultInterface.Set_Integer(retval);
6599
function TPropertyValue.Get_OctetString: OleVariant;
6601
Result := DefaultInterface.Get_OctetString;
6604
procedure TPropertyValue.Set_OctetString(retval: OleVariant);
6606
DefaultInterface.Set_OctetString(retval);
6609
function TPropertyValue.Get_SecurityDescriptor: IDispatch;
6611
Result := DefaultInterface.Get_SecurityDescriptor;
6614
procedure TPropertyValue.Set_SecurityDescriptor(const retval: IDispatch);
6616
DefaultInterface.Set_SecurityDescriptor(retval);
6619
function TPropertyValue.Get_LargeInteger: IDispatch;
6621
Result := DefaultInterface.Get_LargeInteger;
6624
procedure TPropertyValue.Set_LargeInteger(const retval: IDispatch);
6626
DefaultInterface.Set_LargeInteger(retval);
6629
function TPropertyValue.Get_UTCTime: TDateTime;
6631
Result := DefaultInterface.Get_UTCTime;
6634
procedure TPropertyValue.Set_UTCTime(retval: TDateTime);
6636
DefaultInterface.Set_UTCTime(retval);
6639
procedure TPropertyValue.Clear;
6641
DefaultInterface.Clear;
6644
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6645
constructor TPropertyValueProperties.Create(AServer: TPropertyValue);
6651
function TPropertyValueProperties.GetDefaultInterface: IADsPropertyValue;
6653
Result := FServer.DefaultInterface;
6656
function TPropertyValueProperties.Get_ADsType: Integer;
6658
Result := DefaultInterface.Get_ADsType;
6661
procedure TPropertyValueProperties.Set_ADsType(retval: Integer);
6663
DefaultInterface.Set_ADsType(retval);
6666
function TPropertyValueProperties.Get_DNString: WideString;
6668
Result := DefaultInterface.Get_DNString;
6671
procedure TPropertyValueProperties.Set_DNString(const retval: WideString);
6673
DefaultInterface.Set_DNString(retval);
6676
function TPropertyValueProperties.Get_CaseExactString: WideString;
6678
Result := DefaultInterface.Get_CaseExactString;
6681
procedure TPropertyValueProperties.Set_CaseExactString(const retval: WideString);
6683
DefaultInterface.Set_CaseExactString(retval);
6686
function TPropertyValueProperties.Get_CaseIgnoreString: WideString;
6688
Result := DefaultInterface.Get_CaseIgnoreString;
6691
procedure TPropertyValueProperties.Set_CaseIgnoreString(const retval: WideString);
6693
DefaultInterface.Set_CaseIgnoreString(retval);
6696
function TPropertyValueProperties.Get_PrintableString: WideString;
6698
Result := DefaultInterface.Get_PrintableString;
6701
procedure TPropertyValueProperties.Set_PrintableString(const retval: WideString);
6703
DefaultInterface.Set_PrintableString(retval);
6706
function TPropertyValueProperties.Get_NumericString: WideString;
6708
Result := DefaultInterface.Get_NumericString;
6711
procedure TPropertyValueProperties.Set_NumericString(const retval: WideString);
6713
DefaultInterface.Set_NumericString(retval);
6716
function TPropertyValueProperties.Get_Boolean: Integer;
6718
Result := DefaultInterface.Get_Boolean;
6721
procedure TPropertyValueProperties.Set_Boolean(retval: Integer);
6723
DefaultInterface.Set_Boolean(retval);
6726
function TPropertyValueProperties.Get_Integer: Integer;
6728
Result := DefaultInterface.Get_Integer;
6731
procedure TPropertyValueProperties.Set_Integer(retval: Integer);
6733
DefaultInterface.Set_Integer(retval);
6736
function TPropertyValueProperties.Get_OctetString: OleVariant;
6738
Result := DefaultInterface.Get_OctetString;
6741
procedure TPropertyValueProperties.Set_OctetString(retval: OleVariant);
6743
DefaultInterface.Set_OctetString(retval);
6746
function TPropertyValueProperties.Get_SecurityDescriptor: IDispatch;
6748
Result := DefaultInterface.Get_SecurityDescriptor;
6751
procedure TPropertyValueProperties.Set_SecurityDescriptor(const retval: IDispatch);
6753
DefaultInterface.Set_SecurityDescriptor(retval);
6756
function TPropertyValueProperties.Get_LargeInteger: IDispatch;
6758
Result := DefaultInterface.Get_LargeInteger;
6761
procedure TPropertyValueProperties.Set_LargeInteger(const retval: IDispatch);
6763
DefaultInterface.Set_LargeInteger(retval);
6766
function TPropertyValueProperties.Get_UTCTime: TDateTime;
6768
Result := DefaultInterface.Get_UTCTime;
6771
procedure TPropertyValueProperties.Set_UTCTime(retval: TDateTime);
6773
DefaultInterface.Set_UTCTime(retval);
6778
class function CoAccessControlEntry.Create: IADsAccessControlEntry;
6780
Result := CreateComObject(CLASS_AccessControlEntry) as IADsAccessControlEntry;
6783
class function CoAccessControlEntry.CreateRemote(const MachineName: string): IADsAccessControlEntry;
6785
Result := CreateRemoteComObject(MachineName, CLASS_AccessControlEntry) as IADsAccessControlEntry;
6788
procedure TAccessControlEntry.InitServerData;
6790
CServerData: TServerData = (
6791
ClassID: '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
6792
IntfIID: '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
6797
ServerData := @CServerData;
6800
procedure TAccessControlEntry.Connect;
6807
Fintf:= punk as IADsAccessControlEntry;
6811
procedure TAccessControlEntry.ConnectTo(svrIntf: IADsAccessControlEntry);
6817
procedure TAccessControlEntry.DisConnect;
6819
if Fintf <> nil then
6825
function TAccessControlEntry.GetDefaultInterface: IADsAccessControlEntry;
6829
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
6833
constructor TAccessControlEntry.Create(AOwner: TComponent);
6835
inherited Create(AOwner);
6836
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6837
FProps := TAccessControlEntryProperties.Create(Self);
6841
destructor TAccessControlEntry.Destroy;
6843
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6849
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6850
function TAccessControlEntry.GetServerProperties: TAccessControlEntryProperties;
6856
function TAccessControlEntry.Get_AccessMask: Integer;
6858
Result := DefaultInterface.Get_AccessMask;
6861
procedure TAccessControlEntry.Set_AccessMask(retval: Integer);
6863
DefaultInterface.Set_AccessMask(retval);
6866
function TAccessControlEntry.Get_AceType: Integer;
6868
Result := DefaultInterface.Get_AceType;
6871
procedure TAccessControlEntry.Set_AceType(retval: Integer);
6873
DefaultInterface.Set_AceType(retval);
6876
function TAccessControlEntry.Get_AceFlags: Integer;
6878
Result := DefaultInterface.Get_AceFlags;
6881
procedure TAccessControlEntry.Set_AceFlags(retval: Integer);
6883
DefaultInterface.Set_AceFlags(retval);
6886
function TAccessControlEntry.Get_Flags: Integer;
6888
Result := DefaultInterface.Get_Flags;
6891
procedure TAccessControlEntry.Set_Flags(retval: Integer);
6893
DefaultInterface.Set_Flags(retval);
6896
function TAccessControlEntry.Get_ObjectType: WideString;
6898
Result := DefaultInterface.Get_ObjectType;
6901
procedure TAccessControlEntry.Set_ObjectType(const retval: WideString);
6903
DefaultInterface.Set_ObjectType(retval);
6906
function TAccessControlEntry.Get_InheritedObjectType: WideString;
6908
Result := DefaultInterface.Get_InheritedObjectType;
6911
procedure TAccessControlEntry.Set_InheritedObjectType(const retval: WideString);
6913
DefaultInterface.Set_InheritedObjectType(retval);
6916
function TAccessControlEntry.Get_Trustee: WideString;
6918
Result := DefaultInterface.Get_Trustee;
6921
procedure TAccessControlEntry.Set_Trustee(const retval: WideString);
6923
DefaultInterface.Set_Trustee(retval);
6926
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6927
constructor TAccessControlEntryProperties.Create(AServer: TAccessControlEntry);
6933
function TAccessControlEntryProperties.GetDefaultInterface: IADsAccessControlEntry;
6935
Result := FServer.DefaultInterface;
6938
function TAccessControlEntryProperties.Get_AccessMask: Integer;
6940
Result := DefaultInterface.Get_AccessMask;
6943
procedure TAccessControlEntryProperties.Set_AccessMask(retval: Integer);
6945
DefaultInterface.Set_AccessMask(retval);
6948
function TAccessControlEntryProperties.Get_AceType: Integer;
6950
Result := DefaultInterface.Get_AceType;
6953
procedure TAccessControlEntryProperties.Set_AceType(retval: Integer);
6955
DefaultInterface.Set_AceType(retval);
6958
function TAccessControlEntryProperties.Get_AceFlags: Integer;
6960
Result := DefaultInterface.Get_AceFlags;
6963
procedure TAccessControlEntryProperties.Set_AceFlags(retval: Integer);
6965
DefaultInterface.Set_AceFlags(retval);
6968
function TAccessControlEntryProperties.Get_Flags: Integer;
6970
Result := DefaultInterface.Get_Flags;
6973
procedure TAccessControlEntryProperties.Set_Flags(retval: Integer);
6975
DefaultInterface.Set_Flags(retval);
6978
function TAccessControlEntryProperties.Get_ObjectType: WideString;
6980
Result := DefaultInterface.Get_ObjectType;
6983
procedure TAccessControlEntryProperties.Set_ObjectType(const retval: WideString);
6985
DefaultInterface.Set_ObjectType(retval);
6988
function TAccessControlEntryProperties.Get_InheritedObjectType: WideString;
6990
Result := DefaultInterface.Get_InheritedObjectType;
6993
procedure TAccessControlEntryProperties.Set_InheritedObjectType(const retval: WideString);
6995
DefaultInterface.Set_InheritedObjectType(retval);
6998
function TAccessControlEntryProperties.Get_Trustee: WideString;
7000
Result := DefaultInterface.Get_Trustee;
7003
procedure TAccessControlEntryProperties.Set_Trustee(const retval: WideString);
7005
DefaultInterface.Set_Trustee(retval);
7010
class function CoAccessControlList.Create: IADsAccessControlList;
7012
Result := CreateComObject(CLASS_AccessControlList) as IADsAccessControlList;
7015
class function CoAccessControlList.CreateRemote(const MachineName: string): IADsAccessControlList;
7017
Result := CreateRemoteComObject(MachineName, CLASS_AccessControlList) as IADsAccessControlList;
7020
procedure TAccessControlList.InitServerData;
7022
CServerData: TServerData = (
7023
ClassID: '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
7024
IntfIID: '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
7029
ServerData := @CServerData;
7032
procedure TAccessControlList.Connect;
7039
Fintf:= punk as IADsAccessControlList;
7043
procedure TAccessControlList.ConnectTo(svrIntf: IADsAccessControlList);
7049
procedure TAccessControlList.DisConnect;
7051
if Fintf <> nil then
7057
function TAccessControlList.GetDefaultInterface: IADsAccessControlList;
7061
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7065
constructor TAccessControlList.Create(AOwner: TComponent);
7067
inherited Create(AOwner);
7068
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7069
FProps := TAccessControlListProperties.Create(Self);
7073
destructor TAccessControlList.Destroy;
7075
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7081
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7082
function TAccessControlList.GetServerProperties: TAccessControlListProperties;
7088
function TAccessControlList.Get_AclRevision: Integer;
7090
Result := DefaultInterface.Get_AclRevision;
7093
procedure TAccessControlList.Set_AclRevision(retval: Integer);
7095
DefaultInterface.Set_AclRevision(retval);
7098
function TAccessControlList.Get_AceCount: Integer;
7100
Result := DefaultInterface.Get_AceCount;
7103
procedure TAccessControlList.Set_AceCount(retval: Integer);
7105
DefaultInterface.Set_AceCount(retval);
7108
procedure TAccessControlList.AddAce(const pAccessControlEntry: IDispatch);
7110
DefaultInterface.AddAce(pAccessControlEntry);
7113
procedure TAccessControlList.RemoveAce(const pAccessControlEntry: IDispatch);
7115
DefaultInterface.RemoveAce(pAccessControlEntry);
7118
function TAccessControlList.CopyAccessList: IDispatch;
7120
Result := DefaultInterface.CopyAccessList;
7123
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7124
constructor TAccessControlListProperties.Create(AServer: TAccessControlList);
7130
function TAccessControlListProperties.GetDefaultInterface: IADsAccessControlList;
7132
Result := FServer.DefaultInterface;
7135
function TAccessControlListProperties.Get_AclRevision: Integer;
7137
Result := DefaultInterface.Get_AclRevision;
7140
procedure TAccessControlListProperties.Set_AclRevision(retval: Integer);
7142
DefaultInterface.Set_AclRevision(retval);
7145
function TAccessControlListProperties.Get_AceCount: Integer;
7147
Result := DefaultInterface.Get_AceCount;
7150
procedure TAccessControlListProperties.Set_AceCount(retval: Integer);
7152
DefaultInterface.Set_AceCount(retval);
7157
class function CoSecurityDescriptor.Create: IADsSecurityDescriptor;
7159
Result := CreateComObject(CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
7162
class function CoSecurityDescriptor.CreateRemote(const MachineName: string): IADsSecurityDescriptor;
7164
Result := CreateRemoteComObject(MachineName, CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
7167
procedure TSecurityDescriptor.InitServerData;
7169
CServerData: TServerData = (
7170
ClassID: '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
7171
IntfIID: '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
7176
ServerData := @CServerData;
7179
procedure TSecurityDescriptor.Connect;
7186
Fintf:= punk as IADsSecurityDescriptor;
7190
procedure TSecurityDescriptor.ConnectTo(svrIntf: IADsSecurityDescriptor);
7196
procedure TSecurityDescriptor.DisConnect;
7198
if Fintf <> nil then
7204
function TSecurityDescriptor.GetDefaultInterface: IADsSecurityDescriptor;
7208
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7212
constructor TSecurityDescriptor.Create(AOwner: TComponent);
7214
inherited Create(AOwner);
7215
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7216
FProps := TSecurityDescriptorProperties.Create(Self);
7220
destructor TSecurityDescriptor.Destroy;
7222
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7228
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7229
function TSecurityDescriptor.GetServerProperties: TSecurityDescriptorProperties;
7235
function TSecurityDescriptor.Get_Revision: Integer;
7237
Result := DefaultInterface.Get_Revision;
7240
procedure TSecurityDescriptor.Set_Revision(retval: Integer);
7242
DefaultInterface.Set_Revision(retval);
7245
function TSecurityDescriptor.Get_Control: Integer;
7247
Result := DefaultInterface.Get_Control;
7250
procedure TSecurityDescriptor.Set_Control(retval: Integer);
7252
DefaultInterface.Set_Control(retval);
7255
function TSecurityDescriptor.Get_Owner: WideString;
7257
Result := DefaultInterface.Get_Owner;
7260
procedure TSecurityDescriptor.Set_Owner(const retval: WideString);
7262
DefaultInterface.Set_Owner(retval);
7265
function TSecurityDescriptor.Get_OwnerDefaulted: WordBool;
7267
Result := DefaultInterface.Get_OwnerDefaulted;
7270
procedure TSecurityDescriptor.Set_OwnerDefaulted(retval: WordBool);
7272
DefaultInterface.Set_OwnerDefaulted(retval);
7275
function TSecurityDescriptor.Get_Group: WideString;
7277
Result := DefaultInterface.Get_Group;
7280
procedure TSecurityDescriptor.Set_Group(const retval: WideString);
7282
DefaultInterface.Set_Group(retval);
7285
function TSecurityDescriptor.Get_GroupDefaulted: WordBool;
7287
Result := DefaultInterface.Get_GroupDefaulted;
7290
procedure TSecurityDescriptor.Set_GroupDefaulted(retval: WordBool);
7292
DefaultInterface.Set_GroupDefaulted(retval);
7295
function TSecurityDescriptor.Get_DiscretionaryAcl: IDispatch;
7297
Result := DefaultInterface.Get_DiscretionaryAcl;
7300
procedure TSecurityDescriptor.Set_DiscretionaryAcl(const retval: IDispatch);
7302
DefaultInterface.Set_DiscretionaryAcl(retval);
7305
function TSecurityDescriptor.Get_DaclDefaulted: WordBool;
7307
Result := DefaultInterface.Get_DaclDefaulted;
7310
procedure TSecurityDescriptor.Set_DaclDefaulted(retval: WordBool);
7312
DefaultInterface.Set_DaclDefaulted(retval);
7315
function TSecurityDescriptor.Get_SystemAcl: IDispatch;
7317
Result := DefaultInterface.Get_SystemAcl;
7320
procedure TSecurityDescriptor.Set_SystemAcl(const retval: IDispatch);
7322
DefaultInterface.Set_SystemAcl(retval);
7325
function TSecurityDescriptor.Get_SaclDefaulted: WordBool;
7327
Result := DefaultInterface.Get_SaclDefaulted;
7330
procedure TSecurityDescriptor.Set_SaclDefaulted(retval: WordBool);
7332
DefaultInterface.Set_SaclDefaulted(retval);
7335
function TSecurityDescriptor.CopySecurityDescriptor: IDispatch;
7337
Result := DefaultInterface.CopySecurityDescriptor;
7340
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7341
constructor TSecurityDescriptorProperties.Create(AServer: TSecurityDescriptor);
7347
function TSecurityDescriptorProperties.GetDefaultInterface: IADsSecurityDescriptor;
7349
Result := FServer.DefaultInterface;
7352
function TSecurityDescriptorProperties.Get_Revision: Integer;
7354
Result := DefaultInterface.Get_Revision;
7357
procedure TSecurityDescriptorProperties.Set_Revision(retval: Integer);
7359
DefaultInterface.Set_Revision(retval);
7362
function TSecurityDescriptorProperties.Get_Control: Integer;
7364
Result := DefaultInterface.Get_Control;
7367
procedure TSecurityDescriptorProperties.Set_Control(retval: Integer);
7369
DefaultInterface.Set_Control(retval);
7372
function TSecurityDescriptorProperties.Get_Owner: WideString;
7374
Result := DefaultInterface.Get_Owner;
7377
procedure TSecurityDescriptorProperties.Set_Owner(const retval: WideString);
7379
DefaultInterface.Set_Owner(retval);
7382
function TSecurityDescriptorProperties.Get_OwnerDefaulted: WordBool;
7384
Result := DefaultInterface.Get_OwnerDefaulted;
7387
procedure TSecurityDescriptorProperties.Set_OwnerDefaulted(retval: WordBool);
7389
DefaultInterface.Set_OwnerDefaulted(retval);
7392
function TSecurityDescriptorProperties.Get_Group: WideString;
7394
Result := DefaultInterface.Get_Group;
7397
procedure TSecurityDescriptorProperties.Set_Group(const retval: WideString);
7399
DefaultInterface.Set_Group(retval);
7402
function TSecurityDescriptorProperties.Get_GroupDefaulted: WordBool;
7404
Result := DefaultInterface.Get_GroupDefaulted;
7407
procedure TSecurityDescriptorProperties.Set_GroupDefaulted(retval: WordBool);
7409
DefaultInterface.Set_GroupDefaulted(retval);
7412
function TSecurityDescriptorProperties.Get_DiscretionaryAcl: IDispatch;
7414
Result := DefaultInterface.Get_DiscretionaryAcl;
7417
procedure TSecurityDescriptorProperties.Set_DiscretionaryAcl(const retval: IDispatch);
7419
DefaultInterface.Set_DiscretionaryAcl(retval);
7422
function TSecurityDescriptorProperties.Get_DaclDefaulted: WordBool;
7424
Result := DefaultInterface.Get_DaclDefaulted;
7427
procedure TSecurityDescriptorProperties.Set_DaclDefaulted(retval: WordBool);
7429
DefaultInterface.Set_DaclDefaulted(retval);
7432
function TSecurityDescriptorProperties.Get_SystemAcl: IDispatch;
7434
Result := DefaultInterface.Get_SystemAcl;
7437
procedure TSecurityDescriptorProperties.Set_SystemAcl(const retval: IDispatch);
7439
DefaultInterface.Set_SystemAcl(retval);
7442
function TSecurityDescriptorProperties.Get_SaclDefaulted: WordBool;
7444
Result := DefaultInterface.Get_SaclDefaulted;
7447
procedure TSecurityDescriptorProperties.Set_SaclDefaulted(retval: WordBool);
7449
DefaultInterface.Set_SaclDefaulted(retval);
7454
class function CoLargeInteger.Create: IADsLargeInteger;
7456
Result := CreateComObject(CLASS_LargeInteger) as IADsLargeInteger;
7459
class function CoLargeInteger.CreateRemote(const MachineName: string): IADsLargeInteger;
7461
Result := CreateRemoteComObject(MachineName, CLASS_LargeInteger) as IADsLargeInteger;
7464
procedure TLargeInteger.InitServerData;
7466
CServerData: TServerData = (
7467
ClassID: '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
7468
IntfIID: '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
7473
ServerData := @CServerData;
7476
procedure TLargeInteger.Connect;
7483
Fintf:= punk as IADsLargeInteger;
7487
procedure TLargeInteger.ConnectTo(svrIntf: IADsLargeInteger);
7493
procedure TLargeInteger.DisConnect;
7495
if Fintf <> nil then
7501
function TLargeInteger.GetDefaultInterface: IADsLargeInteger;
7505
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7509
constructor TLargeInteger.Create(AOwner: TComponent);
7511
inherited Create(AOwner);
7512
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7513
FProps := TLargeIntegerProperties.Create(Self);
7517
destructor TLargeInteger.Destroy;
7519
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7525
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7526
function TLargeInteger.GetServerProperties: TLargeIntegerProperties;
7532
function TLargeInteger.Get_HighPart: Integer;
7534
Result := DefaultInterface.Get_HighPart;
7537
procedure TLargeInteger.Set_HighPart(retval: Integer);
7539
DefaultInterface.Set_HighPart(retval);
7542
function TLargeInteger.Get_LowPart: Integer;
7544
Result := DefaultInterface.Get_LowPart;
7547
procedure TLargeInteger.Set_LowPart(retval: Integer);
7549
DefaultInterface.Set_LowPart(retval);
7552
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7553
constructor TLargeIntegerProperties.Create(AServer: TLargeInteger);
7559
function TLargeIntegerProperties.GetDefaultInterface: IADsLargeInteger;
7561
Result := FServer.DefaultInterface;
7564
function TLargeIntegerProperties.Get_HighPart: Integer;
7566
Result := DefaultInterface.Get_HighPart;
7569
procedure TLargeIntegerProperties.Set_HighPart(retval: Integer);
7571
DefaultInterface.Set_HighPart(retval);
7574
function TLargeIntegerProperties.Get_LowPart: Integer;
7576
Result := DefaultInterface.Get_LowPart;
7579
procedure TLargeIntegerProperties.Set_LowPart(retval: Integer);
7581
DefaultInterface.Set_LowPart(retval);
7586
class function CoNameTranslate.Create: IADsNameTranslate;
7588
Result := CreateComObject(CLASS_NameTranslate) as IADsNameTranslate;
7591
class function CoNameTranslate.CreateRemote(const MachineName: string): IADsNameTranslate;
7593
Result := CreateRemoteComObject(MachineName, CLASS_NameTranslate) as IADsNameTranslate;
7596
procedure TNameTranslate.InitServerData;
7598
CServerData: TServerData = (
7599
ClassID: '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
7600
IntfIID: '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
7605
ServerData := @CServerData;
7608
procedure TNameTranslate.Connect;
7615
Fintf:= punk as IADsNameTranslate;
7619
procedure TNameTranslate.ConnectTo(svrIntf: IADsNameTranslate);
7625
procedure TNameTranslate.DisConnect;
7627
if Fintf <> nil then
7633
function TNameTranslate.GetDefaultInterface: IADsNameTranslate;
7637
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7641
constructor TNameTranslate.Create(AOwner: TComponent);
7643
inherited Create(AOwner);
7644
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7645
FProps := TNameTranslateProperties.Create(Self);
7649
destructor TNameTranslate.Destroy;
7651
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7657
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7658
function TNameTranslate.GetServerProperties: TNameTranslateProperties;
7664
procedure TNameTranslate.Set_ChaseReferral(Param1: Integer);
7666
DefaultInterface.Set_ChaseReferral(Param1);
7669
procedure TNameTranslate.Init(lnSetType: Integer; const bstrADsPath: WideString);
7671
DefaultInterface.Init(lnSetType, bstrADsPath);
7674
procedure TNameTranslate.InitEx(lnSetType: Integer; const bstrADsPath: WideString;
7675
const bstrUserID: WideString; const bstrDomain: WideString;
7676
const bstrPassword: WideString);
7678
DefaultInterface.InitEx(lnSetType, bstrADsPath, bstrUserID, bstrDomain, bstrPassword);
7681
procedure TNameTranslate.Set_(lnSetType: Integer; const bstrADsPath: WideString);
7683
DefaultInterface.Set_(lnSetType, bstrADsPath);
7686
function TNameTranslate.Get(lnFormatType: Integer): WideString;
7688
Result := DefaultInterface.Get(lnFormatType);
7691
procedure TNameTranslate.SetEx(lnFormatType: Integer; pVar: OleVariant);
7693
DefaultInterface.SetEx(lnFormatType, pVar);
7696
function TNameTranslate.GetEx(lnFormatType: Integer): OleVariant;
7698
Result := DefaultInterface.GetEx(lnFormatType);
7701
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7702
constructor TNameTranslateProperties.Create(AServer: TNameTranslate);
7708
function TNameTranslateProperties.GetDefaultInterface: IADsNameTranslate;
7710
Result := FServer.DefaultInterface;
7713
procedure TNameTranslateProperties.Set_ChaseReferral(Param1: Integer);
7715
DefaultInterface.Set_ChaseReferral(Param1);
7720
class function CoCaseIgnoreList.Create: IADsCaseIgnoreList;
7722
Result := CreateComObject(CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
7725
class function CoCaseIgnoreList.CreateRemote(const MachineName: string): IADsCaseIgnoreList;
7727
Result := CreateRemoteComObject(MachineName, CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
7730
procedure TCaseIgnoreList.InitServerData;
7732
CServerData: TServerData = (
7733
ClassID: '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
7734
IntfIID: '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
7739
ServerData := @CServerData;
7742
procedure TCaseIgnoreList.Connect;
7749
Fintf:= punk as IADsCaseIgnoreList;
7753
procedure TCaseIgnoreList.ConnectTo(svrIntf: IADsCaseIgnoreList);
7759
procedure TCaseIgnoreList.DisConnect;
7761
if Fintf <> nil then
7767
function TCaseIgnoreList.GetDefaultInterface: IADsCaseIgnoreList;
7771
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7775
constructor TCaseIgnoreList.Create(AOwner: TComponent);
7777
inherited Create(AOwner);
7778
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7779
FProps := TCaseIgnoreListProperties.Create(Self);
7783
destructor TCaseIgnoreList.Destroy;
7785
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7791
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7792
function TCaseIgnoreList.GetServerProperties: TCaseIgnoreListProperties;
7798
function TCaseIgnoreList.Get_CaseIgnoreList: OleVariant;
7800
Result := DefaultInterface.Get_CaseIgnoreList;
7803
procedure TCaseIgnoreList.Set_CaseIgnoreList(retval: OleVariant);
7805
DefaultInterface.Set_CaseIgnoreList(retval);
7808
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7809
constructor TCaseIgnoreListProperties.Create(AServer: TCaseIgnoreList);
7815
function TCaseIgnoreListProperties.GetDefaultInterface: IADsCaseIgnoreList;
7817
Result := FServer.DefaultInterface;
7820
function TCaseIgnoreListProperties.Get_CaseIgnoreList: OleVariant;
7822
Result := DefaultInterface.Get_CaseIgnoreList;
7825
procedure TCaseIgnoreListProperties.Set_CaseIgnoreList(retval: OleVariant);
7827
DefaultInterface.Set_CaseIgnoreList(retval);
7832
class function CoFaxNumber.Create: IADsFaxNumber;
7834
Result := CreateComObject(CLASS_FaxNumber) as IADsFaxNumber;
7837
class function CoFaxNumber.CreateRemote(const MachineName: string): IADsFaxNumber;
7839
Result := CreateRemoteComObject(MachineName, CLASS_FaxNumber) as IADsFaxNumber;
7842
procedure TFaxNumber.InitServerData;
7844
CServerData: TServerData = (
7845
ClassID: '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
7846
IntfIID: '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
7851
ServerData := @CServerData;
7854
procedure TFaxNumber.Connect;
7861
Fintf:= punk as IADsFaxNumber;
7865
procedure TFaxNumber.ConnectTo(svrIntf: IADsFaxNumber);
7871
procedure TFaxNumber.DisConnect;
7873
if Fintf <> nil then
7879
function TFaxNumber.GetDefaultInterface: IADsFaxNumber;
7883
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7887
constructor TFaxNumber.Create(AOwner: TComponent);
7889
inherited Create(AOwner);
7890
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7891
FProps := TFaxNumberProperties.Create(Self);
7895
destructor TFaxNumber.Destroy;
7897
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7903
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7904
function TFaxNumber.GetServerProperties: TFaxNumberProperties;
7910
function TFaxNumber.Get_TelephoneNumber: WideString;
7912
Result := DefaultInterface.Get_TelephoneNumber;
7915
procedure TFaxNumber.Set_TelephoneNumber(const retval: WideString);
7917
DefaultInterface.Set_TelephoneNumber(retval);
7920
function TFaxNumber.Get_Parameters: OleVariant;
7922
Result := DefaultInterface.Get_Parameters;
7925
procedure TFaxNumber.Set_Parameters(retval: OleVariant);
7927
DefaultInterface.Set_Parameters(retval);
7930
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7931
constructor TFaxNumberProperties.Create(AServer: TFaxNumber);
7937
function TFaxNumberProperties.GetDefaultInterface: IADsFaxNumber;
7939
Result := FServer.DefaultInterface;
7942
function TFaxNumberProperties.Get_TelephoneNumber: WideString;
7944
Result := DefaultInterface.Get_TelephoneNumber;
7947
procedure TFaxNumberProperties.Set_TelephoneNumber(const retval: WideString);
7949
DefaultInterface.Set_TelephoneNumber(retval);
7952
function TFaxNumberProperties.Get_Parameters: OleVariant;
7954
Result := DefaultInterface.Get_Parameters;
7957
procedure TFaxNumberProperties.Set_Parameters(retval: OleVariant);
7959
DefaultInterface.Set_Parameters(retval);
7964
class function CoNetAddress.Create: IADsNetAddress;
7966
Result := CreateComObject(CLASS_NetAddress) as IADsNetAddress;
7969
class function CoNetAddress.CreateRemote(const MachineName: string): IADsNetAddress;
7971
Result := CreateRemoteComObject(MachineName, CLASS_NetAddress) as IADsNetAddress;
7974
procedure TNetAddress.InitServerData;
7976
CServerData: TServerData = (
7977
ClassID: '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
7978
IntfIID: '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
7983
ServerData := @CServerData;
7986
procedure TNetAddress.Connect;
7993
Fintf:= punk as IADsNetAddress;
7997
procedure TNetAddress.ConnectTo(svrIntf: IADsNetAddress);
8003
procedure TNetAddress.DisConnect;
8005
if Fintf <> nil then
8011
function TNetAddress.GetDefaultInterface: IADsNetAddress;
8015
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8019
constructor TNetAddress.Create(AOwner: TComponent);
8021
inherited Create(AOwner);
8022
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8023
FProps := TNetAddressProperties.Create(Self);
8027
destructor TNetAddress.Destroy;
8029
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8035
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8036
function TNetAddress.GetServerProperties: TNetAddressProperties;
8042
function TNetAddress.Get_AddressType: Integer;
8044
Result := DefaultInterface.Get_AddressType;
8047
procedure TNetAddress.Set_AddressType(retval: Integer);
8049
DefaultInterface.Set_AddressType(retval);
8052
function TNetAddress.Get_Address: OleVariant;
8054
Result := DefaultInterface.Get_Address;
8057
procedure TNetAddress.Set_Address(retval: OleVariant);
8059
DefaultInterface.Set_Address(retval);
8062
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8063
constructor TNetAddressProperties.Create(AServer: TNetAddress);
8069
function TNetAddressProperties.GetDefaultInterface: IADsNetAddress;
8071
Result := FServer.DefaultInterface;
8074
function TNetAddressProperties.Get_AddressType: Integer;
8076
Result := DefaultInterface.Get_AddressType;
8079
procedure TNetAddressProperties.Set_AddressType(retval: Integer);
8081
DefaultInterface.Set_AddressType(retval);
8084
function TNetAddressProperties.Get_Address: OleVariant;
8086
Result := DefaultInterface.Get_Address;
8089
procedure TNetAddressProperties.Set_Address(retval: OleVariant);
8091
DefaultInterface.Set_Address(retval);
8096
class function CoOctetList.Create: IADsOctetList;
8098
Result := CreateComObject(CLASS_OctetList) as IADsOctetList;
8101
class function CoOctetList.CreateRemote(const MachineName: string): IADsOctetList;
8103
Result := CreateRemoteComObject(MachineName, CLASS_OctetList) as IADsOctetList;
8106
procedure TOctetList.InitServerData;
8108
CServerData: TServerData = (
8109
ClassID: '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
8110
IntfIID: '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
8115
ServerData := @CServerData;
8118
procedure TOctetList.Connect;
8125
Fintf:= punk as IADsOctetList;
8129
procedure TOctetList.ConnectTo(svrIntf: IADsOctetList);
8135
procedure TOctetList.DisConnect;
8137
if Fintf <> nil then
8143
function TOctetList.GetDefaultInterface: IADsOctetList;
8147
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8151
constructor TOctetList.Create(AOwner: TComponent);
8153
inherited Create(AOwner);
8154
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8155
FProps := TOctetListProperties.Create(Self);
8159
destructor TOctetList.Destroy;
8161
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8167
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8168
function TOctetList.GetServerProperties: TOctetListProperties;
8174
function TOctetList.Get_OctetList: OleVariant;
8176
Result := DefaultInterface.Get_OctetList;
8179
procedure TOctetList.Set_OctetList(retval: OleVariant);
8181
DefaultInterface.Set_OctetList(retval);
8184
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8185
constructor TOctetListProperties.Create(AServer: TOctetList);
8191
function TOctetListProperties.GetDefaultInterface: IADsOctetList;
8193
Result := FServer.DefaultInterface;
8196
function TOctetListProperties.Get_OctetList: OleVariant;
8198
Result := DefaultInterface.Get_OctetList;
8201
procedure TOctetListProperties.Set_OctetList(retval: OleVariant);
8203
DefaultInterface.Set_OctetList(retval);
8208
class function CoEmail.Create: IADsEmail;
8210
Result := CreateComObject(CLASS_Email) as IADsEmail;
8213
class function CoEmail.CreateRemote(const MachineName: string): IADsEmail;
8215
Result := CreateRemoteComObject(MachineName, CLASS_Email) as IADsEmail;
8218
procedure TEmail.InitServerData;
8220
CServerData: TServerData = (
8221
ClassID: '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
8222
IntfIID: '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
8227
ServerData := @CServerData;
8230
procedure TEmail.Connect;
8237
Fintf:= punk as IADsEmail;
8241
procedure TEmail.ConnectTo(svrIntf: IADsEmail);
8247
procedure TEmail.DisConnect;
8249
if Fintf <> nil then
8255
function TEmail.GetDefaultInterface: IADsEmail;
8259
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8263
constructor TEmail.Create(AOwner: TComponent);
8265
inherited Create(AOwner);
8266
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8267
FProps := TEmailProperties.Create(Self);
8271
destructor TEmail.Destroy;
8273
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8279
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8280
function TEmail.GetServerProperties: TEmailProperties;
8286
function TEmail.Get_Type_: Integer;
8288
Result := DefaultInterface.Get_Type_;
8291
procedure TEmail.Set_Type_(retval: Integer);
8293
DefaultInterface.Set_Type_(retval);
8296
function TEmail.Get_Address: WideString;
8298
Result := DefaultInterface.Get_Address;
8301
procedure TEmail.Set_Address(const retval: WideString);
8303
DefaultInterface.Set_Address(retval);
8306
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8307
constructor TEmailProperties.Create(AServer: TEmail);
8313
function TEmailProperties.GetDefaultInterface: IADsEmail;
8315
Result := FServer.DefaultInterface;
8318
function TEmailProperties.Get_Type_: Integer;
8320
Result := DefaultInterface.Get_Type_;
8323
procedure TEmailProperties.Set_Type_(retval: Integer);
8325
DefaultInterface.Set_Type_(retval);
8328
function TEmailProperties.Get_Address: WideString;
8330
Result := DefaultInterface.Get_Address;
8333
procedure TEmailProperties.Set_Address(const retval: WideString);
8335
DefaultInterface.Set_Address(retval);
8340
class function CoPath.Create: IADsPath;
8342
Result := CreateComObject(CLASS_Path) as IADsPath;
8345
class function CoPath.CreateRemote(const MachineName: string): IADsPath;
8347
Result := CreateRemoteComObject(MachineName, CLASS_Path) as IADsPath;
8350
procedure TPath.InitServerData;
8352
CServerData: TServerData = (
8353
ClassID: '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
8354
IntfIID: '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
8359
ServerData := @CServerData;
8362
procedure TPath.Connect;
8369
Fintf:= punk as IADsPath;
8373
procedure TPath.ConnectTo(svrIntf: IADsPath);
8379
procedure TPath.DisConnect;
8381
if Fintf <> nil then
8387
function TPath.GetDefaultInterface: IADsPath;
8391
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8395
constructor TPath.Create(AOwner: TComponent);
8397
inherited Create(AOwner);
8398
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8399
FProps := TPathProperties.Create(Self);
8403
destructor TPath.Destroy;
8405
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8411
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8412
function TPath.GetServerProperties: TPathProperties;
8418
function TPath.Get_Type_: Integer;
8420
Result := DefaultInterface.Get_Type_;
8423
procedure TPath.Set_Type_(retval: Integer);
8425
DefaultInterface.Set_Type_(retval);
8428
function TPath.Get_VolumeName: WideString;
8430
Result := DefaultInterface.Get_VolumeName;
8433
procedure TPath.Set_VolumeName(const retval: WideString);
8435
DefaultInterface.Set_VolumeName(retval);
8438
function TPath.Get_Path: WideString;
8440
Result := DefaultInterface.Get_Path;
8443
procedure TPath.Set_Path(const retval: WideString);
8445
DefaultInterface.Set_Path(retval);
8448
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8449
constructor TPathProperties.Create(AServer: TPath);
8455
function TPathProperties.GetDefaultInterface: IADsPath;
8457
Result := FServer.DefaultInterface;
8460
function TPathProperties.Get_Type_: Integer;
8462
Result := DefaultInterface.Get_Type_;
8465
procedure TPathProperties.Set_Type_(retval: Integer);
8467
DefaultInterface.Set_Type_(retval);
8470
function TPathProperties.Get_VolumeName: WideString;
8472
Result := DefaultInterface.Get_VolumeName;
8475
procedure TPathProperties.Set_VolumeName(const retval: WideString);
8477
DefaultInterface.Set_VolumeName(retval);
8480
function TPathProperties.Get_Path: WideString;
8482
Result := DefaultInterface.Get_Path;
8485
procedure TPathProperties.Set_Path(const retval: WideString);
8487
DefaultInterface.Set_Path(retval);
8492
class function CoReplicaPointer.Create: IADsReplicaPointer;
8494
Result := CreateComObject(CLASS_ReplicaPointer) as IADsReplicaPointer;
8497
class function CoReplicaPointer.CreateRemote(const MachineName: string): IADsReplicaPointer;
8499
Result := CreateRemoteComObject(MachineName, CLASS_ReplicaPointer) as IADsReplicaPointer;
8502
procedure TReplicaPointer.InitServerData;
8504
CServerData: TServerData = (
8505
ClassID: '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
8506
IntfIID: '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
8511
ServerData := @CServerData;
8514
procedure TReplicaPointer.Connect;
8521
Fintf:= punk as IADsReplicaPointer;
8525
procedure TReplicaPointer.ConnectTo(svrIntf: IADsReplicaPointer);
8531
procedure TReplicaPointer.DisConnect;
8533
if Fintf <> nil then
8539
function TReplicaPointer.GetDefaultInterface: IADsReplicaPointer;
8543
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8547
constructor TReplicaPointer.Create(AOwner: TComponent);
8549
inherited Create(AOwner);
8550
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8551
FProps := TReplicaPointerProperties.Create(Self);
8555
destructor TReplicaPointer.Destroy;
8557
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8563
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8564
function TReplicaPointer.GetServerProperties: TReplicaPointerProperties;
8570
function TReplicaPointer.Get_ServerName: WideString;
8572
Result := DefaultInterface.Get_ServerName;
8575
procedure TReplicaPointer.Set_ServerName(const retval: WideString);
8577
DefaultInterface.Set_ServerName(retval);
8580
function TReplicaPointer.Get_ReplicaType: Integer;
8582
Result := DefaultInterface.Get_ReplicaType;
8585
procedure TReplicaPointer.Set_ReplicaType(retval: Integer);
8587
DefaultInterface.Set_ReplicaType(retval);
8590
function TReplicaPointer.Get_ReplicaNumber: Integer;
8592
Result := DefaultInterface.Get_ReplicaNumber;
8595
procedure TReplicaPointer.Set_ReplicaNumber(retval: Integer);
8597
DefaultInterface.Set_ReplicaNumber(retval);
8600
function TReplicaPointer.Get_Count: Integer;
8602
Result := DefaultInterface.Get_Count;
8605
procedure TReplicaPointer.Set_Count(retval: Integer);
8607
DefaultInterface.Set_Count(retval);
8610
function TReplicaPointer.Get_ReplicaAddressHints: OleVariant;
8612
Result := DefaultInterface.Get_ReplicaAddressHints;
8615
procedure TReplicaPointer.Set_ReplicaAddressHints(retval: OleVariant);
8617
DefaultInterface.Set_ReplicaAddressHints(retval);
8620
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8621
constructor TReplicaPointerProperties.Create(AServer: TReplicaPointer);
8627
function TReplicaPointerProperties.GetDefaultInterface: IADsReplicaPointer;
8629
Result := FServer.DefaultInterface;
8632
function TReplicaPointerProperties.Get_ServerName: WideString;
8634
Result := DefaultInterface.Get_ServerName;
8637
procedure TReplicaPointerProperties.Set_ServerName(const retval: WideString);
8639
DefaultInterface.Set_ServerName(retval);
8642
function TReplicaPointerProperties.Get_ReplicaType: Integer;
8644
Result := DefaultInterface.Get_ReplicaType;
8647
procedure TReplicaPointerProperties.Set_ReplicaType(retval: Integer);
8649
DefaultInterface.Set_ReplicaType(retval);
8652
function TReplicaPointerProperties.Get_ReplicaNumber: Integer;
8654
Result := DefaultInterface.Get_ReplicaNumber;
8657
procedure TReplicaPointerProperties.Set_ReplicaNumber(retval: Integer);
8659
DefaultInterface.Set_ReplicaNumber(retval);
8662
function TReplicaPointerProperties.Get_Count: Integer;
8664
Result := DefaultInterface.Get_Count;
8667
procedure TReplicaPointerProperties.Set_Count(retval: Integer);
8669
DefaultInterface.Set_Count(retval);
8672
function TReplicaPointerProperties.Get_ReplicaAddressHints: OleVariant;
8674
Result := DefaultInterface.Get_ReplicaAddressHints;
8677
procedure TReplicaPointerProperties.Set_ReplicaAddressHints(retval: OleVariant);
8679
DefaultInterface.Set_ReplicaAddressHints(retval);
8684
class function CoAcl.Create: IADsAcl;
8686
Result := CreateComObject(CLASS_Acl) as IADsAcl;
8689
class function CoAcl.CreateRemote(const MachineName: string): IADsAcl;
8691
Result := CreateRemoteComObject(MachineName, CLASS_Acl) as IADsAcl;
8694
procedure TAcl.InitServerData;
8696
CServerData: TServerData = (
8697
ClassID: '{7AF1EFB6-0869-11D1-A377-00C04FB950DC}';
8698
IntfIID: '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
8703
ServerData := @CServerData;
8706
procedure TAcl.Connect;
8713
Fintf:= punk as IADsAcl;
8717
procedure TAcl.ConnectTo(svrIntf: IADsAcl);
8723
procedure TAcl.DisConnect;
8725
if Fintf <> nil then
8731
function TAcl.GetDefaultInterface: IADsAcl;
8735
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8739
constructor TAcl.Create(AOwner: TComponent);
8741
inherited Create(AOwner);
8742
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8743
FProps := TAclProperties.Create(Self);
8747
destructor TAcl.Destroy;
8749
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8755
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8756
function TAcl.GetServerProperties: TAclProperties;
8762
function TAcl.Get_ProtectedAttrName: WideString;
8764
Result := DefaultInterface.Get_ProtectedAttrName;
8767
procedure TAcl.Set_ProtectedAttrName(const retval: WideString);
8769
DefaultInterface.Set_ProtectedAttrName(retval);
8772
function TAcl.Get_SubjectName: WideString;
8774
Result := DefaultInterface.Get_SubjectName;
8777
procedure TAcl.Set_SubjectName(const retval: WideString);
8779
DefaultInterface.Set_SubjectName(retval);
8782
function TAcl.Get_Privileges: Integer;
8784
Result := DefaultInterface.Get_Privileges;
8787
procedure TAcl.Set_Privileges(retval: Integer);
8789
DefaultInterface.Set_Privileges(retval);
8792
function TAcl.CopyAcl: IDispatch;
8794
Result := DefaultInterface.CopyAcl;
8797
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8798
constructor TAclProperties.Create(AServer: TAcl);
8804
function TAclProperties.GetDefaultInterface: IADsAcl;
8806
Result := FServer.DefaultInterface;
8809
function TAclProperties.Get_ProtectedAttrName: WideString;
8811
Result := DefaultInterface.Get_ProtectedAttrName;
8814
procedure TAclProperties.Set_ProtectedAttrName(const retval: WideString);
8816
DefaultInterface.Set_ProtectedAttrName(retval);
8819
function TAclProperties.Get_SubjectName: WideString;
8821
Result := DefaultInterface.Get_SubjectName;
8824
procedure TAclProperties.Set_SubjectName(const retval: WideString);
8826
DefaultInterface.Set_SubjectName(retval);
8829
function TAclProperties.Get_Privileges: Integer;
8831
Result := DefaultInterface.Get_Privileges;
8834
procedure TAclProperties.Set_Privileges(retval: Integer);
8836
DefaultInterface.Set_Privileges(retval);
8841
class function CoTimestamp.Create: IADsTimestamp;
8843
Result := CreateComObject(CLASS_Timestamp) as IADsTimestamp;
8846
class function CoTimestamp.CreateRemote(const MachineName: string): IADsTimestamp;
8848
Result := CreateRemoteComObject(MachineName, CLASS_Timestamp) as IADsTimestamp;
8851
procedure TTimestamp.InitServerData;
8853
CServerData: TServerData = (
8854
ClassID: '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
8855
IntfIID: '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
8860
ServerData := @CServerData;
8863
procedure TTimestamp.Connect;
8870
Fintf:= punk as IADsTimestamp;
8874
procedure TTimestamp.ConnectTo(svrIntf: IADsTimestamp);
8880
procedure TTimestamp.DisConnect;
8882
if Fintf <> nil then
8888
function TTimestamp.GetDefaultInterface: IADsTimestamp;
8892
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8896
constructor TTimestamp.Create(AOwner: TComponent);
8898
inherited Create(AOwner);
8899
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8900
FProps := TTimestampProperties.Create(Self);
8904
destructor TTimestamp.Destroy;
8906
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8912
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8913
function TTimestamp.GetServerProperties: TTimestampProperties;
8919
function TTimestamp.Get_WholeSeconds: Integer;
8921
Result := DefaultInterface.Get_WholeSeconds;
8924
procedure TTimestamp.Set_WholeSeconds(retval: Integer);
8926
DefaultInterface.Set_WholeSeconds(retval);
8929
function TTimestamp.Get_EventID: Integer;
8931
Result := DefaultInterface.Get_EventID;
8934
procedure TTimestamp.Set_EventID(retval: Integer);
8936
DefaultInterface.Set_EventID(retval);
8939
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8940
constructor TTimestampProperties.Create(AServer: TTimestamp);
8946
function TTimestampProperties.GetDefaultInterface: IADsTimestamp;
8948
Result := FServer.DefaultInterface;
8951
function TTimestampProperties.Get_WholeSeconds: Integer;
8953
Result := DefaultInterface.Get_WholeSeconds;
8956
procedure TTimestampProperties.Set_WholeSeconds(retval: Integer);
8958
DefaultInterface.Set_WholeSeconds(retval);
8961
function TTimestampProperties.Get_EventID: Integer;
8963
Result := DefaultInterface.Get_EventID;
8966
procedure TTimestampProperties.Set_EventID(retval: Integer);
8968
DefaultInterface.Set_EventID(retval);
8973
class function CoPostalAddress.Create: IADsPostalAddress;
8975
Result := CreateComObject(CLASS_PostalAddress) as IADsPostalAddress;
8978
class function CoPostalAddress.CreateRemote(const MachineName: string): IADsPostalAddress;
8980
Result := CreateRemoteComObject(MachineName, CLASS_PostalAddress) as IADsPostalAddress;
8983
procedure TPostalAddress.InitServerData;
8985
CServerData: TServerData = (
8986
ClassID: '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
8987
IntfIID: '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
8992
ServerData := @CServerData;
8995
procedure TPostalAddress.Connect;
9002
Fintf:= punk as IADsPostalAddress;
9006
procedure TPostalAddress.ConnectTo(svrIntf: IADsPostalAddress);
9012
procedure TPostalAddress.DisConnect;
9014
if Fintf <> nil then
9020
function TPostalAddress.GetDefaultInterface: IADsPostalAddress;
9024
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9028
constructor TPostalAddress.Create(AOwner: TComponent);
9030
inherited Create(AOwner);
9031
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9032
FProps := TPostalAddressProperties.Create(Self);
9036
destructor TPostalAddress.Destroy;
9038
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9044
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9045
function TPostalAddress.GetServerProperties: TPostalAddressProperties;
9051
function TPostalAddress.Get_PostalAddress: OleVariant;
9053
Result := DefaultInterface.Get_PostalAddress;
9056
procedure TPostalAddress.Set_PostalAddress(retval: OleVariant);
9058
DefaultInterface.Set_PostalAddress(retval);
9061
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9062
constructor TPostalAddressProperties.Create(AServer: TPostalAddress);
9068
function TPostalAddressProperties.GetDefaultInterface: IADsPostalAddress;
9070
Result := FServer.DefaultInterface;
9073
function TPostalAddressProperties.Get_PostalAddress: OleVariant;
9075
Result := DefaultInterface.Get_PostalAddress;
9078
procedure TPostalAddressProperties.Set_PostalAddress(retval: OleVariant);
9080
DefaultInterface.Set_PostalAddress(retval);
9085
class function CoBackLink.Create: IADsBackLink;
9087
Result := CreateComObject(CLASS_BackLink) as IADsBackLink;
9090
class function CoBackLink.CreateRemote(const MachineName: string): IADsBackLink;
9092
Result := CreateRemoteComObject(MachineName, CLASS_BackLink) as IADsBackLink;
9095
procedure TBackLink.InitServerData;
9097
CServerData: TServerData = (
9098
ClassID: '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
9099
IntfIID: '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
9104
ServerData := @CServerData;
9107
procedure TBackLink.Connect;
9114
Fintf:= punk as IADsBackLink;
9118
procedure TBackLink.ConnectTo(svrIntf: IADsBackLink);
9124
procedure TBackLink.DisConnect;
9126
if Fintf <> nil then
9132
function TBackLink.GetDefaultInterface: IADsBackLink;
9136
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9140
constructor TBackLink.Create(AOwner: TComponent);
9142
inherited Create(AOwner);
9143
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9144
FProps := TBackLinkProperties.Create(Self);
9148
destructor TBackLink.Destroy;
9150
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9156
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9157
function TBackLink.GetServerProperties: TBackLinkProperties;
9163
function TBackLink.Get_RemoteID: Integer;
9165
Result := DefaultInterface.Get_RemoteID;
9168
procedure TBackLink.Set_RemoteID(retval: Integer);
9170
DefaultInterface.Set_RemoteID(retval);
9173
function TBackLink.Get_ObjectName: WideString;
9175
Result := DefaultInterface.Get_ObjectName;
9178
procedure TBackLink.Set_ObjectName(const retval: WideString);
9180
DefaultInterface.Set_ObjectName(retval);
9183
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9184
constructor TBackLinkProperties.Create(AServer: TBackLink);
9190
function TBackLinkProperties.GetDefaultInterface: IADsBackLink;
9192
Result := FServer.DefaultInterface;
9195
function TBackLinkProperties.Get_RemoteID: Integer;
9197
Result := DefaultInterface.Get_RemoteID;
9200
procedure TBackLinkProperties.Set_RemoteID(retval: Integer);
9202
DefaultInterface.Set_RemoteID(retval);
9205
function TBackLinkProperties.Get_ObjectName: WideString;
9207
Result := DefaultInterface.Get_ObjectName;
9210
procedure TBackLinkProperties.Set_ObjectName(const retval: WideString);
9212
DefaultInterface.Set_ObjectName(retval);
9217
class function CoTypedName.Create: IADsTypedName;
9219
Result := CreateComObject(CLASS_TypedName) as IADsTypedName;
9222
class function CoTypedName.CreateRemote(const MachineName: string): IADsTypedName;
9224
Result := CreateRemoteComObject(MachineName, CLASS_TypedName) as IADsTypedName;
9227
procedure TTypedName.InitServerData;
9229
CServerData: TServerData = (
9230
ClassID: '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
9231
IntfIID: '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
9236
ServerData := @CServerData;
9239
procedure TTypedName.Connect;
9246
Fintf:= punk as IADsTypedName;
9250
procedure TTypedName.ConnectTo(svrIntf: IADsTypedName);
9256
procedure TTypedName.DisConnect;
9258
if Fintf <> nil then
9264
function TTypedName.GetDefaultInterface: IADsTypedName;
9268
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9272
constructor TTypedName.Create(AOwner: TComponent);
9274
inherited Create(AOwner);
9275
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9276
FProps := TTypedNameProperties.Create(Self);
9280
destructor TTypedName.Destroy;
9282
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9288
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9289
function TTypedName.GetServerProperties: TTypedNameProperties;
9295
function TTypedName.Get_ObjectName: WideString;
9297
Result := DefaultInterface.Get_ObjectName;
9300
procedure TTypedName.Set_ObjectName(const retval: WideString);
9302
DefaultInterface.Set_ObjectName(retval);
9305
function TTypedName.Get_Level: Integer;
9307
Result := DefaultInterface.Get_Level;
9310
procedure TTypedName.Set_Level(retval: Integer);
9312
DefaultInterface.Set_Level(retval);
9315
function TTypedName.Get_Interval: Integer;
9317
Result := DefaultInterface.Get_Interval;
9320
procedure TTypedName.Set_Interval(retval: Integer);
9322
DefaultInterface.Set_Interval(retval);
9325
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9326
constructor TTypedNameProperties.Create(AServer: TTypedName);
9332
function TTypedNameProperties.GetDefaultInterface: IADsTypedName;
9334
Result := FServer.DefaultInterface;
9337
function TTypedNameProperties.Get_ObjectName: WideString;
9339
Result := DefaultInterface.Get_ObjectName;
9342
procedure TTypedNameProperties.Set_ObjectName(const retval: WideString);
9344
DefaultInterface.Set_ObjectName(retval);
9347
function TTypedNameProperties.Get_Level: Integer;
9349
Result := DefaultInterface.Get_Level;
9352
procedure TTypedNameProperties.Set_Level(retval: Integer);
9354
DefaultInterface.Set_Level(retval);
9357
function TTypedNameProperties.Get_Interval: Integer;
9359
Result := DefaultInterface.Get_Interval;
9362
procedure TTypedNameProperties.Set_Interval(retval: Integer);
9364
DefaultInterface.Set_Interval(retval);
9369
class function CoHold.Create: IADsHold;
9371
Result := CreateComObject(CLASS_Hold) as IADsHold;
9374
class function CoHold.CreateRemote(const MachineName: string): IADsHold;
9376
Result := CreateRemoteComObject(MachineName, CLASS_Hold) as IADsHold;
9379
procedure THold.InitServerData;
9381
CServerData: TServerData = (
9382
ClassID: '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
9383
IntfIID: '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
9388
ServerData := @CServerData;
9391
procedure THold.Connect;
9398
Fintf:= punk as IADsHold;
9402
procedure THold.ConnectTo(svrIntf: IADsHold);
9408
procedure THold.DisConnect;
9410
if Fintf <> nil then
9416
function THold.GetDefaultInterface: IADsHold;
9420
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9424
constructor THold.Create(AOwner: TComponent);
9426
inherited Create(AOwner);
9427
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9428
FProps := THoldProperties.Create(Self);
9432
destructor THold.Destroy;
9434
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9440
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9441
function THold.GetServerProperties: THoldProperties;
9447
function THold.Get_ObjectName: WideString;
9449
Result := DefaultInterface.Get_ObjectName;
9452
procedure THold.Set_ObjectName(const retval: WideString);
9454
DefaultInterface.Set_ObjectName(retval);
9457
function THold.Get_Amount: Integer;
9459
Result := DefaultInterface.Get_Amount;
9462
procedure THold.Set_Amount(retval: Integer);
9464
DefaultInterface.Set_Amount(retval);
9467
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9468
constructor THoldProperties.Create(AServer: THold);
9474
function THoldProperties.GetDefaultInterface: IADsHold;
9476
Result := FServer.DefaultInterface;
9479
function THoldProperties.Get_ObjectName: WideString;
9481
Result := DefaultInterface.Get_ObjectName;
9484
procedure THoldProperties.Set_ObjectName(const retval: WideString);
9486
DefaultInterface.Set_ObjectName(retval);
9489
function THoldProperties.Get_Amount: Integer;
9491
Result := DefaultInterface.Get_Amount;
9494
procedure THoldProperties.Set_Amount(retval: Integer);
9496
DefaultInterface.Set_Amount(retval);
9501
class function CoPathname.Create: IADsPathname;
9503
Result := CreateComObject(CLASS_Pathname) as IADsPathname;
9506
class function CoPathname.CreateRemote(const MachineName: string): IADsPathname;
9508
Result := CreateRemoteComObject(MachineName, CLASS_Pathname) as IADsPathname;
9511
procedure TPathname.InitServerData;
9513
CServerData: TServerData = (
9514
ClassID: '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
9515
IntfIID: '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
9520
ServerData := @CServerData;
9523
procedure TPathname.Connect;
9530
Fintf:= punk as IADsPathname;
9534
procedure TPathname.ConnectTo(svrIntf: IADsPathname);
9540
procedure TPathname.DisConnect;
9542
if Fintf <> nil then
9548
function TPathname.GetDefaultInterface: IADsPathname;
9552
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9556
constructor TPathname.Create(AOwner: TComponent);
9558
inherited Create(AOwner);
9559
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9560
FProps := TPathnameProperties.Create(Self);
9564
destructor TPathname.Destroy;
9566
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9572
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9573
function TPathname.GetServerProperties: TPathnameProperties;
9579
function TPathname.Get_EscapedMode: Integer;
9581
Result := DefaultInterface.Get_EscapedMode;
9584
procedure TPathname.Set_EscapedMode(retval: Integer);
9586
DefaultInterface.Set_EscapedMode(retval);
9589
procedure TPathname.Set_(const bstrADsPath: WideString; lnSetType: Integer);
9591
DefaultInterface.Set_(bstrADsPath, lnSetType);
9594
procedure TPathname.SetDisplayType(lnDisplayType: Integer);
9596
DefaultInterface.SetDisplayType(lnDisplayType);
9599
function TPathname.Retrieve(lnFormatType: Integer): WideString;
9601
Result := DefaultInterface.Retrieve(lnFormatType);
9604
function TPathname.GetNumElements: Integer;
9606
Result := DefaultInterface.GetNumElements;
9609
function TPathname.GetElement(lnElementIndex: Integer): WideString;
9611
Result := DefaultInterface.GetElement(lnElementIndex);
9614
procedure TPathname.AddLeafElement(const bstrLeafElement: WideString);
9616
DefaultInterface.AddLeafElement(bstrLeafElement);
9619
procedure TPathname.RemoveLeafElement;
9621
DefaultInterface.RemoveLeafElement;
9624
function TPathname.CopyPath: IDispatch;
9626
Result := DefaultInterface.CopyPath;
9629
function TPathname.GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
9631
Result := DefaultInterface.GetEscapedElement(lnReserved, bstrInStr);
9634
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9635
constructor TPathnameProperties.Create(AServer: TPathname);
9641
function TPathnameProperties.GetDefaultInterface: IADsPathname;
9643
Result := FServer.DefaultInterface;
9646
function TPathnameProperties.Get_EscapedMode: Integer;
9648
Result := DefaultInterface.Get_EscapedMode;
9651
procedure TPathnameProperties.Set_EscapedMode(retval: Integer);
9653
DefaultInterface.Set_EscapedMode(retval);
9658
class function CoADSystemInfo.Create: IADsADSystemInfo;
9660
Result := CreateComObject(CLASS_ADSystemInfo) as IADsADSystemInfo;
9663
class function CoADSystemInfo.CreateRemote(const MachineName: string): IADsADSystemInfo;
9665
Result := CreateRemoteComObject(MachineName, CLASS_ADSystemInfo) as IADsADSystemInfo;
9668
procedure TADSystemInfo.InitServerData;
9670
CServerData: TServerData = (
9671
ClassID: '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
9672
IntfIID: '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
9677
ServerData := @CServerData;
9680
procedure TADSystemInfo.Connect;
9687
Fintf:= punk as IADsADSystemInfo;
9691
procedure TADSystemInfo.ConnectTo(svrIntf: IADsADSystemInfo);
9697
procedure TADSystemInfo.DisConnect;
9699
if Fintf <> nil then
9705
function TADSystemInfo.GetDefaultInterface: IADsADSystemInfo;
9709
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9713
constructor TADSystemInfo.Create(AOwner: TComponent);
9715
inherited Create(AOwner);
9716
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9717
FProps := TADSystemInfoProperties.Create(Self);
9721
destructor TADSystemInfo.Destroy;
9723
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9729
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9730
function TADSystemInfo.GetServerProperties: TADSystemInfoProperties;
9736
function TADSystemInfo.Get_UserName: WideString;
9738
Result := DefaultInterface.Get_UserName;
9741
function TADSystemInfo.Get_ComputerName: WideString;
9743
Result := DefaultInterface.Get_ComputerName;
9746
function TADSystemInfo.Get_SiteName: WideString;
9748
Result := DefaultInterface.Get_SiteName;
9751
function TADSystemInfo.Get_DomainShortName: WideString;
9753
Result := DefaultInterface.Get_DomainShortName;
9756
function TADSystemInfo.Get_DomainDNSName: WideString;
9758
Result := DefaultInterface.Get_DomainDNSName;
9761
function TADSystemInfo.Get_ForestDNSName: WideString;
9763
Result := DefaultInterface.Get_ForestDNSName;
9766
function TADSystemInfo.Get_PDCRoleOwner: WideString;
9768
Result := DefaultInterface.Get_PDCRoleOwner;
9771
function TADSystemInfo.Get_SchemaRoleOwner: WideString;
9773
Result := DefaultInterface.Get_SchemaRoleOwner;
9776
function TADSystemInfo.Get_IsNativeMode: WordBool;
9778
Result := DefaultInterface.Get_IsNativeMode;
9781
function TADSystemInfo.GetAnyDCName: WideString;
9783
Result := DefaultInterface.GetAnyDCName;
9786
function TADSystemInfo.GetDCSiteName(const szServer: WideString): WideString;
9788
Result := DefaultInterface.GetDCSiteName(szServer);
9791
procedure TADSystemInfo.RefreshSchemaCache;
9793
DefaultInterface.RefreshSchemaCache;
9796
function TADSystemInfo.GetTrees: OleVariant;
9798
Result := DefaultInterface.GetTrees;
9801
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9802
constructor TADSystemInfoProperties.Create(AServer: TADSystemInfo);
9808
function TADSystemInfoProperties.GetDefaultInterface: IADsADSystemInfo;
9810
Result := FServer.DefaultInterface;
9813
function TADSystemInfoProperties.Get_UserName: WideString;
9815
Result := DefaultInterface.Get_UserName;
9818
function TADSystemInfoProperties.Get_ComputerName: WideString;
9820
Result := DefaultInterface.Get_ComputerName;
9823
function TADSystemInfoProperties.Get_SiteName: WideString;
9825
Result := DefaultInterface.Get_SiteName;
9828
function TADSystemInfoProperties.Get_DomainShortName: WideString;
9830
Result := DefaultInterface.Get_DomainShortName;
9833
function TADSystemInfoProperties.Get_DomainDNSName: WideString;
9835
Result := DefaultInterface.Get_DomainDNSName;
9838
function TADSystemInfoProperties.Get_ForestDNSName: WideString;
9840
Result := DefaultInterface.Get_ForestDNSName;
9843
function TADSystemInfoProperties.Get_PDCRoleOwner: WideString;
9845
Result := DefaultInterface.Get_PDCRoleOwner;
9848
function TADSystemInfoProperties.Get_SchemaRoleOwner: WideString;
9850
Result := DefaultInterface.Get_SchemaRoleOwner;
9853
function TADSystemInfoProperties.Get_IsNativeMode: WordBool;
9855
Result := DefaultInterface.Get_IsNativeMode;
9860
class function CoWinNTSystemInfo.Create: IADsWinNTSystemInfo;
9862
Result := CreateComObject(CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
9865
class function CoWinNTSystemInfo.CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
9867
Result := CreateRemoteComObject(MachineName, CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
9870
procedure TWinNTSystemInfo.InitServerData;
9872
CServerData: TServerData = (
9873
ClassID: '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
9874
IntfIID: '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
9879
ServerData := @CServerData;
9882
procedure TWinNTSystemInfo.Connect;
9889
Fintf:= punk as IADsWinNTSystemInfo;
9893
procedure TWinNTSystemInfo.ConnectTo(svrIntf: IADsWinNTSystemInfo);
9899
procedure TWinNTSystemInfo.DisConnect;
9901
if Fintf <> nil then
9907
function TWinNTSystemInfo.GetDefaultInterface: IADsWinNTSystemInfo;
9911
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9915
constructor TWinNTSystemInfo.Create(AOwner: TComponent);
9917
inherited Create(AOwner);
9918
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9919
FProps := TWinNTSystemInfoProperties.Create(Self);
9923
destructor TWinNTSystemInfo.Destroy;
9925
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9931
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9932
function TWinNTSystemInfo.GetServerProperties: TWinNTSystemInfoProperties;
9938
function TWinNTSystemInfo.Get_UserName: WideString;
9940
Result := DefaultInterface.Get_UserName;
9943
function TWinNTSystemInfo.Get_ComputerName: WideString;
9945
Result := DefaultInterface.Get_ComputerName;
9948
function TWinNTSystemInfo.Get_DomainName: WideString;
9950
Result := DefaultInterface.Get_DomainName;
9953
function TWinNTSystemInfo.Get_PDC: WideString;
9955
Result := DefaultInterface.Get_PDC;
9958
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9959
constructor TWinNTSystemInfoProperties.Create(AServer: TWinNTSystemInfo);
9965
function TWinNTSystemInfoProperties.GetDefaultInterface: IADsWinNTSystemInfo;
9967
Result := FServer.DefaultInterface;
9970
function TWinNTSystemInfoProperties.Get_UserName: WideString;
9972
Result := DefaultInterface.Get_UserName;
9975
function TWinNTSystemInfoProperties.Get_ComputerName: WideString;
9977
Result := DefaultInterface.Get_ComputerName;
9980
function TWinNTSystemInfoProperties.Get_DomainName: WideString;
9982
Result := DefaultInterface.Get_DomainName;
9985
function TWinNTSystemInfoProperties.Get_PDC: WideString;
9987
Result := DefaultInterface.Get_PDC;
9992
class function CoDNWithBinary.Create: IADsDNWithBinary;
9994
Result := CreateComObject(CLASS_DNWithBinary) as IADsDNWithBinary;
9997
class function CoDNWithBinary.CreateRemote(const MachineName: string): IADsDNWithBinary;
9999
Result := CreateRemoteComObject(MachineName, CLASS_DNWithBinary) as IADsDNWithBinary;
10002
procedure TDNWithBinary.InitServerData;
10004
CServerData: TServerData = (
10005
ClassID: '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
10006
IntfIID: '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
10011
ServerData := @CServerData;
10014
procedure TDNWithBinary.Connect;
10018
if FIntf = nil then
10021
Fintf:= punk as IADsDNWithBinary;
10025
procedure TDNWithBinary.ConnectTo(svrIntf: IADsDNWithBinary);
10031
procedure TDNWithBinary.DisConnect;
10033
if Fintf <> nil then
10039
function TDNWithBinary.GetDefaultInterface: IADsDNWithBinary;
10041
if FIntf = nil then
10043
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
10047
constructor TDNWithBinary.Create(AOwner: TComponent);
10049
inherited Create(AOwner);
10050
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10051
FProps := TDNWithBinaryProperties.Create(Self);
10055
destructor TDNWithBinary.Destroy;
10057
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10063
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10064
function TDNWithBinary.GetServerProperties: TDNWithBinaryProperties;
10070
function TDNWithBinary.Get_BinaryValue: OleVariant;
10072
Result := DefaultInterface.Get_BinaryValue;
10075
procedure TDNWithBinary.Set_BinaryValue(retval: OleVariant);
10077
DefaultInterface.Set_BinaryValue(retval);
10080
function TDNWithBinary.Get_DNString: WideString;
10082
Result := DefaultInterface.Get_DNString;
10085
procedure TDNWithBinary.Set_DNString(const retval: WideString);
10087
DefaultInterface.Set_DNString(retval);
10090
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10091
constructor TDNWithBinaryProperties.Create(AServer: TDNWithBinary);
10094
FServer := AServer;
10097
function TDNWithBinaryProperties.GetDefaultInterface: IADsDNWithBinary;
10099
Result := FServer.DefaultInterface;
10102
function TDNWithBinaryProperties.Get_BinaryValue: OleVariant;
10104
Result := DefaultInterface.Get_BinaryValue;
10107
procedure TDNWithBinaryProperties.Set_BinaryValue(retval: OleVariant);
10109
DefaultInterface.Set_BinaryValue(retval);
10112
function TDNWithBinaryProperties.Get_DNString: WideString;
10114
Result := DefaultInterface.Get_DNString;
10117
procedure TDNWithBinaryProperties.Set_DNString(const retval: WideString);
10119
DefaultInterface.Set_DNString(retval);
10124
class function CoDNWithString.Create: IADsDNWithString;
10126
Result := CreateComObject(CLASS_DNWithString) as IADsDNWithString;
10129
class function CoDNWithString.CreateRemote(const MachineName: string): IADsDNWithString;
10131
Result := CreateRemoteComObject(MachineName, CLASS_DNWithString) as IADsDNWithString;
10134
procedure TDNWithString.InitServerData;
10136
CServerData: TServerData = (
10137
ClassID: '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
10138
IntfIID: '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
10143
ServerData := @CServerData;
10146
procedure TDNWithString.Connect;
10150
if FIntf = nil then
10153
Fintf:= punk as IADsDNWithString;
10157
procedure TDNWithString.ConnectTo(svrIntf: IADsDNWithString);
10163
procedure TDNWithString.DisConnect;
10165
if Fintf <> nil then
10171
function TDNWithString.GetDefaultInterface: IADsDNWithString;
10173
if FIntf = nil then
10175
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
10179
constructor TDNWithString.Create(AOwner: TComponent);
10181
inherited Create(AOwner);
10182
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10183
FProps := TDNWithStringProperties.Create(Self);
10187
destructor TDNWithString.Destroy;
10189
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10195
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10196
function TDNWithString.GetServerProperties: TDNWithStringProperties;
10202
function TDNWithString.Get_StringValue: WideString;
10204
Result := DefaultInterface.Get_StringValue;
10207
procedure TDNWithString.Set_StringValue(const retval: WideString);
10209
DefaultInterface.Set_StringValue(retval);
10212
function TDNWithString.Get_DNString: WideString;
10214
Result := DefaultInterface.Get_DNString;
10217
procedure TDNWithString.Set_DNString(const retval: WideString);
10219
DefaultInterface.Set_DNString(retval);
10222
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10223
constructor TDNWithStringProperties.Create(AServer: TDNWithString);
10226
FServer := AServer;
10229
function TDNWithStringProperties.GetDefaultInterface: IADsDNWithString;
10231
Result := FServer.DefaultInterface;
10234
function TDNWithStringProperties.Get_StringValue: WideString;
10236
Result := DefaultInterface.Get_StringValue;
10239
procedure TDNWithStringProperties.Set_StringValue(const retval: WideString);
10241
DefaultInterface.Set_StringValue(retval);
10244
function TDNWithStringProperties.Get_DNString: WideString;
10246
Result := DefaultInterface.Get_DNString;
10249
procedure TDNWithStringProperties.Set_DNString(const retval: WideString);
10251
DefaultInterface.Set_DNString(retval);
10257
{$ifdef FPC} // dummy
10259
function CreateComObject(ID: TGUID): IUnknown; //empty
10264
function CreateRemoteComObject(w:widestring; ID: TGUID): IUnknown; //empty
10269
function tOleServer.GetServer:IUnknown;
10273
procedure tOleServer.InitServerData;
10276
constructor tOleServer.Create(AOwner: TComponent);
10279
Procedure tOleServer.Connect;
10282
procedure tOleServer.Disconnect;
10290
procedure Register;
10292
RegisterComponents('ActiveX',[TPropertyEntry, TPropertyValue, TAccessControlEntry, TAccessControlList,
10293
TSecurityDescriptor, TLargeInteger, TNameTranslate, TCaseIgnoreList, TFaxNumber,
10294
TNetAddress, TOctetList, TEmail, TPath, TReplicaPointer,
10295
TAcl, TTimestamp, TPostalAddress, TBackLink, TTypedName,
10296
THold, TPathname, TADSystemInfo, TWinNTSystemInfo, TDNWithBinary,
4
// ************************************************************************ //
7
// The types declared in this file were generated from data read from a
8
// Type Library. If this type library is explicitly or indirectly (via
9
// another type library referring to this type library) re-imported, or the
10
// 'Refresh' command of the Type Library Editor activated while editing the
11
// Type Library, the contents of this file will be regenerated and all
12
// manual modifications will be lost.
13
// ************************************************************************ //
15
// (rom) deactivated CVS string
16
// PASTLWTR : Revision: 1.88.1.0.1.0
17
// File generated on 9/25/2000 11:37:09 AM from Type Library described below.
19
// *************************************************************************//
21
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
22
// which return objects that may need to be explicitly created via a function
23
// call prior to any access via the property. These items have been disabled
24
// in order to prevent accidental use from within the object inspector. You
25
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
26
// removing them from the $IFDEF blocks. However, such items must still be
27
// programmatically created via a method of the appropriate CoClass before
29
// ************************************************************************ //
30
// Type Lib: C:\WINNT\system32\activeds.tlb (1)
31
// IID\LCID: {97D25DB0-0363-11CF-ABC4-02608C9E7553}\0
34
// (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
35
// (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
37
// Hint: Member 'String' of '_ADS_CASEIGNORE_LIST' changed to 'String_'
38
// Hint: Member 'Type' of '__MIDL___MIDL_itf_ads_0000_0005' changed to 'Type_'
39
// Hint: Member 'Type' of '__MIDL___MIDL_itf_ads_0000_0014' changed to 'Type_'
40
// Hint: Member 'Class' of 'IADs' changed to 'Class_'
41
// Hint: Member 'Set' of 'IADsNameTranslate' changed to 'Set_'
42
// Hint: Member 'Type' of 'IADsEmail' changed to 'Type_'
43
// Hint: Member 'Type' of 'IADsPath' changed to 'Type_'
44
// Hint: Member 'Set' of 'IADsPathname' changed to 'Set_'
45
// Error creating palette bitmap of (TPropertyEntry) : Server activeds.dll contains no icons
46
// Error creating palette bitmap of (TPropertyValue) : Server activeds.dll contains no icons
47
// Error creating palette bitmap of (TAccessControlEntry) : Server activeds.dll contains no icons
48
// Error creating palette bitmap of (TAccessControlList) : Server activeds.dll contains no icons
49
// Error creating palette bitmap of (TSecurityDescriptor) : Server activeds.dll contains no icons
50
// Error creating palette bitmap of (TLargeInteger) : Server activeds.dll contains no icons
51
// Error creating palette bitmap of (TNameTranslate) : Server activeds.dll contains no icons
52
// Error creating palette bitmap of (TCaseIgnoreList) : Server activeds.dll contains no icons
53
// Error creating palette bitmap of (TFaxNumber) : Server activeds.dll contains no icons
54
// Error creating palette bitmap of (TNetAddress) : Server activeds.dll contains no icons
55
// Error creating palette bitmap of (TOctetList) : Server activeds.dll contains no icons
56
// Error creating palette bitmap of (TEmail) : Server activeds.dll contains no icons
57
// Error creating palette bitmap of (TPath) : Server activeds.dll contains no icons
58
// Error creating palette bitmap of (TReplicaPointer) : Server activeds.dll contains no icons
59
// Error creating palette bitmap of (TAcl) : Server activeds.dll contains no icons
60
// Error creating palette bitmap of (TTimestamp) : Server activeds.dll contains no icons
61
// Error creating palette bitmap of (TPostalAddress) : Server activeds.dll contains no icons
62
// Error creating palette bitmap of (TBackLink) : Server activeds.dll contains no icons
63
// Error creating palette bitmap of (TTypedName) : Server activeds.dll contains no icons
64
// Error creating palette bitmap of (THold) : Server activeds.dll contains no icons
65
// Error creating palette bitmap of (TPathname) : Server activeds.dll contains no icons
66
// Error creating palette bitmap of (TADSystemInfo) : Server activeds.dll contains no icons
67
// Error creating palette bitmap of (TWinNTSystemInfo) : Server activeds.dll contains no icons
68
// Error creating palette bitmap of (TDNWithBinary) : Server activeds.dll contains no icons
69
// Error creating palette bitmap of (TDNWithString) : Server activeds.dll contains no icons
70
// ************************************************************************ //
71
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
76
Windows, ActiveX, Classes {$IFNDEF NOVCL} ,Graphics, OleServer, OleCtrls, StdVCL {$ENDIF} ;
80
// Temporary dummies to get FPC working.
84
EventIID: String; // probably TGUID too
91
TOleServer = Class(TComponent) // for registercomponents to work
93
ServerData : ^TServerData;
95
function GetServer:IUnknown;
96
procedure InitServerData; virtual;
97
constructor Create(AOwner: TComponent); virtual;
98
Procedure Connect; virtual;
99
procedure Disconnect; virtual;
103
SysUINT = Windows.UINT;
104
SysINT = Windows.WINT;
107
// *********************************************************************//
108
// GUIDS declared in the TypeLibrary. Following prefixes are used:
109
// Type Libraries : LIBID_xxxx
110
// CoClasses : CLASS_xxxx
111
// DISPInterfaces : DIID_xxxx
112
// Non-DISP interfaces: IID_xxxx
113
// *********************************************************************//
116
// TypeLibrary Major and minor versions
117
ActiveDsMajorVersion = 1;
118
ActiveDsMinorVersion = 0;
120
LIBID_ActiveDs: TGUID = '{97D25DB0-0363-11CF-ABC4-02608C9E7553}';
122
IID_IADs: TGUID = '{FD8256D0-FD15-11CE-ABC4-02608C9E7553}';
123
IID_IADsContainer: TGUID = '{001677D0-FD16-11CE-ABC4-02608C9E7553}';
124
IID_IADsCollection: TGUID = '{72B945E0-253B-11CF-A988-00AA006BC149}';
125
IID_IADsMembers: TGUID = '{451A0030-72EC-11CF-B03B-00AA006E0975}';
126
IID_IADsPropertyList: TGUID = '{C6F602B6-8F69-11D0-8528-00C04FD8D503}';
127
IID_IADsPropertyEntry: TGUID = '{05792C8E-941F-11D0-8529-00C04FD8D503}';
128
CLASS_PropertyEntry: TGUID = '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
129
IID_IADsPropertyValue: TGUID = '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
130
IID_IADsPropertyValue2: TGUID = '{306E831C-5BC7-11D1-A3B8-00C04FB950DC}';
131
CLASS_PropertyValue: TGUID = '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
132
IID_IPrivateDispatch: TGUID = '{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}';
133
IID_ITypeInfo: TGUID = '{00020401-0000-0000-C000-000000000046}';
134
IID_ITypeComp: TGUID = '{00020403-0000-0000-C000-000000000046}';
135
IID_ITypeLib: TGUID = '{00020402-0000-0000-C000-000000000046}';
136
IID_IPrivateUnknown: TGUID = '{89126BAB-6EAD-11D1-8C18-00C04FD8D503}';
137
IID_IADsExtension: TGUID = '{3D35553C-D2B0-11D1-B17B-0000F87593A0}';
138
IID_IADsDeleteOps: TGUID = '{B2BD0902-8878-11D1-8C21-00C04FD8D503}';
139
IID_IADsNamespaces: TGUID = '{28B96BA0-B330-11CF-A9AD-00AA006BC149}';
140
IID_IADsClass: TGUID = '{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}';
141
IID_IADsProperty: TGUID = '{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}';
142
IID_IADsSyntax: TGUID = '{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}';
143
IID_IADsLocality: TGUID = '{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}';
144
IID_IADsO: TGUID = '{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}';
145
IID_IADsOU: TGUID = '{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}';
146
IID_IADsDomain: TGUID = '{00E4C220-FD16-11CE-ABC4-02608C9E7553}';
147
IID_IADsComputer: TGUID = '{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}';
148
IID_IADsComputerOperations: TGUID = '{EF497680-1D9F-11CF-B1F3-02608C9E7553}';
149
IID_IADsGroup: TGUID = '{27636B00-410F-11CF-B1FF-02608C9E7553}';
150
IID_IADsUser: TGUID = '{3E37E320-17E2-11CF-ABC4-02608C9E7553}';
151
IID_IADsPrintQueue: TGUID = '{B15160D0-1226-11CF-A985-00AA006BC149}';
152
IID_IADsPrintQueueOperations: TGUID = '{124BE5C0-156E-11CF-A986-00AA006BC149}';
153
IID_IADsPrintJob: TGUID = '{32FB6780-1ED0-11CF-A988-00AA006BC149}';
154
IID_IADsPrintJobOperations: TGUID = '{9A52DB30-1ECF-11CF-A988-00AA006BC149}';
155
IID_IADsService: TGUID = '{68AF66E0-31CA-11CF-A98A-00AA006BC149}';
156
IID_IADsServiceOperations: TGUID = '{5D7B33F0-31CA-11CF-A98A-00AA006BC149}';
157
IID_IADsFileService: TGUID = '{A89D1900-31CA-11CF-A98A-00AA006BC149}';
158
IID_IADsFileServiceOperations: TGUID = '{A02DED10-31CA-11CF-A98A-00AA006BC149}';
159
IID_IADsFileShare: TGUID = '{EB6DCAF0-4B83-11CF-A995-00AA006BC149}';
160
IID_IADsSession: TGUID = '{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}';
161
IID_IADsResource: TGUID = '{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}';
162
IID_IADsOpenDSObject: TGUID = '{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}';
163
IID_IDirectoryObject: TGUID = '{E798DE2C-22E4-11D0-84FE-00C04FD8D503}';
164
IID_IDirectorySearch: TGUID = '{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}';
165
IID_IDirectorySchemaMgmt: TGUID = '{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}';
166
IID_IADsAggregatee: TGUID = '{1346CE8C-9039-11D0-8528-00C04FD8D503}';
167
IID_IADsAggregator: TGUID = '{52DB5FB0-941F-11D0-8529-00C04FD8D503}';
168
IID_IADsAccessControlEntry: TGUID = '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
169
CLASS_AccessControlEntry: TGUID = '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
170
IID_IADsAccessControlList: TGUID = '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
171
CLASS_AccessControlList: TGUID = '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
172
IID_IADsSecurityDescriptor: TGUID = '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
173
CLASS_SecurityDescriptor: TGUID = '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
174
IID_IADsLargeInteger: TGUID = '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
175
CLASS_LargeInteger: TGUID = '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
176
IID_IADsNameTranslate: TGUID = '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
177
CLASS_NameTranslate: TGUID = '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
178
IID_IADsCaseIgnoreList: TGUID = '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
179
CLASS_CaseIgnoreList: TGUID = '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
180
IID_IADsFaxNumber: TGUID = '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
181
CLASS_FaxNumber: TGUID = '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
182
IID_IADsNetAddress: TGUID = '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
183
CLASS_NetAddress: TGUID = '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
184
IID_IADsOctetList: TGUID = '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
185
CLASS_OctetList: TGUID = '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
186
IID_IADsEmail: TGUID = '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
187
CLASS_Email: TGUID = '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
188
IID_IADsPath: TGUID = '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
189
CLASS_Path: TGUID = '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
190
IID_IADsReplicaPointer: TGUID = '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
191
CLASS_ReplicaPointer: TGUID = '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
192
IID_IADsAcl: TGUID = '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
193
CLASS_Acl: TGUID = '{7AF1EFB6-0869-11D1-A377-00C04FB950DC}';
194
IID_IADsTimestamp: TGUID = '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
195
CLASS_Timestamp: TGUID = '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
196
IID_IADsPostalAddress: TGUID = '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
197
CLASS_PostalAddress: TGUID = '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
198
IID_IADsBackLink: TGUID = '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
199
CLASS_BackLink: TGUID = '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
200
IID_IADsTypedName: TGUID = '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
201
CLASS_TypedName: TGUID = '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
202
IID_IADsHold: TGUID = '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
203
CLASS_Hold: TGUID = '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
204
IID_IADsObjectOptions: TGUID = '{46F14FDA-232B-11D1-A808-00C04FD8D5A8}';
205
IID_IADsPathname: TGUID = '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
206
CLASS_Pathname: TGUID = '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
207
IID_IADsADSystemInfo: TGUID = '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
208
CLASS_ADSystemInfo: TGUID = '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
209
IID_IADsWinNTSystemInfo: TGUID = '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
210
CLASS_WinNTSystemInfo: TGUID = '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
211
IID_IADsDNWithBinary: TGUID = '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
212
CLASS_DNWithBinary: TGUID = '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
213
IID_IADsDNWithString: TGUID = '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
214
CLASS_DNWithString: TGUID = '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
216
// *********************************************************************//
217
// Declaration of Enumerations defined in Type Library
218
// *********************************************************************//
219
// Constants for enum __MIDL___MIDL_itf_ads_0000_0001
221
__MIDL___MIDL_itf_ads_0000_0001 = TOleEnum;
223
ADSTYPE_INVALID = $00000000;
224
ADSTYPE_DN_STRING = $00000001;
225
ADSTYPE_CASE_EXACT_STRING = $00000002;
226
ADSTYPE_CASE_IGNORE_STRING = $00000003;
227
ADSTYPE_PRINTABLE_STRING = $00000004;
228
ADSTYPE_NUMERIC_STRING = $00000005;
229
ADSTYPE_BOOLEAN = $00000006;
230
ADSTYPE_INTEGER = $00000007;
231
ADSTYPE_OCTET_STRING = $00000008;
232
ADSTYPE_UTC_TIME = $00000009;
233
ADSTYPE_LARGE_INTEGER = $0000000A;
234
ADSTYPE_PROV_SPECIFIC = $0000000B;
235
ADSTYPE_OBJECT_CLASS = $0000000C;
236
ADSTYPE_CASEIGNORE_LIST = $0000000D;
237
ADSTYPE_OCTET_LIST = $0000000E;
238
ADSTYPE_PATH = $0000000F;
239
ADSTYPE_POSTALADDRESS = $00000010;
240
ADSTYPE_TIMESTAMP = $00000011;
241
ADSTYPE_BACKLINK = $00000012;
242
ADSTYPE_TYPEDNAME = $00000013;
243
ADSTYPE_HOLD = $00000014;
244
ADSTYPE_NETADDRESS = $00000015;
245
ADSTYPE_REPLICAPOINTER = $00000016;
246
ADSTYPE_FAXNUMBER = $00000017;
247
ADSTYPE_EMAIL = $00000018;
248
ADSTYPE_NT_SECURITY_DESCRIPTOR = $00000019;
249
ADSTYPE_UNKNOWN = $0000001A;
250
ADSTYPE_DN_WITH_BINARY = $0000001B;
251
ADSTYPE_DN_WITH_STRING = $0000001C;
253
// Constants for enum __MIDL___MIDL_itf_ads_0000_0018
255
__MIDL___MIDL_itf_ads_0000_0018 = TOleEnum;
257
ADS_SECURE_AUTHENTICATION = $00000001;
258
ADS_USE_ENCRYPTION = $00000002;
259
ADS_USE_SSL = $00000002;
260
ADS_READONLY_SERVER = $00000004;
261
ADS_PROMPT_CREDENTIALS = $00000008;
262
ADS_NO_AUTHENTICATION = $00000010;
263
ADS_FAST_BIND = $00000020;
264
ADS_USE_SIGNING = $00000040;
265
ADS_USE_SEALING = $00000080;
266
ADS_USE_DELEGATION = $00000100;
267
ADS_AUTH_RESERVED = $80000000;
269
// Constants for enum __MIDL___MIDL_itf_ads_0000_0019
271
__MIDL___MIDL_itf_ads_0000_0019 = TOleEnum;
273
ADS_STATUS_S_OK = $00000000;
274
ADS_STATUS_INVALID_SEARCHPREF = $00000001;
275
ADS_STATUS_INVALID_SEARCHPREFVALUE = $00000002;
277
// Constants for enum __MIDL___MIDL_itf_ads_0000_0020
279
__MIDL___MIDL_itf_ads_0000_0020 = TOleEnum;
281
ADS_DEREF_NEVER = $00000000;
282
ADS_DEREF_SEARCHING = $00000001;
283
ADS_DEREF_FINDING = $00000002;
284
ADS_DEREF_ALWAYS = $00000003;
286
// Constants for enum __MIDL___MIDL_itf_ads_0000_0021
288
__MIDL___MIDL_itf_ads_0000_0021 = TOleEnum;
290
ADS_SCOPE_BASE = $00000000;
291
ADS_SCOPE_ONELEVEL = $00000001;
292
ADS_SCOPE_SUBTREE = $00000002;
294
// Constants for enum __MIDL___MIDL_itf_ads_0000_0022
296
__MIDL___MIDL_itf_ads_0000_0022 = TOleEnum;
298
ADSIPROP_ASYNCHRONOUS = $00000000;
299
ADSIPROP_DEREF_ALIASES = $00000001;
300
ADSIPROP_SIZE_LIMIT = $00000002;
301
ADSIPROP_TIME_LIMIT = $00000003;
302
ADSIPROP_ATTRIBTYPES_ONLY = $00000004;
303
ADSIPROP_SEARCH_SCOPE = $00000005;
304
ADSIPROP_TIMEOUT = $00000006;
305
ADSIPROP_PAGESIZE = $00000007;
306
ADSIPROP_PAGED_TIME_LIMIT = $00000008;
307
ADSIPROP_CHASE_REFERRALS = $00000009;
308
ADSIPROP_SORT_ON = $0000000A;
309
ADSIPROP_CACHE_RESULTS = $0000000B;
310
ADSIPROP_ADSIFLAG = $0000000C;
312
// Constants for enum __MIDL___MIDL_itf_ads_0000_0023
314
__MIDL___MIDL_itf_ads_0000_0023 = TOleEnum;
316
ADSI_DIALECT_LDAP = $00000000;
317
ADSI_DIALECT_SQL = $00000001;
319
// Constants for enum __MIDL___MIDL_itf_ads_0000_0024
321
__MIDL___MIDL_itf_ads_0000_0024 = TOleEnum;
323
ADS_CHASE_REFERRALS_NEVER = $00000000;
324
ADS_CHASE_REFERRALS_SUBORDINATE = $00000020;
325
ADS_CHASE_REFERRALS_EXTERNAL = $00000040;
326
ADS_CHASE_REFERRALS_ALWAYS = $00000060;
328
// Constants for enum __MIDL___MIDL_itf_ads_0000_0025
330
__MIDL___MIDL_itf_ads_0000_0025 = TOleEnum;
332
ADS_SEARCHPREF_ASYNCHRONOUS = $00000000;
333
ADS_SEARCHPREF_DEREF_ALIASES = $00000001;
334
ADS_SEARCHPREF_SIZE_LIMIT = $00000002;
335
ADS_SEARCHPREF_TIME_LIMIT = $00000003;
336
ADS_SEARCHPREF_ATTRIBTYPES_ONLY = $00000004;
337
ADS_SEARCHPREF_SEARCH_SCOPE = $00000005;
338
ADS_SEARCHPREF_TIMEOUT = $00000006;
339
ADS_SEARCHPREF_PAGESIZE = $00000007;
340
ADS_SEARCHPREF_PAGED_TIME_LIMIT = $00000008;
341
ADS_SEARCHPREF_CHASE_REFERRALS = $00000009;
342
ADS_SEARCHPREF_SORT_ON = $0000000A;
343
ADS_SEARCHPREF_CACHE_RESULTS = $0000000B;
344
ADS_SEARCHPREF_DIRSYNC = $0000000C;
345
ADS_SEARCHPREF_TOMBSTONE = $0000000D;
347
// Constants for enum __MIDL___MIDL_itf_ads_0000_0026
349
__MIDL___MIDL_itf_ads_0000_0026 = TOleEnum;
351
ADS_PROPERTY_CLEAR = $00000001;
352
ADS_PROPERTY_UPDATE = $00000002;
353
ADS_PROPERTY_APPEND = $00000003;
354
ADS_PROPERTY_DELETE = $00000004;
356
// Constants for enum tagTYPEKIND
358
tagTYPEKIND = TOleEnum;
360
TKIND_ENUM = $00000000;
361
TKIND_RECORD = $00000001;
362
TKIND_MODULE = $00000002;
363
TKIND_INTERFACE = $00000003;
364
TKIND_DISPATCH = $00000004;
365
TKIND_COCLASS = $00000005;
366
TKIND_ALIAS = $00000006;
367
TKIND_UNION = $00000007;
368
TKIND_MAX = $00000008;
370
// Constants for enum tagDESCKIND
372
tagDESCKIND = TOleEnum;
374
DESCKIND_NONE = $00000000;
375
DESCKIND_FUNCDESC = $00000001;
376
DESCKIND_VARDESC = $00000002;
377
DESCKIND_TYPECOMP = $00000003;
378
DESCKIND_IMPLICITAPPOBJ = $00000004;
379
DESCKIND_MAX = $00000005;
381
// Constants for enum tagFUNCKIND
383
tagFUNCKIND = TOleEnum;
385
FUNC_VIRTUAL = $00000000;
386
FUNC_PUREVIRTUAL = $00000001;
387
FUNC_NONVIRTUAL = $00000002;
388
FUNC_STATIC = $00000003;
389
FUNC_DISPATCH = $00000004;
391
// Constants for enum tagINVOKEKIND
393
tagINVOKEKIND = TOleEnum;
395
INVOKE_FUNC = $00000001;
396
INVOKE_PROPERTYGET = $00000002;
397
INVOKE_PROPERTYPUT = $00000004;
398
INVOKE_PROPERTYPUTREF = $00000008;
400
// Constants for enum tagCALLCONV
402
tagCALLCONV = TOleEnum;
404
CC_FASTCALL = $00000000;
405
CC_CDECL = $00000001;
406
CC_MSCPASCAL = $00000002;
407
CC_PASCAL = $00000002;
408
CC_MACPASCAL = $00000003;
409
CC_STDCALL = $00000004;
410
CC_FPFASTCALL = $00000005;
411
CC_SYSCALL = $00000006;
412
CC_MPWCDECL = $00000007;
413
CC_MPWPASCAL = $00000008;
416
// Constants for enum tagVARKIND
418
tagVARKIND = TOleEnum;
420
VAR_PERINSTANCE = $00000000;
421
VAR_STATIC = $00000001;
422
VAR_CONST = $00000002;
423
VAR_DISPATCH = $00000003;
425
// Constants for enum tagSYSKIND
427
tagSYSKIND = TOleEnum;
429
SYS_WIN16 = $00000000;
430
SYS_WIN32 = $00000001;
432
SYS_WIN64 = $00000001;
434
// Constants for enum __MIDL___MIDL_itf_ads_0120_0001
436
__MIDL___MIDL_itf_ads_0120_0001 = TOleEnum;
438
ADS_SYSTEMFLAG_DISALLOW_DELETE = $80000000;
439
ADS_SYSTEMFLAG_CONFIG_ALLOW_RENAME = $40000000;
440
ADS_SYSTEMFLAG_CONFIG_ALLOW_MOVE = $20000000;
441
ADS_SYSTEMFLAG_CONFIG_ALLOW_LIMITED_MOVE = $10000000;
442
ADS_SYSTEMFLAG_DOMAIN_DISALLOW_RENAME = $08000000;
443
ADS_SYSTEMFLAG_DOMAIN_DISALLOW_MOVE = $04000000;
444
ADS_SYSTEMFLAG_CR_NTDS_NC = $00000001;
445
ADS_SYSTEMFLAG_CR_NTDS_DOMAIN = $00000002;
446
ADS_SYSTEMFLAG_ATTR_NOT_REPLICATED = $00000001;
447
ADS_SYSTEMFLAG_ATTR_IS_CONSTRUCTED = $00000004;
449
// Constants for enum __MIDL___MIDL_itf_ads_0126_0001
451
__MIDL___MIDL_itf_ads_0126_0001 = TOleEnum;
453
ADS_GROUP_TYPE_GLOBAL_GROUP = $00000002;
454
ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = $00000004;
455
ADS_GROUP_TYPE_LOCAL_GROUP = $00000004;
456
ADS_GROUP_TYPE_UNIVERSAL_GROUP = $00000008;
457
ADS_GROUP_TYPE_SECURITY_ENABLED = $80000000;
459
// Constants for enum ADS_USER_FLAG
461
ADS_USER_FLAG = TOleEnum;
463
ADS_UF_SCRIPT = $00000001;
464
ADS_UF_ACCOUNTDISABLE = $00000002;
465
ADS_UF_HOMEDIR_REQUIRED = $00000008;
466
ADS_UF_LOCKOUT = $00000010;
467
ADS_UF_PASSWD_NOTREQD = $00000020;
468
ADS_UF_PASSWD_CANT_CHANGE = $00000040;
469
ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = $00000080;
470
ADS_UF_TEMP_DUPLICATE_ACCOUNT = $00000100;
471
ADS_UF_NORMAL_ACCOUNT = $00000200;
472
ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = $00000800;
473
ADS_UF_WORKSTATION_TRUST_ACCOUNT = $00001000;
474
ADS_UF_SERVER_TRUST_ACCOUNT = $00002000;
475
ADS_UF_DONT_EXPIRE_PASSWD = $00010000;
476
ADS_UF_MNS_LOGON_ACCOUNT = $00020000;
477
ADS_UF_SMARTCARD_REQUIRED = $00040000;
478
ADS_UF_TRUSTED_FOR_DELEGATION = $00080000;
479
ADS_UF_NOT_DELEGATED = $00100000;
481
// Constants for enum __MIDL___MIDL_itf_ads_0148_0001
483
__MIDL___MIDL_itf_ads_0148_0001 = TOleEnum;
485
ADS_RIGHT_DELETE = $00010000;
486
ADS_RIGHT_READ_CONTROL = $00020000;
487
ADS_RIGHT_WRITE_DAC = $00040000;
488
ADS_RIGHT_WRITE_OWNER = $00080000;
489
ADS_RIGHT_SYNCHRONIZE = $00100000;
490
ADS_RIGHT_ACCESS_SYSTEM_SECURITY = $01000000;
491
ADS_RIGHT_GENERIC_READ = $80000000;
492
ADS_RIGHT_GENERIC_WRITE = $40000000;
493
ADS_RIGHT_GENERIC_EXECUTE = $20000000;
494
ADS_RIGHT_GENERIC_ALL = $10000000;
495
ADS_RIGHT_DS_CREATE_CHILD = $00000001;
496
ADS_RIGHT_DS_DELETE_CHILD = $00000002;
497
ADS_RIGHT_ACTRL_DS_LIST = $00000004;
498
ADS_RIGHT_DS_SELF = $00000008;
499
ADS_RIGHT_DS_READ_PROP = $00000010;
500
ADS_RIGHT_DS_WRITE_PROP = $00000020;
501
ADS_RIGHT_DS_DELETE_TREE = $00000040;
502
ADS_RIGHT_DS_LIST_OBJECT = $00000080;
503
ADS_RIGHT_DS_CONTROL_ACCESS = $00000100;
505
// Constants for enum __MIDL___MIDL_itf_ads_0148_0002
507
__MIDL___MIDL_itf_ads_0148_0002 = TOleEnum;
509
ADS_ACETYPE_ACCESS_ALLOWED = $00000000;
510
ADS_ACETYPE_ACCESS_DENIED = $00000001;
511
ADS_ACETYPE_SYSTEM_AUDIT = $00000002;
512
ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = $00000005;
513
ADS_ACETYPE_ACCESS_DENIED_OBJECT = $00000006;
514
ADS_ACETYPE_SYSTEM_AUDIT_OBJECT = $00000007;
516
// Constants for enum __MIDL___MIDL_itf_ads_0148_0003
518
__MIDL___MIDL_itf_ads_0148_0003 = TOleEnum;
520
ADS_ACEFLAG_INHERIT_ACE = $00000002;
521
ADS_ACEFLAG_NO_PROPAGATE_INHERIT_ACE = $00000004;
522
ADS_ACEFLAG_INHERIT_ONLY_ACE = $00000008;
523
ADS_ACEFLAG_INHERITED_ACE = $00000010;
524
ADS_ACEFLAG_VALID_INHERIT_FLAGS = $0000001F;
525
ADS_ACEFLAG_SUCCESSFUL_ACCESS = $00000040;
526
ADS_ACEFLAG_FAILED_ACCESS = $00000080;
528
// Constants for enum __MIDL___MIDL_itf_ads_0148_0004
530
__MIDL___MIDL_itf_ads_0148_0004 = TOleEnum;
532
ADS_FLAG_OBJECT_TYPE_PRESENT = $00000001;
533
ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = $00000002;
535
// Constants for enum __MIDL___MIDL_itf_ads_0148_0005
537
__MIDL___MIDL_itf_ads_0148_0005 = TOleEnum;
539
ADS_SD_CONTROL_SE_OWNER_DEFAULTED = $00000001;
540
ADS_SD_CONTROL_SE_GROUP_DEFAULTED = $00000002;
541
ADS_SD_CONTROL_SE_DACL_PRESENT = $00000004;
542
ADS_SD_CONTROL_SE_DACL_DEFAULTED = $00000008;
543
ADS_SD_CONTROL_SE_SACL_PRESENT = $00000010;
544
ADS_SD_CONTROL_SE_SACL_DEFAULTED = $00000020;
545
ADS_SD_CONTROL_SE_DACL_AUTO_INHERIT_REQ = $00000100;
546
ADS_SD_CONTROL_SE_SACL_AUTO_INHERIT_REQ = $00000200;
547
ADS_SD_CONTROL_SE_DACL_AUTO_INHERITED = $00000400;
548
ADS_SD_CONTROL_SE_SACL_AUTO_INHERITED = $00000800;
549
ADS_SD_CONTROL_SE_DACL_PROTECTED = $00001000;
550
ADS_SD_CONTROL_SE_SACL_PROTECTED = $00002000;
551
ADS_SD_CONTROL_SE_SELF_RELATIVE = $00008000;
553
// Constants for enum __MIDL___MIDL_itf_ads_0148_0006
555
__MIDL___MIDL_itf_ads_0148_0006 = TOleEnum;
557
ADS_SD_REVISION_DS = $00000004;
559
// Constants for enum __MIDL___MIDL_itf_ads_0149_0001
561
__MIDL___MIDL_itf_ads_0149_0001 = TOleEnum;
563
ADS_NAME_TYPE_1779 = $00000001;
564
ADS_NAME_TYPE_CANONICAL = $00000002;
565
ADS_NAME_TYPE_NT4 = $00000003;
566
ADS_NAME_TYPE_DISPLAY = $00000004;
567
ADS_NAME_TYPE_DOMAIN_SIMPLE = $00000005;
568
ADS_NAME_TYPE_ENTERPRISE_SIMPLE = $00000006;
569
ADS_NAME_TYPE_GUID = $00000007;
570
ADS_NAME_TYPE_UNKNOWN = $00000008;
571
ADS_NAME_TYPE_USER_PRINCIPAL_NAME = $00000009;
572
ADS_NAME_TYPE_CANONICAL_EX = $0000000A;
573
ADS_NAME_TYPE_SERVICE_PRINCIPAL_NAME = $0000000B;
574
ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME = $0000000C;
576
// Constants for enum __MIDL___MIDL_itf_ads_0149_0002
578
__MIDL___MIDL_itf_ads_0149_0002 = TOleEnum;
580
ADS_NAME_INITTYPE_DOMAIN = $00000001;
581
ADS_NAME_INITTYPE_SERVER = $00000002;
582
ADS_NAME_INITTYPE_GC = $00000003;
584
// Constants for enum __MIDL___MIDL_itf_ads_0163_0001
586
__MIDL___MIDL_itf_ads_0163_0001 = TOleEnum;
588
ADS_OPTION_SERVERNAME = $00000000;
589
ADS_OPTION_REFERRALS = $00000001;
590
ADS_OPTION_PAGE_SIZE = $00000002;
591
ADS_OPTION_SECURITY_MASK = $00000003;
592
ADS_OPTION_MUTUAL_AUTH_STATUS = $00000004;
594
// Constants for enum __MIDL___MIDL_itf_ads_0163_0002
596
__MIDL___MIDL_itf_ads_0163_0002 = TOleEnum;
598
ADS_SECURITY_INFO_OWNER = $00000001;
599
ADS_SECURITY_INFO_GROUP = $00000002;
600
ADS_SECURITY_INFO_DACL = $00000004;
601
ADS_SECURITY_INFO_SACL = $00000008;
603
// Constants for enum __MIDL___MIDL_itf_ads_0164_0001
605
__MIDL___MIDL_itf_ads_0164_0001 = TOleEnum;
607
ADS_SETTYPE_FULL = $00000001;
608
ADS_SETTYPE_PROVIDER = $00000002;
609
ADS_SETTYPE_SERVER = $00000003;
610
ADS_SETTYPE_DN = $00000004;
612
// Constants for enum __MIDL___MIDL_itf_ads_0164_0002
614
__MIDL___MIDL_itf_ads_0164_0002 = TOleEnum;
616
ADS_FORMAT_WINDOWS = $00000001;
617
ADS_FORMAT_WINDOWS_NO_SERVER = $00000002;
618
ADS_FORMAT_WINDOWS_DN = $00000003;
619
ADS_FORMAT_WINDOWS_PARENT = $00000004;
620
ADS_FORMAT_X500 = $00000005;
621
ADS_FORMAT_X500_NO_SERVER = $00000006;
622
ADS_FORMAT_X500_DN = $00000007;
623
ADS_FORMAT_X500_PARENT = $00000008;
624
ADS_FORMAT_SERVER = $00000009;
625
ADS_FORMAT_PROVIDER = $0000000A;
626
ADS_FORMAT_LEAF = $0000000B;
628
// Constants for enum __MIDL___MIDL_itf_ads_0164_0003
630
__MIDL___MIDL_itf_ads_0164_0003 = TOleEnum;
632
ADS_DISPLAY_FULL = $00000001;
633
ADS_DISPLAY_VALUE_ONLY = $00000002;
635
// Constants for enum __MIDL___MIDL_itf_ads_0164_0004
637
__MIDL___MIDL_itf_ads_0164_0004 = TOleEnum;
639
ADS_ESCAPEDMODE_DEFAULT = $00000001;
640
ADS_ESCAPEDMODE_ON = $00000002;
641
ADS_ESCAPEDMODE_OFF = $00000003;
642
ADS_ESCAPEDMODE_OFF_EX = $00000004;
646
// *********************************************************************//
647
// Forward declaration of types defined in TypeLibrary
648
// *********************************************************************//
650
{$ifdef SUPPORTS_DISPINTERFACE}
651
IADsDisp = dispinterface;
653
IADsContainer = interface;
654
{$ifdef SUPPORTS_DISPINTERFACE}
655
IADsContainerDisp = dispinterface;
657
IADsCollection = interface;
658
{$ifdef SUPPORTS_DISPINTERFACE}
659
IADsCollectionDisp = dispinterface;
661
IADsMembers = interface;
662
{$ifdef SUPPORTS_DISPINTERFACE}
663
IADsMembersDisp = dispinterface;
665
IADsPropertyList = interface;
666
{$ifdef SUPPORTS_DISPINTERFACE}
667
IADsPropertyListDisp = dispinterface;
669
IADsPropertyEntry = interface;
670
{$ifdef SUPPORTS_DISPINTERFACE}
671
IADsPropertyEntryDisp = dispinterface;
673
IADsPropertyValue = interface;
674
{$ifdef SUPPORTS_DISPINTERFACE}
675
IADsPropertyValueDisp = dispinterface;
677
IADsPropertyValue2 = interface;
678
{$ifdef SUPPORTS_DISPINTERFACE}
679
IADsPropertyValue2Disp = dispinterface;
681
IPrivateDispatch = interface;
682
ITypeInfo = interface;
683
ITypeComp = interface;
684
ITypeLib = interface;
685
IPrivateUnknown = interface;
686
IADsExtension = interface;
687
IADsDeleteOps = interface;
688
{$ifdef SUPPORTS_DISPINTERFACE}
689
IADsDeleteOpsDisp = dispinterface;
691
IADsNamespaces = interface;
692
{$ifdef SUPPORTS_DISPINTERFACE}
693
IADsNamespacesDisp = dispinterface;
695
IADsClass = interface;
696
{$ifdef SUPPORTS_DISPINTERFACE}
697
IADsClassDisp = dispinterface;
699
IADsProperty = interface;
700
{$ifdef SUPPORTS_DISPINTERFACE}
701
IADsPropertyDisp = dispinterface;
703
IADsSyntax = interface;
704
{$ifdef SUPPORTS_DISPINTERFACE}
705
IADsSyntaxDisp = dispinterface;
707
IADsLocality = interface;
708
{$ifdef SUPPORTS_DISPINTERFACE}
709
IADsLocalityDisp = dispinterface;
712
{$ifdef SUPPORTS_DISPINTERFACE}
713
IADsODisp = dispinterface;
716
{$ifdef SUPPORTS_DISPINTERFACE}
717
IADsOUDisp = dispinterface;
719
IADsDomain = interface;
720
{$ifdef SUPPORTS_DISPINTERFACE}
721
IADsDomainDisp = dispinterface;
723
IADsComputer = interface;
724
{$ifdef SUPPORTS_DISPINTERFACE}
725
IADsComputerDisp = dispinterface;
727
IADsComputerOperations = interface;
728
{$ifdef SUPPORTS_DISPINTERFACE}
729
IADsComputerOperationsDisp = dispinterface;
731
IADsGroup = interface;
732
{$ifdef SUPPORTS_DISPINTERFACE}
733
IADsGroupDisp = dispinterface;
735
IADsUser = interface;
736
{$ifdef SUPPORTS_DISPINTERFACE}
737
IADsUserDisp = dispinterface;
739
IADsPrintQueue = interface;
740
{$ifdef SUPPORTS_DISPINTERFACE}
741
IADsPrintQueueDisp = dispinterface;
743
IADsPrintQueueOperations = interface;
744
{$ifdef SUPPORTS_DISPINTERFACE}
745
IADsPrintQueueOperationsDisp = dispinterface;
747
IADsPrintJob = interface;
748
{$ifdef SUPPORTS_DISPINTERFACE}
749
IADsPrintJobDisp = dispinterface;
751
IADsPrintJobOperations = interface;
752
{$ifdef SUPPORTS_DISPINTERFACE}
753
IADsPrintJobOperationsDisp = dispinterface;
755
IADsService = interface;
756
{$ifdef SUPPORTS_DISPINTERFACE}
757
IADsServiceDisp = dispinterface;
759
IADsServiceOperations = interface;
760
{$ifdef SUPPORTS_DISPINTERFACE}
761
IADsServiceOperationsDisp = dispinterface;
763
IADsFileService = interface;
764
{$ifdef SUPPORTS_DISPINTERFACE}
765
IADsFileServiceDisp = dispinterface;
767
IADsFileServiceOperations = interface;
768
{$ifdef SUPPORTS_DISPINTERFACE}
769
IADsFileServiceOperationsDisp = dispinterface;
771
IADsFileShare = interface;
772
{$ifdef SUPPORTS_DISPINTERFACE}
773
IADsFileShareDisp = dispinterface;
775
IADsSession = interface;
776
{$ifdef SUPPORTS_DISPINTERFACE}
777
IADsSessionDisp = dispinterface;
779
IADsResource = interface;
780
{$ifdef SUPPORTS_DISPINTERFACE}
781
IADsResourceDisp = dispinterface;
783
IADsOpenDSObject = interface;
784
{$ifdef SUPPORTS_DISPINTERFACE}
785
IADsOpenDSObjectDisp = dispinterface;
787
IDirectoryObject = interface;
788
IDirectorySearch = interface;
789
IDirectorySchemaMgmt = interface;
790
IADsAggregatee = interface;
791
IADsAggregator = interface;
792
IADsAccessControlEntry = interface;
793
{$ifdef SUPPORTS_DISPINTERFACE}
794
IADsAccessControlEntryDisp = dispinterface;
796
IADsAccessControlList = interface;
797
{$ifdef SUPPORTS_DISPINTERFACE}
798
IADsAccessControlListDisp = dispinterface;
800
IADsSecurityDescriptor = interface;
801
{$ifdef SUPPORTS_DISPINTERFACE}
802
IADsSecurityDescriptorDisp = dispinterface;
804
IADsLargeInteger = interface;
805
{$ifdef SUPPORTS_DISPINTERFACE}
806
IADsLargeIntegerDisp = dispinterface;
808
IADsNameTranslate = interface;
809
{$ifdef SUPPORTS_DISPINTERFACE}
810
IADsNameTranslateDisp = dispinterface;
812
IADsCaseIgnoreList = interface;
813
{$ifdef SUPPORTS_DISPINTERFACE}
814
IADsCaseIgnoreListDisp = dispinterface;
816
IADsFaxNumber = interface;
817
{$ifdef SUPPORTS_DISPINTERFACE}
818
IADsFaxNumberDisp = dispinterface;
820
IADsNetAddress = interface;
821
{$ifdef SUPPORTS_DISPINTERFACE}
822
IADsNetAddressDisp = dispinterface;
824
IADsOctetList = interface;
825
{$ifdef SUPPORTS_DISPINTERFACE}
826
IADsOctetListDisp = dispinterface;
828
IADsEmail = interface;
829
{$ifdef SUPPORTS_DISPINTERFACE}
830
IADsEmailDisp = dispinterface;
832
IADsPath = interface;
833
{$ifdef SUPPORTS_DISPINTERFACE}
834
IADsPathDisp = dispinterface;
836
IADsReplicaPointer = interface;
837
{$ifdef SUPPORTS_DISPINTERFACE}
838
IADsReplicaPointerDisp = dispinterface;
841
{$ifdef SUPPORTS_DISPINTERFACE}
842
IADsAclDisp = dispinterface;
844
IADsTimestamp = interface;
845
{$ifdef SUPPORTS_DISPINTERFACE}
846
IADsTimestampDisp = dispinterface;
848
IADsPostalAddress = interface;
849
{$ifdef SUPPORTS_DISPINTERFACE}
850
IADsPostalAddressDisp = dispinterface;
852
IADsBackLink = interface;
853
{$ifdef SUPPORTS_DISPINTERFACE}
854
IADsBackLinkDisp = dispinterface;
856
IADsTypedName = interface;
857
{$ifdef SUPPORTS_DISPINTERFACE}
858
IADsTypedNameDisp = dispinterface;
860
IADsHold = interface;
861
{$ifdef SUPPORTS_DISPINTERFACE}
862
IADsHoldDisp = dispinterface;
864
IADsObjectOptions = interface;
865
{$ifdef SUPPORTS_DISPINTERFACE}
866
IADsObjectOptionsDisp = dispinterface;
868
IADsPathname = interface;
869
{$ifdef SUPPORTS_DISPINTERFACE}
870
IADsPathnameDisp = dispinterface;
872
IADsADSystemInfo = interface;
873
{$ifdef SUPPORTS_DISPINTERFACE}
874
IADsADSystemInfoDisp = dispinterface;
876
IADsWinNTSystemInfo = interface;
877
{$ifdef SUPPORTS_DISPINTERFACE}
878
IADsWinNTSystemInfoDisp = dispinterface;
880
IADsDNWithBinary = interface;
881
{$ifdef SUPPORTS_DISPINTERFACE}
882
IADsDNWithBinaryDisp = dispinterface;
884
IADsDNWithString = interface;
885
{$ifdef SUPPORTS_DISPINTERFACE}
886
IADsDNWithStringDisp = dispinterface;
889
// *********************************************************************//
890
// Declaration of CoClasses defined in Type Library
891
// (NOTE: Here we map each CoClass to its Default Interface)
892
// *********************************************************************//
893
PropertyEntry = IADsPropertyEntry;
894
PropertyValue = IADsPropertyValue;
895
AccessControlEntry = IADsAccessControlEntry;
896
AccessControlList = IADsAccessControlList;
897
SecurityDescriptor = IADsSecurityDescriptor;
898
LargeInteger = IADsLargeInteger;
899
NameTranslate = IADsNameTranslate;
900
CaseIgnoreList = IADsCaseIgnoreList;
901
FaxNumber = IADsFaxNumber;
902
NetAddress = IADsNetAddress;
903
OctetList = IADsOctetList;
906
ReplicaPointer = IADsReplicaPointer;
908
Timestamp = IADsTimestamp;
909
PostalAddress = IADsPostalAddress;
910
BackLink = IADsBackLink;
911
TypedName = IADsTypedName;
913
Pathname = IADsPathname;
914
ADSystemInfo = IADsADSystemInfo;
915
WinNTSystemInfo = IADsWinNTSystemInfo;
916
DNWithBinary = IADsDNWithBinary;
917
DNWithString = IADsDNWithString;
919
// *********************************************************************//
920
// Declaration of structures, unions and aliases.
921
// *********************************************************************//
922
PUserType1 = ^_ADS_CASEIGNORE_LIST; {*}
923
PUserType2 = ^_ADS_OCTET_LIST; {*}
924
PPWideChar1 = ^PWideChar; {*}
925
PUserType8 = ^tagTYPEDESC; {*}
926
PUserType9 = ^tagARRAYDESC; {*}
927
PUserType3 = ^TGUID; {*}
929
PPWord1 = ^PWord1; {*}
930
PUserType4 = ^TGUID; {*}
931
PUserType5 = ^tagTYPEATTR; {*}
932
PUserType6 = ^tagFUNCDESC; {*}
933
PUserType7 = ^tagVARDESC; {*}
934
PUserType10 = ^tagTLIBATTR; {*}
935
PUserType11 = ^_ads_object_info; {*}
936
PUserType12 = ^_ads_attr_info; {*}
937
PUserType13 = ^ads_searchpref_info; {*}
938
PUserType14 = ^ads_search_column; {*}
939
PUserType15 = ^_ads_attr_def; {*}
940
PPUserType1 = ^PUserType15; {*}
941
PUINT1 = ^LongWord; {*}
942
PUserType16 = ^_ads_class_def; {*}
943
PPUserType2 = ^PUserType16; {*}
945
ADSTYPEENUM = __MIDL___MIDL_itf_ads_0000_0001;
947
__MIDL___MIDL_itf_ads_0000_0002 = packed record
952
ADS_OCTET_STRING = __MIDL___MIDL_itf_ads_0000_0002;
954
__MIDL___MIDL_itf_ads_0000_0003 = packed record
959
ADS_NT_SECURITY_DESCRIPTOR = __MIDL___MIDL_itf_ads_0000_0003;
961
_SYSTEMTIME = packed record
972
_LARGE_INTEGER = packed record
976
__MIDL___MIDL_itf_ads_0000_0004 = packed record
981
ADS_PROV_SPECIFIC = __MIDL___MIDL_itf_ads_0000_0004;
983
__MIDL___MIDL_itf_ads_0000_0005 = packed record
985
VolumeName: PWideChar;
989
ADS_PATH = __MIDL___MIDL_itf_ads_0000_0005;
991
__MIDL___MIDL_itf_ads_0000_0006 = packed record
992
PostalAddress: array[0..5] of PWideChar;
995
ADS_POSTALADDRESS = __MIDL___MIDL_itf_ads_0000_0006;
997
__MIDL___MIDL_itf_ads_0000_0007 = packed record
998
WholeSeconds: LongWord;
1002
ADS_TIMESTAMP = __MIDL___MIDL_itf_ads_0000_0007;
1004
__MIDL___MIDL_itf_ads_0000_0008 = packed record
1006
ObjectName: PWideChar;
1009
ADS_BACKLINK = __MIDL___MIDL_itf_ads_0000_0008;
1011
__MIDL___MIDL_itf_ads_0000_0009 = packed record
1012
ObjectName: PWideChar;
1017
ADS_TYPEDNAME = __MIDL___MIDL_itf_ads_0000_0009;
1019
__MIDL___MIDL_itf_ads_0000_0010 = packed record
1020
ObjectName: PWideChar;
1024
ADS_HOLD = __MIDL___MIDL_itf_ads_0000_0010;
1026
__MIDL___MIDL_itf_ads_0000_0011 = packed record
1027
AddressType: LongWord;
1028
AddressLength: LongWord;
1032
ADS_NETADDRESS = __MIDL___MIDL_itf_ads_0000_0011;
1034
__MIDL___MIDL_itf_ads_0000_0012 = packed record
1035
ServerName: PWideChar;
1036
ReplicaType: LongWord;
1037
ReplicaNumber: LongWord;
1039
ReplicaAddressHints: ^__MIDL___MIDL_itf_ads_0000_0011;
1042
ADS_REPLICAPOINTER = __MIDL___MIDL_itf_ads_0000_0012;
1044
__MIDL___MIDL_itf_ads_0000_0013 = packed record
1045
TelephoneNumber: PWideChar;
1046
NumberOfBits: LongWord;
1050
ADS_FAXNUMBER = __MIDL___MIDL_itf_ads_0000_0013;
1052
__MIDL___MIDL_itf_ads_0000_0014 = packed record
1057
ADS_EMAIL = __MIDL___MIDL_itf_ads_0000_0014;
1059
__MIDL___MIDL_itf_ads_0000_0015 = packed record
1061
lpBinaryValue: ^Byte;
1062
pszDNString: PWideChar;
1065
ADS_DN_WITH_BINARY = __MIDL___MIDL_itf_ads_0000_0015;
1067
__MIDL___MIDL_itf_ads_0000_0016 = packed record
1068
pszStringValue: PWideChar;
1069
pszDNString: PWideChar;
1072
ADS_DN_WITH_STRING = __MIDL___MIDL_itf_ads_0000_0016;
1074
_ADS_CASEIGNORE_LIST = packed record
1079
_ADS_OCTET_LIST = packed record
1085
__MIDL___MIDL_itf_ads_0000_0017 = record
1087
0: (DNString: PWideChar);
1088
1: (CaseExactString: PWideChar);
1089
2: (CaseIgnoreString: PWideChar);
1090
3: (PrintableString: PWideChar);
1091
4: (NumericString: PWideChar);
1092
5: (Boolean: LongWord);
1093
6: (Integer: LongWord);
1094
7: (OctetString: ADS_OCTET_STRING);
1095
8: (UTCTime: _SYSTEMTIME);
1096
9: (LargeInteger: _LARGE_INTEGER);
1097
10: (ClassName: PWideChar);
1098
11: (ProviderSpecific: ADS_PROV_SPECIFIC);
1099
12: (pCaseIgnoreList: ^_ADS_CASEIGNORE_LIST);
1100
13: (pOctetList: ^_ADS_OCTET_LIST);
1101
14: (pPath: ^__MIDL___MIDL_itf_ads_0000_0005);
1102
15: (pPostalAddress: ^__MIDL___MIDL_itf_ads_0000_0006);
1103
16: (Timestamp: ADS_TIMESTAMP);
1104
17: (BackLink: ADS_BACKLINK);
1105
18: (pTypedName: ^__MIDL___MIDL_itf_ads_0000_0009);
1106
19: (Hold: ADS_HOLD);
1107
20: (pNetAddress: ^__MIDL___MIDL_itf_ads_0000_0011);
1108
21: (pReplicaPointer: ^__MIDL___MIDL_itf_ads_0000_0012);
1109
22: (pFaxNumber: ^__MIDL___MIDL_itf_ads_0000_0013);
1110
23: (Email: ADS_EMAIL);
1111
24: (SecurityDescriptor: ADS_NT_SECURITY_DESCRIPTOR);
1112
25: (pDNWithBinary: ^__MIDL___MIDL_itf_ads_0000_0015);
1113
26: (pDNWithString: ^__MIDL___MIDL_itf_ads_0000_0016);
1116
ADS_AUTHENTICATION_ENUM = __MIDL___MIDL_itf_ads_0000_0018;
1118
_ads_object_info = packed record
1120
pszObjectDN: PWideChar;
1121
pszParentDN: PWideChar;
1122
pszSchemaDN: PWideChar;
1123
pszClassName: PWideChar;
1126
ADS_STATUSENUM = __MIDL___MIDL_itf_ads_0000_0019;
1127
ADS_DEREFENUM = __MIDL___MIDL_itf_ads_0000_0020;
1128
ADS_SCOPEENUM = __MIDL___MIDL_itf_ads_0000_0021;
1129
ADS_PREFERENCES_ENUM = __MIDL___MIDL_itf_ads_0000_0022;
1130
ADSI_DIALECT_ENUM = __MIDL___MIDL_itf_ads_0000_0023;
1131
ADS_CHASE_REFERRALS_ENUM = __MIDL___MIDL_itf_ads_0000_0024;
1132
ADS_SEARCHPREF_ENUM = __MIDL___MIDL_itf_ads_0000_0025;
1134
_adsvalue = packed record
1135
dwType: ADSTYPEENUM;
1136
__MIDL_0010: __MIDL___MIDL_itf_ads_0000_0017;
1139
ads_search_column = packed record
1140
pszAttrName: PWideChar;
1141
dwADsType: ADSTYPEENUM;
1142
pADsValues: ^_adsvalue;
1143
dwNumValues: LongWord;
1147
_ads_attr_def = packed record
1148
pszAttrName: PWideChar;
1149
dwADsType: ADSTYPEENUM;
1150
dwMinRange: LongWord;
1151
dwMaxRange: LongWord;
1152
fMultiValued: Integer;
1155
_ads_sortkey = packed record
1156
pszAttrType: PWideChar;
1157
pszReserved: PWideChar;
1158
fReverseorder: Shortint;
1161
ADS_PROPERTY_OPERATION_ENUM = __MIDL___MIDL_itf_ads_0000_0026;
1163
__MIDL_IOleAutomationTypes_0005 = record
1165
0: (lptdesc: PUserType8);
1166
1: (lpadesc: PUserType9);
1167
2: (hreftype: LongWord);
1170
tagTYPEDESC = packed record
1171
__MIDL_0008: __MIDL_IOleAutomationTypes_0005;
1175
tagSAFEARRAYBOUND = packed record
1176
cElements: LongWord;
1180
ULONG_PTR = LongWord;
1182
tagIDLDESC = packed record
1183
dwReserved: ULONG_PTR;
1189
tagPARAMDESCEX = packed record
1191
varDefaultValue: OleVariant;
1194
tagPARAMDESC = packed record
1195
pparamdescex: ^tagPARAMDESCEX;
1199
tagELEMDESC = packed record
1201
paramdesc: tagPARAMDESC;
1204
tagFUNCDESC = packed record
1207
lprgelemdescParam: ^tagELEMDESC;
1208
funckind: tagFUNCKIND;
1209
invkind: tagINVOKEKIND;
1210
callconv: tagCALLCONV;
1212
cParamsOpt: Smallint;
1215
elemdescFunc: tagELEMDESC;
1219
__MIDL_IOleAutomationTypes_0006 = record
1221
0: (oInst: LongWord);
1222
1: (lpvarValue: ^OleVariant);
1225
tagVARDESC = packed record
1227
lpstrSchema: PWideChar;
1228
__MIDL_0009: __MIDL_IOleAutomationTypes_0006;
1229
elemdescVar: tagELEMDESC;
1231
varkind: tagVARKIND;
1234
tagTLIBATTR = packed record
1237
syskind: tagSYSKIND;
1243
ADS_SYSTEMFLAG_ENUM = __MIDL___MIDL_itf_ads_0120_0001;
1244
ADS_GROUP_TYPE_ENUM = __MIDL___MIDL_itf_ads_0126_0001;
1245
ADS_RIGHTS_ENUM = __MIDL___MIDL_itf_ads_0148_0001;
1246
ADS_ACETYPE_ENUM = __MIDL___MIDL_itf_ads_0148_0002;
1247
ADS_ACEFLAG_ENUM = __MIDL___MIDL_itf_ads_0148_0003;
1248
ADS_FLAGTYPE_ENUM = __MIDL___MIDL_itf_ads_0148_0004;
1249
ADS_SD_CONTROL_ENUM = __MIDL___MIDL_itf_ads_0148_0005;
1250
ADS_SD_REVISION_ENUM = __MIDL___MIDL_itf_ads_0148_0006;
1251
ADS_NAME_TYPE_ENUM = __MIDL___MIDL_itf_ads_0149_0001;
1252
ADS_NAME_INITTYPE_ENUM = __MIDL___MIDL_itf_ads_0149_0002;
1253
ADS_OPTION_ENUM = __MIDL___MIDL_itf_ads_0163_0001;
1254
ADS_SECURITY_INFO_ENUM = __MIDL___MIDL_itf_ads_0163_0002;
1255
ADS_SETTYPE_ENUM = __MIDL___MIDL_itf_ads_0164_0001;
1256
ADS_FORMAT_ENUM = __MIDL___MIDL_itf_ads_0164_0002;
1257
ADS_DISPLAY_ENUM = __MIDL___MIDL_itf_ads_0164_0003;
1258
ADS_ESCAPE_MODE_ENUM = __MIDL___MIDL_itf_ads_0164_0004;
1260
_ads_attr_info = packed record
1261
pszAttrName: PWideChar;
1262
dwControlCode: LongWord;
1263
dwADsType: ADSTYPEENUM;
1264
pADsValues: ^_adsvalue;
1265
dwNumValues: LongWord;
1268
ads_searchpref_info = packed record
1269
dwSearchPref: ADS_SEARCHPREF_ENUM;
1271
dwStatus: ADS_STATUSENUM;
1274
_ads_class_def = packed record
1275
pszClassName: PWideChar;
1276
dwMandatoryAttrs: LongWord;
1277
ppszMandatoryAttrs: ^PWideChar;
1278
optionalAttrs: LongWord;
1279
ppszOptionalAttrs: ^PPWideChar1;
1280
dwNamingAttrs: LongWord;
1281
ppszNamingAttrs: ^PPWideChar1;
1282
dwSuperClasses: LongWord;
1283
ppszSuperClasses: ^PPWideChar1;
1284
fIsContainer: Integer;
1287
tagTYPEATTR = packed record
1290
dwReserved: LongWord;
1291
memidConstructor: Integer;
1292
memidDestructor: Integer;
1293
lpstrSchema: PWideChar;
1294
cbSizeInstance: LongWord;
1295
typekind: tagTYPEKIND;
1304
tdescAlias: tagTYPEDESC;
1305
idldescType: tagIDLDESC;
1308
tagARRAYDESC = packed record
1309
tdescElem: tagTYPEDESC;
1311
rgbounds: ^tagSAFEARRAYBOUND;
1314
// *********************************************************************//
1316
// Flags: (4416) Dual OleAutomation Dispatchable
1317
// GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
1318
// *********************************************************************//
1319
IADs = interface(IDispatch)
1320
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
1321
function Get_Name: WideString; safecall;
1322
function Get_Class_: WideString; safecall;
1323
function Get_GUID: WideString; safecall;
1324
function Get_ADsPath: WideString; safecall;
1325
function Get_Parent: WideString; safecall;
1326
function Get_Schema: WideString; safecall;
1327
procedure GetInfo; safecall;
1328
procedure SetInfo; safecall;
1329
function Get(const bstrName: WideString): OleVariant; safecall;
1330
procedure Put(const bstrName: WideString; vProp: OleVariant); safecall;
1331
function GetEx(const bstrName: WideString): OleVariant; safecall;
1332
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); safecall;
1333
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); safecall;
1334
property Name: WideString read Get_Name;
1335
property Class_: WideString read Get_Class_;
1336
property GUID: WideString read Get_GUID;
1337
property ADsPath: WideString read Get_ADsPath;
1338
property Parent: WideString read Get_Parent;
1339
property Schema: WideString read Get_Schema;
1342
// *********************************************************************//
1343
// DispIntf: IADsDisp
1344
// Flags: (4416) Dual OleAutomation Dispatchable
1345
// GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
1346
// *********************************************************************//
1347
{$ifdef SUPPORTS_DISPINTERFACE}
1348
IADsDisp = dispinterface
1349
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
1350
property Name: WideString readonly dispid 2;
1351
property Class_: WideString readonly dispid 3;
1352
property GUID: WideString readonly dispid 4;
1353
property ADsPath: WideString readonly dispid 5;
1354
property Parent: WideString readonly dispid 6;
1355
property Schema: WideString readonly dispid 7;
1356
procedure GetInfo; dispid 8;
1357
procedure SetInfo; dispid 9;
1358
function Get(const bstrName: WideString): OleVariant; dispid 10;
1359
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1360
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1361
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1362
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1365
// *********************************************************************//
1366
// Interface: IADsContainer
1367
// Flags: (4416) Dual OleAutomation Dispatchable
1368
// GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
1369
// *********************************************************************//
1370
IADsContainer = interface(IDispatch)
1371
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
1372
function Get_Count: Integer; safecall;
1373
function Get__NewEnum: IUnknown; safecall;
1374
function Get_Filter: OleVariant; safecall;
1375
procedure Set_Filter(pVar: OleVariant); safecall;
1376
function Get_Hints: OleVariant; safecall;
1377
procedure Set_Hints(pvFilter: OleVariant); safecall;
1378
function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
1379
function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
1380
procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); safecall;
1381
function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
1382
function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
1383
property Count: Integer read Get_Count;
1384
property _NewEnum: IUnknown read Get__NewEnum;
1385
property Filter: OleVariant read Get_Filter write Set_Filter;
1386
property Hints: OleVariant read Get_Hints write Set_Hints;
1389
// *********************************************************************//
1390
// DispIntf: IADsContainerDisp
1391
// Flags: (4416) Dual OleAutomation Dispatchable
1392
// GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
1393
// *********************************************************************//
1394
{$ifdef SUPPORTS_DISPINTERFACE}
1395
IADsContainerDisp = dispinterface
1396
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
1397
property Count: Integer readonly dispid 2;
1398
property _NewEnum: IUnknown readonly dispid -4;
1399
property Filter: OleVariant dispid 3;
1400
property Hints: OleVariant dispid 4;
1401
function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 5;
1402
function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 6;
1403
procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); dispid 7;
1404
function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 8;
1405
function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 9;
1408
// *********************************************************************//
1409
// Interface: IADsCollection
1410
// Flags: (4416) Dual OleAutomation Dispatchable
1411
// GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
1412
// *********************************************************************//
1413
IADsCollection = interface(IDispatch)
1414
['{72B945E0-253B-11CF-A988-00AA006BC149}']
1415
function Get__NewEnum: IUnknown; safecall;
1416
procedure Add(const bstrName: WideString; vItem: OleVariant); safecall;
1417
procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
1418
function GetObject(const bstrName: WideString): OleVariant; safecall;
1419
property _NewEnum: IUnknown read Get__NewEnum;
1422
// *********************************************************************//
1423
// DispIntf: IADsCollectionDisp
1424
// Flags: (4416) Dual OleAutomation Dispatchable
1425
// GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
1426
// *********************************************************************//
1427
{$ifdef SUPPORTS_DISPINTERFACE}
1428
IADsCollectionDisp = dispinterface
1429
['{72B945E0-253B-11CF-A988-00AA006BC149}']
1430
property _NewEnum: IUnknown readonly dispid -4;
1431
procedure Add(const bstrName: WideString; vItem: OleVariant); dispid 4;
1432
procedure Remove(const bstrItemToBeRemoved: WideString); dispid 5;
1433
function GetObject(const bstrName: WideString): OleVariant; dispid 6;
1436
// *********************************************************************//
1437
// Interface: IADsMembers
1438
// Flags: (4416) Dual OleAutomation Dispatchable
1439
// GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
1440
// *********************************************************************//
1441
IADsMembers = interface(IDispatch)
1442
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
1443
function Get_Count: Integer; safecall;
1444
function Get__NewEnum: IUnknown; safecall;
1445
function Get_Filter: OleVariant; safecall;
1446
procedure Set_Filter(pvFilter: OleVariant); safecall;
1447
property Count: Integer read Get_Count;
1448
property _NewEnum: IUnknown read Get__NewEnum;
1449
property Filter: OleVariant read Get_Filter write Set_Filter;
1452
// *********************************************************************//
1453
// DispIntf: IADsMembersDisp
1454
// Flags: (4416) Dual OleAutomation Dispatchable
1455
// GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
1456
// *********************************************************************//
1457
{$ifdef SUPPORTS_DISPINTERFACE}
1458
IADsMembersDisp = dispinterface
1459
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
1460
property Count: Integer readonly dispid 2;
1461
property _NewEnum: IUnknown readonly dispid -4;
1462
property Filter: OleVariant dispid 3;
1465
// *********************************************************************//
1466
// Interface: IADsPropertyList
1467
// Flags: (4416) Dual OleAutomation Dispatchable
1468
// GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
1469
// *********************************************************************//
1470
IADsPropertyList = interface(IDispatch)
1471
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
1472
function Get_PropertyCount: Integer; safecall;
1473
function Next: OleVariant; safecall;
1474
procedure Skip(cElements: Integer); safecall;
1475
procedure Reset; safecall;
1476
function Item(varIndex: OleVariant): OleVariant; safecall;
1477
function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; safecall;
1478
procedure PutPropertyItem(varData: OleVariant); safecall;
1479
procedure ResetPropertyItem(varEntry: OleVariant); safecall;
1480
procedure PurgePropertyList; safecall;
1481
property PropertyCount: Integer read Get_PropertyCount;
1484
// *********************************************************************//
1485
// DispIntf: IADsPropertyListDisp
1486
// Flags: (4416) Dual OleAutomation Dispatchable
1487
// GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
1488
// *********************************************************************//
1489
{$ifdef SUPPORTS_DISPINTERFACE}
1490
IADsPropertyListDisp = dispinterface
1491
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
1492
property PropertyCount: Integer readonly dispid 2;
1493
function Next: OleVariant; dispid 3;
1494
procedure Skip(cElements: Integer); dispid 4;
1495
procedure Reset; dispid 5;
1496
function Item(varIndex: OleVariant): OleVariant; dispid 0;
1497
function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; dispid 6;
1498
procedure PutPropertyItem(varData: OleVariant); dispid 7;
1499
procedure ResetPropertyItem(varEntry: OleVariant); dispid 8;
1500
procedure PurgePropertyList; dispid 9;
1503
// *********************************************************************//
1504
// Interface: IADsPropertyEntry
1505
// Flags: (4416) Dual OleAutomation Dispatchable
1506
// GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
1507
// *********************************************************************//
1508
IADsPropertyEntry = interface(IDispatch)
1509
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
1510
procedure Clear; safecall;
1511
function Get_Name: WideString; safecall;
1512
procedure Set_Name(const retval: WideString); safecall;
1513
function Get_ADsType: Integer; safecall;
1514
procedure Set_ADsType(retval: Integer); safecall;
1515
function Get_ControlCode: Integer; safecall;
1516
procedure Set_ControlCode(retval: Integer); safecall;
1517
function Get_Values: OleVariant; safecall;
1518
procedure Set_Values(retval: OleVariant); safecall;
1519
property Name: WideString read Get_Name write Set_Name;
1520
property ADsType: Integer read Get_ADsType write Set_ADsType;
1521
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
1522
property Values: OleVariant read Get_Values write Set_Values;
1525
// *********************************************************************//
1526
// DispIntf: IADsPropertyEntryDisp
1527
// Flags: (4416) Dual OleAutomation Dispatchable
1528
// GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
1529
// *********************************************************************//
1530
{$ifdef SUPPORTS_DISPINTERFACE}
1531
IADsPropertyEntryDisp = dispinterface
1532
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
1533
procedure Clear; dispid 1;
1534
property Name: WideString dispid 2;
1535
property ADsType: Integer dispid 3;
1536
property ControlCode: Integer dispid 4;
1537
property Values: OleVariant dispid 5;
1540
// *********************************************************************//
1541
// Interface: IADsPropertyValue
1542
// Flags: (4416) Dual OleAutomation Dispatchable
1543
// GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
1544
// *********************************************************************//
1545
IADsPropertyValue = interface(IDispatch)
1546
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
1547
procedure Clear; safecall;
1548
function Get_ADsType: Integer; safecall;
1549
procedure Set_ADsType(retval: Integer); safecall;
1550
function Get_DNString: WideString; safecall;
1551
procedure Set_DNString(const retval: WideString); safecall;
1552
function Get_CaseExactString: WideString; safecall;
1553
procedure Set_CaseExactString(const retval: WideString); safecall;
1554
function Get_CaseIgnoreString: WideString; safecall;
1555
procedure Set_CaseIgnoreString(const retval: WideString); safecall;
1556
function Get_PrintableString: WideString; safecall;
1557
procedure Set_PrintableString(const retval: WideString); safecall;
1558
function Get_NumericString: WideString; safecall;
1559
procedure Set_NumericString(const retval: WideString); safecall;
1560
function Get_Boolean: Integer; safecall;
1561
procedure Set_Boolean(retval: Integer); safecall;
1562
function Get_Integer: Integer; safecall;
1563
procedure Set_Integer(retval: Integer); safecall;
1564
function Get_OctetString: OleVariant; safecall;
1565
procedure Set_OctetString(retval: OleVariant); safecall;
1566
function Get_SecurityDescriptor: IDispatch; safecall;
1567
procedure Set_SecurityDescriptor(const retval: IDispatch); safecall;
1568
function Get_LargeInteger: IDispatch; safecall;
1569
procedure Set_LargeInteger(const retval: IDispatch); safecall;
1570
function Get_UTCTime: TDateTime; safecall;
1571
procedure Set_UTCTime(retval: TDateTime); safecall;
1572
property ADsType: Integer read Get_ADsType write Set_ADsType;
1573
property DNString: WideString read Get_DNString write Set_DNString;
1574
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
1575
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
1576
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
1577
property NumericString: WideString read Get_NumericString write Set_NumericString;
1578
property Boolean: Integer read Get_Boolean write Set_Boolean;
1579
property Integer: Integer read Get_Integer write Set_Integer;
1580
property OctetString: OleVariant read Get_OctetString write Set_OctetString;
1581
property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
1582
property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
1583
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
1586
// *********************************************************************//
1587
// DispIntf: IADsPropertyValueDisp
1588
// Flags: (4416) Dual OleAutomation Dispatchable
1589
// GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
1590
// *********************************************************************//
1591
{$ifdef SUPPORTS_DISPINTERFACE}
1592
IADsPropertyValueDisp = dispinterface
1593
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
1594
procedure Clear; dispid 1;
1595
property ADsType: Integer dispid 2;
1596
property DNString: WideString dispid 3;
1597
property CaseExactString: WideString dispid 4;
1598
property CaseIgnoreString: WideString dispid 5;
1599
property PrintableString: WideString dispid 6;
1600
property NumericString: WideString dispid 7;
1601
property Boolean: Integer dispid 8;
1602
property Integer: Integer dispid 9;
1603
property OctetString: OleVariant dispid 10;
1604
property SecurityDescriptor: IDispatch dispid 11;
1605
property LargeInteger: IDispatch dispid 12;
1606
property UTCTime: TDateTime dispid 13;
1609
// *********************************************************************//
1610
// Interface: IADsPropertyValue2
1611
// Flags: (4416) Dual OleAutomation Dispatchable
1612
// GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
1613
// *********************************************************************//
1614
IADsPropertyValue2 = interface(IDispatch)
1615
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
1616
function GetObjectProperty(var lnADsType: Integer): OleVariant; safecall;
1617
procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); safecall;
1620
// *********************************************************************//
1621
// DispIntf: IADsPropertyValue2Disp
1622
// Flags: (4416) Dual OleAutomation Dispatchable
1623
// GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
1624
// *********************************************************************//
1625
{$ifdef SUPPORTS_DISPINTERFACE}
1626
IADsPropertyValue2Disp = dispinterface
1627
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
1628
function GetObjectProperty(var lnADsType: Integer): OleVariant; dispid 1;
1629
procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); dispid 2;
1633
// *********************************************************************//
1634
// Interface: IPrivateDispatch
1636
// GUID: {86AB4BBE-65F6-11D1-8C13-00C04FD8D503}
1637
// *********************************************************************//
1638
IPrivateDispatch = interface(IUnknown)
1639
['{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}']
1640
function ADSIInitializeDispatchManager(dwExtensionId: Integer): HResult; stdcall;
1641
function ADSIGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
1642
function ADSIGetTypeInfo(itinfo: SYSUINT; lcid: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
1643
function ADSIGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
1644
lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
1645
function ADSIInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
1646
var pdispparams: TGUID; out pvarResult: OleVariant; out pexcepinfo: TGUID;
1647
out puArgErr: SYSUINT): HResult; stdcall;
1650
// *********************************************************************//
1651
// Interface: ITypeInfo
1653
// GUID: {00020401-0000-0000-C000-000000000046}
1654
// *********************************************************************//
1655
ITypeInfo = interface(IUnknown)
1656
['{00020401-0000-0000-C000-000000000046}']
1657
function RemoteGetTypeAttr(out ppTypeAttr: PUserType5; out pDummy: DWORD): HResult; stdcall;
1658
function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
1659
function RemoteGetFuncDesc(index: SYSUINT; out ppFuncDesc: PUserType6; out pDummy: DWORD): HResult; stdcall;
1660
function RemoteGetVarDesc(index: SYSUINT; out ppVarDesc: PUserType7; out pDummy: DWORD): HResult; stdcall;
1661
function RemoteGetNames(memid: Integer; out rgBstrNames: WideString; cMaxNames: SYSUINT;
1662
out pcNames: SYSUINT): HResult; stdcall;
1663
function GetRefTypeOfImplType(index: SYSUINT; out pRefType: LongWord): HResult; stdcall;
1664
function GetImplTypeFlags(index: SYSUINT; out pImplTypeFlags: SYSINT): HResult; stdcall;
1665
function LocalGetIDsOfNames: HResult; stdcall;
1666
function LocalInvoke: HResult; stdcall;
1667
function RemoteGetDocumentation(memid: Integer; refPtrFlags: LongWord;
1668
out pBstrName: WideString; out pBstrDocString: WideString;
1669
out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
1670
function RemoteGetDllEntry(memid: Integer; invkind: tagINVOKEKIND; refPtrFlags: LongWord;
1671
out pBstrDllName: WideString; out pBstrName: WideString;
1672
out pwOrdinal: Word): HResult; stdcall;
1673
function GetRefTypeInfo(hreftype: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
1674
function LocalAddressOfMember: HResult; stdcall;
1675
function RemoteCreateInstance(var riid: TGUID; out ppvObj: IUnknown): HResult; stdcall;
1676
function GetMops(memid: Integer; out pBstrMops: WideString): HResult; stdcall;
1677
function RemoteGetContainingTypeLib(out ppTLib: ITypeLib; out pIndex: SYSUINT): HResult; stdcall;
1678
function LocalReleaseTypeAttr: HResult; stdcall;
1679
function LocalReleaseFuncDesc: HResult; stdcall;
1680
function LocalReleaseVarDesc: HResult; stdcall;
1683
// *********************************************************************//
1684
// Interface: ITypeComp
1686
// GUID: {00020403-0000-0000-C000-000000000046}
1687
// *********************************************************************//
1688
ITypeComp = interface(IUnknown)
1689
['{00020403-0000-0000-C000-000000000046}']
1690
function RemoteBind(szName: PWideChar; lHashVal: LongWord; wFlags: Word;
1691
out ppTInfo: ITypeInfo; out pDescKind: tagDESCKIND;
1692
out ppFuncDesc: PUserType6; out ppVarDesc: PUserType7;
1693
out ppTypeComp: ITypeComp; out pDummy: DWORD): HResult; stdcall;
1694
function RemoteBindType(szName: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
1697
// *********************************************************************//
1698
// Interface: ITypeLib
1700
// GUID: {00020402-0000-0000-C000-000000000046}
1701
// *********************************************************************//
1702
ITypeLib = interface(IUnknown)
1703
['{00020402-0000-0000-C000-000000000046}']
1704
function RemoteGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
1705
function GetTypeInfo(index: SYSUINT; out ppTInfo: ITypeInfo): HResult; stdcall;
1706
function GetTypeInfoType(index: SYSUINT; out pTKind: tagTYPEKIND): HResult; stdcall;
1707
function GetTypeInfoOfGuid(var GUID: TGUID; out ppTInfo: ITypeInfo): HResult; stdcall;
1708
function RemoteGetLibAttr(out ppTLibAttr: PUserType10; out pDummy: DWORD): HResult; stdcall;
1709
function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
1710
function RemoteGetDocumentation(index: SYSINT; refPtrFlags: LongWord;
1711
out pBstrName: WideString; out pBstrDocString: WideString;
1712
out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
1713
function RemoteIsName(szNameBuf: PWideChar; lHashVal: LongWord; out pfName: Integer;
1714
out pBstrLibName: WideString): HResult; stdcall;
1715
function RemoteFindName(szNameBuf: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo;
1716
out rgMemId: Integer; var pcFound: Word; out pBstrLibName: WideString): HResult; stdcall;
1717
function LocalReleaseTLibAttr: HResult; stdcall;
1720
// *********************************************************************//
1721
// Interface: IPrivateUnknown
1723
// GUID: {89126BAB-6EAD-11D1-8C18-00C04FD8D503}
1724
// *********************************************************************//
1725
IPrivateUnknown = interface(IUnknown)
1726
['{89126BAB-6EAD-11D1-8C18-00C04FD8D503}']
1727
function ADSIInitializeObject(const lpszUserName: WideString; const lpszPassword: WideString;
1728
lnReserved: Integer): HResult; stdcall;
1729
function ADSIReleaseObject: HResult; stdcall;
1732
// *********************************************************************//
1733
// Interface: IADsExtension
1735
// GUID: {3D35553C-D2B0-11D1-B17B-0000F87593A0}
1736
// *********************************************************************//
1737
IADsExtension = interface(IUnknown)
1738
['{3D35553C-D2B0-11D1-B17B-0000F87593A0}']
1739
function Operate(dwCode: LongWord; varData1: OleVariant; varData2: OleVariant;
1740
varData3: OleVariant): HResult; stdcall;
1741
function PrivateGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
1742
lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
1743
function PrivateInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
1744
var pdispparams: TGUID; out pvarResult: OleVariant;
1745
out pexcepinfo: TGUID; out puArgErr: SYSUINT): HResult; stdcall;
1748
// *********************************************************************//
1749
// Interface: IADsDeleteOps
1750
// Flags: (4416) Dual OleAutomation Dispatchable
1751
// GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
1752
// *********************************************************************//
1753
IADsDeleteOps = interface(IDispatch)
1754
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
1755
procedure DeleteObject(lnFlags: Integer); safecall;
1758
// *********************************************************************//
1759
// DispIntf: IADsDeleteOpsDisp
1760
// Flags: (4416) Dual OleAutomation Dispatchable
1761
// GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
1762
// *********************************************************************//
1763
{$ifdef SUPPORTS_DISPINTERFACE}
1764
IADsDeleteOpsDisp = dispinterface
1765
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
1766
procedure DeleteObject(lnFlags: Integer); dispid 2;
1769
// *********************************************************************//
1770
// Interface: IADsNamespaces
1771
// Flags: (4416) Dual OleAutomation Dispatchable
1772
// GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
1773
// *********************************************************************//
1774
IADsNamespaces = interface(IADs)
1775
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
1776
function Get_DefaultContainer: WideString; safecall;
1777
procedure Set_DefaultContainer(const retval: WideString); safecall;
1778
property DefaultContainer: WideString read Get_DefaultContainer write Set_DefaultContainer;
1781
// *********************************************************************//
1782
// DispIntf: IADsNamespacesDisp
1783
// Flags: (4416) Dual OleAutomation Dispatchable
1784
// GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
1785
// *********************************************************************//
1786
{$ifdef SUPPORTS_DISPINTERFACE}
1787
IADsNamespacesDisp = dispinterface
1788
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
1789
property DefaultContainer: WideString dispid 1;
1790
property Name: WideString readonly dispid 2;
1791
property Class_: WideString readonly dispid 3;
1792
property GUID: WideString readonly dispid 4;
1793
property ADsPath: WideString readonly dispid 5;
1794
property Parent: WideString readonly dispid 6;
1795
property Schema: WideString readonly dispid 7;
1796
procedure GetInfo; dispid 8;
1797
procedure SetInfo; dispid 9;
1798
function Get(const bstrName: WideString): OleVariant; dispid 10;
1799
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1800
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1801
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1802
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1806
// *********************************************************************//
1807
// Interface: IADsClass
1808
// Flags: (4416) Dual OleAutomation Dispatchable
1809
// GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
1810
// *********************************************************************//
1811
IADsClass = interface(IADs)
1812
['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
1813
function Get_PrimaryInterface: WideString; safecall;
1814
function Get_CLSID: WideString; safecall;
1815
procedure Set_CLSID(const retval: WideString); safecall;
1816
function Get_OID: WideString; safecall;
1817
procedure Set_OID(const retval: WideString); safecall;
1818
function Get_Abstract: WordBool; safecall;
1819
procedure Set_Abstract(retval: WordBool); safecall;
1820
function Get_Auxiliary: WordBool; safecall;
1821
procedure Set_Auxiliary(retval: WordBool); safecall;
1822
function Get_MandatoryProperties: OleVariant; safecall;
1823
procedure Set_MandatoryProperties(retval: OleVariant); safecall;
1824
function Get_OptionalProperties: OleVariant; safecall;
1825
procedure Set_OptionalProperties(retval: OleVariant); safecall;
1826
function Get_NamingProperties: OleVariant; safecall;
1827
procedure Set_NamingProperties(retval: OleVariant); safecall;
1828
function Get_DerivedFrom: OleVariant; safecall;
1829
procedure Set_DerivedFrom(retval: OleVariant); safecall;
1830
function Get_AuxDerivedFrom: OleVariant; safecall;
1831
procedure Set_AuxDerivedFrom(retval: OleVariant); safecall;
1832
function Get_PossibleSuperiors: OleVariant; safecall;
1833
procedure Set_PossibleSuperiors(retval: OleVariant); safecall;
1834
function Get_Containment: OleVariant; safecall;
1835
procedure Set_Containment(retval: OleVariant); safecall;
1836
function Get_Container: WordBool; safecall;
1837
procedure Set_Container(retval: WordBool); safecall;
1838
function Get_HelpFileName: WideString; safecall;
1839
procedure Set_HelpFileName(const retval: WideString); safecall;
1840
function Get_HelpFileContext: Integer; safecall;
1841
procedure Set_HelpFileContext(retval: Integer); safecall;
1842
function Qualifiers: IADsCollection; safecall;
1843
property PrimaryInterface: WideString read Get_PrimaryInterface;
1844
property CLSID: WideString read Get_CLSID write Set_CLSID;
1845
property OID: WideString read Get_OID write Set_OID;
1846
property Abstract: WordBool read Get_Abstract write Set_Abstract;
1847
property Auxiliary: WordBool read Get_Auxiliary write Set_Auxiliary;
1848
property MandatoryProperties: OleVariant read Get_MandatoryProperties write Set_MandatoryProperties;
1849
property OptionalProperties: OleVariant read Get_OptionalProperties write Set_OptionalProperties;
1850
property NamingProperties: OleVariant read Get_NamingProperties write Set_NamingProperties;
1851
property DerivedFrom: OleVariant read Get_DerivedFrom write Set_DerivedFrom;
1852
property AuxDerivedFrom: OleVariant read Get_AuxDerivedFrom write Set_AuxDerivedFrom;
1853
property PossibleSuperiors: OleVariant read Get_PossibleSuperiors write Set_PossibleSuperiors;
1854
property Containment: OleVariant read Get_Containment write Set_Containment;
1855
property Container: WordBool read Get_Container write Set_Container;
1856
property HelpFileName: WideString read Get_HelpFileName write Set_HelpFileName;
1857
property HelpFileContext: Integer read Get_HelpFileContext write Set_HelpFileContext;
1860
// *********************************************************************//
1861
// DispIntf: IADsClassDisp
1862
// Flags: (4416) Dual OleAutomation Dispatchable
1863
// GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
1864
// *********************************************************************//
1865
{$ifdef SUPPORTS_DISPINTERFACE}
1866
IADsClassDisp = dispinterface
1867
['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
1868
property PrimaryInterface: WideString readonly dispid 15;
1869
property CLSID: WideString dispid 16;
1870
property OID: WideString dispid 17;
1871
property Abstract: WordBool dispid 18;
1872
property Auxiliary: WordBool dispid 26;
1873
property MandatoryProperties: OleVariant dispid 19;
1874
property OptionalProperties: OleVariant dispid 29;
1875
property NamingProperties: OleVariant dispid 30;
1876
property DerivedFrom: OleVariant dispid 20;
1877
property AuxDerivedFrom: OleVariant dispid 27;
1878
property PossibleSuperiors: OleVariant dispid 28;
1879
property Containment: OleVariant dispid 21;
1880
property Container: WordBool dispid 22;
1881
property HelpFileName: WideString dispid 23;
1882
property HelpFileContext: Integer dispid 24;
1883
function Qualifiers: IADsCollection; dispid 25;
1884
property Name: WideString readonly dispid 2;
1885
property Class_: WideString readonly dispid 3;
1886
property GUID: WideString readonly dispid 4;
1887
property ADsPath: WideString readonly dispid 5;
1888
property Parent: WideString readonly dispid 6;
1889
property Schema: WideString readonly dispid 7;
1890
procedure GetInfo; dispid 8;
1891
procedure SetInfo; dispid 9;
1892
function Get(const bstrName: WideString): OleVariant; dispid 10;
1893
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1894
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1895
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1896
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1899
// *********************************************************************//
1900
// Interface: IADsProperty
1901
// Flags: (4416) Dual OleAutomation Dispatchable
1902
// GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
1903
// *********************************************************************//
1904
IADsProperty = interface(IADs)
1905
['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
1906
function Get_OID: WideString; safecall;
1907
procedure Set_OID(const retval: WideString); safecall;
1908
function Get_Syntax: WideString; safecall;
1909
procedure Set_Syntax(const retval: WideString); safecall;
1910
function Get_MaxRange: Integer; safecall;
1911
procedure Set_MaxRange(retval: Integer); safecall;
1912
function Get_MinRange: Integer; safecall;
1913
procedure Set_MinRange(retval: Integer); safecall;
1914
function Get_MultiValued: WordBool; safecall;
1915
procedure Set_MultiValued(retval: WordBool); safecall;
1916
function Qualifiers: IADsCollection; safecall;
1917
property OID: WideString read Get_OID write Set_OID;
1918
property Syntax: WideString read Get_Syntax write Set_Syntax;
1919
property MaxRange: Integer read Get_MaxRange write Set_MaxRange;
1920
property MinRange: Integer read Get_MinRange write Set_MinRange;
1921
property MultiValued: WordBool read Get_MultiValued write Set_MultiValued;
1924
// *********************************************************************//
1925
// DispIntf: IADsPropertyDisp
1926
// Flags: (4416) Dual OleAutomation Dispatchable
1927
// GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
1928
// *********************************************************************//
1929
{$ifdef SUPPORTS_DISPINTERFACE}
1930
IADsPropertyDisp = dispinterface
1931
['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
1932
property OID: WideString dispid 17;
1933
property Syntax: WideString dispid 18;
1934
property MaxRange: Integer dispid 19;
1935
property MinRange: Integer dispid 20;
1936
property MultiValued: WordBool dispid 21;
1937
function Qualifiers: IADsCollection; dispid 22;
1938
property Name: WideString readonly dispid 2;
1939
property Class_: WideString readonly dispid 3;
1940
property GUID: WideString readonly dispid 4;
1941
property ADsPath: WideString readonly dispid 5;
1942
property Parent: WideString readonly dispid 6;
1943
property Schema: WideString readonly dispid 7;
1944
procedure GetInfo; dispid 8;
1945
procedure SetInfo; dispid 9;
1946
function Get(const bstrName: WideString): OleVariant; dispid 10;
1947
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1948
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1949
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1950
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1954
// *********************************************************************//
1955
// Interface: IADsSyntax
1956
// Flags: (4416) Dual OleAutomation Dispatchable
1957
// GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
1958
// *********************************************************************//
1959
IADsSyntax = interface(IADs)
1960
['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
1961
function Get_OleAutoDataType: Integer; safecall;
1962
procedure Set_OleAutoDataType(retval: Integer); safecall;
1963
property OleAutoDataType: Integer read Get_OleAutoDataType write Set_OleAutoDataType;
1966
// *********************************************************************//
1967
// DispIntf: IADsSyntaxDisp
1968
// Flags: (4416) Dual OleAutomation Dispatchable
1969
// GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
1970
// *********************************************************************//
1971
{$ifdef SUPPORTS_DISPINTERFACE}
1972
IADsSyntaxDisp = dispinterface
1973
['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
1974
property OleAutoDataType: Integer dispid 15;
1975
property Name: WideString readonly dispid 2;
1976
property Class_: WideString readonly dispid 3;
1977
property GUID: WideString readonly dispid 4;
1978
property ADsPath: WideString readonly dispid 5;
1979
property Parent: WideString readonly dispid 6;
1980
property Schema: WideString readonly dispid 7;
1981
procedure GetInfo; dispid 8;
1982
procedure SetInfo; dispid 9;
1983
function Get(const bstrName: WideString): OleVariant; dispid 10;
1984
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
1985
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
1986
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
1987
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
1991
// *********************************************************************//
1992
// Interface: IADsLocality
1993
// Flags: (4416) Dual OleAutomation Dispatchable
1994
// GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
1995
// *********************************************************************//
1996
IADsLocality = interface(IADs)
1997
['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
1998
function Get_Description: WideString; safecall;
1999
procedure Set_Description(const retval: WideString); safecall;
2000
function Get_LocalityName: WideString; safecall;
2001
procedure Set_LocalityName(const retval: WideString); safecall;
2002
function Get_PostalAddress: WideString; safecall;
2003
procedure Set_PostalAddress(const retval: WideString); safecall;
2004
function Get_SeeAlso: OleVariant; safecall;
2005
procedure Set_SeeAlso(retval: OleVariant); safecall;
2006
property Description: WideString read Get_Description write Set_Description;
2007
property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
2008
property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
2009
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
2012
// *********************************************************************//
2013
// DispIntf: IADsLocalityDisp
2014
// Flags: (4416) Dual OleAutomation Dispatchable
2015
// GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
2016
// *********************************************************************//
2017
{$ifdef SUPPORTS_DISPINTERFACE}
2018
IADsLocalityDisp = dispinterface
2019
['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
2020
property Description: WideString dispid 15;
2021
property LocalityName: WideString dispid 16;
2022
property PostalAddress: WideString dispid 17;
2023
property SeeAlso: OleVariant dispid 18;
2024
property Name: WideString readonly dispid 2;
2025
property Class_: WideString readonly dispid 3;
2026
property GUID: WideString readonly dispid 4;
2027
property ADsPath: WideString readonly dispid 5;
2028
property Parent: WideString readonly dispid 6;
2029
property Schema: WideString readonly dispid 7;
2030
procedure GetInfo; dispid 8;
2031
procedure SetInfo; dispid 9;
2032
function Get(const bstrName: WideString): OleVariant; dispid 10;
2033
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2034
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2035
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2036
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2040
// *********************************************************************//
2042
// Flags: (4416) Dual OleAutomation Dispatchable
2043
// GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
2044
// *********************************************************************//
2045
IADsO = interface(IADs)
2046
['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
2047
function Get_Description: WideString; safecall;
2048
procedure Set_Description(const retval: WideString); safecall;
2049
function Get_LocalityName: WideString; safecall;
2050
procedure Set_LocalityName(const retval: WideString); safecall;
2051
function Get_PostalAddress: WideString; safecall;
2052
procedure Set_PostalAddress(const retval: WideString); safecall;
2053
function Get_TelephoneNumber: WideString; safecall;
2054
procedure Set_TelephoneNumber(const retval: WideString); safecall;
2055
function Get_FaxNumber: WideString; safecall;
2056
procedure Set_FaxNumber(const retval: WideString); safecall;
2057
function Get_SeeAlso: OleVariant; safecall;
2058
procedure Set_SeeAlso(retval: OleVariant); safecall;
2059
property Description: WideString read Get_Description write Set_Description;
2060
property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
2061
property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
2062
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
2063
property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
2064
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
2067
// *********************************************************************//
2068
// DispIntf: IADsODisp
2069
// Flags: (4416) Dual OleAutomation Dispatchable
2070
// GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
2071
// *********************************************************************//
2072
{$ifdef SUPPORTS_DISPINTERFACE}
2073
IADsODisp = dispinterface
2074
['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
2075
property Description: WideString dispid 15;
2076
property LocalityName: WideString dispid 16;
2077
property PostalAddress: WideString dispid 17;
2078
property TelephoneNumber: WideString dispid 18;
2079
property FaxNumber: WideString dispid 19;
2080
property SeeAlso: OleVariant dispid 20;
2081
property Name: WideString readonly dispid 2;
2082
property Class_: WideString readonly dispid 3;
2083
property GUID: WideString readonly dispid 4;
2084
property ADsPath: WideString readonly dispid 5;
2085
property Parent: WideString readonly dispid 6;
2086
property Schema: WideString readonly dispid 7;
2087
procedure GetInfo; dispid 8;
2088
procedure SetInfo; dispid 9;
2089
function Get(const bstrName: WideString): OleVariant; dispid 10;
2090
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2091
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2092
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2093
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2097
// *********************************************************************//
2098
// Interface: IADsOU
2099
// Flags: (4416) Dual OleAutomation Dispatchable
2100
// GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
2101
// *********************************************************************//
2102
IADsOU = interface(IADs)
2103
['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
2104
function Get_Description: WideString; safecall;
2105
procedure Set_Description(const retval: WideString); safecall;
2106
function Get_LocalityName: WideString; safecall;
2107
procedure Set_LocalityName(const retval: WideString); safecall;
2108
function Get_PostalAddress: WideString; safecall;
2109
procedure Set_PostalAddress(const retval: WideString); safecall;
2110
function Get_TelephoneNumber: WideString; safecall;
2111
procedure Set_TelephoneNumber(const retval: WideString); safecall;
2112
function Get_FaxNumber: WideString; safecall;
2113
procedure Set_FaxNumber(const retval: WideString); safecall;
2114
function Get_SeeAlso: OleVariant; safecall;
2115
procedure Set_SeeAlso(retval: OleVariant); safecall;
2116
function Get_BusinessCategory: WideString; safecall;
2117
procedure Set_BusinessCategory(const retval: WideString); safecall;
2118
property Description: WideString read Get_Description write Set_Description;
2119
property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
2120
property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
2121
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
2122
property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
2123
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
2124
property BusinessCategory: WideString read Get_BusinessCategory write Set_BusinessCategory;
2127
// *********************************************************************//
2128
// DispIntf: IADsOUDisp
2129
// Flags: (4416) Dual OleAutomation Dispatchable
2130
// GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
2131
// *********************************************************************//
2132
{$ifdef SUPPORTS_DISPINTERFACE}
2133
IADsOUDisp = dispinterface
2134
['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
2135
property Description: WideString dispid 15;
2136
property LocalityName: WideString dispid 16;
2137
property PostalAddress: WideString dispid 17;
2138
property TelephoneNumber: WideString dispid 18;
2139
property FaxNumber: WideString dispid 19;
2140
property SeeAlso: OleVariant dispid 20;
2141
property BusinessCategory: WideString dispid 21;
2142
property Name: WideString readonly dispid 2;
2143
property Class_: WideString readonly dispid 3;
2144
property GUID: WideString readonly dispid 4;
2145
property ADsPath: WideString readonly dispid 5;
2146
property Parent: WideString readonly dispid 6;
2147
property Schema: WideString readonly dispid 7;
2148
procedure GetInfo; dispid 8;
2149
procedure SetInfo; dispid 9;
2150
function Get(const bstrName: WideString): OleVariant; dispid 10;
2151
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2152
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2153
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2154
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2158
// *********************************************************************//
2159
// Interface: IADsDomain
2160
// Flags: (4416) Dual OleAutomation Dispatchable
2161
// GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
2162
// *********************************************************************//
2163
IADsDomain = interface(IADs)
2164
['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
2165
function Get_IsWorkgroup: WordBool; safecall;
2166
function Get_MinPasswordLength: Integer; safecall;
2167
procedure Set_MinPasswordLength(retval: Integer); safecall;
2168
function Get_MinPasswordAge: Integer; safecall;
2169
procedure Set_MinPasswordAge(retval: Integer); safecall;
2170
function Get_MaxPasswordAge: Integer; safecall;
2171
procedure Set_MaxPasswordAge(retval: Integer); safecall;
2172
function Get_MaxBadPasswordsAllowed: Integer; safecall;
2173
procedure Set_MaxBadPasswordsAllowed(retval: Integer); safecall;
2174
function Get_PasswordHistoryLength: Integer; safecall;
2175
procedure Set_PasswordHistoryLength(retval: Integer); safecall;
2176
function Get_PasswordAttributes: Integer; safecall;
2177
procedure Set_PasswordAttributes(retval: Integer); safecall;
2178
function Get_AutoUnlockInterval: Integer; safecall;
2179
procedure Set_AutoUnlockInterval(retval: Integer); safecall;
2180
function Get_LockoutObservationInterval: Integer; safecall;
2181
procedure Set_LockoutObservationInterval(retval: Integer); safecall;
2182
property IsWorkgroup: WordBool read Get_IsWorkgroup;
2183
property MinPasswordLength: Integer read Get_MinPasswordLength write Set_MinPasswordLength;
2184
property MinPasswordAge: Integer read Get_MinPasswordAge write Set_MinPasswordAge;
2185
property MaxPasswordAge: Integer read Get_MaxPasswordAge write Set_MaxPasswordAge;
2186
property MaxBadPasswordsAllowed: Integer read Get_MaxBadPasswordsAllowed write Set_MaxBadPasswordsAllowed;
2187
property PasswordHistoryLength: Integer read Get_PasswordHistoryLength write Set_PasswordHistoryLength;
2188
property PasswordAttributes: Integer read Get_PasswordAttributes write Set_PasswordAttributes;
2189
property AutoUnlockInterval: Integer read Get_AutoUnlockInterval write Set_AutoUnlockInterval;
2190
property LockoutObservationInterval: Integer read Get_LockoutObservationInterval write Set_LockoutObservationInterval;
2193
// *********************************************************************//
2194
// DispIntf: IADsDomainDisp
2195
// Flags: (4416) Dual OleAutomation Dispatchable
2196
// GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
2197
// *********************************************************************//
2198
{$ifdef SUPPORTS_DISPINTERFACE}
2199
IADsDomainDisp = dispinterface
2200
['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
2201
property IsWorkgroup: WordBool readonly dispid 15;
2202
property MinPasswordLength: Integer dispid 16;
2203
property MinPasswordAge: Integer dispid 17;
2204
property MaxPasswordAge: Integer dispid 18;
2205
property MaxBadPasswordsAllowed: Integer dispid 19;
2206
property PasswordHistoryLength: Integer dispid 20;
2207
property PasswordAttributes: Integer dispid 21;
2208
property AutoUnlockInterval: Integer dispid 22;
2209
property LockoutObservationInterval: Integer dispid 23;
2210
property Name: WideString readonly dispid 2;
2211
property Class_: WideString readonly dispid 3;
2212
property GUID: WideString readonly dispid 4;
2213
property ADsPath: WideString readonly dispid 5;
2214
property Parent: WideString readonly dispid 6;
2215
property Schema: WideString readonly dispid 7;
2216
procedure GetInfo; dispid 8;
2217
procedure SetInfo; dispid 9;
2218
function Get(const bstrName: WideString): OleVariant; dispid 10;
2219
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2220
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2221
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2222
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2225
// *********************************************************************//
2226
// Interface: IADsComputer
2227
// Flags: (4416) Dual OleAutomation Dispatchable
2228
// GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
2229
// *********************************************************************//
2230
IADsComputer = interface(IADs)
2231
['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
2232
function Get_ComputerID: WideString; safecall;
2233
function Get_Site: WideString; safecall;
2234
function Get_Description: WideString; safecall;
2235
procedure Set_Description(const retval: WideString); safecall;
2236
function Get_Location: WideString; safecall;
2237
procedure Set_Location(const retval: WideString); safecall;
2238
function Get_PrimaryUser: WideString; safecall;
2239
procedure Set_PrimaryUser(const retval: WideString); safecall;
2240
function Get_Owner: WideString; safecall;
2241
procedure Set_Owner(const retval: WideString); safecall;
2242
function Get_Division: WideString; safecall;
2243
procedure Set_Division(const retval: WideString); safecall;
2244
function Get_Department: WideString; safecall;
2245
procedure Set_Department(const retval: WideString); safecall;
2246
function Get_Role: WideString; safecall;
2247
procedure Set_Role(const retval: WideString); safecall;
2248
function Get_OperatingSystem: WideString; safecall;
2249
procedure Set_OperatingSystem(const retval: WideString); safecall;
2250
function Get_OperatingSystemVersion: WideString; safecall;
2251
procedure Set_OperatingSystemVersion(const retval: WideString); safecall;
2252
function Get_Model: WideString; safecall;
2253
procedure Set_Model(const retval: WideString); safecall;
2254
function Get_Processor: WideString; safecall;
2255
procedure Set_Processor(const retval: WideString); safecall;
2256
function Get_ProcessorCount: WideString; safecall;
2257
procedure Set_ProcessorCount(const retval: WideString); safecall;
2258
function Get_MemorySize: WideString; safecall;
2259
procedure Set_MemorySize(const retval: WideString); safecall;
2260
function Get_StorageCapacity: WideString; safecall;
2261
procedure Set_StorageCapacity(const retval: WideString); safecall;
2262
function Get_NetAddresses: OleVariant; safecall;
2263
procedure Set_NetAddresses(retval: OleVariant); safecall;
2264
property ComputerID: WideString read Get_ComputerID;
2265
property Site: WideString read Get_Site;
2266
property Description: WideString read Get_Description write Set_Description;
2267
property Location: WideString read Get_Location write Set_Location;
2268
property PrimaryUser: WideString read Get_PrimaryUser write Set_PrimaryUser;
2269
property Owner: WideString read Get_Owner write Set_Owner;
2270
property Division: WideString read Get_Division write Set_Division;
2271
property Department: WideString read Get_Department write Set_Department;
2272
property Role: WideString read Get_Role write Set_Role;
2273
property OperatingSystem: WideString read Get_OperatingSystem write Set_OperatingSystem;
2274
property OperatingSystemVersion: WideString read Get_OperatingSystemVersion write Set_OperatingSystemVersion;
2275
property Model: WideString read Get_Model write Set_Model;
2276
property Processor: WideString read Get_Processor write Set_Processor;
2277
property ProcessorCount: WideString read Get_ProcessorCount write Set_ProcessorCount;
2278
property MemorySize: WideString read Get_MemorySize write Set_MemorySize;
2279
property StorageCapacity: WideString read Get_StorageCapacity write Set_StorageCapacity;
2280
property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
2283
// *********************************************************************//
2284
// DispIntf: IADsComputerDisp
2285
// Flags: (4416) Dual OleAutomation Dispatchable
2286
// GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
2287
// *********************************************************************//
2288
{$ifdef SUPPORTS_DISPINTERFACE}
2289
IADsComputerDisp = dispinterface
2290
['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
2291
property ComputerID: WideString readonly dispid 16;
2292
property Site: WideString readonly dispid 18;
2293
property Description: WideString dispid 19;
2294
property Location: WideString dispid 20;
2295
property PrimaryUser: WideString dispid 21;
2296
property Owner: WideString dispid 22;
2297
property Division: WideString dispid 23;
2298
property Department: WideString dispid 24;
2299
property Role: WideString dispid 25;
2300
property OperatingSystem: WideString dispid 26;
2301
property OperatingSystemVersion: WideString dispid 27;
2302
property Model: WideString dispid 28;
2303
property Processor: WideString dispid 29;
2304
property ProcessorCount: WideString dispid 30;
2305
property MemorySize: WideString dispid 31;
2306
property StorageCapacity: WideString dispid 32;
2307
property NetAddresses: OleVariant dispid 17;
2308
property Name: WideString readonly dispid 2;
2309
property Class_: WideString readonly dispid 3;
2310
property GUID: WideString readonly dispid 4;
2311
property ADsPath: WideString readonly dispid 5;
2312
property Parent: WideString readonly dispid 6;
2313
property Schema: WideString readonly dispid 7;
2314
procedure GetInfo; dispid 8;
2315
procedure SetInfo; dispid 9;
2316
function Get(const bstrName: WideString): OleVariant; dispid 10;
2317
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2318
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2319
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2320
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2323
// *********************************************************************//
2324
// Interface: IADsComputerOperations
2325
// Flags: (4416) Dual OleAutomation Dispatchable
2326
// GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
2327
// *********************************************************************//
2328
IADsComputerOperations = interface(IADs)
2329
['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
2330
function Status: IDispatch; safecall;
2331
procedure Shutdown(bReboot: WordBool); safecall;
2334
// *********************************************************************//
2335
// DispIntf: IADsComputerOperationsDisp
2336
// Flags: (4416) Dual OleAutomation Dispatchable
2337
// GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
2338
// *********************************************************************//
2339
{$ifdef SUPPORTS_DISPINTERFACE}
2340
IADsComputerOperationsDisp = dispinterface
2341
['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
2342
function Status: IDispatch; dispid 33;
2343
procedure Shutdown(bReboot: WordBool); dispid 34;
2344
property Name: WideString readonly dispid 2;
2345
property Class_: WideString readonly dispid 3;
2346
property GUID: WideString readonly dispid 4;
2347
property ADsPath: WideString readonly dispid 5;
2348
property Parent: WideString readonly dispid 6;
2349
property Schema: WideString readonly dispid 7;
2350
procedure GetInfo; dispid 8;
2351
procedure SetInfo; dispid 9;
2352
function Get(const bstrName: WideString): OleVariant; dispid 10;
2353
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2354
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2355
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2356
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2359
// *********************************************************************//
2360
// Interface: IADsGroup
2361
// Flags: (4416) Dual OleAutomation Dispatchable
2362
// GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
2363
// *********************************************************************//
2364
IADsGroup = interface(IADs)
2365
['{27636B00-410F-11CF-B1FF-02608C9E7553}']
2366
function Get_Description: WideString; safecall;
2367
procedure Set_Description(const retval: WideString); safecall;
2368
function Members: IADsMembers; safecall;
2369
function IsMember(const bstrMember: WideString): WordBool; safecall;
2370
procedure Add(const bstrNewItem: WideString); safecall;
2371
procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
2372
property Description: WideString read Get_Description write Set_Description;
2375
// *********************************************************************//
2376
// DispIntf: IADsGroupDisp
2377
// Flags: (4416) Dual OleAutomation Dispatchable
2378
// GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
2379
// *********************************************************************//
2380
{$ifdef SUPPORTS_DISPINTERFACE}
2381
IADsGroupDisp = dispinterface
2382
['{27636B00-410F-11CF-B1FF-02608C9E7553}']
2383
property Description: WideString dispid 15;
2384
function Members: IADsMembers; dispid 16;
2385
function IsMember(const bstrMember: WideString): WordBool; dispid 17;
2386
procedure Add(const bstrNewItem: WideString); dispid 18;
2387
procedure Remove(const bstrItemToBeRemoved: WideString); dispid 19;
2388
property Name: WideString readonly dispid 2;
2389
property Class_: WideString readonly dispid 3;
2390
property GUID: WideString readonly dispid 4;
2391
property ADsPath: WideString readonly dispid 5;
2392
property Parent: WideString readonly dispid 6;
2393
property Schema: WideString readonly dispid 7;
2394
procedure GetInfo; dispid 8;
2395
procedure SetInfo; dispid 9;
2396
function Get(const bstrName: WideString): OleVariant; dispid 10;
2397
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2398
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2399
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2400
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2403
// *********************************************************************//
2404
// Interface: IADsUser
2405
// Flags: (4416) Dual OleAutomation Dispatchable
2406
// GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
2407
// *********************************************************************//
2408
IADsUser = interface(IADs)
2409
['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
2410
function Get_BadLoginAddress: WideString; safecall;
2411
function Get_BadLoginCount: Integer; safecall;
2412
function Get_LastLogin: TDateTime; safecall;
2413
function Get_LastLogoff: TDateTime; safecall;
2414
function Get_LastFailedLogin: TDateTime; safecall;
2415
function Get_PasswordLastChanged: TDateTime; safecall;
2416
function Get_Description: WideString; safecall;
2417
procedure Set_Description(const retval: WideString); safecall;
2418
function Get_Division: WideString; safecall;
2419
procedure Set_Division(const retval: WideString); safecall;
2420
function Get_Department: WideString; safecall;
2421
procedure Set_Department(const retval: WideString); safecall;
2422
function Get_EmployeeID: WideString; safecall;
2423
procedure Set_EmployeeID(const retval: WideString); safecall;
2424
function Get_FullName: WideString; safecall;
2425
procedure Set_FullName(const retval: WideString); safecall;
2426
function Get_FirstName: WideString; safecall;
2427
procedure Set_FirstName(const retval: WideString); safecall;
2428
function Get_LastName: WideString; safecall;
2429
procedure Set_LastName(const retval: WideString); safecall;
2430
function Get_OtherName: WideString; safecall;
2431
procedure Set_OtherName(const retval: WideString); safecall;
2432
function Get_NamePrefix: WideString; safecall;
2433
procedure Set_NamePrefix(const retval: WideString); safecall;
2434
function Get_NameSuffix: WideString; safecall;
2435
procedure Set_NameSuffix(const retval: WideString); safecall;
2436
function Get_Title: WideString; safecall;
2437
procedure Set_Title(const retval: WideString); safecall;
2438
function Get_Manager: WideString; safecall;
2439
procedure Set_Manager(const retval: WideString); safecall;
2440
function Get_TelephoneHome: OleVariant; safecall;
2441
procedure Set_TelephoneHome(retval: OleVariant); safecall;
2442
function Get_TelephoneMobile: OleVariant; safecall;
2443
procedure Set_TelephoneMobile(retval: OleVariant); safecall;
2444
function Get_TelephoneNumber: OleVariant; safecall;
2445
procedure Set_TelephoneNumber(retval: OleVariant); safecall;
2446
function Get_TelephonePager: OleVariant; safecall;
2447
procedure Set_TelephonePager(retval: OleVariant); safecall;
2448
function Get_FaxNumber: OleVariant; safecall;
2449
procedure Set_FaxNumber(retval: OleVariant); safecall;
2450
function Get_OfficeLocations: OleVariant; safecall;
2451
procedure Set_OfficeLocations(retval: OleVariant); safecall;
2452
function Get_PostalAddresses: OleVariant; safecall;
2453
procedure Set_PostalAddresses(retval: OleVariant); safecall;
2454
function Get_PostalCodes: OleVariant; safecall;
2455
procedure Set_PostalCodes(retval: OleVariant); safecall;
2456
function Get_SeeAlso: OleVariant; safecall;
2457
procedure Set_SeeAlso(retval: OleVariant); safecall;
2458
function Get_AccountDisabled: WordBool; safecall;
2459
procedure Set_AccountDisabled(retval: WordBool); safecall;
2460
function Get_AccountExpirationDate: TDateTime; safecall;
2461
procedure Set_AccountExpirationDate(retval: TDateTime); safecall;
2462
function Get_GraceLoginsAllowed: Integer; safecall;
2463
procedure Set_GraceLoginsAllowed(retval: Integer); safecall;
2464
function Get_GraceLoginsRemaining: Integer; safecall;
2465
procedure Set_GraceLoginsRemaining(retval: Integer); safecall;
2466
function Get_IsAccountLocked: WordBool; safecall;
2467
procedure Set_IsAccountLocked(retval: WordBool); safecall;
2468
function Get_LoginHours: OleVariant; safecall;
2469
procedure Set_LoginHours(retval: OleVariant); safecall;
2470
function Get_LoginWorkstations: OleVariant; safecall;
2471
procedure Set_LoginWorkstations(retval: OleVariant); safecall;
2472
function Get_MaxLogins: Integer; safecall;
2473
procedure Set_MaxLogins(retval: Integer); safecall;
2474
function Get_MaxStorage: Integer; safecall;
2475
procedure Set_MaxStorage(retval: Integer); safecall;
2476
function Get_PasswordExpirationDate: TDateTime; safecall;
2477
procedure Set_PasswordExpirationDate(retval: TDateTime); safecall;
2478
function Get_PasswordMinimumLength: Integer; safecall;
2479
procedure Set_PasswordMinimumLength(retval: Integer); safecall;
2480
function Get_PasswordRequired: WordBool; safecall;
2481
procedure Set_PasswordRequired(retval: WordBool); safecall;
2482
function Get_RequireUniquePassword: WordBool; safecall;
2483
procedure Set_RequireUniquePassword(retval: WordBool); safecall;
2484
function Get_EmailAddress: WideString; safecall;
2485
procedure Set_EmailAddress(const retval: WideString); safecall;
2486
function Get_HomeDirectory: WideString; safecall;
2487
procedure Set_HomeDirectory(const retval: WideString); safecall;
2488
function Get_Languages: OleVariant; safecall;
2489
procedure Set_Languages(retval: OleVariant); safecall;
2490
function Get_Profile: WideString; safecall;
2491
procedure Set_Profile(const retval: WideString); safecall;
2492
function Get_LoginScript: WideString; safecall;
2493
procedure Set_LoginScript(const retval: WideString); safecall;
2494
function Get_Picture: OleVariant; safecall;
2495
procedure Set_Picture(retval: OleVariant); safecall;
2496
function Get_HomePage: WideString; safecall;
2497
procedure Set_HomePage(const retval: WideString); safecall;
2498
function Groups: IADsMembers; safecall;
2499
procedure SetPassword(const NewPassword: WideString); safecall;
2500
procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); safecall;
2501
property BadLoginAddress: WideString read Get_BadLoginAddress;
2502
property BadLoginCount: Integer read Get_BadLoginCount;
2503
property LastLogin: TDateTime read Get_LastLogin;
2504
property LastLogoff: TDateTime read Get_LastLogoff;
2505
property LastFailedLogin: TDateTime read Get_LastFailedLogin;
2506
property PasswordLastChanged: TDateTime read Get_PasswordLastChanged;
2507
property Description: WideString read Get_Description write Set_Description;
2508
property Division: WideString read Get_Division write Set_Division;
2509
property Department: WideString read Get_Department write Set_Department;
2510
property EmployeeID: WideString read Get_EmployeeID write Set_EmployeeID;
2511
property FullName: WideString read Get_FullName write Set_FullName;
2512
property FirstName: WideString read Get_FirstName write Set_FirstName;
2513
property LastName: WideString read Get_LastName write Set_LastName;
2514
property OtherName: WideString read Get_OtherName write Set_OtherName;
2515
property NamePrefix: WideString read Get_NamePrefix write Set_NamePrefix;
2516
property NameSuffix: WideString read Get_NameSuffix write Set_NameSuffix;
2517
property Title: WideString read Get_Title write Set_Title;
2518
property Manager: WideString read Get_Manager write Set_Manager;
2519
property TelephoneHome: OleVariant read Get_TelephoneHome write Set_TelephoneHome;
2520
property TelephoneMobile: OleVariant read Get_TelephoneMobile write Set_TelephoneMobile;
2521
property TelephoneNumber: OleVariant read Get_TelephoneNumber write Set_TelephoneNumber;
2522
property TelephonePager: OleVariant read Get_TelephonePager write Set_TelephonePager;
2523
property FaxNumber: OleVariant read Get_FaxNumber write Set_FaxNumber;
2524
property OfficeLocations: OleVariant read Get_OfficeLocations write Set_OfficeLocations;
2525
property PostalAddresses: OleVariant read Get_PostalAddresses write Set_PostalAddresses;
2526
property PostalCodes: OleVariant read Get_PostalCodes write Set_PostalCodes;
2527
property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
2528
property AccountDisabled: WordBool read Get_AccountDisabled write Set_AccountDisabled;
2529
property AccountExpirationDate: TDateTime read Get_AccountExpirationDate write Set_AccountExpirationDate;
2530
property GraceLoginsAllowed: Integer read Get_GraceLoginsAllowed write Set_GraceLoginsAllowed;
2531
property GraceLoginsRemaining: Integer read Get_GraceLoginsRemaining write Set_GraceLoginsRemaining;
2532
property IsAccountLocked: WordBool read Get_IsAccountLocked write Set_IsAccountLocked;
2533
property LoginHours: OleVariant read Get_LoginHours write Set_LoginHours;
2534
property LoginWorkstations: OleVariant read Get_LoginWorkstations write Set_LoginWorkstations;
2535
property MaxLogins: Integer read Get_MaxLogins write Set_MaxLogins;
2536
property MaxStorage: Integer read Get_MaxStorage write Set_MaxStorage;
2537
property PasswordExpirationDate: TDateTime read Get_PasswordExpirationDate write Set_PasswordExpirationDate;
2538
property PasswordMinimumLength: Integer read Get_PasswordMinimumLength write Set_PasswordMinimumLength;
2539
property PasswordRequired: WordBool read Get_PasswordRequired write Set_PasswordRequired;
2540
property RequireUniquePassword: WordBool read Get_RequireUniquePassword write Set_RequireUniquePassword;
2541
property EmailAddress: WideString read Get_EmailAddress write Set_EmailAddress;
2542
property HomeDirectory: WideString read Get_HomeDirectory write Set_HomeDirectory;
2543
property Languages: OleVariant read Get_Languages write Set_Languages;
2544
property Profile: WideString read Get_Profile write Set_Profile;
2545
property LoginScript: WideString read Get_LoginScript write Set_LoginScript;
2546
property Picture: OleVariant read Get_Picture write Set_Picture;
2547
property HomePage: WideString read Get_HomePage write Set_HomePage;
2550
// *********************************************************************//
2551
// DispIntf: IADsUserDisp
2552
// Flags: (4416) Dual OleAutomation Dispatchable
2553
// GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
2554
// *********************************************************************//
2555
{$ifdef SUPPORTS_DISPINTERFACE}
2556
IADsUserDisp = dispinterface
2557
['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
2558
property BadLoginAddress: WideString readonly dispid 53;
2559
property BadLoginCount: Integer readonly dispid 54;
2560
property LastLogin: TDateTime readonly dispid 56;
2561
property LastLogoff: TDateTime readonly dispid 57;
2562
property LastFailedLogin: TDateTime readonly dispid 58;
2563
property PasswordLastChanged: TDateTime readonly dispid 59;
2564
property Description: WideString dispid 15;
2565
property Division: WideString dispid 19;
2566
property Department: WideString dispid 122;
2567
property EmployeeID: WideString dispid 20;
2568
property FullName: WideString dispid 23;
2569
property FirstName: WideString dispid 22;
2570
property LastName: WideString dispid 25;
2571
property OtherName: WideString dispid 27;
2572
property NamePrefix: WideString dispid 114;
2573
property NameSuffix: WideString dispid 115;
2574
property Title: WideString dispid 36;
2575
property Manager: WideString dispid 26;
2576
property TelephoneHome: OleVariant dispid 32;
2577
property TelephoneMobile: OleVariant dispid 33;
2578
property TelephoneNumber: OleVariant dispid 34;
2579
property TelephonePager: OleVariant dispid 17;
2580
property FaxNumber: OleVariant dispid 16;
2581
property OfficeLocations: OleVariant dispid 28;
2582
property PostalAddresses: OleVariant dispid 30;
2583
property PostalCodes: OleVariant dispid 31;
2584
property SeeAlso: OleVariant dispid 117;
2585
property AccountDisabled: WordBool dispid 37;
2586
property AccountExpirationDate: TDateTime dispid 38;
2587
property GraceLoginsAllowed: Integer dispid 41;
2588
property GraceLoginsRemaining: Integer dispid 42;
2589
property IsAccountLocked: WordBool dispid 43;
2590
property LoginHours: OleVariant dispid 45;
2591
property LoginWorkstations: OleVariant dispid 46;
2592
property MaxLogins: Integer dispid 47;
2593
property MaxStorage: Integer dispid 48;
2594
property PasswordExpirationDate: TDateTime dispid 49;
2595
property PasswordMinimumLength: Integer dispid 50;
2596
property PasswordRequired: WordBool dispid 51;
2597
property RequireUniquePassword: WordBool dispid 52;
2598
property EmailAddress: WideString dispid 60;
2599
property HomeDirectory: WideString dispid 61;
2600
property Languages: OleVariant dispid 62;
2601
property Profile: WideString dispid 63;
2602
property LoginScript: WideString dispid 64;
2603
property Picture: OleVariant dispid 65;
2604
property HomePage: WideString dispid 120;
2605
function Groups: IADsMembers; dispid 66;
2606
procedure SetPassword(const NewPassword: WideString); dispid 67;
2607
procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); dispid 68;
2608
property Name: WideString readonly dispid 2;
2609
property Class_: WideString readonly dispid 3;
2610
property GUID: WideString readonly dispid 4;
2611
property ADsPath: WideString readonly dispid 5;
2612
property Parent: WideString readonly dispid 6;
2613
property Schema: WideString readonly dispid 7;
2614
procedure GetInfo; dispid 8;
2615
procedure SetInfo; dispid 9;
2616
function Get(const bstrName: WideString): OleVariant; dispid 10;
2617
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2618
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2619
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2620
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2623
// *********************************************************************//
2624
// Interface: IADsPrintQueue
2625
// Flags: (4416) Dual OleAutomation Dispatchable
2626
// GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
2627
// *********************************************************************//
2628
IADsPrintQueue = interface(IADs)
2629
['{B15160D0-1226-11CF-A985-00AA006BC149}']
2630
function Get_PrinterPath: WideString; safecall;
2631
procedure Set_PrinterPath(const retval: WideString); safecall;
2632
function Get_Model: WideString; safecall;
2633
procedure Set_Model(const retval: WideString); safecall;
2634
function Get_Datatype: WideString; safecall;
2635
procedure Set_Datatype(const retval: WideString); safecall;
2636
function Get_PrintProcessor: WideString; safecall;
2637
procedure Set_PrintProcessor(const retval: WideString); safecall;
2638
function Get_Description: WideString; safecall;
2639
procedure Set_Description(const retval: WideString); safecall;
2640
function Get_Location: WideString; safecall;
2641
procedure Set_Location(const retval: WideString); safecall;
2642
function Get_StartTime: TDateTime; safecall;
2643
procedure Set_StartTime(retval: TDateTime); safecall;
2644
function Get_UntilTime: TDateTime; safecall;
2645
procedure Set_UntilTime(retval: TDateTime); safecall;
2646
function Get_DefaultJobPriority: Integer; safecall;
2647
procedure Set_DefaultJobPriority(retval: Integer); safecall;
2648
function Get_Priority: Integer; safecall;
2649
procedure Set_Priority(retval: Integer); safecall;
2650
function Get_BannerPage: WideString; safecall;
2651
procedure Set_BannerPage(const retval: WideString); safecall;
2652
function Get_PrintDevices: OleVariant; safecall;
2653
procedure Set_PrintDevices(retval: OleVariant); safecall;
2654
function Get_NetAddresses: OleVariant; safecall;
2655
procedure Set_NetAddresses(retval: OleVariant); safecall;
2656
property PrinterPath: WideString read Get_PrinterPath write Set_PrinterPath;
2657
property Model: WideString read Get_Model write Set_Model;
2658
property Datatype: WideString read Get_Datatype write Set_Datatype;
2659
property PrintProcessor: WideString read Get_PrintProcessor write Set_PrintProcessor;
2660
property Description: WideString read Get_Description write Set_Description;
2661
property Location: WideString read Get_Location write Set_Location;
2662
property StartTime: TDateTime read Get_StartTime write Set_StartTime;
2663
property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
2664
property DefaultJobPriority: Integer read Get_DefaultJobPriority write Set_DefaultJobPriority;
2665
property Priority: Integer read Get_Priority write Set_Priority;
2666
property BannerPage: WideString read Get_BannerPage write Set_BannerPage;
2667
property PrintDevices: OleVariant read Get_PrintDevices write Set_PrintDevices;
2668
property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
2671
// *********************************************************************//
2672
// DispIntf: IADsPrintQueueDisp
2673
// Flags: (4416) Dual OleAutomation Dispatchable
2674
// GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
2675
// *********************************************************************//
2676
{$ifdef SUPPORTS_DISPINTERFACE}
2677
IADsPrintQueueDisp = dispinterface
2678
['{B15160D0-1226-11CF-A985-00AA006BC149}']
2679
property PrinterPath: WideString dispid 15;
2680
property Model: WideString dispid 16;
2681
property Datatype: WideString dispid 17;
2682
property PrintProcessor: WideString dispid 18;
2683
property Description: WideString dispid 19;
2684
property Location: WideString dispid 20;
2685
property StartTime: TDateTime dispid 21;
2686
property UntilTime: TDateTime dispid 22;
2687
property DefaultJobPriority: Integer dispid 23;
2688
property Priority: Integer dispid 24;
2689
property BannerPage: WideString dispid 25;
2690
property PrintDevices: OleVariant dispid 26;
2691
property NetAddresses: OleVariant dispid 27;
2692
property Name: WideString readonly dispid 2;
2693
property Class_: WideString readonly dispid 3;
2694
property GUID: WideString readonly dispid 4;
2695
property ADsPath: WideString readonly dispid 5;
2696
property Parent: WideString readonly dispid 6;
2697
property Schema: WideString readonly dispid 7;
2698
procedure GetInfo; dispid 8;
2699
procedure SetInfo; dispid 9;
2700
function Get(const bstrName: WideString): OleVariant; dispid 10;
2701
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2702
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2703
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2704
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2707
// *********************************************************************//
2708
// Interface: IADsPrintQueueOperations
2709
// Flags: (4416) Dual OleAutomation Dispatchable
2710
// GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
2711
// *********************************************************************//
2712
IADsPrintQueueOperations = interface(IADs)
2713
['{124BE5C0-156E-11CF-A986-00AA006BC149}']
2714
function Get_Status: Integer; safecall;
2715
function PrintJobs: IADsCollection; safecall;
2716
procedure Pause; safecall;
2717
procedure Resume; safecall;
2718
procedure Purge; safecall;
2719
property Status: Integer read Get_Status;
2722
// *********************************************************************//
2723
// DispIntf: IADsPrintQueueOperationsDisp
2724
// Flags: (4416) Dual OleAutomation Dispatchable
2725
// GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
2726
// *********************************************************************//
2727
{$ifdef SUPPORTS_DISPINTERFACE}
2728
IADsPrintQueueOperationsDisp = dispinterface
2729
['{124BE5C0-156E-11CF-A986-00AA006BC149}']
2730
property Status: Integer readonly dispid 27;
2731
function PrintJobs: IADsCollection; dispid 28;
2732
procedure Pause; dispid 29;
2733
procedure Resume; dispid 30;
2734
procedure Purge; dispid 31;
2735
property Name: WideString readonly dispid 2;
2736
property Class_: WideString readonly dispid 3;
2737
property GUID: WideString readonly dispid 4;
2738
property ADsPath: WideString readonly dispid 5;
2739
property Parent: WideString readonly dispid 6;
2740
property Schema: WideString readonly dispid 7;
2741
procedure GetInfo; dispid 8;
2742
procedure SetInfo; dispid 9;
2743
function Get(const bstrName: WideString): OleVariant; dispid 10;
2744
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2745
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2746
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2747
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2750
// *********************************************************************//
2751
// Interface: IADsPrintJob
2752
// Flags: (4416) Dual OleAutomation Dispatchable
2753
// GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
2754
// *********************************************************************//
2755
IADsPrintJob = interface(IADs)
2756
['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
2757
function Get_HostPrintQueue: WideString; safecall;
2758
function Get_User: WideString; safecall;
2759
function Get_UserPath: WideString; safecall;
2760
function Get_TimeSubmitted: TDateTime; safecall;
2761
function Get_TotalPages: Integer; safecall;
2762
function Get_Size: Integer; safecall;
2763
function Get_Description: WideString; safecall;
2764
procedure Set_Description(const retval: WideString); safecall;
2765
function Get_Priority: Integer; safecall;
2766
procedure Set_Priority(retval: Integer); safecall;
2767
function Get_StartTime: TDateTime; safecall;
2768
procedure Set_StartTime(retval: TDateTime); safecall;
2769
function Get_UntilTime: TDateTime; safecall;
2770
procedure Set_UntilTime(retval: TDateTime); safecall;
2771
function Get_Notify: WideString; safecall;
2772
procedure Set_Notify(const retval: WideString); safecall;
2773
function Get_NotifyPath: WideString; safecall;
2774
procedure Set_NotifyPath(const retval: WideString); safecall;
2775
property HostPrintQueue: WideString read Get_HostPrintQueue;
2776
property User: WideString read Get_User;
2777
property UserPath: WideString read Get_UserPath;
2778
property TimeSubmitted: TDateTime read Get_TimeSubmitted;
2779
property TotalPages: Integer read Get_TotalPages;
2780
property Size: Integer read Get_Size;
2781
property Description: WideString read Get_Description write Set_Description;
2782
property Priority: Integer read Get_Priority write Set_Priority;
2783
property StartTime: TDateTime read Get_StartTime write Set_StartTime;
2784
property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
2785
property Notify: WideString read Get_Notify write Set_Notify;
2786
property NotifyPath: WideString read Get_NotifyPath write Set_NotifyPath;
2789
// *********************************************************************//
2790
// DispIntf: IADsPrintJobDisp
2791
// Flags: (4416) Dual OleAutomation Dispatchable
2792
// GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
2793
// *********************************************************************//
2794
{$ifdef SUPPORTS_DISPINTERFACE}
2795
IADsPrintJobDisp = dispinterface
2796
['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
2797
property HostPrintQueue: WideString readonly dispid 15;
2798
property User: WideString readonly dispid 16;
2799
property UserPath: WideString readonly dispid 17;
2800
property TimeSubmitted: TDateTime readonly dispid 18;
2801
property TotalPages: Integer readonly dispid 19;
2802
property Size: Integer readonly dispid 234;
2803
property Description: WideString dispid 20;
2804
property Priority: Integer dispid 21;
2805
property StartTime: TDateTime dispid 22;
2806
property UntilTime: TDateTime dispid 23;
2807
property Notify: WideString dispid 24;
2808
property NotifyPath: WideString dispid 25;
2809
property Name: WideString readonly dispid 2;
2810
property Class_: WideString readonly dispid 3;
2811
property GUID: WideString readonly dispid 4;
2812
property ADsPath: WideString readonly dispid 5;
2813
property Parent: WideString readonly dispid 6;
2814
property Schema: WideString readonly dispid 7;
2815
procedure GetInfo; dispid 8;
2816
procedure SetInfo; dispid 9;
2817
function Get(const bstrName: WideString): OleVariant; dispid 10;
2818
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2819
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2820
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2821
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2824
// *********************************************************************//
2825
// Interface: IADsPrintJobOperations
2826
// Flags: (4416) Dual OleAutomation Dispatchable
2827
// GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
2828
// *********************************************************************//
2829
IADsPrintJobOperations = interface(IADs)
2830
['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
2831
function Get_Status: Integer; safecall;
2832
function Get_TimeElapsed: Integer; safecall;
2833
function Get_PagesPrinted: Integer; safecall;
2834
function Get_Position: Integer; safecall;
2835
procedure Set_Position(retval: Integer); safecall;
2836
procedure Pause; safecall;
2837
procedure Resume; safecall;
2838
property Status: Integer read Get_Status;
2839
property TimeElapsed: Integer read Get_TimeElapsed;
2840
property PagesPrinted: Integer read Get_PagesPrinted;
2841
property Position: Integer read Get_Position write Set_Position;
2844
// *********************************************************************//
2845
// DispIntf: IADsPrintJobOperationsDisp
2846
// Flags: (4416) Dual OleAutomation Dispatchable
2847
// GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
2848
// *********************************************************************//
2849
{$ifdef SUPPORTS_DISPINTERFACE}
2850
IADsPrintJobOperationsDisp = dispinterface
2851
['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
2852
property Status: Integer readonly dispid 26;
2853
property TimeElapsed: Integer readonly dispid 27;
2854
property PagesPrinted: Integer readonly dispid 28;
2855
property Position: Integer dispid 29;
2856
procedure Pause; dispid 30;
2857
procedure Resume; dispid 31;
2858
property Name: WideString readonly dispid 2;
2859
property Class_: WideString readonly dispid 3;
2860
property GUID: WideString readonly dispid 4;
2861
property ADsPath: WideString readonly dispid 5;
2862
property Parent: WideString readonly dispid 6;
2863
property Schema: WideString readonly dispid 7;
2864
procedure GetInfo; dispid 8;
2865
procedure SetInfo; dispid 9;
2866
function Get(const bstrName: WideString): OleVariant; dispid 10;
2867
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2868
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2869
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2870
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2873
// *********************************************************************//
2874
// Interface: IADsService
2875
// Flags: (4416) Dual OleAutomation Dispatchable
2876
// GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
2877
// *********************************************************************//
2878
IADsService = interface(IADs)
2879
['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
2880
function Get_HostComputer: WideString; safecall;
2881
procedure Set_HostComputer(const retval: WideString); safecall;
2882
function Get_DisplayName: WideString; safecall;
2883
procedure Set_DisplayName(const retval: WideString); safecall;
2884
function Get_Version: WideString; safecall;
2885
procedure Set_Version(const retval: WideString); safecall;
2886
function Get_ServiceType: Integer; safecall;
2887
procedure Set_ServiceType(retval: Integer); safecall;
2888
function Get_StartType: Integer; safecall;
2889
procedure Set_StartType(retval: Integer); safecall;
2890
function Get_Path: WideString; safecall;
2891
procedure Set_Path(const retval: WideString); safecall;
2892
function Get_StartupParameters: WideString; safecall;
2893
procedure Set_StartupParameters(const retval: WideString); safecall;
2894
function Get_ErrorControl: Integer; safecall;
2895
procedure Set_ErrorControl(retval: Integer); safecall;
2896
function Get_LoadOrderGroup: WideString; safecall;
2897
procedure Set_LoadOrderGroup(const retval: WideString); safecall;
2898
function Get_ServiceAccountName: WideString; safecall;
2899
procedure Set_ServiceAccountName(const retval: WideString); safecall;
2900
function Get_ServiceAccountPath: WideString; safecall;
2901
procedure Set_ServiceAccountPath(const retval: WideString); safecall;
2902
function Get_Dependencies: OleVariant; safecall;
2903
procedure Set_Dependencies(retval: OleVariant); safecall;
2904
property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
2905
property DisplayName: WideString read Get_DisplayName write Set_DisplayName;
2906
property Version: WideString read Get_Version write Set_Version;
2907
property ServiceType: Integer read Get_ServiceType write Set_ServiceType;
2908
property StartType: Integer read Get_StartType write Set_StartType;
2909
property Path: WideString read Get_Path write Set_Path;
2910
property StartupParameters: WideString read Get_StartupParameters write Set_StartupParameters;
2911
property ErrorControl: Integer read Get_ErrorControl write Set_ErrorControl;
2912
property LoadOrderGroup: WideString read Get_LoadOrderGroup write Set_LoadOrderGroup;
2913
property ServiceAccountName: WideString read Get_ServiceAccountName write Set_ServiceAccountName;
2914
property ServiceAccountPath: WideString read Get_ServiceAccountPath write Set_ServiceAccountPath;
2915
property Dependencies: OleVariant read Get_Dependencies write Set_Dependencies;
2918
// *********************************************************************//
2919
// DispIntf: IADsServiceDisp
2920
// Flags: (4416) Dual OleAutomation Dispatchable
2921
// GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
2922
// *********************************************************************//
2923
{$ifdef SUPPORTS_DISPINTERFACE}
2924
IADsServiceDisp = dispinterface
2925
['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
2926
property HostComputer: WideString dispid 15;
2927
property DisplayName: WideString dispid 16;
2928
property Version: WideString dispid 17;
2929
property ServiceType: Integer dispid 18;
2930
property StartType: Integer dispid 19;
2931
property Path: WideString dispid 20;
2932
property StartupParameters: WideString dispid 21;
2933
property ErrorControl: Integer dispid 22;
2934
property LoadOrderGroup: WideString dispid 23;
2935
property ServiceAccountName: WideString dispid 24;
2936
property ServiceAccountPath: WideString dispid 25;
2937
property Dependencies: OleVariant dispid 26;
2938
property Name: WideString readonly dispid 2;
2939
property Class_: WideString readonly dispid 3;
2940
property GUID: WideString readonly dispid 4;
2941
property ADsPath: WideString readonly dispid 5;
2942
property Parent: WideString readonly dispid 6;
2943
property Schema: WideString readonly dispid 7;
2944
procedure GetInfo; dispid 8;
2945
procedure SetInfo; dispid 9;
2946
function Get(const bstrName: WideString): OleVariant; dispid 10;
2947
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2948
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2949
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2950
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2953
// *********************************************************************//
2954
// Interface: IADsServiceOperations
2955
// Flags: (4416) Dual OleAutomation Dispatchable
2956
// GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
2957
// *********************************************************************//
2958
IADsServiceOperations = interface(IADs)
2959
['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
2960
function Get_Status: Integer; safecall;
2961
procedure Start; safecall;
2962
procedure Stop; safecall;
2963
procedure Pause; safecall;
2964
procedure Continue; safecall;
2965
procedure SetPassword(const bstrNewPassword: WideString); safecall;
2966
property Status: Integer read Get_Status;
2969
// *********************************************************************//
2970
// DispIntf: IADsServiceOperationsDisp
2971
// Flags: (4416) Dual OleAutomation Dispatchable
2972
// GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
2973
// *********************************************************************//
2974
{$ifdef SUPPORTS_DISPINTERFACE}
2975
IADsServiceOperationsDisp = dispinterface
2976
['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
2977
property Status: Integer readonly dispid 27;
2978
procedure Start; dispid 28;
2979
procedure Stop; dispid 29;
2980
procedure Pause; dispid 30;
2981
procedure Continue; dispid 31;
2982
procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
2983
property Name: WideString readonly dispid 2;
2984
property Class_: WideString readonly dispid 3;
2985
property GUID: WideString readonly dispid 4;
2986
property ADsPath: WideString readonly dispid 5;
2987
property Parent: WideString readonly dispid 6;
2988
property Schema: WideString readonly dispid 7;
2989
procedure GetInfo; dispid 8;
2990
procedure SetInfo; dispid 9;
2991
function Get(const bstrName: WideString): OleVariant; dispid 10;
2992
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
2993
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
2994
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
2995
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
2999
// *********************************************************************//
3000
// Interface: IADsFileService
3001
// Flags: (4416) Dual OleAutomation Dispatchable
3002
// GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
3003
// *********************************************************************//
3004
IADsFileService = interface(IADsService)
3005
['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
3006
function Get_Description: WideString; safecall;
3007
procedure Set_Description(const retval: WideString); safecall;
3008
function Get_MaxUserCount: Integer; safecall;
3009
procedure Set_MaxUserCount(retval: Integer); safecall;
3010
property Description: WideString read Get_Description write Set_Description;
3011
property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
3014
// *********************************************************************//
3015
// DispIntf: IADsFileServiceDisp
3016
// Flags: (4416) Dual OleAutomation Dispatchable
3017
// GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
3018
// *********************************************************************//
3019
{$ifdef SUPPORTS_DISPINTERFACE}
3020
IADsFileServiceDisp = dispinterface
3021
['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
3022
property Description: WideString dispid 33;
3023
property MaxUserCount: Integer dispid 34;
3024
property HostComputer: WideString dispid 15;
3025
property DisplayName: WideString dispid 16;
3026
property Version: WideString dispid 17;
3027
property ServiceType: Integer dispid 18;
3028
property StartType: Integer dispid 19;
3029
property Path: WideString dispid 20;
3030
property StartupParameters: WideString dispid 21;
3031
property ErrorControl: Integer dispid 22;
3032
property LoadOrderGroup: WideString dispid 23;
3033
property ServiceAccountName: WideString dispid 24;
3034
property ServiceAccountPath: WideString dispid 25;
3035
property Dependencies: OleVariant dispid 26;
3036
property Name: WideString readonly dispid 2;
3037
property Class_: WideString readonly dispid 3;
3038
property GUID: WideString readonly dispid 4;
3039
property ADsPath: WideString readonly dispid 5;
3040
property Parent: WideString readonly dispid 6;
3041
property Schema: WideString readonly dispid 7;
3042
procedure GetInfo; dispid 8;
3043
procedure SetInfo; dispid 9;
3044
function Get(const bstrName: WideString): OleVariant; dispid 10;
3045
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3046
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3047
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3048
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3051
// *********************************************************************//
3052
// Interface: IADsFileServiceOperations
3053
// Flags: (4416) Dual OleAutomation Dispatchable
3054
// GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
3055
// *********************************************************************//
3056
IADsFileServiceOperations = interface(IADsServiceOperations)
3057
['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
3058
function Sessions: IADsCollection; safecall;
3059
function Resources: IADsCollection; safecall;
3062
// *********************************************************************//
3063
// DispIntf: IADsFileServiceOperationsDisp
3064
// Flags: (4416) Dual OleAutomation Dispatchable
3065
// GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
3066
// *********************************************************************//
3067
{$ifdef SUPPORTS_DISPINTERFACE}
3068
IADsFileServiceOperationsDisp = dispinterface
3069
['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
3070
function Sessions: IADsCollection; dispid 35;
3071
function Resources: IADsCollection; dispid 36;
3072
property Status: Integer readonly dispid 27;
3073
procedure Start; dispid 28;
3074
procedure Stop; dispid 29;
3075
procedure Pause; dispid 30;
3076
procedure Continue; dispid 31;
3077
procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
3078
property Name: WideString readonly dispid 2;
3079
property Class_: WideString readonly dispid 3;
3080
property GUID: WideString readonly dispid 4;
3081
property ADsPath: WideString readonly dispid 5;
3082
property Parent: WideString readonly dispid 6;
3083
property Schema: WideString readonly dispid 7;
3084
procedure GetInfo; dispid 8;
3085
procedure SetInfo; dispid 9;
3086
function Get(const bstrName: WideString): OleVariant; dispid 10;
3087
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3088
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3089
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3090
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3093
// *********************************************************************//
3094
// Interface: IADsFileShare
3095
// Flags: (4416) Dual OleAutomation Dispatchable
3096
// GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
3097
// *********************************************************************//
3098
IADsFileShare = interface(IADs)
3099
['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
3100
function Get_CurrentUserCount: Integer; safecall;
3101
function Get_Description: WideString; safecall;
3102
procedure Set_Description(const retval: WideString); safecall;
3103
function Get_HostComputer: WideString; safecall;
3104
procedure Set_HostComputer(const retval: WideString); safecall;
3105
function Get_Path: WideString; safecall;
3106
procedure Set_Path(const retval: WideString); safecall;
3107
function Get_MaxUserCount: Integer; safecall;
3108
procedure Set_MaxUserCount(retval: Integer); safecall;
3109
property CurrentUserCount: Integer read Get_CurrentUserCount;
3110
property Description: WideString read Get_Description write Set_Description;
3111
property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
3112
property Path: WideString read Get_Path write Set_Path;
3113
property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
3116
// *********************************************************************//
3117
// DispIntf: IADsFileShareDisp
3118
// Flags: (4416) Dual OleAutomation Dispatchable
3119
// GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
3120
// *********************************************************************//
3121
{$ifdef SUPPORTS_DISPINTERFACE}
3122
IADsFileShareDisp = dispinterface
3123
['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
3124
property CurrentUserCount: Integer readonly dispid 15;
3125
property Description: WideString dispid 16;
3126
property HostComputer: WideString dispid 17;
3127
property Path: WideString dispid 18;
3128
property MaxUserCount: Integer dispid 19;
3129
property Name: WideString readonly dispid 2;
3130
property Class_: WideString readonly dispid 3;
3131
property GUID: WideString readonly dispid 4;
3132
property ADsPath: WideString readonly dispid 5;
3133
property Parent: WideString readonly dispid 6;
3134
property Schema: WideString readonly dispid 7;
3135
procedure GetInfo; dispid 8;
3136
procedure SetInfo; dispid 9;
3137
function Get(const bstrName: WideString): OleVariant; dispid 10;
3138
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3139
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3140
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3141
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3145
// *********************************************************************//
3146
// Interface: IADsSession
3147
// Flags: (4416) Dual OleAutomation Dispatchable
3148
// GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
3149
// *********************************************************************//
3150
IADsSession = interface(IADs)
3151
['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
3152
function Get_User: WideString; safecall;
3153
function Get_UserPath: WideString; safecall;
3154
function Get_Computer: WideString; safecall;
3155
function Get_ComputerPath: WideString; safecall;
3156
function Get_ConnectTime: Integer; safecall;
3157
function Get_IdleTime: Integer; safecall;
3158
property User: WideString read Get_User;
3159
property UserPath: WideString read Get_UserPath;
3160
property Computer: WideString read Get_Computer;
3161
property ComputerPath: WideString read Get_ComputerPath;
3162
property ConnectTime: Integer read Get_ConnectTime;
3163
property IdleTime: Integer read Get_IdleTime;
3166
// *********************************************************************//
3167
// DispIntf: IADsSessionDisp
3168
// Flags: (4416) Dual OleAutomation Dispatchable
3169
// GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
3170
// *********************************************************************//
3171
{$ifdef SUPPORTS_DISPINTERFACE}
3172
IADsSessionDisp = dispinterface
3173
['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
3174
property User: WideString readonly dispid 15;
3175
property UserPath: WideString readonly dispid 16;
3176
property Computer: WideString readonly dispid 17;
3177
property ComputerPath: WideString readonly dispid 18;
3178
property ConnectTime: Integer readonly dispid 19;
3179
property IdleTime: Integer readonly dispid 20;
3180
property Name: WideString readonly dispid 2;
3181
property Class_: WideString readonly dispid 3;
3182
property GUID: WideString readonly dispid 4;
3183
property ADsPath: WideString readonly dispid 5;
3184
property Parent: WideString readonly dispid 6;
3185
property Schema: WideString readonly dispid 7;
3186
procedure GetInfo; dispid 8;
3187
procedure SetInfo; dispid 9;
3188
function Get(const bstrName: WideString): OleVariant; dispid 10;
3189
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3190
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3191
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3192
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3195
// *********************************************************************//
3196
// Interface: IADsResource
3197
// Flags: (4416) Dual OleAutomation Dispatchable
3198
// GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
3199
// *********************************************************************//
3200
IADsResource = interface(IADs)
3201
['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
3202
function Get_User: WideString; safecall;
3203
function Get_UserPath: WideString; safecall;
3204
function Get_Path: WideString; safecall;
3205
function Get_LockCount: Integer; safecall;
3206
property User: WideString read Get_User;
3207
property UserPath: WideString read Get_UserPath;
3208
property Path: WideString read Get_Path;
3209
property LockCount: Integer read Get_LockCount;
3212
// *********************************************************************//
3213
// DispIntf: IADsResourceDisp
3214
// Flags: (4416) Dual OleAutomation Dispatchable
3215
// GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
3216
// *********************************************************************//
3217
{$ifdef SUPPORTS_DISPINTERFACE}
3218
IADsResourceDisp = dispinterface
3219
['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
3220
property User: WideString readonly dispid 15;
3221
property UserPath: WideString readonly dispid 16;
3222
property Path: WideString readonly dispid 17;
3223
property LockCount: Integer readonly dispid 18;
3224
property Name: WideString readonly dispid 2;
3225
property Class_: WideString readonly dispid 3;
3226
property GUID: WideString readonly dispid 4;
3227
property ADsPath: WideString readonly dispid 5;
3228
property Parent: WideString readonly dispid 6;
3229
property Schema: WideString readonly dispid 7;
3230
procedure GetInfo; dispid 8;
3231
procedure SetInfo; dispid 9;
3232
function Get(const bstrName: WideString): OleVariant; dispid 10;
3233
procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
3234
function GetEx(const bstrName: WideString): OleVariant; dispid 12;
3235
procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
3236
procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
3239
// *********************************************************************//
3240
// Interface: IADsOpenDSObject
3241
// Flags: (4416) Dual OleAutomation Dispatchable
3242
// GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
3243
// *********************************************************************//
3244
IADsOpenDSObject = interface(IDispatch)
3245
['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
3246
function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
3247
const lpszPassword: WideString; lnReserved: Integer): IDispatch; safecall;
3250
// *********************************************************************//
3251
// DispIntf: IADsOpenDSObjectDisp
3252
// Flags: (4416) Dual OleAutomation Dispatchable
3253
// GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
3254
// *********************************************************************//
3255
{$ifdef SUPPORTS_DISPINTERFACE}
3256
IADsOpenDSObjectDisp = dispinterface
3257
['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
3258
function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
3259
const lpszPassword: WideString; lnReserved: Integer): IDispatch; dispid 1;
3262
// *********************************************************************//
3263
// Interface: IDirectoryObject
3265
// GUID: {E798DE2C-22E4-11D0-84FE-00C04FD8D503}
3266
// *********************************************************************//
3267
IDirectoryObject = interface(IUnknown)
3268
['{E798DE2C-22E4-11D0-84FE-00C04FD8D503}']
3269
function GetObjectInformation(out ppObjInfo: PUserType11): HResult; stdcall;
3270
function GetObjectAttributes(var pAttributeNames: PWideChar; dwNumberAttributes: LongWord;
3271
out ppAttributeEntries: PUserType12;
3272
out pdwNumAttributesReturned: LongWord): HResult; stdcall;
3273
function SetObjectAttributes(var pAttributeEntries: _ads_attr_info; dwNumAttributes: LongWord;
3274
out pdwNumAttributesModified: LongWord): HResult; stdcall;
3275
function CreateDSObject(pszRDNName: PWideChar; var pAttributeEntries: _ads_attr_info;
3276
dwNumAttributes: LongWord; out ppObject: IDispatch): HResult; stdcall;
3277
function DeleteDSObject(pszRDNName: PWideChar): HResult; stdcall;
3280
// *********************************************************************//
3281
// Interface: IDirectorySearch
3283
// GUID: {109BA8EC-92F0-11D0-A790-00C04FD8D5A8}
3284
// *********************************************************************//
3285
IDirectorySearch = interface(IUnknown)
3286
['{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}']
3287
function SetSearchPreference(var pSearchPrefs: ads_searchpref_info; dwNumPrefs: LongWord): HResult; stdcall;
3288
function ExecuteSearch(pszSearchFilter: PWideChar; var pAttributeNames: PWideChar;
3289
dwNumberAttributes: LongWord; out phSearchResult: Pointer): HResult; stdcall;
3290
function AbandonSearch(var phSearchResult: Pointer): HResult; stdcall;
3291
function GetFirstRow(var hSearchResult: Pointer): HResult; stdcall;
3292
function GetNextRow(var hSearchResult: Pointer): HResult; stdcall;
3293
function GetPreviousRow(var hSearchResult: Pointer): HResult; stdcall;
3294
function GetNextColumnName(var hSearchHandle: Pointer; out ppszColumnName: PWideChar): HResult; stdcall;
3295
function GetColumn(var hSearchResult: Pointer; szColumnName: PWideChar;
3296
out pSearchColumn: ads_search_column): HResult; stdcall;
3297
function FreeColumn(var pSearchColumn: ads_search_column): HResult; stdcall;
3298
function CloseSearchHandle(var hSearchResult: Pointer): HResult; stdcall;
3301
// *********************************************************************//
3302
// Interface: IDirectorySchemaMgmt
3304
// GUID: {75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}
3305
// *********************************************************************//
3306
IDirectorySchemaMgmt = interface(IUnknown)
3307
['{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}']
3308
function EnumAttributes(var ppszAttrNames: PWideChar; dwNumAttributes: LongWord;
3309
ppAttrDefinition: PPUserType1; var pdwNumAttributes: LongWord): HResult; stdcall;
3310
function CreateAttributeDefinition(pszAttributeName: PWideChar;
3311
var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
3312
function WriteAttributeDefinition(pszAttributeName: PWideChar;
3313
var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
3314
function DeleteAttributeDefinition(pszAttributeName: PWideChar): HResult; stdcall;
3315
function EnumClasses(var ppszClassNames: PWideChar; dwNumClasses: LongWord;
3316
ppClassDefinition: PPUserType2; var pdwNumClasses: LongWord): HResult; stdcall;
3317
function WriteClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
3318
function CreateClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
3319
function DeleteClassDefinition(pszClassName: PWideChar): HResult; stdcall;
3322
// *********************************************************************//
3323
// Interface: IADsAggregatee
3325
// GUID: {1346CE8C-9039-11D0-8528-00C04FD8D503}
3326
// *********************************************************************//
3327
IADsAggregatee = interface(IUnknown)
3328
['{1346CE8C-9039-11D0-8528-00C04FD8D503}']
3329
function ConnectAsAggregatee(const pOuterUnknown: IUnknown): HResult; stdcall;
3330
function DisconnectAsAggregatee: HResult; stdcall;
3331
function RelinquishInterface(var riid: TGUID): HResult; stdcall;
3332
function RestoreInterface(var riid: TGUID): HResult; stdcall;
3335
// *********************************************************************//
3336
// Interface: IADsAggregator
3338
// GUID: {52DB5FB0-941F-11D0-8529-00C04FD8D503}
3339
// *********************************************************************//
3340
IADsAggregator = interface(IUnknown)
3341
['{52DB5FB0-941F-11D0-8529-00C04FD8D503}']
3342
function ConnectAsAggregator(const pAggregatee: IUnknown): HResult; stdcall;
3343
function DisconnectAsAggregator: HResult; stdcall;
3346
// *********************************************************************//
3347
// Interface: IADsAccessControlEntry
3348
// Flags: (4416) Dual OleAutomation Dispatchable
3349
// GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
3350
// *********************************************************************//
3351
IADsAccessControlEntry = interface(IDispatch)
3352
['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
3353
function Get_AccessMask: Integer; safecall;
3354
procedure Set_AccessMask(retval: Integer); safecall;
3355
function Get_AceType: Integer; safecall;
3356
procedure Set_AceType(retval: Integer); safecall;
3357
function Get_AceFlags: Integer; safecall;
3358
procedure Set_AceFlags(retval: Integer); safecall;
3359
function Get_Flags: Integer; safecall;
3360
procedure Set_Flags(retval: Integer); safecall;
3361
function Get_ObjectType: WideString; safecall;
3362
procedure Set_ObjectType(const retval: WideString); safecall;
3363
function Get_InheritedObjectType: WideString; safecall;
3364
procedure Set_InheritedObjectType(const retval: WideString); safecall;
3365
function Get_Trustee: WideString; safecall;
3366
procedure Set_Trustee(const retval: WideString); safecall;
3367
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
3368
property AceType: Integer read Get_AceType write Set_AceType;
3369
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
3370
property Flags: Integer read Get_Flags write Set_Flags;
3371
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
3372
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
3373
property Trustee: WideString read Get_Trustee write Set_Trustee;
3376
// *********************************************************************//
3377
// DispIntf: IADsAccessControlEntryDisp
3378
// Flags: (4416) Dual OleAutomation Dispatchable
3379
// GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
3380
// *********************************************************************//
3381
{$ifdef SUPPORTS_DISPINTERFACE}
3382
IADsAccessControlEntryDisp = dispinterface
3383
['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
3384
property AccessMask: Integer dispid 2;
3385
property AceType: Integer dispid 3;
3386
property AceFlags: Integer dispid 4;
3387
property Flags: Integer dispid 5;
3388
property ObjectType: WideString dispid 6;
3389
property InheritedObjectType: WideString dispid 7;
3390
property Trustee: WideString dispid 8;
3393
// *********************************************************************//
3394
// Interface: IADsAccessControlList
3395
// Flags: (4416) Dual OleAutomation Dispatchable
3396
// GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
3397
// *********************************************************************//
3398
IADsAccessControlList = interface(IDispatch)
3399
['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
3400
function Get_AclRevision: Integer; safecall;
3401
procedure Set_AclRevision(retval: Integer); safecall;
3402
function Get_AceCount: Integer; safecall;
3403
procedure Set_AceCount(retval: Integer); safecall;
3404
procedure AddAce(const pAccessControlEntry: IDispatch); safecall;
3405
procedure RemoveAce(const pAccessControlEntry: IDispatch); safecall;
3406
function CopyAccessList: IDispatch; safecall;
3407
function Get__NewEnum: IUnknown; safecall;
3408
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
3409
property AceCount: Integer read Get_AceCount write Set_AceCount;
3410
property _NewEnum: IUnknown read Get__NewEnum;
3413
// *********************************************************************//
3414
// DispIntf: IADsAccessControlListDisp
3415
// Flags: (4416) Dual OleAutomation Dispatchable
3416
// GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
3417
// *********************************************************************//
3418
{$ifdef SUPPORTS_DISPINTERFACE}
3419
IADsAccessControlListDisp = dispinterface
3420
['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
3421
property AclRevision: Integer dispid 3;
3422
property AceCount: Integer dispid 4;
3423
procedure AddAce(const pAccessControlEntry: IDispatch); dispid 5;
3424
procedure RemoveAce(const pAccessControlEntry: IDispatch); dispid 6;
3425
function CopyAccessList: IDispatch; dispid 7;
3426
property _NewEnum: IUnknown readonly dispid -4;
3429
// *********************************************************************//
3430
// Interface: IADsSecurityDescriptor
3431
// Flags: (4416) Dual OleAutomation Dispatchable
3432
// GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
3433
// *********************************************************************//
3434
IADsSecurityDescriptor = interface(IDispatch)
3435
['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
3436
function Get_Revision: Integer; safecall;
3437
procedure Set_Revision(retval: Integer); safecall;
3438
function Get_Control: Integer; safecall;
3439
procedure Set_Control(retval: Integer); safecall;
3440
function Get_Owner: WideString; safecall;
3441
procedure Set_Owner(const retval: WideString); safecall;
3442
function Get_OwnerDefaulted: WordBool; safecall;
3443
procedure Set_OwnerDefaulted(retval: WordBool); safecall;
3444
function Get_Group: WideString; safecall;
3445
procedure Set_Group(const retval: WideString); safecall;
3446
function Get_GroupDefaulted: WordBool; safecall;
3447
procedure Set_GroupDefaulted(retval: WordBool); safecall;
3448
function Get_DiscretionaryAcl: IDispatch; safecall;
3449
procedure Set_DiscretionaryAcl(const retval: IDispatch); safecall;
3450
function Get_DaclDefaulted: WordBool; safecall;
3451
procedure Set_DaclDefaulted(retval: WordBool); safecall;
3452
function Get_SystemAcl: IDispatch; safecall;
3453
procedure Set_SystemAcl(const retval: IDispatch); safecall;
3454
function Get_SaclDefaulted: WordBool; safecall;
3455
procedure Set_SaclDefaulted(retval: WordBool); safecall;
3456
function CopySecurityDescriptor: IDispatch; safecall;
3457
property Revision: Integer read Get_Revision write Set_Revision;
3458
property Control: Integer read Get_Control write Set_Control;
3459
property Owner: WideString read Get_Owner write Set_Owner;
3460
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
3461
property Group: WideString read Get_Group write Set_Group;
3462
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
3463
property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
3464
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
3465
property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
3466
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
3469
// *********************************************************************//
3470
// DispIntf: IADsSecurityDescriptorDisp
3471
// Flags: (4416) Dual OleAutomation Dispatchable
3472
// GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
3473
// *********************************************************************//
3474
{$ifdef SUPPORTS_DISPINTERFACE}
3475
IADsSecurityDescriptorDisp = dispinterface
3476
['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
3477
property Revision: Integer dispid 2;
3478
property Control: Integer dispid 3;
3479
property Owner: WideString dispid 4;
3480
property OwnerDefaulted: WordBool dispid 5;
3481
property Group: WideString dispid 6;
3482
property GroupDefaulted: WordBool dispid 7;
3483
property DiscretionaryAcl: IDispatch dispid 8;
3484
property DaclDefaulted: WordBool dispid 9;
3485
property SystemAcl: IDispatch dispid 10;
3486
property SaclDefaulted: WordBool dispid 11;
3487
function CopySecurityDescriptor: IDispatch; dispid 12;
3490
// *********************************************************************//
3491
// Interface: IADsLargeInteger
3492
// Flags: (4416) Dual OleAutomation Dispatchable
3493
// GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
3494
// *********************************************************************//
3495
IADsLargeInteger = interface(IDispatch)
3496
['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
3497
function Get_HighPart: Integer; safecall;
3498
procedure Set_HighPart(retval: Integer); safecall;
3499
function Get_LowPart: Integer; safecall;
3500
procedure Set_LowPart(retval: Integer); safecall;
3501
property HighPart: Integer read Get_HighPart write Set_HighPart;
3502
property LowPart: Integer read Get_LowPart write Set_LowPart;
3505
// *********************************************************************//
3506
// DispIntf: IADsLargeIntegerDisp
3507
// Flags: (4416) Dual OleAutomation Dispatchable
3508
// GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
3509
// *********************************************************************//
3510
{$ifdef SUPPORTS_DISPINTERFACE}
3511
IADsLargeIntegerDisp = dispinterface
3512
['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
3513
property HighPart: Integer dispid 2;
3514
property LowPart: Integer dispid 3;
3517
// *********************************************************************//
3518
// Interface: IADsNameTranslate
3519
// Flags: (4416) Dual OleAutomation Dispatchable
3520
// GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
3521
// *********************************************************************//
3522
IADsNameTranslate = interface(IDispatch)
3523
['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
3524
procedure Set_ChaseReferral(Param1: Integer); safecall;
3525
procedure Init(lnSetType: Integer; const bstrADsPath: WideString); safecall;
3526
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
3527
const bstrUserID: WideString; const bstrDomain: WideString;
3528
const bstrPassword: WideString); safecall;
3529
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); safecall;
3530
function Get(lnFormatType: Integer): WideString; safecall;
3531
procedure SetEx(lnFormatType: Integer; pVar: OleVariant); safecall;
3532
function GetEx(lnFormatType: Integer): OleVariant; safecall;
3533
property ChaseReferral: Integer write Set_ChaseReferral;
3536
// *********************************************************************//
3537
// DispIntf: IADsNameTranslateDisp
3538
// Flags: (4416) Dual OleAutomation Dispatchable
3539
// GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
3540
// *********************************************************************//
3541
{$ifdef SUPPORTS_DISPINTERFACE}
3542
IADsNameTranslateDisp = dispinterface
3543
['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
3544
property ChaseReferral: Integer writeonly dispid 1;
3545
procedure Init(lnSetType: Integer; const bstrADsPath: WideString); dispid 2;
3546
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
3547
const bstrUserID: WideString; const bstrDomain: WideString;
3548
const bstrPassword: WideString); dispid 3;
3549
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); dispid 4;
3550
function Get(lnFormatType: Integer): WideString; dispid 5;
3551
procedure SetEx(lnFormatType: Integer; pVar: OleVariant); dispid 6;
3552
function GetEx(lnFormatType: Integer): OleVariant; dispid 7;
3555
// *********************************************************************//
3556
// Interface: IADsCaseIgnoreList
3557
// Flags: (4416) Dual OleAutomation Dispatchable
3558
// GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
3559
// *********************************************************************//
3560
IADsCaseIgnoreList = interface(IDispatch)
3561
['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
3562
function Get_CaseIgnoreList: OleVariant; safecall;
3563
procedure Set_CaseIgnoreList(retval: OleVariant); safecall;
3564
property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
3567
// *********************************************************************//
3568
// DispIntf: IADsCaseIgnoreListDisp
3569
// Flags: (4416) Dual OleAutomation Dispatchable
3570
// GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
3571
// *********************************************************************//
3572
{$ifdef SUPPORTS_DISPINTERFACE}
3573
IADsCaseIgnoreListDisp = dispinterface
3574
['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
3575
property CaseIgnoreList: OleVariant dispid 2;
3578
// *********************************************************************//
3579
// Interface: IADsFaxNumber
3580
// Flags: (4416) Dual OleAutomation Dispatchable
3581
// GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
3582
// *********************************************************************//
3583
IADsFaxNumber = interface(IDispatch)
3584
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
3585
function Get_TelephoneNumber: WideString; safecall;
3586
procedure Set_TelephoneNumber(const retval: WideString); safecall;
3587
function Get_Parameters: OleVariant; safecall;
3588
procedure Set_Parameters(retval: OleVariant); safecall;
3589
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
3590
property Parameters: OleVariant read Get_Parameters write Set_Parameters;
3593
// *********************************************************************//
3594
// DispIntf: IADsFaxNumberDisp
3595
// Flags: (4416) Dual OleAutomation Dispatchable
3596
// GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
3597
// *********************************************************************//
3598
{$ifdef SUPPORTS_DISPINTERFACE}
3599
IADsFaxNumberDisp = dispinterface
3600
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
3601
property TelephoneNumber: WideString dispid 2;
3602
property Parameters: OleVariant dispid 3;
3605
// *********************************************************************//
3606
// Interface: IADsNetAddress
3607
// Flags: (4416) Dual OleAutomation Dispatchable
3608
// GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
3609
// *********************************************************************//
3610
IADsNetAddress = interface(IDispatch)
3611
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
3612
function Get_AddressType: Integer; safecall;
3613
procedure Set_AddressType(retval: Integer); safecall;
3614
function Get_Address: OleVariant; safecall;
3615
procedure Set_Address(retval: OleVariant); safecall;
3616
property AddressType: Integer read Get_AddressType write Set_AddressType;
3617
property Address: OleVariant read Get_Address write Set_Address;
3620
// *********************************************************************//
3621
// DispIntf: IADsNetAddressDisp
3622
// Flags: (4416) Dual OleAutomation Dispatchable
3623
// GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
3624
// *********************************************************************//
3625
{$ifdef SUPPORTS_DISPINTERFACE}
3626
IADsNetAddressDisp = dispinterface
3627
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
3628
property AddressType: Integer dispid 2;
3629
property Address: OleVariant dispid 3;
3632
// *********************************************************************//
3633
// Interface: IADsOctetList
3634
// Flags: (4416) Dual OleAutomation Dispatchable
3635
// GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
3636
// *********************************************************************//
3637
IADsOctetList = interface(IDispatch)
3638
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
3639
function Get_OctetList: OleVariant; safecall;
3640
procedure Set_OctetList(retval: OleVariant); safecall;
3641
property OctetList: OleVariant read Get_OctetList write Set_OctetList;
3644
// *********************************************************************//
3645
// DispIntf: IADsOctetListDisp
3646
// Flags: (4416) Dual OleAutomation Dispatchable
3647
// GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
3648
// *********************************************************************//
3649
{$ifdef SUPPORTS_DISPINTERFACE}
3650
IADsOctetListDisp = dispinterface
3651
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
3652
property OctetList: OleVariant dispid 2;
3655
// *********************************************************************//
3656
// Interface: IADsEmail
3657
// Flags: (4416) Dual OleAutomation Dispatchable
3658
// GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
3659
// *********************************************************************//
3660
IADsEmail = interface(IDispatch)
3661
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
3662
function Get_Type_: Integer; safecall;
3663
procedure Set_Type_(retval: Integer); safecall;
3664
function Get_Address: WideString; safecall;
3665
procedure Set_Address(const retval: WideString); safecall;
3666
property Type_: Integer read Get_Type_ write Set_Type_;
3667
property Address: WideString read Get_Address write Set_Address;
3670
// *********************************************************************//
3671
// DispIntf: IADsEmailDisp
3672
// Flags: (4416) Dual OleAutomation Dispatchable
3673
// GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
3674
// *********************************************************************//
3675
{$ifdef SUPPORTS_DISPINTERFACE}
3676
IADsEmailDisp = dispinterface
3677
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
3678
property Type_: Integer dispid 2;
3679
property Address: WideString dispid 3;
3682
// *********************************************************************//
3683
// Interface: IADsPath
3684
// Flags: (4416) Dual OleAutomation Dispatchable
3685
// GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
3686
// *********************************************************************//
3687
IADsPath = interface(IDispatch)
3688
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
3689
function Get_Type_: Integer; safecall;
3690
procedure Set_Type_(retval: Integer); safecall;
3691
function Get_VolumeName: WideString; safecall;
3692
procedure Set_VolumeName(const retval: WideString); safecall;
3693
function Get_Path: WideString; safecall;
3694
procedure Set_Path(const retval: WideString); safecall;
3695
property Type_: Integer read Get_Type_ write Set_Type_;
3696
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
3697
property Path: WideString read Get_Path write Set_Path;
3700
// *********************************************************************//
3701
// DispIntf: IADsPathDisp
3702
// Flags: (4416) Dual OleAutomation Dispatchable
3703
// GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
3704
// *********************************************************************//
3705
{$ifdef SUPPORTS_DISPINTERFACE}
3706
IADsPathDisp = dispinterface
3707
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
3708
property Type_: Integer dispid 2;
3709
property VolumeName: WideString dispid 3;
3710
property Path: WideString dispid 4;
3713
// *********************************************************************//
3714
// Interface: IADsReplicaPointer
3715
// Flags: (4416) Dual OleAutomation Dispatchable
3716
// GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
3717
// *********************************************************************//
3718
IADsReplicaPointer = interface(IDispatch)
3719
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
3720
function Get_ServerName: WideString; safecall;
3721
procedure Set_ServerName(const retval: WideString); safecall;
3722
function Get_ReplicaType: Integer; safecall;
3723
procedure Set_ReplicaType(retval: Integer); safecall;
3724
function Get_ReplicaNumber: Integer; safecall;
3725
procedure Set_ReplicaNumber(retval: Integer); safecall;
3726
function Get_Count: Integer; safecall;
3727
procedure Set_Count(retval: Integer); safecall;
3728
function Get_ReplicaAddressHints: OleVariant; safecall;
3729
procedure Set_ReplicaAddressHints(retval: OleVariant); safecall;
3730
property ServerName: WideString read Get_ServerName write Set_ServerName;
3731
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
3732
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
3733
property Count: Integer read Get_Count write Set_Count;
3734
property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
3737
// *********************************************************************//
3738
// DispIntf: IADsReplicaPointerDisp
3739
// Flags: (4416) Dual OleAutomation Dispatchable
3740
// GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
3741
// *********************************************************************//
3742
{$ifdef SUPPORTS_DISPINTERFACE}
3743
IADsReplicaPointerDisp = dispinterface
3744
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
3745
property ServerName: WideString dispid 2;
3746
property ReplicaType: Integer dispid 3;
3747
property ReplicaNumber: Integer dispid 4;
3748
property Count: Integer dispid 5;
3749
property ReplicaAddressHints: OleVariant dispid 6;
3752
// *********************************************************************//
3753
// Interface: IADsAcl
3754
// Flags: (4416) Dual OleAutomation Dispatchable
3755
// GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
3756
// *********************************************************************//
3757
IADsAcl = interface(IDispatch)
3758
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
3759
function Get_ProtectedAttrName: WideString; safecall;
3760
procedure Set_ProtectedAttrName(const retval: WideString); safecall;
3761
function Get_SubjectName: WideString; safecall;
3762
procedure Set_SubjectName(const retval: WideString); safecall;
3763
function Get_Privileges: Integer; safecall;
3764
procedure Set_Privileges(retval: Integer); safecall;
3765
function CopyAcl: IDispatch; safecall;
3766
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
3767
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
3768
property Privileges: Integer read Get_Privileges write Set_Privileges;
3771
// *********************************************************************//
3772
// DispIntf: IADsAclDisp
3773
// Flags: (4416) Dual OleAutomation Dispatchable
3774
// GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
3775
// *********************************************************************//
3776
{$ifdef SUPPORTS_DISPINTERFACE}
3777
IADsAclDisp = dispinterface
3778
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
3779
property ProtectedAttrName: WideString dispid 2;
3780
property SubjectName: WideString dispid 3;
3781
property Privileges: Integer dispid 4;
3782
function CopyAcl: IDispatch; dispid 5;
3785
// *********************************************************************//
3786
// Interface: IADsTimestamp
3787
// Flags: (4416) Dual OleAutomation Dispatchable
3788
// GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
3789
// *********************************************************************//
3790
IADsTimestamp = interface(IDispatch)
3791
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
3792
function Get_WholeSeconds: Integer; safecall;
3793
procedure Set_WholeSeconds(retval: Integer); safecall;
3794
function Get_EventID: Integer; safecall;
3795
procedure Set_EventID(retval: Integer); safecall;
3796
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
3797
property EventID: Integer read Get_EventID write Set_EventID;
3800
// *********************************************************************//
3801
// DispIntf: IADsTimestampDisp
3802
// Flags: (4416) Dual OleAutomation Dispatchable
3803
// GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
3804
// *********************************************************************//
3805
{$ifdef SUPPORTS_DISPINTERFACE}
3806
IADsTimestampDisp = dispinterface
3807
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
3808
property WholeSeconds: Integer dispid 2;
3809
property EventID: Integer dispid 3;
3812
// *********************************************************************//
3813
// Interface: IADsPostalAddress
3814
// Flags: (4416) Dual OleAutomation Dispatchable
3815
// GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
3816
// *********************************************************************//
3817
IADsPostalAddress = interface(IDispatch)
3818
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
3819
function Get_PostalAddress: OleVariant; safecall;
3820
procedure Set_PostalAddress(retval: OleVariant); safecall;
3821
property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
3824
// *********************************************************************//
3825
// DispIntf: IADsPostalAddressDisp
3826
// Flags: (4416) Dual OleAutomation Dispatchable
3827
// GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
3828
// *********************************************************************//
3829
{$ifdef SUPPORTS_DISPINTERFACE}
3830
IADsPostalAddressDisp = dispinterface
3831
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
3832
property PostalAddress: OleVariant dispid 2;
3835
// *********************************************************************//
3836
// Interface: IADsBackLink
3837
// Flags: (4416) Dual OleAutomation Dispatchable
3838
// GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
3839
// *********************************************************************//
3840
IADsBackLink = interface(IDispatch)
3841
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
3842
function Get_RemoteID: Integer; safecall;
3843
procedure Set_RemoteID(retval: Integer); safecall;
3844
function Get_ObjectName: WideString; safecall;
3845
procedure Set_ObjectName(const retval: WideString); safecall;
3846
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
3847
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
3850
// *********************************************************************//
3851
// DispIntf: IADsBackLinkDisp
3852
// Flags: (4416) Dual OleAutomation Dispatchable
3853
// GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
3854
// *********************************************************************//
3855
{$ifdef SUPPORTS_DISPINTERFACE}
3856
IADsBackLinkDisp = dispinterface
3857
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
3858
property RemoteID: Integer dispid 2;
3859
property ObjectName: WideString dispid 3;
3862
// *********************************************************************//
3863
// Interface: IADsTypedName
3864
// Flags: (4416) Dual OleAutomation Dispatchable
3865
// GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
3866
// *********************************************************************//
3867
IADsTypedName = interface(IDispatch)
3868
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
3869
function Get_ObjectName: WideString; safecall;
3870
procedure Set_ObjectName(const retval: WideString); safecall;
3871
function Get_Level: Integer; safecall;
3872
procedure Set_Level(retval: Integer); safecall;
3873
function Get_Interval: Integer; safecall;
3874
procedure Set_Interval(retval: Integer); safecall;
3875
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
3876
property Level: Integer read Get_Level write Set_Level;
3877
property Interval: Integer read Get_Interval write Set_Interval;
3880
// *********************************************************************//
3881
// DispIntf: IADsTypedNameDisp
3882
// Flags: (4416) Dual OleAutomation Dispatchable
3883
// GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
3884
// *********************************************************************//
3885
{$ifdef SUPPORTS_DISPINTERFACE}
3886
IADsTypedNameDisp = dispinterface
3887
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
3888
property ObjectName: WideString dispid 2;
3889
property Level: Integer dispid 3;
3890
property Interval: Integer dispid 4;
3893
// *********************************************************************//
3894
// Interface: IADsHold
3895
// Flags: (4416) Dual OleAutomation Dispatchable
3896
// GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
3897
// *********************************************************************//
3898
IADsHold = interface(IDispatch)
3899
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
3900
function Get_ObjectName: WideString; safecall;
3901
procedure Set_ObjectName(const retval: WideString); safecall;
3902
function Get_Amount: Integer; safecall;
3903
procedure Set_Amount(retval: Integer); safecall;
3904
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
3905
property Amount: Integer read Get_Amount write Set_Amount;
3908
// *********************************************************************//
3909
// DispIntf: IADsHoldDisp
3910
// Flags: (4416) Dual OleAutomation Dispatchable
3911
// GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
3912
// *********************************************************************//
3913
{$ifdef SUPPORTS_DISPINTERFACE}
3914
IADsHoldDisp = dispinterface
3915
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
3916
property ObjectName: WideString dispid 2;
3917
property Amount: Integer dispid 3;
3920
// *********************************************************************//
3921
// Interface: IADsObjectOptions
3922
// Flags: (4416) Dual OleAutomation Dispatchable
3923
// GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
3924
// *********************************************************************//
3925
IADsObjectOptions = interface(IDispatch)
3926
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
3927
function GetOption(lnOption: Integer): OleVariant; safecall;
3928
procedure SetOption(lnOption: Integer; vValue: OleVariant); safecall;
3931
// *********************************************************************//
3932
// DispIntf: IADsObjectOptionsDisp
3933
// Flags: (4416) Dual OleAutomation Dispatchable
3934
// GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
3935
// *********************************************************************//
3936
{$ifdef SUPPORTS_DISPINTERFACE}
3937
IADsObjectOptionsDisp = dispinterface
3938
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
3939
function GetOption(lnOption: Integer): OleVariant; dispid 2;
3940
procedure SetOption(lnOption: Integer; vValue: OleVariant); dispid 3;
3943
// *********************************************************************//
3944
// Interface: IADsPathname
3945
// Flags: (4416) Dual OleAutomation Dispatchable
3946
// GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
3947
// *********************************************************************//
3948
IADsPathname = interface(IDispatch)
3949
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
3950
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); safecall;
3951
procedure SetDisplayType(lnDisplayType: Integer); safecall;
3952
function Retrieve(lnFormatType: Integer): WideString; safecall;
3953
function GetNumElements: Integer; safecall;
3954
function GetElement(lnElementIndex: Integer): WideString; safecall;
3955
procedure AddLeafElement(const bstrLeafElement: WideString); safecall;
3956
procedure RemoveLeafElement; safecall;
3957
function CopyPath: IDispatch; safecall;
3958
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; safecall;
3959
function Get_EscapedMode: Integer; safecall;
3960
procedure Set_EscapedMode(retval: Integer); safecall;
3961
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
3964
// *********************************************************************//
3965
// DispIntf: IADsPathnameDisp
3966
// Flags: (4416) Dual OleAutomation Dispatchable
3967
// GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
3968
// *********************************************************************//
3969
{$ifdef SUPPORTS_DISPINTERFACE}
3970
IADsPathnameDisp = dispinterface
3971
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
3972
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); dispid 2;
3973
procedure SetDisplayType(lnDisplayType: Integer); dispid 3;
3974
function Retrieve(lnFormatType: Integer): WideString; dispid 4;
3975
function GetNumElements: Integer; dispid 5;
3976
function GetElement(lnElementIndex: Integer): WideString; dispid 6;
3977
procedure AddLeafElement(const bstrLeafElement: WideString); dispid 7;
3978
procedure RemoveLeafElement; dispid 8;
3979
function CopyPath: IDispatch; dispid 9;
3980
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; dispid 10;
3981
property EscapedMode: Integer dispid 11;
3984
// *********************************************************************//
3985
// Interface: IADsADSystemInfo
3986
// Flags: (4416) Dual OleAutomation Dispatchable
3987
// GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
3988
// *********************************************************************//
3989
IADsADSystemInfo = interface(IDispatch)
3990
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
3991
function Get_UserName: WideString; safecall;
3992
function Get_ComputerName: WideString; safecall;
3993
function Get_SiteName: WideString; safecall;
3994
function Get_DomainShortName: WideString; safecall;
3995
function Get_DomainDNSName: WideString; safecall;
3996
function Get_ForestDNSName: WideString; safecall;
3997
function Get_PDCRoleOwner: WideString; safecall;
3998
function Get_SchemaRoleOwner: WideString; safecall;
3999
function Get_IsNativeMode: WordBool; safecall;
4000
function GetAnyDCName: WideString; safecall;
4001
function GetDCSiteName(const szServer: WideString): WideString; safecall;
4002
procedure RefreshSchemaCache; safecall;
4003
function GetTrees: OleVariant; safecall;
4004
property UserName: WideString read Get_UserName;
4005
property ComputerName: WideString read Get_ComputerName;
4006
property SiteName: WideString read Get_SiteName;
4007
property DomainShortName: WideString read Get_DomainShortName;
4008
property DomainDNSName: WideString read Get_DomainDNSName;
4009
property ForestDNSName: WideString read Get_ForestDNSName;
4010
property PDCRoleOwner: WideString read Get_PDCRoleOwner;
4011
property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
4012
property IsNativeMode: WordBool read Get_IsNativeMode;
4015
// *********************************************************************//
4016
// DispIntf: IADsADSystemInfoDisp
4017
// Flags: (4416) Dual OleAutomation Dispatchable
4018
// GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
4019
// *********************************************************************//
4020
{$ifdef SUPPORTS_DISPINTERFACE}
4021
IADsADSystemInfoDisp = dispinterface
4022
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
4023
property UserName: WideString readonly dispid 2;
4024
property ComputerName: WideString readonly dispid 3;
4025
property SiteName: WideString readonly dispid 4;
4026
property DomainShortName: WideString readonly dispid 5;
4027
property DomainDNSName: WideString readonly dispid 6;
4028
property ForestDNSName: WideString readonly dispid 7;
4029
property PDCRoleOwner: WideString readonly dispid 8;
4030
property SchemaRoleOwner: WideString readonly dispid 9;
4031
property IsNativeMode: WordBool readonly dispid 10;
4032
function GetAnyDCName: WideString; dispid 11;
4033
function GetDCSiteName(const szServer: WideString): WideString; dispid 12;
4034
procedure RefreshSchemaCache; dispid 13;
4035
function GetTrees: OleVariant; dispid 14;
4038
// *********************************************************************//
4039
// Interface: IADsWinNTSystemInfo
4040
// Flags: (4416) Dual OleAutomation Dispatchable
4041
// GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
4042
// *********************************************************************//
4043
IADsWinNTSystemInfo = interface(IDispatch)
4044
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
4045
function Get_UserName: WideString; safecall;
4046
function Get_ComputerName: WideString; safecall;
4047
function Get_DomainName: WideString; safecall;
4048
function Get_PDC: WideString; safecall;
4049
property UserName: WideString read Get_UserName;
4050
property ComputerName: WideString read Get_ComputerName;
4051
property DomainName: WideString read Get_DomainName;
4052
property PDC: WideString read Get_PDC;
4055
// *********************************************************************//
4056
// DispIntf: IADsWinNTSystemInfoDisp
4057
// Flags: (4416) Dual OleAutomation Dispatchable
4058
// GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
4059
// *********************************************************************//
4060
{$ifdef SUPPORTS_DISPINTERFACE}
4061
IADsWinNTSystemInfoDisp = dispinterface
4062
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
4063
property UserName: WideString readonly dispid 2;
4064
property ComputerName: WideString readonly dispid 3;
4065
property DomainName: WideString readonly dispid 4;
4066
property PDC: WideString readonly dispid 5;
4069
// *********************************************************************//
4070
// Interface: IADsDNWithBinary
4071
// Flags: (4416) Dual OleAutomation Dispatchable
4072
// GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
4073
// *********************************************************************//
4074
IADsDNWithBinary = interface(IDispatch)
4075
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
4076
function Get_BinaryValue: OleVariant; safecall;
4077
procedure Set_BinaryValue(retval: OleVariant); safecall;
4078
function Get_DNString: WideString; safecall;
4079
procedure Set_DNString(const retval: WideString); safecall;
4080
property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
4081
property DNString: WideString read Get_DNString write Set_DNString;
4084
// *********************************************************************//
4085
// DispIntf: IADsDNWithBinaryDisp
4086
// Flags: (4416) Dual OleAutomation Dispatchable
4087
// GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
4088
// *********************************************************************//
4089
{$ifdef SUPPORTS_DISPINTERFACE}
4090
IADsDNWithBinaryDisp = dispinterface
4091
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
4092
property BinaryValue: OleVariant dispid 2;
4093
property DNString: WideString dispid 3;
4097
// *********************************************************************//
4098
// Interface: IADsDNWithString
4099
// Flags: (4416) Dual OleAutomation Dispatchable
4100
// GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
4101
// *********************************************************************//
4102
IADsDNWithString = interface(IDispatch)
4103
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
4104
function Get_StringValue: WideString; safecall;
4105
procedure Set_StringValue(const retval: WideString); safecall;
4106
function Get_DNString: WideString; safecall;
4107
procedure Set_DNString(const retval: WideString); safecall;
4108
property StringValue: WideString read Get_StringValue write Set_StringValue;
4109
property DNString: WideString read Get_DNString write Set_DNString;
4112
// *********************************************************************//
4113
// DispIntf: IADsDNWithStringDisp
4114
// Flags: (4416) Dual OleAutomation Dispatchable
4115
// GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
4116
// *********************************************************************//
4117
{$ifdef SUPPORTS_DISPINTERFACE}
4118
IADsDNWithStringDisp = dispinterface
4119
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
4120
property StringValue: WideString dispid 2;
4121
property DNString: WideString dispid 3;
4124
// *********************************************************************//
4125
// The Class CoPropertyEntry provides a Create and CreateRemote method to
4126
// create instances of the default interface IADsPropertyEntry exposed by
4127
// the CoClass PropertyEntry. The functions are intended to be used by
4128
// clients wishing to automate the CoClass objects exposed by the
4129
// server of this typelibrary.
4130
// *********************************************************************//
4131
CoPropertyEntry = class
4132
class function Create: IADsPropertyEntry;
4133
class function CreateRemote(const MachineName: string): IADsPropertyEntry;
4136
// *********************************************************************//
4137
// OLE Server Proxy class declaration
4138
// Server Object : TPropertyEntry
4140
// Default Interface: IADsPropertyEntry
4141
// Def. Intf. DISP? : No
4143
// TypeFlags : (2) CanCreate
4144
// *********************************************************************//
4145
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4146
TPropertyEntryProperties= class;
4148
TPropertyEntry = class(TOleServer)
4150
FIntf: IADsPropertyEntry;
4151
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4152
FProps: TPropertyEntryProperties;
4153
function GetServerProperties: TPropertyEntryProperties;
4155
function GetDefaultInterface: IADsPropertyEntry;
4157
procedure InitServerData; override;
4158
function Get_Name: WideString;
4159
procedure Set_Name(const retval: WideString);
4160
function Get_ADsType: Integer;
4161
procedure Set_ADsType(retval: Integer);
4162
function Get_ControlCode: Integer;
4163
procedure Set_ControlCode(retval: Integer);
4164
function Get_Values: OleVariant;
4165
procedure Set_Values(retval: OleVariant);
4167
constructor Create(AOwner: TComponent); override;
4168
destructor Destroy; override;
4169
procedure Connect; override;
4170
procedure ConnectTo(svrIntf: IADsPropertyEntry);
4171
procedure Disconnect; override;
4173
property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
4174
property Values: OleVariant read Get_Values write Set_Values;
4175
property Name: WideString read Get_Name write Set_Name;
4176
property ADsType: Integer read Get_ADsType write Set_ADsType;
4177
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
4179
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4180
property Server: TPropertyEntryProperties read GetServerProperties;
4184
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4185
// *********************************************************************//
4186
// OLE Server Properties Proxy Class
4187
// Server Object : TPropertyEntry
4188
// (This object is used by the IDE's Property Inspector to allow editing
4189
// of the properties of this server)
4190
// *********************************************************************//
4191
TPropertyEntryProperties = class(TPersistent)
4193
FServer: TPropertyEntry;
4194
function GetDefaultInterface: IADsPropertyEntry;
4195
constructor Create(AServer: TPropertyEntry);
4197
function Get_Name: WideString;
4198
procedure Set_Name(const retval: WideString);
4199
function Get_ADsType: Integer;
4200
procedure Set_ADsType(retval: Integer);
4201
function Get_ControlCode: Integer;
4202
procedure Set_ControlCode(retval: Integer);
4203
function Get_Values: OleVariant;
4204
procedure Set_Values(retval: OleVariant);
4206
property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
4208
property Name: WideString read Get_Name write Set_Name;
4209
property ADsType: Integer read Get_ADsType write Set_ADsType;
4210
property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
4214
// *********************************************************************//
4215
// The Class CoPropertyValue provides a Create and CreateRemote method to
4216
// create instances of the default interface IADsPropertyValue exposed by
4217
// the CoClass PropertyValue. The functions are intended to be used by
4218
// clients wishing to automate the CoClass objects exposed by the
4219
// server of this typelibrary.
4220
// *********************************************************************//
4221
CoPropertyValue = class
4222
class function Create: IADsPropertyValue;
4223
class function CreateRemote(const MachineName: string): IADsPropertyValue;
4226
// *********************************************************************//
4227
// OLE Server Proxy class declaration
4228
// Server Object : TPropertyValue
4230
// Default Interface: IADsPropertyValue
4231
// Def. Intf. DISP? : No
4233
// TypeFlags : (2) CanCreate
4234
// *********************************************************************//
4235
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4236
TPropertyValueProperties= class;
4238
TPropertyValue = class(TOleServer)
4240
FIntf: IADsPropertyValue;
4241
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4242
FProps: TPropertyValueProperties;
4243
function GetServerProperties: TPropertyValueProperties;
4245
function GetDefaultInterface: IADsPropertyValue;
4247
procedure InitServerData; override;
4248
function Get_ADsType: Integer;
4249
procedure Set_ADsType(retval: Integer);
4250
function Get_DNString: WideString;
4251
procedure Set_DNString(const retval: WideString);
4252
function Get_CaseExactString: WideString;
4253
procedure Set_CaseExactString(const retval: WideString);
4254
function Get_CaseIgnoreString: WideString;
4255
procedure Set_CaseIgnoreString(const retval: WideString);
4256
function Get_PrintableString: WideString;
4257
procedure Set_PrintableString(const retval: WideString);
4258
function Get_NumericString: WideString;
4259
procedure Set_NumericString(const retval: WideString);
4260
function Get_Boolean: Integer;
4261
procedure Set_Boolean(retval: Integer);
4262
function Get_Integer: Integer;
4263
procedure Set_Integer(retval: Integer);
4264
function Get_OctetString: OleVariant;
4265
procedure Set_OctetString(retval: OleVariant);
4266
function Get_SecurityDescriptor: IDispatch;
4267
procedure Set_SecurityDescriptor(const retval: IDispatch);
4268
function Get_LargeInteger: IDispatch;
4269
procedure Set_LargeInteger(const retval: IDispatch);
4270
function Get_UTCTime: TDateTime;
4271
procedure Set_UTCTime(retval: TDateTime);
4273
constructor Create(AOwner: TComponent); override;
4274
destructor Destroy; override;
4275
procedure Connect; override;
4276
procedure ConnectTo(svrIntf: IADsPropertyValue);
4277
procedure Disconnect; override;
4279
property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
4280
property OctetString: OleVariant read Get_OctetString write Set_OctetString;
4281
property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
4282
property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
4283
property ADsType: Integer read Get_ADsType write Set_ADsType;
4284
property DNString: WideString read Get_DNString write Set_DNString;
4285
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
4286
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
4287
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
4288
property NumericString: WideString read Get_NumericString write Set_NumericString;
4289
property Boolean: Integer read Get_Boolean write Set_Boolean;
4290
property Integer: Integer read Get_Integer write Set_Integer;
4291
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
4293
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4294
property Server: TPropertyValueProperties read GetServerProperties;
4298
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4299
// *********************************************************************//
4300
// OLE Server Properties Proxy Class
4301
// Server Object : TPropertyValue
4302
// (This object is used by the IDE's Property Inspector to allow editing
4303
// of the properties of this server)
4304
// *********************************************************************//
4305
TPropertyValueProperties = class(TPersistent)
4307
FServer: TPropertyValue;
4308
function GetDefaultInterface: IADsPropertyValue;
4309
constructor Create(AServer: TPropertyValue);
4311
function Get_ADsType: Integer;
4312
procedure Set_ADsType(retval: Integer);
4313
function Get_DNString: WideString;
4314
procedure Set_DNString(const retval: WideString);
4315
function Get_CaseExactString: WideString;
4316
procedure Set_CaseExactString(const retval: WideString);
4317
function Get_CaseIgnoreString: WideString;
4318
procedure Set_CaseIgnoreString(const retval: WideString);
4319
function Get_PrintableString: WideString;
4320
procedure Set_PrintableString(const retval: WideString);
4321
function Get_NumericString: WideString;
4322
procedure Set_NumericString(const retval: WideString);
4323
function Get_Boolean: Integer;
4324
procedure Set_Boolean(retval: Integer);
4325
function Get_Integer: Integer;
4326
procedure Set_Integer(retval: Integer);
4327
function Get_OctetString: OleVariant;
4328
procedure Set_OctetString(retval: OleVariant);
4329
function Get_SecurityDescriptor: IDispatch;
4330
procedure Set_SecurityDescriptor(const retval: IDispatch);
4331
function Get_LargeInteger: IDispatch;
4332
procedure Set_LargeInteger(const retval: IDispatch);
4333
function Get_UTCTime: TDateTime;
4334
procedure Set_UTCTime(retval: TDateTime);
4336
property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
4338
property ADsType: Integer read Get_ADsType write Set_ADsType;
4339
property DNString: WideString read Get_DNString write Set_DNString;
4340
property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
4341
property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
4342
property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
4343
property NumericString: WideString read Get_NumericString write Set_NumericString;
4344
property Boolean: Integer read Get_Boolean write Set_Boolean;
4345
property Integer: Integer read Get_Integer write Set_Integer;
4346
property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
4350
// *********************************************************************//
4351
// The Class CoAccessControlEntry provides a Create and CreateRemote method to
4352
// create instances of the default interface IADsAccessControlEntry exposed by
4353
// the CoClass AccessControlEntry. The functions are intended to be used by
4354
// clients wishing to automate the CoClass objects exposed by the
4355
// server of this typelibrary.
4356
// *********************************************************************//
4357
CoAccessControlEntry = class
4358
class function Create: IADsAccessControlEntry;
4359
class function CreateRemote(const MachineName: string): IADsAccessControlEntry;
4362
// *********************************************************************//
4363
// OLE Server Proxy class declaration
4364
// Server Object : TAccessControlEntry
4366
// Default Interface: IADsAccessControlEntry
4367
// Def. Intf. DISP? : No
4369
// TypeFlags : (2) CanCreate
4370
// *********************************************************************//
4371
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4372
TAccessControlEntryProperties= class;
4374
TAccessControlEntry = class(TOleServer)
4376
FIntf: IADsAccessControlEntry;
4377
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4378
FProps: TAccessControlEntryProperties;
4379
function GetServerProperties: TAccessControlEntryProperties;
4381
function GetDefaultInterface: IADsAccessControlEntry;
4383
procedure InitServerData; override;
4384
function Get_AccessMask: Integer;
4385
procedure Set_AccessMask(retval: Integer);
4386
function Get_AceType: Integer;
4387
procedure Set_AceType(retval: Integer);
4388
function Get_AceFlags: Integer;
4389
procedure Set_AceFlags(retval: Integer);
4390
function Get_Flags: Integer;
4391
procedure Set_Flags(retval: Integer);
4392
function Get_ObjectType: WideString;
4393
procedure Set_ObjectType(const retval: WideString);
4394
function Get_InheritedObjectType: WideString;
4395
procedure Set_InheritedObjectType(const retval: WideString);
4396
function Get_Trustee: WideString;
4397
procedure Set_Trustee(const retval: WideString);
4399
constructor Create(AOwner: TComponent); override;
4400
destructor Destroy; override;
4401
procedure Connect; override;
4402
procedure ConnectTo(svrIntf: IADsAccessControlEntry);
4403
procedure Disconnect; override;
4404
property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
4405
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
4406
property AceType: Integer read Get_AceType write Set_AceType;
4407
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
4408
property Flags: Integer read Get_Flags write Set_Flags;
4409
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
4410
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
4411
property Trustee: WideString read Get_Trustee write Set_Trustee;
4413
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4414
property Server: TAccessControlEntryProperties read GetServerProperties;
4418
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4419
// *********************************************************************//
4420
// OLE Server Properties Proxy Class
4421
// Server Object : TAccessControlEntry
4422
// (This object is used by the IDE's Property Inspector to allow editing
4423
// of the properties of this server)
4424
// *********************************************************************//
4425
TAccessControlEntryProperties = class(TPersistent)
4427
FServer: TAccessControlEntry;
4428
function GetDefaultInterface: IADsAccessControlEntry;
4429
constructor Create(AServer: TAccessControlEntry);
4431
function Get_AccessMask: Integer;
4432
procedure Set_AccessMask(retval: Integer);
4433
function Get_AceType: Integer;
4434
procedure Set_AceType(retval: Integer);
4435
function Get_AceFlags: Integer;
4436
procedure Set_AceFlags(retval: Integer);
4437
function Get_Flags: Integer;
4438
procedure Set_Flags(retval: Integer);
4439
function Get_ObjectType: WideString;
4440
procedure Set_ObjectType(const retval: WideString);
4441
function Get_InheritedObjectType: WideString;
4442
procedure Set_InheritedObjectType(const retval: WideString);
4443
function Get_Trustee: WideString;
4444
procedure Set_Trustee(const retval: WideString);
4446
property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
4448
property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
4449
property AceType: Integer read Get_AceType write Set_AceType;
4450
property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
4451
property Flags: Integer read Get_Flags write Set_Flags;
4452
property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
4453
property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
4454
property Trustee: WideString read Get_Trustee write Set_Trustee;
4458
// *********************************************************************//
4459
// The Class CoAccessControlList provides a Create and CreateRemote method to
4460
// create instances of the default interface IADsAccessControlList exposed by
4461
// the CoClass AccessControlList. The functions are intended to be used by
4462
// clients wishing to automate the CoClass objects exposed by the
4463
// server of this typelibrary.
4464
// *********************************************************************//
4465
CoAccessControlList = class
4466
class function Create: IADsAccessControlList;
4467
class function CreateRemote(const MachineName: string): IADsAccessControlList;
4470
// *********************************************************************//
4471
// OLE Server Proxy class declaration
4472
// Server Object : TAccessControlList
4474
// Default Interface: IADsAccessControlList
4475
// Def. Intf. DISP? : No
4477
// TypeFlags : (2) CanCreate
4478
// *********************************************************************//
4479
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4480
TAccessControlListProperties= class;
4482
TAccessControlList = class(TOleServer)
4484
FIntf: IADsAccessControlList;
4485
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4486
FProps: TAccessControlListProperties;
4487
function GetServerProperties: TAccessControlListProperties;
4489
function GetDefaultInterface: IADsAccessControlList;
4491
procedure InitServerData; override;
4492
function Get_AclRevision: Integer;
4493
procedure Set_AclRevision(retval: Integer);
4494
function Get_AceCount: Integer;
4495
procedure Set_AceCount(retval: Integer);
4497
constructor Create(AOwner: TComponent); override;
4498
destructor Destroy; override;
4499
procedure Connect; override;
4500
procedure ConnectTo(svrIntf: IADsAccessControlList);
4501
procedure Disconnect; override;
4502
procedure AddAce(const pAccessControlEntry: IDispatch);
4503
procedure RemoveAce(const pAccessControlEntry: IDispatch);
4504
function CopyAccessList: IDispatch;
4505
property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
4506
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
4507
property AceCount: Integer read Get_AceCount write Set_AceCount;
4509
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4510
property Server: TAccessControlListProperties read GetServerProperties;
4514
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4515
// *********************************************************************//
4516
// OLE Server Properties Proxy Class
4517
// Server Object : TAccessControlList
4518
// (This object is used by the IDE's Property Inspector to allow editing
4519
// of the properties of this server)
4520
// *********************************************************************//
4521
TAccessControlListProperties = class(TPersistent)
4523
FServer: TAccessControlList;
4524
function GetDefaultInterface: IADsAccessControlList;
4525
constructor Create(AServer: TAccessControlList);
4527
function Get_AclRevision: Integer;
4528
procedure Set_AclRevision(retval: Integer);
4529
function Get_AceCount: Integer;
4530
procedure Set_AceCount(retval: Integer);
4532
property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
4534
property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
4535
property AceCount: Integer read Get_AceCount write Set_AceCount;
4539
// *********************************************************************//
4540
// The Class CoSecurityDescriptor provides a Create and CreateRemote method to
4541
// create instances of the default interface IADsSecurityDescriptor exposed by
4542
// the CoClass SecurityDescriptor. The functions are intended to be used by
4543
// clients wishing to automate the CoClass objects exposed by the
4544
// server of this typelibrary.
4545
// *********************************************************************//
4546
CoSecurityDescriptor = class
4547
class function Create: IADsSecurityDescriptor;
4548
class function CreateRemote(const MachineName: string): IADsSecurityDescriptor;
4551
// *********************************************************************//
4552
// OLE Server Proxy class declaration
4553
// Server Object : TSecurityDescriptor
4555
// Default Interface: IADsSecurityDescriptor
4556
// Def. Intf. DISP? : No
4558
// TypeFlags : (2) CanCreate
4559
// *********************************************************************//
4560
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4561
TSecurityDescriptorProperties= class;
4563
TSecurityDescriptor = class(TOleServer)
4565
FIntf: IADsSecurityDescriptor;
4566
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4567
FProps: TSecurityDescriptorProperties;
4568
function GetServerProperties: TSecurityDescriptorProperties;
4570
function GetDefaultInterface: IADsSecurityDescriptor;
4572
procedure InitServerData; override;
4573
function Get_Revision: Integer;
4574
procedure Set_Revision(retval: Integer);
4575
function Get_Control: Integer;
4576
procedure Set_Control(retval: Integer);
4577
function Get_Owner: WideString;
4578
procedure Set_Owner(const retval: WideString);
4579
function Get_OwnerDefaulted: WordBool;
4580
procedure Set_OwnerDefaulted(retval: WordBool);
4581
function Get_Group: WideString;
4582
procedure Set_Group(const retval: WideString);
4583
function Get_GroupDefaulted: WordBool;
4584
procedure Set_GroupDefaulted(retval: WordBool);
4585
function Get_DiscretionaryAcl: IDispatch;
4586
procedure Set_DiscretionaryAcl(const retval: IDispatch);
4587
function Get_DaclDefaulted: WordBool;
4588
procedure Set_DaclDefaulted(retval: WordBool);
4589
function Get_SystemAcl: IDispatch;
4590
procedure Set_SystemAcl(const retval: IDispatch);
4591
function Get_SaclDefaulted: WordBool;
4592
procedure Set_SaclDefaulted(retval: WordBool);
4594
constructor Create(AOwner: TComponent); override;
4595
destructor Destroy; override;
4596
procedure Connect; override;
4597
procedure ConnectTo(svrIntf: IADsSecurityDescriptor);
4598
procedure Disconnect; override;
4599
function CopySecurityDescriptor: IDispatch;
4600
property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
4601
property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
4602
property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
4603
property Revision: Integer read Get_Revision write Set_Revision;
4604
property Control: Integer read Get_Control write Set_Control;
4605
property Owner: WideString read Get_Owner write Set_Owner;
4606
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
4607
property Group: WideString read Get_Group write Set_Group;
4608
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
4609
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
4610
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
4612
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4613
property Server: TSecurityDescriptorProperties read GetServerProperties;
4617
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4618
// *********************************************************************//
4619
// OLE Server Properties Proxy Class
4620
// Server Object : TSecurityDescriptor
4621
// (This object is used by the IDE's Property Inspector to allow editing
4622
// of the properties of this server)
4623
// *********************************************************************//
4624
TSecurityDescriptorProperties = class(TPersistent)
4626
FServer: TSecurityDescriptor;
4627
function GetDefaultInterface: IADsSecurityDescriptor;
4628
constructor Create(AServer: TSecurityDescriptor);
4630
function Get_Revision: Integer;
4631
procedure Set_Revision(retval: Integer);
4632
function Get_Control: Integer;
4633
procedure Set_Control(retval: Integer);
4634
function Get_Owner: WideString;
4635
procedure Set_Owner(const retval: WideString);
4636
function Get_OwnerDefaulted: WordBool;
4637
procedure Set_OwnerDefaulted(retval: WordBool);
4638
function Get_Group: WideString;
4639
procedure Set_Group(const retval: WideString);
4640
function Get_GroupDefaulted: WordBool;
4641
procedure Set_GroupDefaulted(retval: WordBool);
4642
function Get_DiscretionaryAcl: IDispatch;
4643
procedure Set_DiscretionaryAcl(const retval: IDispatch);
4644
function Get_DaclDefaulted: WordBool;
4645
procedure Set_DaclDefaulted(retval: WordBool);
4646
function Get_SystemAcl: IDispatch;
4647
procedure Set_SystemAcl(const retval: IDispatch);
4648
function Get_SaclDefaulted: WordBool;
4649
procedure Set_SaclDefaulted(retval: WordBool);
4651
property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
4653
property Revision: Integer read Get_Revision write Set_Revision;
4654
property Control: Integer read Get_Control write Set_Control;
4655
property Owner: WideString read Get_Owner write Set_Owner;
4656
property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
4657
property Group: WideString read Get_Group write Set_Group;
4658
property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
4659
property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
4660
property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
4664
// *********************************************************************//
4665
// The Class CoLargeInteger provides a Create and CreateRemote method to
4666
// create instances of the default interface IADsLargeInteger exposed by
4667
// the CoClass LargeInteger. The functions are intended to be used by
4668
// clients wishing to automate the CoClass objects exposed by the
4669
// server of this typelibrary.
4670
// *********************************************************************//
4671
CoLargeInteger = class
4672
class function Create: IADsLargeInteger;
4673
class function CreateRemote(const MachineName: string): IADsLargeInteger;
4676
// *********************************************************************//
4677
// OLE Server Proxy class declaration
4678
// Server Object : TLargeInteger
4680
// Default Interface: IADsLargeInteger
4681
// Def. Intf. DISP? : No
4683
// TypeFlags : (2) CanCreate
4684
// *********************************************************************//
4685
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4686
TLargeIntegerProperties= class;
4688
TLargeInteger = class(TOleServer)
4690
FIntf: IADsLargeInteger;
4691
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4692
FProps: TLargeIntegerProperties;
4693
function GetServerProperties: TLargeIntegerProperties;
4695
function GetDefaultInterface: IADsLargeInteger;
4697
procedure InitServerData; override;
4698
function Get_HighPart: Integer;
4699
procedure Set_HighPart(retval: Integer);
4700
function Get_LowPart: Integer;
4701
procedure Set_LowPart(retval: Integer);
4703
constructor Create(AOwner: TComponent); override;
4704
destructor Destroy; override;
4705
procedure Connect; override;
4706
procedure ConnectTo(svrIntf: IADsLargeInteger);
4707
procedure Disconnect; override;
4708
property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
4709
property HighPart: Integer read Get_HighPart write Set_HighPart;
4710
property LowPart: Integer read Get_LowPart write Set_LowPart;
4712
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4713
property Server: TLargeIntegerProperties read GetServerProperties;
4717
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4718
// *********************************************************************//
4719
// OLE Server Properties Proxy Class
4720
// Server Object : TLargeInteger
4721
// (This object is used by the IDE's Property Inspector to allow editing
4722
// of the properties of this server)
4723
// *********************************************************************//
4724
TLargeIntegerProperties = class(TPersistent)
4726
FServer: TLargeInteger;
4727
function GetDefaultInterface: IADsLargeInteger;
4728
constructor Create(AServer: TLargeInteger);
4730
function Get_HighPart: Integer;
4731
procedure Set_HighPart(retval: Integer);
4732
function Get_LowPart: Integer;
4733
procedure Set_LowPart(retval: Integer);
4735
property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
4737
property HighPart: Integer read Get_HighPart write Set_HighPart;
4738
property LowPart: Integer read Get_LowPart write Set_LowPart;
4742
// *********************************************************************//
4743
// The Class CoNameTranslate provides a Create and CreateRemote method to
4744
// create instances of the default interface IADsNameTranslate exposed by
4745
// the CoClass NameTranslate. The functions are intended to be used by
4746
// clients wishing to automate the CoClass objects exposed by the
4747
// server of this typelibrary.
4748
// *********************************************************************//
4749
CoNameTranslate = class
4750
class function Create: IADsNameTranslate;
4751
class function CreateRemote(const MachineName: string): IADsNameTranslate;
4754
// *********************************************************************//
4755
// OLE Server Proxy class declaration
4756
// Server Object : TNameTranslate
4758
// Default Interface: IADsNameTranslate
4759
// Def. Intf. DISP? : No
4761
// TypeFlags : (2) CanCreate
4762
// *********************************************************************//
4763
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4764
TNameTranslateProperties= class;
4766
TNameTranslate = class(TOleServer)
4768
FIntf: IADsNameTranslate;
4769
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4770
FProps: TNameTranslateProperties;
4771
function GetServerProperties: TNameTranslateProperties;
4773
function GetDefaultInterface: IADsNameTranslate;
4775
procedure InitServerData; override;
4776
procedure Set_ChaseReferral(Param1: Integer);
4778
constructor Create(AOwner: TComponent); override;
4779
destructor Destroy; override;
4780
procedure Connect; override;
4781
procedure ConnectTo(svrIntf: IADsNameTranslate);
4782
procedure Disconnect; override;
4783
procedure Init(lnSetType: Integer; const bstrADsPath: WideString);
4784
procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
4785
const bstrUserID: WideString; const bstrDomain: WideString;
4786
const bstrPassword: WideString);
4787
procedure Set_(lnSetType: Integer; const bstrADsPath: WideString);
4788
function Get(lnFormatType: Integer): WideString;
4789
procedure SetEx(lnFormatType: Integer; pVar: OleVariant);
4790
function GetEx(lnFormatType: Integer): OleVariant;
4791
property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
4792
property ChaseReferral: Integer write Set_ChaseReferral;
4794
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4795
property Server: TNameTranslateProperties read GetServerProperties;
4799
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4800
// *********************************************************************//
4801
// OLE Server Properties Proxy Class
4802
// Server Object : TNameTranslate
4803
// (This object is used by the IDE's Property Inspector to allow editing
4804
// of the properties of this server)
4805
// *********************************************************************//
4806
TNameTranslateProperties = class(TPersistent)
4808
FServer: TNameTranslate;
4809
function GetDefaultInterface: IADsNameTranslate;
4810
constructor Create(AServer: TNameTranslate);
4812
procedure Set_ChaseReferral(Param1: Integer);
4814
property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
4819
// *********************************************************************//
4820
// The Class CoCaseIgnoreList provides a Create and CreateRemote method to
4821
// create instances of the default interface IADsCaseIgnoreList exposed by
4822
// the CoClass CaseIgnoreList. The functions are intended to be used by
4823
// clients wishing to automate the CoClass objects exposed by the
4824
// server of this typelibrary.
4825
// *********************************************************************//
4826
CoCaseIgnoreList = class
4827
class function Create: IADsCaseIgnoreList;
4828
class function CreateRemote(const MachineName: string): IADsCaseIgnoreList;
4831
// *********************************************************************//
4832
// OLE Server Proxy class declaration
4833
// Server Object : TCaseIgnoreList
4835
// Default Interface: IADsCaseIgnoreList
4836
// Def. Intf. DISP? : No
4838
// TypeFlags : (2) CanCreate
4839
// *********************************************************************//
4840
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4841
TCaseIgnoreListProperties= class;
4843
TCaseIgnoreList = class(TOleServer)
4845
FIntf: IADsCaseIgnoreList;
4846
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4847
FProps: TCaseIgnoreListProperties;
4848
function GetServerProperties: TCaseIgnoreListProperties;
4850
function GetDefaultInterface: IADsCaseIgnoreList;
4852
procedure InitServerData; override;
4853
function Get_CaseIgnoreList: OleVariant;
4854
procedure Set_CaseIgnoreList(retval: OleVariant);
4856
constructor Create(AOwner: TComponent); override;
4857
destructor Destroy; override;
4858
procedure Connect; override;
4859
procedure ConnectTo(svrIntf: IADsCaseIgnoreList);
4860
procedure Disconnect; override;
4861
property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
4862
property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
4864
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4865
property Server: TCaseIgnoreListProperties read GetServerProperties;
4869
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4870
// *********************************************************************//
4871
// OLE Server Properties Proxy Class
4872
// Server Object : TCaseIgnoreList
4873
// (This object is used by the IDE's Property Inspector to allow editing
4874
// of the properties of this server)
4875
// *********************************************************************//
4876
TCaseIgnoreListProperties = class(TPersistent)
4878
FServer: TCaseIgnoreList;
4879
function GetDefaultInterface: IADsCaseIgnoreList;
4880
constructor Create(AServer: TCaseIgnoreList);
4882
function Get_CaseIgnoreList: OleVariant;
4883
procedure Set_CaseIgnoreList(retval: OleVariant);
4885
property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
4890
// *********************************************************************//
4891
// The Class CoFaxNumber provides a Create and CreateRemote method to
4892
// create instances of the default interface IADsFaxNumber exposed by
4893
// the CoClass FaxNumber. The functions are intended to be used by
4894
// clients wishing to automate the CoClass objects exposed by the
4895
// server of this typelibrary.
4896
// *********************************************************************//
4898
class function Create: IADsFaxNumber;
4899
class function CreateRemote(const MachineName: string): IADsFaxNumber;
4902
// *********************************************************************//
4903
// OLE Server Proxy class declaration
4904
// Server Object : TFaxNumber
4906
// Default Interface: IADsFaxNumber
4907
// Def. Intf. DISP? : No
4909
// TypeFlags : (2) CanCreate
4910
// *********************************************************************//
4911
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4912
TFaxNumberProperties= class;
4914
TFaxNumber = class(TOleServer)
4916
FIntf: IADsFaxNumber;
4917
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4918
FProps: TFaxNumberProperties;
4919
function GetServerProperties: TFaxNumberProperties;
4921
function GetDefaultInterface: IADsFaxNumber;
4923
procedure InitServerData; override;
4924
function Get_TelephoneNumber: WideString;
4925
procedure Set_TelephoneNumber(const retval: WideString);
4926
function Get_Parameters: OleVariant;
4927
procedure Set_Parameters(retval: OleVariant);
4929
constructor Create(AOwner: TComponent); override;
4930
destructor Destroy; override;
4931
procedure Connect; override;
4932
procedure ConnectTo(svrIntf: IADsFaxNumber);
4933
procedure Disconnect; override;
4934
property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
4935
property Parameters: OleVariant read Get_Parameters write Set_Parameters;
4936
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
4938
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4939
property Server: TFaxNumberProperties read GetServerProperties;
4943
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4944
// *********************************************************************//
4945
// OLE Server Properties Proxy Class
4946
// Server Object : TFaxNumber
4947
// (This object is used by the IDE's Property Inspector to allow editing
4948
// of the properties of this server)
4949
// *********************************************************************//
4950
TFaxNumberProperties = class(TPersistent)
4952
FServer: TFaxNumber;
4953
function GetDefaultInterface: IADsFaxNumber;
4954
constructor Create(AServer: TFaxNumber);
4956
function Get_TelephoneNumber: WideString;
4957
procedure Set_TelephoneNumber(const retval: WideString);
4958
function Get_Parameters: OleVariant;
4959
procedure Set_Parameters(retval: OleVariant);
4961
property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
4963
property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
4967
// *********************************************************************//
4968
// The Class CoNetAddress provides a Create and CreateRemote method to
4969
// create instances of the default interface IADsNetAddress exposed by
4970
// the CoClass NetAddress. The functions are intended to be used by
4971
// clients wishing to automate the CoClass objects exposed by the
4972
// server of this typelibrary.
4973
// *********************************************************************//
4974
CoNetAddress = class
4975
class function Create: IADsNetAddress;
4976
class function CreateRemote(const MachineName: string): IADsNetAddress;
4979
// *********************************************************************//
4980
// OLE Server Proxy class declaration
4981
// Server Object : TNetAddress
4983
// Default Interface: IADsNetAddress
4984
// Def. Intf. DISP? : No
4986
// TypeFlags : (2) CanCreate
4987
// *********************************************************************//
4988
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4989
TNetAddressProperties= class;
4991
TNetAddress = class(TOleServer)
4993
FIntf: IADsNetAddress;
4994
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
4995
FProps: TNetAddressProperties;
4996
function GetServerProperties: TNetAddressProperties;
4998
function GetDefaultInterface: IADsNetAddress;
5000
procedure InitServerData; override;
5001
function Get_AddressType: Integer;
5002
procedure Set_AddressType(retval: Integer);
5003
function Get_Address: OleVariant;
5004
procedure Set_Address(retval: OleVariant);
5006
constructor Create(AOwner: TComponent); override;
5007
destructor Destroy; override;
5008
procedure Connect; override;
5009
procedure ConnectTo(svrIntf: IADsNetAddress);
5010
procedure Disconnect; override;
5011
property DefaultInterface: IADsNetAddress read GetDefaultInterface;
5012
property Address: OleVariant read Get_Address write Set_Address;
5013
property AddressType: Integer read Get_AddressType write Set_AddressType;
5015
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5016
property Server: TNetAddressProperties read GetServerProperties;
5020
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5021
// *********************************************************************//
5022
// OLE Server Properties Proxy Class
5023
// Server Object : TNetAddress
5024
// (This object is used by the IDE's Property Inspector to allow editing
5025
// of the properties of this server)
5026
// *********************************************************************//
5027
TNetAddressProperties = class(TPersistent)
5029
FServer: TNetAddress;
5030
function GetDefaultInterface: IADsNetAddress;
5031
constructor Create(AServer: TNetAddress);
5033
function Get_AddressType: Integer;
5034
procedure Set_AddressType(retval: Integer);
5035
function Get_Address: OleVariant;
5036
procedure Set_Address(retval: OleVariant);
5038
property DefaultInterface: IADsNetAddress read GetDefaultInterface;
5040
property AddressType: Integer read Get_AddressType write Set_AddressType;
5044
// *********************************************************************//
5045
// The Class CoOctetList provides a Create and CreateRemote method to
5046
// create instances of the default interface IADsOctetList exposed by
5047
// the CoClass OctetList. The functions are intended to be used by
5048
// clients wishing to automate the CoClass objects exposed by the
5049
// server of this typelibrary.
5050
// *********************************************************************//
5052
class function Create: IADsOctetList;
5053
class function CreateRemote(const MachineName: string): IADsOctetList;
5056
// *********************************************************************//
5057
// OLE Server Proxy class declaration
5058
// Server Object : TOctetList
5060
// Default Interface: IADsOctetList
5061
// Def. Intf. DISP? : No
5063
// TypeFlags : (2) CanCreate
5064
// *********************************************************************//
5065
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5066
TOctetListProperties= class;
5068
TOctetList = class(TOleServer)
5070
FIntf: IADsOctetList;
5071
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5072
FProps: TOctetListProperties;
5073
function GetServerProperties: TOctetListProperties;
5075
function GetDefaultInterface: IADsOctetList;
5077
procedure InitServerData; override;
5078
function Get_OctetList: OleVariant;
5079
procedure Set_OctetList(retval: OleVariant);
5081
constructor Create(AOwner: TComponent); override;
5082
destructor Destroy; override;
5083
procedure Connect; override;
5084
procedure ConnectTo(svrIntf: IADsOctetList);
5085
procedure Disconnect; override;
5086
property DefaultInterface: IADsOctetList read GetDefaultInterface;
5087
property OctetList: OleVariant read Get_OctetList write Set_OctetList;
5089
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5090
property Server: TOctetListProperties read GetServerProperties;
5094
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5095
// *********************************************************************//
5096
// OLE Server Properties Proxy Class
5097
// Server Object : TOctetList
5098
// (This object is used by the IDE's Property Inspector to allow editing
5099
// of the properties of this server)
5100
// *********************************************************************//
5101
TOctetListProperties = class(TPersistent)
5103
FServer: TOctetList;
5104
function GetDefaultInterface: IADsOctetList;
5105
constructor Create(AServer: TOctetList);
5107
function Get_OctetList: OleVariant;
5108
procedure Set_OctetList(retval: OleVariant);
5110
property DefaultInterface: IADsOctetList read GetDefaultInterface;
5115
// *********************************************************************//
5116
// The Class CoEmail provides a Create and CreateRemote method to
5117
// create instances of the default interface IADsEmail exposed by
5118
// the CoClass Email. The functions are intended to be used by
5119
// clients wishing to automate the CoClass objects exposed by the
5120
// server of this typelibrary.
5121
// *********************************************************************//
5123
class function Create: IADsEmail;
5124
class function CreateRemote(const MachineName: string): IADsEmail;
5127
// *********************************************************************//
5128
// OLE Server Proxy class declaration
5129
// Server Object : TEmail
5131
// Default Interface: IADsEmail
5132
// Def. Intf. DISP? : No
5134
// TypeFlags : (2) CanCreate
5135
// *********************************************************************//
5136
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5137
TEmailProperties= class;
5139
TEmail = class(TOleServer)
5142
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5143
FProps: TEmailProperties;
5144
function GetServerProperties: TEmailProperties;
5146
function GetDefaultInterface: IADsEmail;
5148
procedure InitServerData; override;
5149
function Get_Type_: Integer;
5150
procedure Set_Type_(retval: Integer);
5151
function Get_Address: WideString;
5152
procedure Set_Address(const retval: WideString);
5154
constructor Create(AOwner: TComponent); override;
5155
destructor Destroy; override;
5156
procedure Connect; override;
5157
procedure ConnectTo(svrIntf: IADsEmail);
5158
procedure Disconnect; override;
5159
property DefaultInterface: IADsEmail read GetDefaultInterface;
5160
property Type_: Integer read Get_Type_ write Set_Type_;
5161
property Address: WideString read Get_Address write Set_Address;
5163
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5164
property Server: TEmailProperties read GetServerProperties;
5168
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5169
// *********************************************************************//
5170
// OLE Server Properties Proxy Class
5171
// Server Object : TEmail
5172
// (This object is used by the IDE's Property Inspector to allow editing
5173
// of the properties of this server)
5174
// *********************************************************************//
5175
TEmailProperties = class(TPersistent)
5178
function GetDefaultInterface: IADsEmail;
5179
constructor Create(AServer: TEmail);
5181
function Get_Type_: Integer;
5182
procedure Set_Type_(retval: Integer);
5183
function Get_Address: WideString;
5184
procedure Set_Address(const retval: WideString);
5186
property DefaultInterface: IADsEmail read GetDefaultInterface;
5188
property Type_: Integer read Get_Type_ write Set_Type_;
5189
property Address: WideString read Get_Address write Set_Address;
5193
// *********************************************************************//
5194
// The Class CoPath provides a Create and CreateRemote method to
5195
// create instances of the default interface IADsPath exposed by
5196
// the CoClass Path. The functions are intended to be used by
5197
// clients wishing to automate the CoClass objects exposed by the
5198
// server of this typelibrary.
5199
// *********************************************************************//
5201
class function Create: IADsPath;
5202
class function CreateRemote(const MachineName: string): IADsPath;
5205
// *********************************************************************//
5206
// OLE Server Proxy class declaration
5207
// Server Object : TPath
5209
// Default Interface: IADsPath
5210
// Def. Intf. DISP? : No
5212
// TypeFlags : (2) CanCreate
5213
// *********************************************************************//
5214
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5215
TPathProperties= class;
5217
TPath = class(TOleServer)
5220
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5221
FProps: TPathProperties;
5222
function GetServerProperties: TPathProperties;
5224
function GetDefaultInterface: IADsPath;
5226
procedure InitServerData; override;
5227
function Get_Type_: Integer;
5228
procedure Set_Type_(retval: Integer);
5229
function Get_VolumeName: WideString;
5230
procedure Set_VolumeName(const retval: WideString);
5231
function Get_Path: WideString;
5232
procedure Set_Path(const retval: WideString);
5234
constructor Create(AOwner: TComponent); override;
5235
destructor Destroy; override;
5236
procedure Connect; override;
5237
procedure ConnectTo(svrIntf: IADsPath);
5238
procedure Disconnect; override;
5239
property DefaultInterface: IADsPath read GetDefaultInterface;
5240
property Type_: Integer read Get_Type_ write Set_Type_;
5241
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
5242
property Path: WideString read Get_Path write Set_Path;
5244
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5245
property Server: TPathProperties read GetServerProperties;
5249
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5250
// *********************************************************************//
5251
// OLE Server Properties Proxy Class
5252
// Server Object : TPath
5253
// (This object is used by the IDE's Property Inspector to allow editing
5254
// of the properties of this server)
5255
// *********************************************************************//
5256
TPathProperties = class(TPersistent)
5259
function GetDefaultInterface: IADsPath;
5260
constructor Create(AServer: TPath);
5262
function Get_Type_: Integer;
5263
procedure Set_Type_(retval: Integer);
5264
function Get_VolumeName: WideString;
5265
procedure Set_VolumeName(const retval: WideString);
5266
function Get_Path: WideString;
5267
procedure Set_Path(const retval: WideString);
5269
property DefaultInterface: IADsPath read GetDefaultInterface;
5271
property Type_: Integer read Get_Type_ write Set_Type_;
5272
property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
5273
property Path: WideString read Get_Path write Set_Path;
5277
// *********************************************************************//
5278
// The Class CoReplicaPointer provides a Create and CreateRemote method to
5279
// create instances of the default interface IADsReplicaPointer exposed by
5280
// the CoClass ReplicaPointer. The functions are intended to be used by
5281
// clients wishing to automate the CoClass objects exposed by the
5282
// server of this typelibrary.
5283
// *********************************************************************//
5284
CoReplicaPointer = class
5285
class function Create: IADsReplicaPointer;
5286
class function CreateRemote(const MachineName: string): IADsReplicaPointer;
5289
// *********************************************************************//
5290
// OLE Server Proxy class declaration
5291
// Server Object : TReplicaPointer
5293
// Default Interface: IADsReplicaPointer
5294
// Def. Intf. DISP? : No
5296
// TypeFlags : (2) CanCreate
5297
// *********************************************************************//
5298
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5299
TReplicaPointerProperties= class;
5301
TReplicaPointer = class(TOleServer)
5303
FIntf: IADsReplicaPointer;
5304
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5305
FProps: TReplicaPointerProperties;
5306
function GetServerProperties: TReplicaPointerProperties;
5308
function GetDefaultInterface: IADsReplicaPointer;
5310
procedure InitServerData; override;
5311
function Get_ServerName: WideString;
5312
procedure Set_ServerName(const retval: WideString);
5313
function Get_ReplicaType: Integer;
5314
procedure Set_ReplicaType(retval: Integer);
5315
function Get_ReplicaNumber: Integer;
5316
procedure Set_ReplicaNumber(retval: Integer);
5317
function Get_Count: Integer;
5318
procedure Set_Count(retval: Integer);
5319
function Get_ReplicaAddressHints: OleVariant;
5320
procedure Set_ReplicaAddressHints(retval: OleVariant);
5322
constructor Create(AOwner: TComponent); override;
5323
destructor Destroy; override;
5324
procedure Connect; override;
5325
procedure ConnectTo(svrIntf: IADsReplicaPointer);
5326
procedure Disconnect; override;
5327
property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
5328
property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
5329
property ServerName: WideString read Get_ServerName write Set_ServerName;
5330
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
5331
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
5332
property Count: Integer read Get_Count write Set_Count;
5334
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5335
property Server: TReplicaPointerProperties read GetServerProperties;
5339
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5340
// *********************************************************************//
5341
// OLE Server Properties Proxy Class
5342
// Server Object : TReplicaPointer
5343
// (This object is used by the IDE's Property Inspector to allow editing
5344
// of the properties of this server)
5345
// *********************************************************************//
5346
TReplicaPointerProperties = class(TPersistent)
5348
FServer: TReplicaPointer;
5349
function GetDefaultInterface: IADsReplicaPointer;
5350
constructor Create(AServer: TReplicaPointer);
5352
function Get_ServerName: WideString;
5353
procedure Set_ServerName(const retval: WideString);
5354
function Get_ReplicaType: Integer;
5355
procedure Set_ReplicaType(retval: Integer);
5356
function Get_ReplicaNumber: Integer;
5357
procedure Set_ReplicaNumber(retval: Integer);
5358
function Get_Count: Integer;
5359
procedure Set_Count(retval: Integer);
5360
function Get_ReplicaAddressHints: OleVariant;
5361
procedure Set_ReplicaAddressHints(retval: OleVariant);
5363
property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
5365
property ServerName: WideString read Get_ServerName write Set_ServerName;
5366
property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
5367
property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
5368
property Count: Integer read Get_Count write Set_Count;
5372
// *********************************************************************//
5373
// The Class CoAcl provides a Create and CreateRemote method to
5374
// create instances of the default interface IADsAcl exposed by
5375
// the CoClass Acl. The functions are intended to be used by
5376
// clients wishing to automate the CoClass objects exposed by the
5377
// server of this typelibrary.
5378
// *********************************************************************//
5380
class function Create: IADsAcl;
5381
class function CreateRemote(const MachineName: string): IADsAcl;
5384
// *********************************************************************//
5385
// OLE Server Proxy class declaration
5386
// Server Object : TAcl
5388
// Default Interface: IADsAcl
5389
// Def. Intf. DISP? : No
5391
// TypeFlags : (2) CanCreate
5392
// *********************************************************************//
5393
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5394
TAclProperties= class;
5396
TAcl = class(TOleServer)
5399
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5400
FProps: TAclProperties;
5401
function GetServerProperties: TAclProperties;
5403
function GetDefaultInterface: IADsAcl;
5405
procedure InitServerData; override;
5406
function Get_ProtectedAttrName: WideString;
5407
procedure Set_ProtectedAttrName(const retval: WideString);
5408
function Get_SubjectName: WideString;
5409
procedure Set_SubjectName(const retval: WideString);
5410
function Get_Privileges: Integer;
5411
procedure Set_Privileges(retval: Integer);
5413
constructor Create(AOwner: TComponent); override;
5414
destructor Destroy; override;
5415
procedure Connect; override;
5416
procedure ConnectTo(svrIntf: IADsAcl);
5417
procedure Disconnect; override;
5418
function CopyAcl: IDispatch;
5419
property DefaultInterface: IADsAcl read GetDefaultInterface;
5420
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
5421
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
5422
property Privileges: Integer read Get_Privileges write Set_Privileges;
5424
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5425
property Server: TAclProperties read GetServerProperties;
5429
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5430
// *********************************************************************//
5431
// OLE Server Properties Proxy Class
5432
// Server Object : TAcl
5433
// (This object is used by the IDE's Property Inspector to allow editing
5434
// of the properties of this server)
5435
// *********************************************************************//
5436
TAclProperties = class(TPersistent)
5439
function GetDefaultInterface: IADsAcl;
5440
constructor Create(AServer: TAcl);
5442
function Get_ProtectedAttrName: WideString;
5443
procedure Set_ProtectedAttrName(const retval: WideString);
5444
function Get_SubjectName: WideString;
5445
procedure Set_SubjectName(const retval: WideString);
5446
function Get_Privileges: Integer;
5447
procedure Set_Privileges(retval: Integer);
5449
property DefaultInterface: IADsAcl read GetDefaultInterface;
5451
property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
5452
property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
5453
property Privileges: Integer read Get_Privileges write Set_Privileges;
5457
// *********************************************************************//
5458
// The Class CoTimestamp provides a Create and CreateRemote method to
5459
// create instances of the default interface IADsTimestamp exposed by
5460
// the CoClass Timestamp. The functions are intended to be used by
5461
// clients wishing to automate the CoClass objects exposed by the
5462
// server of this typelibrary.
5463
// *********************************************************************//
5465
class function Create: IADsTimestamp;
5466
class function CreateRemote(const MachineName: string): IADsTimestamp;
5469
// *********************************************************************//
5470
// OLE Server Proxy class declaration
5471
// Server Object : TTimestamp
5473
// Default Interface: IADsTimestamp
5474
// Def. Intf. DISP? : No
5476
// TypeFlags : (2) CanCreate
5477
// *********************************************************************//
5478
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5479
TTimestampProperties= class;
5481
TTimestamp = class(TOleServer)
5483
FIntf: IADsTimestamp;
5484
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5485
FProps: TTimestampProperties;
5486
function GetServerProperties: TTimestampProperties;
5488
function GetDefaultInterface: IADsTimestamp;
5490
procedure InitServerData; override;
5491
function Get_WholeSeconds: Integer;
5492
procedure Set_WholeSeconds(retval: Integer);
5493
function Get_EventID: Integer;
5494
procedure Set_EventID(retval: Integer);
5496
constructor Create(AOwner: TComponent); override;
5497
destructor Destroy; override;
5498
procedure Connect; override;
5499
procedure ConnectTo(svrIntf: IADsTimestamp);
5500
procedure Disconnect; override;
5501
property DefaultInterface: IADsTimestamp read GetDefaultInterface;
5502
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
5503
property EventID: Integer read Get_EventID write Set_EventID;
5505
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5506
property Server: TTimestampProperties read GetServerProperties;
5510
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5511
// *********************************************************************//
5512
// OLE Server Properties Proxy Class
5513
// Server Object : TTimestamp
5514
// (This object is used by the IDE's Property Inspector to allow editing
5515
// of the properties of this server)
5516
// *********************************************************************//
5517
TTimestampProperties = class(TPersistent)
5519
FServer: TTimestamp;
5520
function GetDefaultInterface: IADsTimestamp;
5521
constructor Create(AServer: TTimestamp);
5523
function Get_WholeSeconds: Integer;
5524
procedure Set_WholeSeconds(retval: Integer);
5525
function Get_EventID: Integer;
5526
procedure Set_EventID(retval: Integer);
5528
property DefaultInterface: IADsTimestamp read GetDefaultInterface;
5530
property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
5531
property EventID: Integer read Get_EventID write Set_EventID;
5535
// *********************************************************************//
5536
// The Class CoPostalAddress provides a Create and CreateRemote method to
5537
// create instances of the default interface IADsPostalAddress exposed by
5538
// the CoClass PostalAddress. The functions are intended to be used by
5539
// clients wishing to automate the CoClass objects exposed by the
5540
// server of this typelibrary.
5541
// *********************************************************************//
5542
CoPostalAddress = class
5543
class function Create: IADsPostalAddress;
5544
class function CreateRemote(const MachineName: string): IADsPostalAddress;
5547
// *********************************************************************//
5548
// OLE Server Proxy class declaration
5549
// Server Object : TPostalAddress
5551
// Default Interface: IADsPostalAddress
5552
// Def. Intf. DISP? : No
5554
// TypeFlags : (2) CanCreate
5555
// *********************************************************************//
5556
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5557
TPostalAddressProperties= class;
5559
TPostalAddress = class(TOleServer)
5561
FIntf: IADsPostalAddress;
5562
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5563
FProps: TPostalAddressProperties;
5564
function GetServerProperties: TPostalAddressProperties;
5566
function GetDefaultInterface: IADsPostalAddress;
5568
procedure InitServerData; override;
5569
function Get_PostalAddress: OleVariant;
5570
procedure Set_PostalAddress(retval: OleVariant);
5572
constructor Create(AOwner: TComponent); override;
5573
destructor Destroy; override;
5574
procedure Connect; override;
5575
procedure ConnectTo(svrIntf: IADsPostalAddress);
5576
procedure Disconnect; override;
5577
property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
5578
property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
5580
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5581
property Server: TPostalAddressProperties read GetServerProperties;
5585
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5586
// *********************************************************************//
5587
// OLE Server Properties Proxy Class
5588
// Server Object : TPostalAddress
5589
// (This object is used by the IDE's Property Inspector to allow editing
5590
// of the properties of this server)
5591
// *********************************************************************//
5592
TPostalAddressProperties = class(TPersistent)
5594
FServer: TPostalAddress;
5595
function GetDefaultInterface: IADsPostalAddress;
5596
constructor Create(AServer: TPostalAddress);
5598
function Get_PostalAddress: OleVariant;
5599
procedure Set_PostalAddress(retval: OleVariant);
5601
property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
5606
// *********************************************************************//
5607
// The Class CoBackLink provides a Create and CreateRemote method to
5608
// create instances of the default interface IADsBackLink exposed by
5609
// the CoClass BackLink. The functions are intended to be used by
5610
// clients wishing to automate the CoClass objects exposed by the
5611
// server of this typelibrary.
5612
// *********************************************************************//
5614
class function Create: IADsBackLink;
5615
class function CreateRemote(const MachineName: string): IADsBackLink;
5618
// *********************************************************************//
5619
// OLE Server Proxy class declaration
5620
// Server Object : TBackLink
5622
// Default Interface: IADsBackLink
5623
// Def. Intf. DISP? : No
5625
// TypeFlags : (2) CanCreate
5626
// *********************************************************************//
5627
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5628
TBackLinkProperties= class;
5630
TBackLink = class(TOleServer)
5632
FIntf: IADsBackLink;
5633
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5634
FProps: TBackLinkProperties;
5635
function GetServerProperties: TBackLinkProperties;
5637
function GetDefaultInterface: IADsBackLink;
5639
procedure InitServerData; override;
5640
function Get_RemoteID: Integer;
5641
procedure Set_RemoteID(retval: Integer);
5642
function Get_ObjectName: WideString;
5643
procedure Set_ObjectName(const retval: WideString);
5645
constructor Create(AOwner: TComponent); override;
5646
destructor Destroy; override;
5647
procedure Connect; override;
5648
procedure ConnectTo(svrIntf: IADsBackLink);
5649
procedure Disconnect; override;
5650
property DefaultInterface: IADsBackLink read GetDefaultInterface;
5651
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
5652
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5654
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5655
property Server: TBackLinkProperties read GetServerProperties;
5659
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5660
// *********************************************************************//
5661
// OLE Server Properties Proxy Class
5662
// Server Object : TBackLink
5663
// (This object is used by the IDE's Property Inspector to allow editing
5664
// of the properties of this server)
5665
// *********************************************************************//
5666
TBackLinkProperties = class(TPersistent)
5669
function GetDefaultInterface: IADsBackLink;
5670
constructor Create(AServer: TBackLink);
5672
function Get_RemoteID: Integer;
5673
procedure Set_RemoteID(retval: Integer);
5674
function Get_ObjectName: WideString;
5675
procedure Set_ObjectName(const retval: WideString);
5677
property DefaultInterface: IADsBackLink read GetDefaultInterface;
5679
property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
5680
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5684
// *********************************************************************//
5685
// The Class CoTypedName provides a Create and CreateRemote method to
5686
// create instances of the default interface IADsTypedName exposed by
5687
// the CoClass TypedName. The functions are intended to be used by
5688
// clients wishing to automate the CoClass objects exposed by the
5689
// server of this typelibrary.
5690
// *********************************************************************//
5692
class function Create: IADsTypedName;
5693
class function CreateRemote(const MachineName: string): IADsTypedName;
5696
// *********************************************************************//
5697
// OLE Server Proxy class declaration
5698
// Server Object : TTypedName
5700
// Default Interface: IADsTypedName
5701
// Def. Intf. DISP? : No
5703
// TypeFlags : (2) CanCreate
5704
// *********************************************************************//
5705
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5706
TTypedNameProperties= class;
5708
TTypedName = class(TOleServer)
5710
FIntf: IADsTypedName;
5711
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5712
FProps: TTypedNameProperties;
5713
function GetServerProperties: TTypedNameProperties;
5715
function GetDefaultInterface: IADsTypedName;
5717
procedure InitServerData; override;
5718
function Get_ObjectName: WideString;
5719
procedure Set_ObjectName(const retval: WideString);
5720
function Get_Level: Integer;
5721
procedure Set_Level(retval: Integer);
5722
function Get_Interval: Integer;
5723
procedure Set_Interval(retval: Integer);
5725
constructor Create(AOwner: TComponent); override;
5726
destructor Destroy; override;
5727
procedure Connect; override;
5728
procedure ConnectTo(svrIntf: IADsTypedName);
5729
procedure Disconnect; override;
5730
property DefaultInterface: IADsTypedName read GetDefaultInterface;
5731
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5732
property Level: Integer read Get_Level write Set_Level;
5733
property Interval: Integer read Get_Interval write Set_Interval;
5735
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5736
property Server: TTypedNameProperties read GetServerProperties;
5740
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5741
// *********************************************************************//
5742
// OLE Server Properties Proxy Class
5743
// Server Object : TTypedName
5744
// (This object is used by the IDE's Property Inspector to allow editing
5745
// of the properties of this server)
5746
// *********************************************************************//
5747
TTypedNameProperties = class(TPersistent)
5749
FServer: TTypedName;
5750
function GetDefaultInterface: IADsTypedName;
5751
constructor Create(AServer: TTypedName);
5753
function Get_ObjectName: WideString;
5754
procedure Set_ObjectName(const retval: WideString);
5755
function Get_Level: Integer;
5756
procedure Set_Level(retval: Integer);
5757
function Get_Interval: Integer;
5758
procedure Set_Interval(retval: Integer);
5760
property DefaultInterface: IADsTypedName read GetDefaultInterface;
5762
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5763
property Level: Integer read Get_Level write Set_Level;
5764
property Interval: Integer read Get_Interval write Set_Interval;
5768
// *********************************************************************//
5769
// The Class CoHold provides a Create and CreateRemote method to
5770
// create instances of the default interface IADsHold exposed by
5771
// the CoClass Hold. The functions are intended to be used by
5772
// clients wishing to automate the CoClass objects exposed by the
5773
// server of this typelibrary.
5774
// *********************************************************************//
5776
class function Create: IADsHold;
5777
class function CreateRemote(const MachineName: string): IADsHold;
5780
// *********************************************************************//
5781
// OLE Server Proxy class declaration
5782
// Server Object : THold
5784
// Default Interface: IADsHold
5785
// Def. Intf. DISP? : No
5787
// TypeFlags : (2) CanCreate
5788
// *********************************************************************//
5789
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5790
THoldProperties= class;
5792
THold = class(TOleServer)
5795
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5796
FProps: THoldProperties;
5797
function GetServerProperties: THoldProperties;
5799
function GetDefaultInterface: IADsHold;
5801
procedure InitServerData; override;
5802
function Get_ObjectName: WideString;
5803
procedure Set_ObjectName(const retval: WideString);
5804
function Get_Amount: Integer;
5805
procedure Set_Amount(retval: Integer);
5807
constructor Create(AOwner: TComponent); override;
5808
destructor Destroy; override;
5809
procedure Connect; override;
5810
procedure ConnectTo(svrIntf: IADsHold);
5811
procedure Disconnect; override;
5812
property DefaultInterface: IADsHold read GetDefaultInterface;
5813
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5814
property Amount: Integer read Get_Amount write Set_Amount;
5816
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5817
property Server: THoldProperties read GetServerProperties;
5821
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5822
// *********************************************************************//
5823
// OLE Server Properties Proxy Class
5824
// Server Object : THold
5825
// (This object is used by the IDE's Property Inspector to allow editing
5826
// of the properties of this server)
5827
// *********************************************************************//
5828
THoldProperties = class(TPersistent)
5831
function GetDefaultInterface: IADsHold;
5832
constructor Create(AServer: THold);
5834
function Get_ObjectName: WideString;
5835
procedure Set_ObjectName(const retval: WideString);
5836
function Get_Amount: Integer;
5837
procedure Set_Amount(retval: Integer);
5839
property DefaultInterface: IADsHold read GetDefaultInterface;
5841
property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
5842
property Amount: Integer read Get_Amount write Set_Amount;
5846
// *********************************************************************//
5847
// The Class CoPathname provides a Create and CreateRemote method to
5848
// create instances of the default interface IADsPathname exposed by
5849
// the CoClass Pathname. The functions are intended to be used by
5850
// clients wishing to automate the CoClass objects exposed by the
5851
// server of this typelibrary.
5852
// *********************************************************************//
5854
class function Create: IADsPathname;
5855
class function CreateRemote(const MachineName: string): IADsPathname;
5858
// *********************************************************************//
5859
// OLE Server Proxy class declaration
5860
// Server Object : TPathname
5862
// Default Interface: IADsPathname
5863
// Def. Intf. DISP? : No
5865
// TypeFlags : (2) CanCreate
5866
// *********************************************************************//
5867
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5868
TPathnameProperties= class;
5870
TPathname = class(TOleServer)
5872
FIntf: IADsPathname;
5873
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5874
FProps: TPathnameProperties;
5875
function GetServerProperties: TPathnameProperties;
5877
function GetDefaultInterface: IADsPathname;
5879
procedure InitServerData; override;
5880
function Get_EscapedMode: Integer;
5881
procedure Set_EscapedMode(retval: Integer);
5883
constructor Create(AOwner: TComponent); override;
5884
destructor Destroy; override;
5885
procedure Connect; override;
5886
procedure ConnectTo(svrIntf: IADsPathname);
5887
procedure Disconnect; override;
5888
procedure Set_(const bstrADsPath: WideString; lnSetType: Integer);
5889
procedure SetDisplayType(lnDisplayType: Integer);
5890
function Retrieve(lnFormatType: Integer): WideString;
5891
function GetNumElements: Integer;
5892
function GetElement(lnElementIndex: Integer): WideString;
5893
procedure AddLeafElement(const bstrLeafElement: WideString);
5894
procedure RemoveLeafElement;
5895
function CopyPath: IDispatch;
5896
function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
5897
property DefaultInterface: IADsPathname read GetDefaultInterface;
5898
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
5900
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5901
property Server: TPathnameProperties read GetServerProperties;
5905
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5906
// *********************************************************************//
5907
// OLE Server Properties Proxy Class
5908
// Server Object : TPathname
5909
// (This object is used by the IDE's Property Inspector to allow editing
5910
// of the properties of this server)
5911
// *********************************************************************//
5912
TPathnameProperties = class(TPersistent)
5915
function GetDefaultInterface: IADsPathname;
5916
constructor Create(AServer: TPathname);
5918
function Get_EscapedMode: Integer;
5919
procedure Set_EscapedMode(retval: Integer);
5921
property DefaultInterface: IADsPathname read GetDefaultInterface;
5923
property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
5927
// *********************************************************************//
5928
// The Class CoADSystemInfo provides a Create and CreateRemote method to
5929
// create instances of the default interface IADsADSystemInfo exposed by
5930
// the CoClass ADSystemInfo. The functions are intended to be used by
5931
// clients wishing to automate the CoClass objects exposed by the
5932
// server of this typelibrary.
5933
// *********************************************************************//
5934
CoADSystemInfo = class
5935
class function Create: IADsADSystemInfo;
5936
class function CreateRemote(const MachineName: string): IADsADSystemInfo;
5939
// *********************************************************************//
5940
// OLE Server Proxy class declaration
5941
// Server Object : TADSystemInfo
5943
// Default Interface: IADsADSystemInfo
5944
// Def. Intf. DISP? : No
5946
// TypeFlags : (2) CanCreate
5947
// *********************************************************************//
5948
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5949
TADSystemInfoProperties= class;
5951
TADSystemInfo = class(TOleServer)
5953
FIntf: IADsADSystemInfo;
5954
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5955
FProps: TADSystemInfoProperties;
5956
function GetServerProperties: TADSystemInfoProperties;
5958
function GetDefaultInterface: IADsADSystemInfo;
5960
procedure InitServerData; override;
5961
function Get_UserName: WideString;
5962
function Get_ComputerName: WideString;
5963
function Get_SiteName: WideString;
5964
function Get_DomainShortName: WideString;
5965
function Get_DomainDNSName: WideString;
5966
function Get_ForestDNSName: WideString;
5967
function Get_PDCRoleOwner: WideString;
5968
function Get_SchemaRoleOwner: WideString;
5969
function Get_IsNativeMode: WordBool;
5971
constructor Create(AOwner: TComponent); override;
5972
destructor Destroy; override;
5973
procedure Connect; override;
5974
procedure ConnectTo(svrIntf: IADsADSystemInfo);
5975
procedure Disconnect; override;
5976
function GetAnyDCName: WideString;
5977
function GetDCSiteName(const szServer: WideString): WideString;
5978
procedure RefreshSchemaCache;
5979
function GetTrees: OleVariant;
5980
property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
5981
property UserName: WideString read Get_UserName;
5982
property ComputerName: WideString read Get_ComputerName;
5983
property SiteName: WideString read Get_SiteName;
5984
property DomainShortName: WideString read Get_DomainShortName;
5985
property DomainDNSName: WideString read Get_DomainDNSName;
5986
property ForestDNSName: WideString read Get_ForestDNSName;
5987
property PDCRoleOwner: WideString read Get_PDCRoleOwner;
5988
property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
5989
property IsNativeMode: WordBool read Get_IsNativeMode;
5991
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5992
property Server: TADSystemInfoProperties read GetServerProperties;
5996
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
5997
// *********************************************************************//
5998
// OLE Server Properties Proxy Class
5999
// Server Object : TADSystemInfo
6000
// (This object is used by the IDE's Property Inspector to allow editing
6001
// of the properties of this server)
6002
// *********************************************************************//
6003
TADSystemInfoProperties = class(TPersistent)
6005
FServer: TADSystemInfo;
6006
function GetDefaultInterface: IADsADSystemInfo;
6007
constructor Create(AServer: TADSystemInfo);
6009
function Get_UserName: WideString;
6010
function Get_ComputerName: WideString;
6011
function Get_SiteName: WideString;
6012
function Get_DomainShortName: WideString;
6013
function Get_DomainDNSName: WideString;
6014
function Get_ForestDNSName: WideString;
6015
function Get_PDCRoleOwner: WideString;
6016
function Get_SchemaRoleOwner: WideString;
6017
function Get_IsNativeMode: WordBool;
6019
property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
6024
// *********************************************************************//
6025
// The Class CoWinNTSystemInfo provides a Create and CreateRemote method to
6026
// create instances of the default interface IADsWinNTSystemInfo exposed by
6027
// the CoClass WinNTSystemInfo. The functions are intended to be used by
6028
// clients wishing to automate the CoClass objects exposed by the
6029
// server of this typelibrary.
6030
// *********************************************************************//
6031
CoWinNTSystemInfo = class
6032
class function Create: IADsWinNTSystemInfo;
6033
class function CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
6036
// *********************************************************************//
6037
// OLE Server Proxy class declaration
6038
// Server Object : TWinNTSystemInfo
6040
// Default Interface: IADsWinNTSystemInfo
6041
// Def. Intf. DISP? : No
6043
// TypeFlags : (2) CanCreate
6044
// *********************************************************************//
6045
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6046
TWinNTSystemInfoProperties= class;
6048
TWinNTSystemInfo = class(TOleServer)
6050
FIntf: IADsWinNTSystemInfo;
6051
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6052
FProps: TWinNTSystemInfoProperties;
6053
function GetServerProperties: TWinNTSystemInfoProperties;
6055
function GetDefaultInterface: IADsWinNTSystemInfo;
6057
procedure InitServerData; override;
6058
function Get_UserName: WideString;
6059
function Get_ComputerName: WideString;
6060
function Get_DomainName: WideString;
6061
function Get_PDC: WideString;
6063
constructor Create(AOwner: TComponent); override;
6064
destructor Destroy; override;
6065
procedure Connect; override;
6066
procedure ConnectTo(svrIntf: IADsWinNTSystemInfo);
6067
procedure Disconnect; override;
6068
property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
6069
property UserName: WideString read Get_UserName;
6070
property ComputerName: WideString read Get_ComputerName;
6071
property DomainName: WideString read Get_DomainName;
6072
property PDC: WideString read Get_PDC;
6074
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6075
property Server: TWinNTSystemInfoProperties read GetServerProperties;
6079
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6080
// *********************************************************************//
6081
// OLE Server Properties Proxy Class
6082
// Server Object : TWinNTSystemInfo
6083
// (This object is used by the IDE's Property Inspector to allow editing
6084
// of the properties of this server)
6085
// *********************************************************************//
6086
TWinNTSystemInfoProperties = class(TPersistent)
6088
FServer: TWinNTSystemInfo;
6089
function GetDefaultInterface: IADsWinNTSystemInfo;
6090
constructor Create(AServer: TWinNTSystemInfo);
6092
function Get_UserName: WideString;
6093
function Get_ComputerName: WideString;
6094
function Get_DomainName: WideString;
6095
function Get_PDC: WideString;
6097
property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
6102
// *********************************************************************//
6103
// The Class CoDNWithBinary provides a Create and CreateRemote method to
6104
// create instances of the default interface IADsDNWithBinary exposed by
6105
// the CoClass DNWithBinary. The functions are intended to be used by
6106
// clients wishing to automate the CoClass objects exposed by the
6107
// server of this typelibrary.
6108
// *********************************************************************//
6109
CoDNWithBinary = class
6110
class function Create: IADsDNWithBinary;
6111
class function CreateRemote(const MachineName: string): IADsDNWithBinary;
6114
// *********************************************************************//
6115
// OLE Server Proxy class declaration
6116
// Server Object : TDNWithBinary
6118
// Default Interface: IADsDNWithBinary
6119
// Def. Intf. DISP? : No
6121
// TypeFlags : (2) CanCreate
6122
// *********************************************************************//
6123
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6124
TDNWithBinaryProperties= class;
6126
TDNWithBinary = class(TOleServer)
6128
FIntf: IADsDNWithBinary;
6129
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6130
FProps: TDNWithBinaryProperties;
6131
function GetServerProperties: TDNWithBinaryProperties;
6133
function GetDefaultInterface: IADsDNWithBinary;
6135
procedure InitServerData; override;
6136
function Get_BinaryValue: OleVariant;
6137
procedure Set_BinaryValue(retval: OleVariant);
6138
function Get_DNString: WideString;
6139
procedure Set_DNString(const retval: WideString);
6141
constructor Create(AOwner: TComponent); override;
6142
destructor Destroy; override;
6143
procedure Connect; override;
6144
procedure ConnectTo(svrIntf: IADsDNWithBinary);
6145
procedure Disconnect; override;
6146
property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
6147
property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
6148
property DNString: WideString read Get_DNString write Set_DNString;
6150
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6151
property Server: TDNWithBinaryProperties read GetServerProperties;
6155
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6156
// *********************************************************************//
6157
// OLE Server Properties Proxy Class
6158
// Server Object : TDNWithBinary
6159
// (This object is used by the IDE's Property Inspector to allow editing
6160
// of the properties of this server)
6161
// *********************************************************************//
6162
TDNWithBinaryProperties = class(TPersistent)
6164
FServer: TDNWithBinary;
6165
function GetDefaultInterface: IADsDNWithBinary;
6166
constructor Create(AServer: TDNWithBinary);
6168
function Get_BinaryValue: OleVariant;
6169
procedure Set_BinaryValue(retval: OleVariant);
6170
function Get_DNString: WideString;
6171
procedure Set_DNString(const retval: WideString);
6173
property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
6175
property DNString: WideString read Get_DNString write Set_DNString;
6179
// *********************************************************************//
6180
// The Class CoDNWithString provides a Create and CreateRemote method to
6181
// create instances of the default interface IADsDNWithString exposed by
6182
// the CoClass DNWithString. The functions are intended to be used by
6183
// clients wishing to automate the CoClass objects exposed by the
6184
// server of this typelibrary.
6185
// *********************************************************************//
6186
CoDNWithString = class
6187
class function Create: IADsDNWithString;
6188
class function CreateRemote(const MachineName: string): IADsDNWithString;
6191
// *********************************************************************//
6192
// OLE Server Proxy class declaration
6193
// Server Object : TDNWithString
6195
// Default Interface: IADsDNWithString
6196
// Def. Intf. DISP? : No
6198
// TypeFlags : (2) CanCreate
6199
// *********************************************************************//
6200
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6201
TDNWithStringProperties= class;
6203
TDNWithString = class(TOleServer)
6205
FIntf: IADsDNWithString;
6206
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6207
FProps: TDNWithStringProperties;
6208
function GetServerProperties: TDNWithStringProperties;
6210
function GetDefaultInterface: IADsDNWithString;
6212
procedure InitServerData; override;
6213
function Get_StringValue: WideString;
6214
procedure Set_StringValue(const retval: WideString);
6215
function Get_DNString: WideString;
6216
procedure Set_DNString(const retval: WideString);
6218
constructor Create(AOwner: TComponent); override;
6219
destructor Destroy; override;
6220
procedure Connect; override;
6221
procedure ConnectTo(svrIntf: IADsDNWithString);
6222
procedure Disconnect; override;
6223
property DefaultInterface: IADsDNWithString read GetDefaultInterface;
6224
property StringValue: WideString read Get_StringValue write Set_StringValue;
6225
property DNString: WideString read Get_DNString write Set_DNString;
6227
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6228
property Server: TDNWithStringProperties read GetServerProperties;
6232
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6233
// *********************************************************************//
6234
// OLE Server Properties Proxy Class
6235
// Server Object : TDNWithString
6236
// (This object is used by the IDE's Property Inspector to allow editing
6237
// of the properties of this server)
6238
// *********************************************************************//
6239
TDNWithStringProperties = class(TPersistent)
6241
FServer: TDNWithString;
6242
function GetDefaultInterface: IADsDNWithString;
6243
constructor Create(AServer: TDNWithString);
6245
function Get_StringValue: WideString;
6246
procedure Set_StringValue(const retval: WideString);
6247
function Get_DNString: WideString;
6248
procedure Set_DNString(const retval: WideString);
6250
property DefaultInterface: IADsDNWithString read GetDefaultInterface;
6252
property StringValue: WideString read Get_StringValue write Set_StringValue;
6253
property DNString: WideString read Get_DNString write Set_DNString;
6263
class function CoPropertyEntry.Create: IADsPropertyEntry;
6265
Result := CreateComObject(CLASS_PropertyEntry) as IADsPropertyEntry;
6268
class function CoPropertyEntry.CreateRemote(const MachineName: string): IADsPropertyEntry;
6270
Result := CreateRemoteComObject(MachineName, CLASS_PropertyEntry) as IADsPropertyEntry;
6273
procedure TPropertyEntry.InitServerData;
6275
CServerData: TServerData = (
6276
ClassID: '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
6277
IntfIID: '{05792C8E-941F-11D0-8529-00C04FD8D503}';
6282
ServerData := @CServerData;
6285
procedure TPropertyEntry.Connect;
6292
Fintf:= punk as IADsPropertyEntry;
6296
procedure TPropertyEntry.ConnectTo(svrIntf: IADsPropertyEntry);
6302
procedure TPropertyEntry.DisConnect;
6304
if Fintf <> nil then
6310
function TPropertyEntry.GetDefaultInterface: IADsPropertyEntry;
6314
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
6318
constructor TPropertyEntry.Create(AOwner: TComponent);
6320
inherited Create(AOwner);
6321
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6322
FProps := TPropertyEntryProperties.Create(Self);
6326
destructor TPropertyEntry.Destroy;
6328
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6334
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6335
function TPropertyEntry.GetServerProperties: TPropertyEntryProperties;
6341
function TPropertyEntry.Get_Name: WideString;
6343
Result := DefaultInterface.Get_Name;
6346
procedure TPropertyEntry.Set_Name(const retval: WideString);
6348
DefaultInterface.Set_Name(retval);
6351
function TPropertyEntry.Get_ADsType: Integer;
6353
Result := DefaultInterface.Get_ADsType;
6356
procedure TPropertyEntry.Set_ADsType(retval: Integer);
6358
DefaultInterface.Set_ADsType(retval);
6361
function TPropertyEntry.Get_ControlCode: Integer;
6363
Result := DefaultInterface.Get_ControlCode;
6366
procedure TPropertyEntry.Set_ControlCode(retval: Integer);
6368
DefaultInterface.Set_ControlCode(retval);
6371
function TPropertyEntry.Get_Values: OleVariant;
6373
Result := DefaultInterface.Get_Values;
6376
procedure TPropertyEntry.Set_Values(retval: OleVariant);
6378
DefaultInterface.Set_Values(retval);
6381
procedure TPropertyEntry.Clear;
6383
DefaultInterface.Clear;
6386
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6387
constructor TPropertyEntryProperties.Create(AServer: TPropertyEntry);
6393
function TPropertyEntryProperties.GetDefaultInterface: IADsPropertyEntry;
6395
Result := FServer.DefaultInterface;
6398
function TPropertyEntryProperties.Get_Name: WideString;
6400
Result := DefaultInterface.Get_Name;
6403
procedure TPropertyEntryProperties.Set_Name(const retval: WideString);
6405
DefaultInterface.Set_Name(retval);
6408
function TPropertyEntryProperties.Get_ADsType: Integer;
6410
Result := DefaultInterface.Get_ADsType;
6413
procedure TPropertyEntryProperties.Set_ADsType(retval: Integer);
6415
DefaultInterface.Set_ADsType(retval);
6418
function TPropertyEntryProperties.Get_ControlCode: Integer;
6420
Result := DefaultInterface.Get_ControlCode;
6423
procedure TPropertyEntryProperties.Set_ControlCode(retval: Integer);
6425
DefaultInterface.Set_ControlCode(retval);
6428
function TPropertyEntryProperties.Get_Values: OleVariant;
6430
Result := DefaultInterface.Get_Values;
6433
procedure TPropertyEntryProperties.Set_Values(retval: OleVariant);
6435
DefaultInterface.Set_Values(retval);
6440
class function CoPropertyValue.Create: IADsPropertyValue;
6442
Result := CreateComObject(CLASS_PropertyValue) as IADsPropertyValue;
6445
class function CoPropertyValue.CreateRemote(const MachineName: string): IADsPropertyValue;
6447
Result := CreateRemoteComObject(MachineName, CLASS_PropertyValue) as IADsPropertyValue;
6450
procedure TPropertyValue.InitServerData;
6452
CServerData: TServerData = (
6453
ClassID: '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
6454
IntfIID: '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
6459
ServerData := @CServerData;
6462
procedure TPropertyValue.Connect;
6469
Fintf:= punk as IADsPropertyValue;
6473
procedure TPropertyValue.ConnectTo(svrIntf: IADsPropertyValue);
6479
procedure TPropertyValue.DisConnect;
6481
if Fintf <> nil then
6487
function TPropertyValue.GetDefaultInterface: IADsPropertyValue;
6491
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
6495
constructor TPropertyValue.Create(AOwner: TComponent);
6497
inherited Create(AOwner);
6498
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6499
FProps := TPropertyValueProperties.Create(Self);
6503
destructor TPropertyValue.Destroy;
6505
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6511
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6512
function TPropertyValue.GetServerProperties: TPropertyValueProperties;
6518
function TPropertyValue.Get_ADsType: Integer;
6520
Result := DefaultInterface.Get_ADsType;
6523
procedure TPropertyValue.Set_ADsType(retval: Integer);
6525
DefaultInterface.Set_ADsType(retval);
6528
function TPropertyValue.Get_DNString: WideString;
6530
Result := DefaultInterface.Get_DNString;
6533
procedure TPropertyValue.Set_DNString(const retval: WideString);
6535
DefaultInterface.Set_DNString(retval);
6538
function TPropertyValue.Get_CaseExactString: WideString;
6540
Result := DefaultInterface.Get_CaseExactString;
6543
procedure TPropertyValue.Set_CaseExactString(const retval: WideString);
6545
DefaultInterface.Set_CaseExactString(retval);
6548
function TPropertyValue.Get_CaseIgnoreString: WideString;
6550
Result := DefaultInterface.Get_CaseIgnoreString;
6553
procedure TPropertyValue.Set_CaseIgnoreString(const retval: WideString);
6555
DefaultInterface.Set_CaseIgnoreString(retval);
6558
function TPropertyValue.Get_PrintableString: WideString;
6560
Result := DefaultInterface.Get_PrintableString;
6563
procedure TPropertyValue.Set_PrintableString(const retval: WideString);
6565
DefaultInterface.Set_PrintableString(retval);
6568
function TPropertyValue.Get_NumericString: WideString;
6570
Result := DefaultInterface.Get_NumericString;
6573
procedure TPropertyValue.Set_NumericString(const retval: WideString);
6575
DefaultInterface.Set_NumericString(retval);
6578
function TPropertyValue.Get_Boolean: Integer;
6580
Result := DefaultInterface.Get_Boolean;
6583
procedure TPropertyValue.Set_Boolean(retval: Integer);
6585
DefaultInterface.Set_Boolean(retval);
6588
function TPropertyValue.Get_Integer: Integer;
6590
Result := DefaultInterface.Get_Integer;
6593
procedure TPropertyValue.Set_Integer(retval: Integer);
6595
DefaultInterface.Set_Integer(retval);
6598
function TPropertyValue.Get_OctetString: OleVariant;
6600
Result := DefaultInterface.Get_OctetString;
6603
procedure TPropertyValue.Set_OctetString(retval: OleVariant);
6605
DefaultInterface.Set_OctetString(retval);
6608
function TPropertyValue.Get_SecurityDescriptor: IDispatch;
6610
Result := DefaultInterface.Get_SecurityDescriptor;
6613
procedure TPropertyValue.Set_SecurityDescriptor(const retval: IDispatch);
6615
DefaultInterface.Set_SecurityDescriptor(retval);
6618
function TPropertyValue.Get_LargeInteger: IDispatch;
6620
Result := DefaultInterface.Get_LargeInteger;
6623
procedure TPropertyValue.Set_LargeInteger(const retval: IDispatch);
6625
DefaultInterface.Set_LargeInteger(retval);
6628
function TPropertyValue.Get_UTCTime: TDateTime;
6630
Result := DefaultInterface.Get_UTCTime;
6633
procedure TPropertyValue.Set_UTCTime(retval: TDateTime);
6635
DefaultInterface.Set_UTCTime(retval);
6638
procedure TPropertyValue.Clear;
6640
DefaultInterface.Clear;
6643
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6644
constructor TPropertyValueProperties.Create(AServer: TPropertyValue);
6650
function TPropertyValueProperties.GetDefaultInterface: IADsPropertyValue;
6652
Result := FServer.DefaultInterface;
6655
function TPropertyValueProperties.Get_ADsType: Integer;
6657
Result := DefaultInterface.Get_ADsType;
6660
procedure TPropertyValueProperties.Set_ADsType(retval: Integer);
6662
DefaultInterface.Set_ADsType(retval);
6665
function TPropertyValueProperties.Get_DNString: WideString;
6667
Result := DefaultInterface.Get_DNString;
6670
procedure TPropertyValueProperties.Set_DNString(const retval: WideString);
6672
DefaultInterface.Set_DNString(retval);
6675
function TPropertyValueProperties.Get_CaseExactString: WideString;
6677
Result := DefaultInterface.Get_CaseExactString;
6680
procedure TPropertyValueProperties.Set_CaseExactString(const retval: WideString);
6682
DefaultInterface.Set_CaseExactString(retval);
6685
function TPropertyValueProperties.Get_CaseIgnoreString: WideString;
6687
Result := DefaultInterface.Get_CaseIgnoreString;
6690
procedure TPropertyValueProperties.Set_CaseIgnoreString(const retval: WideString);
6692
DefaultInterface.Set_CaseIgnoreString(retval);
6695
function TPropertyValueProperties.Get_PrintableString: WideString;
6697
Result := DefaultInterface.Get_PrintableString;
6700
procedure TPropertyValueProperties.Set_PrintableString(const retval: WideString);
6702
DefaultInterface.Set_PrintableString(retval);
6705
function TPropertyValueProperties.Get_NumericString: WideString;
6707
Result := DefaultInterface.Get_NumericString;
6710
procedure TPropertyValueProperties.Set_NumericString(const retval: WideString);
6712
DefaultInterface.Set_NumericString(retval);
6715
function TPropertyValueProperties.Get_Boolean: Integer;
6717
Result := DefaultInterface.Get_Boolean;
6720
procedure TPropertyValueProperties.Set_Boolean(retval: Integer);
6722
DefaultInterface.Set_Boolean(retval);
6725
function TPropertyValueProperties.Get_Integer: Integer;
6727
Result := DefaultInterface.Get_Integer;
6730
procedure TPropertyValueProperties.Set_Integer(retval: Integer);
6732
DefaultInterface.Set_Integer(retval);
6735
function TPropertyValueProperties.Get_OctetString: OleVariant;
6737
Result := DefaultInterface.Get_OctetString;
6740
procedure TPropertyValueProperties.Set_OctetString(retval: OleVariant);
6742
DefaultInterface.Set_OctetString(retval);
6745
function TPropertyValueProperties.Get_SecurityDescriptor: IDispatch;
6747
Result := DefaultInterface.Get_SecurityDescriptor;
6750
procedure TPropertyValueProperties.Set_SecurityDescriptor(const retval: IDispatch);
6752
DefaultInterface.Set_SecurityDescriptor(retval);
6755
function TPropertyValueProperties.Get_LargeInteger: IDispatch;
6757
Result := DefaultInterface.Get_LargeInteger;
6760
procedure TPropertyValueProperties.Set_LargeInteger(const retval: IDispatch);
6762
DefaultInterface.Set_LargeInteger(retval);
6765
function TPropertyValueProperties.Get_UTCTime: TDateTime;
6767
Result := DefaultInterface.Get_UTCTime;
6770
procedure TPropertyValueProperties.Set_UTCTime(retval: TDateTime);
6772
DefaultInterface.Set_UTCTime(retval);
6777
class function CoAccessControlEntry.Create: IADsAccessControlEntry;
6779
Result := CreateComObject(CLASS_AccessControlEntry) as IADsAccessControlEntry;
6782
class function CoAccessControlEntry.CreateRemote(const MachineName: string): IADsAccessControlEntry;
6784
Result := CreateRemoteComObject(MachineName, CLASS_AccessControlEntry) as IADsAccessControlEntry;
6787
procedure TAccessControlEntry.InitServerData;
6789
CServerData: TServerData = (
6790
ClassID: '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
6791
IntfIID: '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
6796
ServerData := @CServerData;
6799
procedure TAccessControlEntry.Connect;
6806
Fintf:= punk as IADsAccessControlEntry;
6810
procedure TAccessControlEntry.ConnectTo(svrIntf: IADsAccessControlEntry);
6816
procedure TAccessControlEntry.DisConnect;
6818
if Fintf <> nil then
6824
function TAccessControlEntry.GetDefaultInterface: IADsAccessControlEntry;
6828
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
6832
constructor TAccessControlEntry.Create(AOwner: TComponent);
6834
inherited Create(AOwner);
6835
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6836
FProps := TAccessControlEntryProperties.Create(Self);
6840
destructor TAccessControlEntry.Destroy;
6842
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6848
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6849
function TAccessControlEntry.GetServerProperties: TAccessControlEntryProperties;
6855
function TAccessControlEntry.Get_AccessMask: Integer;
6857
Result := DefaultInterface.Get_AccessMask;
6860
procedure TAccessControlEntry.Set_AccessMask(retval: Integer);
6862
DefaultInterface.Set_AccessMask(retval);
6865
function TAccessControlEntry.Get_AceType: Integer;
6867
Result := DefaultInterface.Get_AceType;
6870
procedure TAccessControlEntry.Set_AceType(retval: Integer);
6872
DefaultInterface.Set_AceType(retval);
6875
function TAccessControlEntry.Get_AceFlags: Integer;
6877
Result := DefaultInterface.Get_AceFlags;
6880
procedure TAccessControlEntry.Set_AceFlags(retval: Integer);
6882
DefaultInterface.Set_AceFlags(retval);
6885
function TAccessControlEntry.Get_Flags: Integer;
6887
Result := DefaultInterface.Get_Flags;
6890
procedure TAccessControlEntry.Set_Flags(retval: Integer);
6892
DefaultInterface.Set_Flags(retval);
6895
function TAccessControlEntry.Get_ObjectType: WideString;
6897
Result := DefaultInterface.Get_ObjectType;
6900
procedure TAccessControlEntry.Set_ObjectType(const retval: WideString);
6902
DefaultInterface.Set_ObjectType(retval);
6905
function TAccessControlEntry.Get_InheritedObjectType: WideString;
6907
Result := DefaultInterface.Get_InheritedObjectType;
6910
procedure TAccessControlEntry.Set_InheritedObjectType(const retval: WideString);
6912
DefaultInterface.Set_InheritedObjectType(retval);
6915
function TAccessControlEntry.Get_Trustee: WideString;
6917
Result := DefaultInterface.Get_Trustee;
6920
procedure TAccessControlEntry.Set_Trustee(const retval: WideString);
6922
DefaultInterface.Set_Trustee(retval);
6925
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
6926
constructor TAccessControlEntryProperties.Create(AServer: TAccessControlEntry);
6932
function TAccessControlEntryProperties.GetDefaultInterface: IADsAccessControlEntry;
6934
Result := FServer.DefaultInterface;
6937
function TAccessControlEntryProperties.Get_AccessMask: Integer;
6939
Result := DefaultInterface.Get_AccessMask;
6942
procedure TAccessControlEntryProperties.Set_AccessMask(retval: Integer);
6944
DefaultInterface.Set_AccessMask(retval);
6947
function TAccessControlEntryProperties.Get_AceType: Integer;
6949
Result := DefaultInterface.Get_AceType;
6952
procedure TAccessControlEntryProperties.Set_AceType(retval: Integer);
6954
DefaultInterface.Set_AceType(retval);
6957
function TAccessControlEntryProperties.Get_AceFlags: Integer;
6959
Result := DefaultInterface.Get_AceFlags;
6962
procedure TAccessControlEntryProperties.Set_AceFlags(retval: Integer);
6964
DefaultInterface.Set_AceFlags(retval);
6967
function TAccessControlEntryProperties.Get_Flags: Integer;
6969
Result := DefaultInterface.Get_Flags;
6972
procedure TAccessControlEntryProperties.Set_Flags(retval: Integer);
6974
DefaultInterface.Set_Flags(retval);
6977
function TAccessControlEntryProperties.Get_ObjectType: WideString;
6979
Result := DefaultInterface.Get_ObjectType;
6982
procedure TAccessControlEntryProperties.Set_ObjectType(const retval: WideString);
6984
DefaultInterface.Set_ObjectType(retval);
6987
function TAccessControlEntryProperties.Get_InheritedObjectType: WideString;
6989
Result := DefaultInterface.Get_InheritedObjectType;
6992
procedure TAccessControlEntryProperties.Set_InheritedObjectType(const retval: WideString);
6994
DefaultInterface.Set_InheritedObjectType(retval);
6997
function TAccessControlEntryProperties.Get_Trustee: WideString;
6999
Result := DefaultInterface.Get_Trustee;
7002
procedure TAccessControlEntryProperties.Set_Trustee(const retval: WideString);
7004
DefaultInterface.Set_Trustee(retval);
7009
class function CoAccessControlList.Create: IADsAccessControlList;
7011
Result := CreateComObject(CLASS_AccessControlList) as IADsAccessControlList;
7014
class function CoAccessControlList.CreateRemote(const MachineName: string): IADsAccessControlList;
7016
Result := CreateRemoteComObject(MachineName, CLASS_AccessControlList) as IADsAccessControlList;
7019
procedure TAccessControlList.InitServerData;
7021
CServerData: TServerData = (
7022
ClassID: '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
7023
IntfIID: '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
7028
ServerData := @CServerData;
7031
procedure TAccessControlList.Connect;
7038
Fintf:= punk as IADsAccessControlList;
7042
procedure TAccessControlList.ConnectTo(svrIntf: IADsAccessControlList);
7048
procedure TAccessControlList.DisConnect;
7050
if Fintf <> nil then
7056
function TAccessControlList.GetDefaultInterface: IADsAccessControlList;
7060
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7064
constructor TAccessControlList.Create(AOwner: TComponent);
7066
inherited Create(AOwner);
7067
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7068
FProps := TAccessControlListProperties.Create(Self);
7072
destructor TAccessControlList.Destroy;
7074
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7080
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7081
function TAccessControlList.GetServerProperties: TAccessControlListProperties;
7087
function TAccessControlList.Get_AclRevision: Integer;
7089
Result := DefaultInterface.Get_AclRevision;
7092
procedure TAccessControlList.Set_AclRevision(retval: Integer);
7094
DefaultInterface.Set_AclRevision(retval);
7097
function TAccessControlList.Get_AceCount: Integer;
7099
Result := DefaultInterface.Get_AceCount;
7102
procedure TAccessControlList.Set_AceCount(retval: Integer);
7104
DefaultInterface.Set_AceCount(retval);
7107
procedure TAccessControlList.AddAce(const pAccessControlEntry: IDispatch);
7109
DefaultInterface.AddAce(pAccessControlEntry);
7112
procedure TAccessControlList.RemoveAce(const pAccessControlEntry: IDispatch);
7114
DefaultInterface.RemoveAce(pAccessControlEntry);
7117
function TAccessControlList.CopyAccessList: IDispatch;
7119
Result := DefaultInterface.CopyAccessList;
7122
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7123
constructor TAccessControlListProperties.Create(AServer: TAccessControlList);
7129
function TAccessControlListProperties.GetDefaultInterface: IADsAccessControlList;
7131
Result := FServer.DefaultInterface;
7134
function TAccessControlListProperties.Get_AclRevision: Integer;
7136
Result := DefaultInterface.Get_AclRevision;
7139
procedure TAccessControlListProperties.Set_AclRevision(retval: Integer);
7141
DefaultInterface.Set_AclRevision(retval);
7144
function TAccessControlListProperties.Get_AceCount: Integer;
7146
Result := DefaultInterface.Get_AceCount;
7149
procedure TAccessControlListProperties.Set_AceCount(retval: Integer);
7151
DefaultInterface.Set_AceCount(retval);
7156
class function CoSecurityDescriptor.Create: IADsSecurityDescriptor;
7158
Result := CreateComObject(CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
7161
class function CoSecurityDescriptor.CreateRemote(const MachineName: string): IADsSecurityDescriptor;
7163
Result := CreateRemoteComObject(MachineName, CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
7166
procedure TSecurityDescriptor.InitServerData;
7168
CServerData: TServerData = (
7169
ClassID: '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
7170
IntfIID: '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
7175
ServerData := @CServerData;
7178
procedure TSecurityDescriptor.Connect;
7185
Fintf:= punk as IADsSecurityDescriptor;
7189
procedure TSecurityDescriptor.ConnectTo(svrIntf: IADsSecurityDescriptor);
7195
procedure TSecurityDescriptor.DisConnect;
7197
if Fintf <> nil then
7203
function TSecurityDescriptor.GetDefaultInterface: IADsSecurityDescriptor;
7207
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7211
constructor TSecurityDescriptor.Create(AOwner: TComponent);
7213
inherited Create(AOwner);
7214
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7215
FProps := TSecurityDescriptorProperties.Create(Self);
7219
destructor TSecurityDescriptor.Destroy;
7221
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7227
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7228
function TSecurityDescriptor.GetServerProperties: TSecurityDescriptorProperties;
7234
function TSecurityDescriptor.Get_Revision: Integer;
7236
Result := DefaultInterface.Get_Revision;
7239
procedure TSecurityDescriptor.Set_Revision(retval: Integer);
7241
DefaultInterface.Set_Revision(retval);
7244
function TSecurityDescriptor.Get_Control: Integer;
7246
Result := DefaultInterface.Get_Control;
7249
procedure TSecurityDescriptor.Set_Control(retval: Integer);
7251
DefaultInterface.Set_Control(retval);
7254
function TSecurityDescriptor.Get_Owner: WideString;
7256
Result := DefaultInterface.Get_Owner;
7259
procedure TSecurityDescriptor.Set_Owner(const retval: WideString);
7261
DefaultInterface.Set_Owner(retval);
7264
function TSecurityDescriptor.Get_OwnerDefaulted: WordBool;
7266
Result := DefaultInterface.Get_OwnerDefaulted;
7269
procedure TSecurityDescriptor.Set_OwnerDefaulted(retval: WordBool);
7271
DefaultInterface.Set_OwnerDefaulted(retval);
7274
function TSecurityDescriptor.Get_Group: WideString;
7276
Result := DefaultInterface.Get_Group;
7279
procedure TSecurityDescriptor.Set_Group(const retval: WideString);
7281
DefaultInterface.Set_Group(retval);
7284
function TSecurityDescriptor.Get_GroupDefaulted: WordBool;
7286
Result := DefaultInterface.Get_GroupDefaulted;
7289
procedure TSecurityDescriptor.Set_GroupDefaulted(retval: WordBool);
7291
DefaultInterface.Set_GroupDefaulted(retval);
7294
function TSecurityDescriptor.Get_DiscretionaryAcl: IDispatch;
7296
Result := DefaultInterface.Get_DiscretionaryAcl;
7299
procedure TSecurityDescriptor.Set_DiscretionaryAcl(const retval: IDispatch);
7301
DefaultInterface.Set_DiscretionaryAcl(retval);
7304
function TSecurityDescriptor.Get_DaclDefaulted: WordBool;
7306
Result := DefaultInterface.Get_DaclDefaulted;
7309
procedure TSecurityDescriptor.Set_DaclDefaulted(retval: WordBool);
7311
DefaultInterface.Set_DaclDefaulted(retval);
7314
function TSecurityDescriptor.Get_SystemAcl: IDispatch;
7316
Result := DefaultInterface.Get_SystemAcl;
7319
procedure TSecurityDescriptor.Set_SystemAcl(const retval: IDispatch);
7321
DefaultInterface.Set_SystemAcl(retval);
7324
function TSecurityDescriptor.Get_SaclDefaulted: WordBool;
7326
Result := DefaultInterface.Get_SaclDefaulted;
7329
procedure TSecurityDescriptor.Set_SaclDefaulted(retval: WordBool);
7331
DefaultInterface.Set_SaclDefaulted(retval);
7334
function TSecurityDescriptor.CopySecurityDescriptor: IDispatch;
7336
Result := DefaultInterface.CopySecurityDescriptor;
7339
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7340
constructor TSecurityDescriptorProperties.Create(AServer: TSecurityDescriptor);
7346
function TSecurityDescriptorProperties.GetDefaultInterface: IADsSecurityDescriptor;
7348
Result := FServer.DefaultInterface;
7351
function TSecurityDescriptorProperties.Get_Revision: Integer;
7353
Result := DefaultInterface.Get_Revision;
7356
procedure TSecurityDescriptorProperties.Set_Revision(retval: Integer);
7358
DefaultInterface.Set_Revision(retval);
7361
function TSecurityDescriptorProperties.Get_Control: Integer;
7363
Result := DefaultInterface.Get_Control;
7366
procedure TSecurityDescriptorProperties.Set_Control(retval: Integer);
7368
DefaultInterface.Set_Control(retval);
7371
function TSecurityDescriptorProperties.Get_Owner: WideString;
7373
Result := DefaultInterface.Get_Owner;
7376
procedure TSecurityDescriptorProperties.Set_Owner(const retval: WideString);
7378
DefaultInterface.Set_Owner(retval);
7381
function TSecurityDescriptorProperties.Get_OwnerDefaulted: WordBool;
7383
Result := DefaultInterface.Get_OwnerDefaulted;
7386
procedure TSecurityDescriptorProperties.Set_OwnerDefaulted(retval: WordBool);
7388
DefaultInterface.Set_OwnerDefaulted(retval);
7391
function TSecurityDescriptorProperties.Get_Group: WideString;
7393
Result := DefaultInterface.Get_Group;
7396
procedure TSecurityDescriptorProperties.Set_Group(const retval: WideString);
7398
DefaultInterface.Set_Group(retval);
7401
function TSecurityDescriptorProperties.Get_GroupDefaulted: WordBool;
7403
Result := DefaultInterface.Get_GroupDefaulted;
7406
procedure TSecurityDescriptorProperties.Set_GroupDefaulted(retval: WordBool);
7408
DefaultInterface.Set_GroupDefaulted(retval);
7411
function TSecurityDescriptorProperties.Get_DiscretionaryAcl: IDispatch;
7413
Result := DefaultInterface.Get_DiscretionaryAcl;
7416
procedure TSecurityDescriptorProperties.Set_DiscretionaryAcl(const retval: IDispatch);
7418
DefaultInterface.Set_DiscretionaryAcl(retval);
7421
function TSecurityDescriptorProperties.Get_DaclDefaulted: WordBool;
7423
Result := DefaultInterface.Get_DaclDefaulted;
7426
procedure TSecurityDescriptorProperties.Set_DaclDefaulted(retval: WordBool);
7428
DefaultInterface.Set_DaclDefaulted(retval);
7431
function TSecurityDescriptorProperties.Get_SystemAcl: IDispatch;
7433
Result := DefaultInterface.Get_SystemAcl;
7436
procedure TSecurityDescriptorProperties.Set_SystemAcl(const retval: IDispatch);
7438
DefaultInterface.Set_SystemAcl(retval);
7441
function TSecurityDescriptorProperties.Get_SaclDefaulted: WordBool;
7443
Result := DefaultInterface.Get_SaclDefaulted;
7446
procedure TSecurityDescriptorProperties.Set_SaclDefaulted(retval: WordBool);
7448
DefaultInterface.Set_SaclDefaulted(retval);
7453
class function CoLargeInteger.Create: IADsLargeInteger;
7455
Result := CreateComObject(CLASS_LargeInteger) as IADsLargeInteger;
7458
class function CoLargeInteger.CreateRemote(const MachineName: string): IADsLargeInteger;
7460
Result := CreateRemoteComObject(MachineName, CLASS_LargeInteger) as IADsLargeInteger;
7463
procedure TLargeInteger.InitServerData;
7465
CServerData: TServerData = (
7466
ClassID: '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
7467
IntfIID: '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
7472
ServerData := @CServerData;
7475
procedure TLargeInteger.Connect;
7482
Fintf:= punk as IADsLargeInteger;
7486
procedure TLargeInteger.ConnectTo(svrIntf: IADsLargeInteger);
7492
procedure TLargeInteger.DisConnect;
7494
if Fintf <> nil then
7500
function TLargeInteger.GetDefaultInterface: IADsLargeInteger;
7504
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7508
constructor TLargeInteger.Create(AOwner: TComponent);
7510
inherited Create(AOwner);
7511
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7512
FProps := TLargeIntegerProperties.Create(Self);
7516
destructor TLargeInteger.Destroy;
7518
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7524
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7525
function TLargeInteger.GetServerProperties: TLargeIntegerProperties;
7531
function TLargeInteger.Get_HighPart: Integer;
7533
Result := DefaultInterface.Get_HighPart;
7536
procedure TLargeInteger.Set_HighPart(retval: Integer);
7538
DefaultInterface.Set_HighPart(retval);
7541
function TLargeInteger.Get_LowPart: Integer;
7543
Result := DefaultInterface.Get_LowPart;
7546
procedure TLargeInteger.Set_LowPart(retval: Integer);
7548
DefaultInterface.Set_LowPart(retval);
7551
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7552
constructor TLargeIntegerProperties.Create(AServer: TLargeInteger);
7558
function TLargeIntegerProperties.GetDefaultInterface: IADsLargeInteger;
7560
Result := FServer.DefaultInterface;
7563
function TLargeIntegerProperties.Get_HighPart: Integer;
7565
Result := DefaultInterface.Get_HighPart;
7568
procedure TLargeIntegerProperties.Set_HighPart(retval: Integer);
7570
DefaultInterface.Set_HighPart(retval);
7573
function TLargeIntegerProperties.Get_LowPart: Integer;
7575
Result := DefaultInterface.Get_LowPart;
7578
procedure TLargeIntegerProperties.Set_LowPart(retval: Integer);
7580
DefaultInterface.Set_LowPart(retval);
7585
class function CoNameTranslate.Create: IADsNameTranslate;
7587
Result := CreateComObject(CLASS_NameTranslate) as IADsNameTranslate;
7590
class function CoNameTranslate.CreateRemote(const MachineName: string): IADsNameTranslate;
7592
Result := CreateRemoteComObject(MachineName, CLASS_NameTranslate) as IADsNameTranslate;
7595
procedure TNameTranslate.InitServerData;
7597
CServerData: TServerData = (
7598
ClassID: '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
7599
IntfIID: '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
7604
ServerData := @CServerData;
7607
procedure TNameTranslate.Connect;
7614
Fintf:= punk as IADsNameTranslate;
7618
procedure TNameTranslate.ConnectTo(svrIntf: IADsNameTranslate);
7624
procedure TNameTranslate.DisConnect;
7626
if Fintf <> nil then
7632
function TNameTranslate.GetDefaultInterface: IADsNameTranslate;
7636
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7640
constructor TNameTranslate.Create(AOwner: TComponent);
7642
inherited Create(AOwner);
7643
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7644
FProps := TNameTranslateProperties.Create(Self);
7648
destructor TNameTranslate.Destroy;
7650
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7656
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7657
function TNameTranslate.GetServerProperties: TNameTranslateProperties;
7663
procedure TNameTranslate.Set_ChaseReferral(Param1: Integer);
7665
DefaultInterface.Set_ChaseReferral(Param1);
7668
procedure TNameTranslate.Init(lnSetType: Integer; const bstrADsPath: WideString);
7670
DefaultInterface.Init(lnSetType, bstrADsPath);
7673
procedure TNameTranslate.InitEx(lnSetType: Integer; const bstrADsPath: WideString;
7674
const bstrUserID: WideString; const bstrDomain: WideString;
7675
const bstrPassword: WideString);
7677
DefaultInterface.InitEx(lnSetType, bstrADsPath, bstrUserID, bstrDomain, bstrPassword);
7680
procedure TNameTranslate.Set_(lnSetType: Integer; const bstrADsPath: WideString);
7682
DefaultInterface.Set_(lnSetType, bstrADsPath);
7685
function TNameTranslate.Get(lnFormatType: Integer): WideString;
7687
Result := DefaultInterface.Get(lnFormatType);
7690
procedure TNameTranslate.SetEx(lnFormatType: Integer; pVar: OleVariant);
7692
DefaultInterface.SetEx(lnFormatType, pVar);
7695
function TNameTranslate.GetEx(lnFormatType: Integer): OleVariant;
7697
Result := DefaultInterface.GetEx(lnFormatType);
7700
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7701
constructor TNameTranslateProperties.Create(AServer: TNameTranslate);
7707
function TNameTranslateProperties.GetDefaultInterface: IADsNameTranslate;
7709
Result := FServer.DefaultInterface;
7712
procedure TNameTranslateProperties.Set_ChaseReferral(Param1: Integer);
7714
DefaultInterface.Set_ChaseReferral(Param1);
7719
class function CoCaseIgnoreList.Create: IADsCaseIgnoreList;
7721
Result := CreateComObject(CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
7724
class function CoCaseIgnoreList.CreateRemote(const MachineName: string): IADsCaseIgnoreList;
7726
Result := CreateRemoteComObject(MachineName, CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
7729
procedure TCaseIgnoreList.InitServerData;
7731
CServerData: TServerData = (
7732
ClassID: '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
7733
IntfIID: '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
7738
ServerData := @CServerData;
7741
procedure TCaseIgnoreList.Connect;
7748
Fintf:= punk as IADsCaseIgnoreList;
7752
procedure TCaseIgnoreList.ConnectTo(svrIntf: IADsCaseIgnoreList);
7758
procedure TCaseIgnoreList.DisConnect;
7760
if Fintf <> nil then
7766
function TCaseIgnoreList.GetDefaultInterface: IADsCaseIgnoreList;
7770
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7774
constructor TCaseIgnoreList.Create(AOwner: TComponent);
7776
inherited Create(AOwner);
7777
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7778
FProps := TCaseIgnoreListProperties.Create(Self);
7782
destructor TCaseIgnoreList.Destroy;
7784
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7790
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7791
function TCaseIgnoreList.GetServerProperties: TCaseIgnoreListProperties;
7797
function TCaseIgnoreList.Get_CaseIgnoreList: OleVariant;
7799
Result := DefaultInterface.Get_CaseIgnoreList;
7802
procedure TCaseIgnoreList.Set_CaseIgnoreList(retval: OleVariant);
7804
DefaultInterface.Set_CaseIgnoreList(retval);
7807
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7808
constructor TCaseIgnoreListProperties.Create(AServer: TCaseIgnoreList);
7814
function TCaseIgnoreListProperties.GetDefaultInterface: IADsCaseIgnoreList;
7816
Result := FServer.DefaultInterface;
7819
function TCaseIgnoreListProperties.Get_CaseIgnoreList: OleVariant;
7821
Result := DefaultInterface.Get_CaseIgnoreList;
7824
procedure TCaseIgnoreListProperties.Set_CaseIgnoreList(retval: OleVariant);
7826
DefaultInterface.Set_CaseIgnoreList(retval);
7831
class function CoFaxNumber.Create: IADsFaxNumber;
7833
Result := CreateComObject(CLASS_FaxNumber) as IADsFaxNumber;
7836
class function CoFaxNumber.CreateRemote(const MachineName: string): IADsFaxNumber;
7838
Result := CreateRemoteComObject(MachineName, CLASS_FaxNumber) as IADsFaxNumber;
7841
procedure TFaxNumber.InitServerData;
7843
CServerData: TServerData = (
7844
ClassID: '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
7845
IntfIID: '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
7850
ServerData := @CServerData;
7853
procedure TFaxNumber.Connect;
7860
Fintf:= punk as IADsFaxNumber;
7864
procedure TFaxNumber.ConnectTo(svrIntf: IADsFaxNumber);
7870
procedure TFaxNumber.DisConnect;
7872
if Fintf <> nil then
7878
function TFaxNumber.GetDefaultInterface: IADsFaxNumber;
7882
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
7886
constructor TFaxNumber.Create(AOwner: TComponent);
7888
inherited Create(AOwner);
7889
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7890
FProps := TFaxNumberProperties.Create(Self);
7894
destructor TFaxNumber.Destroy;
7896
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7902
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7903
function TFaxNumber.GetServerProperties: TFaxNumberProperties;
7909
function TFaxNumber.Get_TelephoneNumber: WideString;
7911
Result := DefaultInterface.Get_TelephoneNumber;
7914
procedure TFaxNumber.Set_TelephoneNumber(const retval: WideString);
7916
DefaultInterface.Set_TelephoneNumber(retval);
7919
function TFaxNumber.Get_Parameters: OleVariant;
7921
Result := DefaultInterface.Get_Parameters;
7924
procedure TFaxNumber.Set_Parameters(retval: OleVariant);
7926
DefaultInterface.Set_Parameters(retval);
7929
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
7930
constructor TFaxNumberProperties.Create(AServer: TFaxNumber);
7936
function TFaxNumberProperties.GetDefaultInterface: IADsFaxNumber;
7938
Result := FServer.DefaultInterface;
7941
function TFaxNumberProperties.Get_TelephoneNumber: WideString;
7943
Result := DefaultInterface.Get_TelephoneNumber;
7946
procedure TFaxNumberProperties.Set_TelephoneNumber(const retval: WideString);
7948
DefaultInterface.Set_TelephoneNumber(retval);
7951
function TFaxNumberProperties.Get_Parameters: OleVariant;
7953
Result := DefaultInterface.Get_Parameters;
7956
procedure TFaxNumberProperties.Set_Parameters(retval: OleVariant);
7958
DefaultInterface.Set_Parameters(retval);
7963
class function CoNetAddress.Create: IADsNetAddress;
7965
Result := CreateComObject(CLASS_NetAddress) as IADsNetAddress;
7968
class function CoNetAddress.CreateRemote(const MachineName: string): IADsNetAddress;
7970
Result := CreateRemoteComObject(MachineName, CLASS_NetAddress) as IADsNetAddress;
7973
procedure TNetAddress.InitServerData;
7975
CServerData: TServerData = (
7976
ClassID: '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
7977
IntfIID: '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
7982
ServerData := @CServerData;
7985
procedure TNetAddress.Connect;
7992
Fintf:= punk as IADsNetAddress;
7996
procedure TNetAddress.ConnectTo(svrIntf: IADsNetAddress);
8002
procedure TNetAddress.DisConnect;
8004
if Fintf <> nil then
8010
function TNetAddress.GetDefaultInterface: IADsNetAddress;
8014
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8018
constructor TNetAddress.Create(AOwner: TComponent);
8020
inherited Create(AOwner);
8021
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8022
FProps := TNetAddressProperties.Create(Self);
8026
destructor TNetAddress.Destroy;
8028
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8034
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8035
function TNetAddress.GetServerProperties: TNetAddressProperties;
8041
function TNetAddress.Get_AddressType: Integer;
8043
Result := DefaultInterface.Get_AddressType;
8046
procedure TNetAddress.Set_AddressType(retval: Integer);
8048
DefaultInterface.Set_AddressType(retval);
8051
function TNetAddress.Get_Address: OleVariant;
8053
Result := DefaultInterface.Get_Address;
8056
procedure TNetAddress.Set_Address(retval: OleVariant);
8058
DefaultInterface.Set_Address(retval);
8061
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8062
constructor TNetAddressProperties.Create(AServer: TNetAddress);
8068
function TNetAddressProperties.GetDefaultInterface: IADsNetAddress;
8070
Result := FServer.DefaultInterface;
8073
function TNetAddressProperties.Get_AddressType: Integer;
8075
Result := DefaultInterface.Get_AddressType;
8078
procedure TNetAddressProperties.Set_AddressType(retval: Integer);
8080
DefaultInterface.Set_AddressType(retval);
8083
function TNetAddressProperties.Get_Address: OleVariant;
8085
Result := DefaultInterface.Get_Address;
8088
procedure TNetAddressProperties.Set_Address(retval: OleVariant);
8090
DefaultInterface.Set_Address(retval);
8095
class function CoOctetList.Create: IADsOctetList;
8097
Result := CreateComObject(CLASS_OctetList) as IADsOctetList;
8100
class function CoOctetList.CreateRemote(const MachineName: string): IADsOctetList;
8102
Result := CreateRemoteComObject(MachineName, CLASS_OctetList) as IADsOctetList;
8105
procedure TOctetList.InitServerData;
8107
CServerData: TServerData = (
8108
ClassID: '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
8109
IntfIID: '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
8114
ServerData := @CServerData;
8117
procedure TOctetList.Connect;
8124
Fintf:= punk as IADsOctetList;
8128
procedure TOctetList.ConnectTo(svrIntf: IADsOctetList);
8134
procedure TOctetList.DisConnect;
8136
if Fintf <> nil then
8142
function TOctetList.GetDefaultInterface: IADsOctetList;
8146
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8150
constructor TOctetList.Create(AOwner: TComponent);
8152
inherited Create(AOwner);
8153
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8154
FProps := TOctetListProperties.Create(Self);
8158
destructor TOctetList.Destroy;
8160
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8166
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8167
function TOctetList.GetServerProperties: TOctetListProperties;
8173
function TOctetList.Get_OctetList: OleVariant;
8175
Result := DefaultInterface.Get_OctetList;
8178
procedure TOctetList.Set_OctetList(retval: OleVariant);
8180
DefaultInterface.Set_OctetList(retval);
8183
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8184
constructor TOctetListProperties.Create(AServer: TOctetList);
8190
function TOctetListProperties.GetDefaultInterface: IADsOctetList;
8192
Result := FServer.DefaultInterface;
8195
function TOctetListProperties.Get_OctetList: OleVariant;
8197
Result := DefaultInterface.Get_OctetList;
8200
procedure TOctetListProperties.Set_OctetList(retval: OleVariant);
8202
DefaultInterface.Set_OctetList(retval);
8207
class function CoEmail.Create: IADsEmail;
8209
Result := CreateComObject(CLASS_Email) as IADsEmail;
8212
class function CoEmail.CreateRemote(const MachineName: string): IADsEmail;
8214
Result := CreateRemoteComObject(MachineName, CLASS_Email) as IADsEmail;
8217
procedure TEmail.InitServerData;
8219
CServerData: TServerData = (
8220
ClassID: '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
8221
IntfIID: '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
8226
ServerData := @CServerData;
8229
procedure TEmail.Connect;
8236
Fintf:= punk as IADsEmail;
8240
procedure TEmail.ConnectTo(svrIntf: IADsEmail);
8246
procedure TEmail.DisConnect;
8248
if Fintf <> nil then
8254
function TEmail.GetDefaultInterface: IADsEmail;
8258
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8262
constructor TEmail.Create(AOwner: TComponent);
8264
inherited Create(AOwner);
8265
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8266
FProps := TEmailProperties.Create(Self);
8270
destructor TEmail.Destroy;
8272
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8278
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8279
function TEmail.GetServerProperties: TEmailProperties;
8285
function TEmail.Get_Type_: Integer;
8287
Result := DefaultInterface.Get_Type_;
8290
procedure TEmail.Set_Type_(retval: Integer);
8292
DefaultInterface.Set_Type_(retval);
8295
function TEmail.Get_Address: WideString;
8297
Result := DefaultInterface.Get_Address;
8300
procedure TEmail.Set_Address(const retval: WideString);
8302
DefaultInterface.Set_Address(retval);
8305
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8306
constructor TEmailProperties.Create(AServer: TEmail);
8312
function TEmailProperties.GetDefaultInterface: IADsEmail;
8314
Result := FServer.DefaultInterface;
8317
function TEmailProperties.Get_Type_: Integer;
8319
Result := DefaultInterface.Get_Type_;
8322
procedure TEmailProperties.Set_Type_(retval: Integer);
8324
DefaultInterface.Set_Type_(retval);
8327
function TEmailProperties.Get_Address: WideString;
8329
Result := DefaultInterface.Get_Address;
8332
procedure TEmailProperties.Set_Address(const retval: WideString);
8334
DefaultInterface.Set_Address(retval);
8339
class function CoPath.Create: IADsPath;
8341
Result := CreateComObject(CLASS_Path) as IADsPath;
8344
class function CoPath.CreateRemote(const MachineName: string): IADsPath;
8346
Result := CreateRemoteComObject(MachineName, CLASS_Path) as IADsPath;
8349
procedure TPath.InitServerData;
8351
CServerData: TServerData = (
8352
ClassID: '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
8353
IntfIID: '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
8358
ServerData := @CServerData;
8361
procedure TPath.Connect;
8368
Fintf:= punk as IADsPath;
8372
procedure TPath.ConnectTo(svrIntf: IADsPath);
8378
procedure TPath.DisConnect;
8380
if Fintf <> nil then
8386
function TPath.GetDefaultInterface: IADsPath;
8390
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8394
constructor TPath.Create(AOwner: TComponent);
8396
inherited Create(AOwner);
8397
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8398
FProps := TPathProperties.Create(Self);
8402
destructor TPath.Destroy;
8404
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8410
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8411
function TPath.GetServerProperties: TPathProperties;
8417
function TPath.Get_Type_: Integer;
8419
Result := DefaultInterface.Get_Type_;
8422
procedure TPath.Set_Type_(retval: Integer);
8424
DefaultInterface.Set_Type_(retval);
8427
function TPath.Get_VolumeName: WideString;
8429
Result := DefaultInterface.Get_VolumeName;
8432
procedure TPath.Set_VolumeName(const retval: WideString);
8434
DefaultInterface.Set_VolumeName(retval);
8437
function TPath.Get_Path: WideString;
8439
Result := DefaultInterface.Get_Path;
8442
procedure TPath.Set_Path(const retval: WideString);
8444
DefaultInterface.Set_Path(retval);
8447
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8448
constructor TPathProperties.Create(AServer: TPath);
8454
function TPathProperties.GetDefaultInterface: IADsPath;
8456
Result := FServer.DefaultInterface;
8459
function TPathProperties.Get_Type_: Integer;
8461
Result := DefaultInterface.Get_Type_;
8464
procedure TPathProperties.Set_Type_(retval: Integer);
8466
DefaultInterface.Set_Type_(retval);
8469
function TPathProperties.Get_VolumeName: WideString;
8471
Result := DefaultInterface.Get_VolumeName;
8474
procedure TPathProperties.Set_VolumeName(const retval: WideString);
8476
DefaultInterface.Set_VolumeName(retval);
8479
function TPathProperties.Get_Path: WideString;
8481
Result := DefaultInterface.Get_Path;
8484
procedure TPathProperties.Set_Path(const retval: WideString);
8486
DefaultInterface.Set_Path(retval);
8491
class function CoReplicaPointer.Create: IADsReplicaPointer;
8493
Result := CreateComObject(CLASS_ReplicaPointer) as IADsReplicaPointer;
8496
class function CoReplicaPointer.CreateRemote(const MachineName: string): IADsReplicaPointer;
8498
Result := CreateRemoteComObject(MachineName, CLASS_ReplicaPointer) as IADsReplicaPointer;
8501
procedure TReplicaPointer.InitServerData;
8503
CServerData: TServerData = (
8504
ClassID: '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
8505
IntfIID: '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
8510
ServerData := @CServerData;
8513
procedure TReplicaPointer.Connect;
8520
Fintf:= punk as IADsReplicaPointer;
8524
procedure TReplicaPointer.ConnectTo(svrIntf: IADsReplicaPointer);
8530
procedure TReplicaPointer.DisConnect;
8532
if Fintf <> nil then
8538
function TReplicaPointer.GetDefaultInterface: IADsReplicaPointer;
8542
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8546
constructor TReplicaPointer.Create(AOwner: TComponent);
8548
inherited Create(AOwner);
8549
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8550
FProps := TReplicaPointerProperties.Create(Self);
8554
destructor TReplicaPointer.Destroy;
8556
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8562
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8563
function TReplicaPointer.GetServerProperties: TReplicaPointerProperties;
8569
function TReplicaPointer.Get_ServerName: WideString;
8571
Result := DefaultInterface.Get_ServerName;
8574
procedure TReplicaPointer.Set_ServerName(const retval: WideString);
8576
DefaultInterface.Set_ServerName(retval);
8579
function TReplicaPointer.Get_ReplicaType: Integer;
8581
Result := DefaultInterface.Get_ReplicaType;
8584
procedure TReplicaPointer.Set_ReplicaType(retval: Integer);
8586
DefaultInterface.Set_ReplicaType(retval);
8589
function TReplicaPointer.Get_ReplicaNumber: Integer;
8591
Result := DefaultInterface.Get_ReplicaNumber;
8594
procedure TReplicaPointer.Set_ReplicaNumber(retval: Integer);
8596
DefaultInterface.Set_ReplicaNumber(retval);
8599
function TReplicaPointer.Get_Count: Integer;
8601
Result := DefaultInterface.Get_Count;
8604
procedure TReplicaPointer.Set_Count(retval: Integer);
8606
DefaultInterface.Set_Count(retval);
8609
function TReplicaPointer.Get_ReplicaAddressHints: OleVariant;
8611
Result := DefaultInterface.Get_ReplicaAddressHints;
8614
procedure TReplicaPointer.Set_ReplicaAddressHints(retval: OleVariant);
8616
DefaultInterface.Set_ReplicaAddressHints(retval);
8619
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8620
constructor TReplicaPointerProperties.Create(AServer: TReplicaPointer);
8626
function TReplicaPointerProperties.GetDefaultInterface: IADsReplicaPointer;
8628
Result := FServer.DefaultInterface;
8631
function TReplicaPointerProperties.Get_ServerName: WideString;
8633
Result := DefaultInterface.Get_ServerName;
8636
procedure TReplicaPointerProperties.Set_ServerName(const retval: WideString);
8638
DefaultInterface.Set_ServerName(retval);
8641
function TReplicaPointerProperties.Get_ReplicaType: Integer;
8643
Result := DefaultInterface.Get_ReplicaType;
8646
procedure TReplicaPointerProperties.Set_ReplicaType(retval: Integer);
8648
DefaultInterface.Set_ReplicaType(retval);
8651
function TReplicaPointerProperties.Get_ReplicaNumber: Integer;
8653
Result := DefaultInterface.Get_ReplicaNumber;
8656
procedure TReplicaPointerProperties.Set_ReplicaNumber(retval: Integer);
8658
DefaultInterface.Set_ReplicaNumber(retval);
8661
function TReplicaPointerProperties.Get_Count: Integer;
8663
Result := DefaultInterface.Get_Count;
8666
procedure TReplicaPointerProperties.Set_Count(retval: Integer);
8668
DefaultInterface.Set_Count(retval);
8671
function TReplicaPointerProperties.Get_ReplicaAddressHints: OleVariant;
8673
Result := DefaultInterface.Get_ReplicaAddressHints;
8676
procedure TReplicaPointerProperties.Set_ReplicaAddressHints(retval: OleVariant);
8678
DefaultInterface.Set_ReplicaAddressHints(retval);
8683
class function CoAcl.Create: IADsAcl;
8685
Result := CreateComObject(CLASS_Acl) as IADsAcl;
8688
class function CoAcl.CreateRemote(const MachineName: string): IADsAcl;
8690
Result := CreateRemoteComObject(MachineName, CLASS_Acl) as IADsAcl;
8693
procedure TAcl.InitServerData;
8695
CServerData: TServerData = (
8696
ClassID: '{7AF1EFB6-0869-11D1-A377-00C04FB950DC}';
8697
IntfIID: '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
8702
ServerData := @CServerData;
8705
procedure TAcl.Connect;
8712
Fintf:= punk as IADsAcl;
8716
procedure TAcl.ConnectTo(svrIntf: IADsAcl);
8722
procedure TAcl.DisConnect;
8724
if Fintf <> nil then
8730
function TAcl.GetDefaultInterface: IADsAcl;
8734
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8738
constructor TAcl.Create(AOwner: TComponent);
8740
inherited Create(AOwner);
8741
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8742
FProps := TAclProperties.Create(Self);
8746
destructor TAcl.Destroy;
8748
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8754
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8755
function TAcl.GetServerProperties: TAclProperties;
8761
function TAcl.Get_ProtectedAttrName: WideString;
8763
Result := DefaultInterface.Get_ProtectedAttrName;
8766
procedure TAcl.Set_ProtectedAttrName(const retval: WideString);
8768
DefaultInterface.Set_ProtectedAttrName(retval);
8771
function TAcl.Get_SubjectName: WideString;
8773
Result := DefaultInterface.Get_SubjectName;
8776
procedure TAcl.Set_SubjectName(const retval: WideString);
8778
DefaultInterface.Set_SubjectName(retval);
8781
function TAcl.Get_Privileges: Integer;
8783
Result := DefaultInterface.Get_Privileges;
8786
procedure TAcl.Set_Privileges(retval: Integer);
8788
DefaultInterface.Set_Privileges(retval);
8791
function TAcl.CopyAcl: IDispatch;
8793
Result := DefaultInterface.CopyAcl;
8796
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8797
constructor TAclProperties.Create(AServer: TAcl);
8803
function TAclProperties.GetDefaultInterface: IADsAcl;
8805
Result := FServer.DefaultInterface;
8808
function TAclProperties.Get_ProtectedAttrName: WideString;
8810
Result := DefaultInterface.Get_ProtectedAttrName;
8813
procedure TAclProperties.Set_ProtectedAttrName(const retval: WideString);
8815
DefaultInterface.Set_ProtectedAttrName(retval);
8818
function TAclProperties.Get_SubjectName: WideString;
8820
Result := DefaultInterface.Get_SubjectName;
8823
procedure TAclProperties.Set_SubjectName(const retval: WideString);
8825
DefaultInterface.Set_SubjectName(retval);
8828
function TAclProperties.Get_Privileges: Integer;
8830
Result := DefaultInterface.Get_Privileges;
8833
procedure TAclProperties.Set_Privileges(retval: Integer);
8835
DefaultInterface.Set_Privileges(retval);
8840
class function CoTimestamp.Create: IADsTimestamp;
8842
Result := CreateComObject(CLASS_Timestamp) as IADsTimestamp;
8845
class function CoTimestamp.CreateRemote(const MachineName: string): IADsTimestamp;
8847
Result := CreateRemoteComObject(MachineName, CLASS_Timestamp) as IADsTimestamp;
8850
procedure TTimestamp.InitServerData;
8852
CServerData: TServerData = (
8853
ClassID: '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
8854
IntfIID: '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
8859
ServerData := @CServerData;
8862
procedure TTimestamp.Connect;
8869
Fintf:= punk as IADsTimestamp;
8873
procedure TTimestamp.ConnectTo(svrIntf: IADsTimestamp);
8879
procedure TTimestamp.DisConnect;
8881
if Fintf <> nil then
8887
function TTimestamp.GetDefaultInterface: IADsTimestamp;
8891
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
8895
constructor TTimestamp.Create(AOwner: TComponent);
8897
inherited Create(AOwner);
8898
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8899
FProps := TTimestampProperties.Create(Self);
8903
destructor TTimestamp.Destroy;
8905
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8911
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8912
function TTimestamp.GetServerProperties: TTimestampProperties;
8918
function TTimestamp.Get_WholeSeconds: Integer;
8920
Result := DefaultInterface.Get_WholeSeconds;
8923
procedure TTimestamp.Set_WholeSeconds(retval: Integer);
8925
DefaultInterface.Set_WholeSeconds(retval);
8928
function TTimestamp.Get_EventID: Integer;
8930
Result := DefaultInterface.Get_EventID;
8933
procedure TTimestamp.Set_EventID(retval: Integer);
8935
DefaultInterface.Set_EventID(retval);
8938
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
8939
constructor TTimestampProperties.Create(AServer: TTimestamp);
8945
function TTimestampProperties.GetDefaultInterface: IADsTimestamp;
8947
Result := FServer.DefaultInterface;
8950
function TTimestampProperties.Get_WholeSeconds: Integer;
8952
Result := DefaultInterface.Get_WholeSeconds;
8955
procedure TTimestampProperties.Set_WholeSeconds(retval: Integer);
8957
DefaultInterface.Set_WholeSeconds(retval);
8960
function TTimestampProperties.Get_EventID: Integer;
8962
Result := DefaultInterface.Get_EventID;
8965
procedure TTimestampProperties.Set_EventID(retval: Integer);
8967
DefaultInterface.Set_EventID(retval);
8972
class function CoPostalAddress.Create: IADsPostalAddress;
8974
Result := CreateComObject(CLASS_PostalAddress) as IADsPostalAddress;
8977
class function CoPostalAddress.CreateRemote(const MachineName: string): IADsPostalAddress;
8979
Result := CreateRemoteComObject(MachineName, CLASS_PostalAddress) as IADsPostalAddress;
8982
procedure TPostalAddress.InitServerData;
8984
CServerData: TServerData = (
8985
ClassID: '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
8986
IntfIID: '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
8991
ServerData := @CServerData;
8994
procedure TPostalAddress.Connect;
9001
Fintf:= punk as IADsPostalAddress;
9005
procedure TPostalAddress.ConnectTo(svrIntf: IADsPostalAddress);
9011
procedure TPostalAddress.DisConnect;
9013
if Fintf <> nil then
9019
function TPostalAddress.GetDefaultInterface: IADsPostalAddress;
9023
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9027
constructor TPostalAddress.Create(AOwner: TComponent);
9029
inherited Create(AOwner);
9030
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9031
FProps := TPostalAddressProperties.Create(Self);
9035
destructor TPostalAddress.Destroy;
9037
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9043
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9044
function TPostalAddress.GetServerProperties: TPostalAddressProperties;
9050
function TPostalAddress.Get_PostalAddress: OleVariant;
9052
Result := DefaultInterface.Get_PostalAddress;
9055
procedure TPostalAddress.Set_PostalAddress(retval: OleVariant);
9057
DefaultInterface.Set_PostalAddress(retval);
9060
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9061
constructor TPostalAddressProperties.Create(AServer: TPostalAddress);
9067
function TPostalAddressProperties.GetDefaultInterface: IADsPostalAddress;
9069
Result := FServer.DefaultInterface;
9072
function TPostalAddressProperties.Get_PostalAddress: OleVariant;
9074
Result := DefaultInterface.Get_PostalAddress;
9077
procedure TPostalAddressProperties.Set_PostalAddress(retval: OleVariant);
9079
DefaultInterface.Set_PostalAddress(retval);
9084
class function CoBackLink.Create: IADsBackLink;
9086
Result := CreateComObject(CLASS_BackLink) as IADsBackLink;
9089
class function CoBackLink.CreateRemote(const MachineName: string): IADsBackLink;
9091
Result := CreateRemoteComObject(MachineName, CLASS_BackLink) as IADsBackLink;
9094
procedure TBackLink.InitServerData;
9096
CServerData: TServerData = (
9097
ClassID: '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
9098
IntfIID: '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
9103
ServerData := @CServerData;
9106
procedure TBackLink.Connect;
9113
Fintf:= punk as IADsBackLink;
9117
procedure TBackLink.ConnectTo(svrIntf: IADsBackLink);
9123
procedure TBackLink.DisConnect;
9125
if Fintf <> nil then
9131
function TBackLink.GetDefaultInterface: IADsBackLink;
9135
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9139
constructor TBackLink.Create(AOwner: TComponent);
9141
inherited Create(AOwner);
9142
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9143
FProps := TBackLinkProperties.Create(Self);
9147
destructor TBackLink.Destroy;
9149
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9155
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9156
function TBackLink.GetServerProperties: TBackLinkProperties;
9162
function TBackLink.Get_RemoteID: Integer;
9164
Result := DefaultInterface.Get_RemoteID;
9167
procedure TBackLink.Set_RemoteID(retval: Integer);
9169
DefaultInterface.Set_RemoteID(retval);
9172
function TBackLink.Get_ObjectName: WideString;
9174
Result := DefaultInterface.Get_ObjectName;
9177
procedure TBackLink.Set_ObjectName(const retval: WideString);
9179
DefaultInterface.Set_ObjectName(retval);
9182
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9183
constructor TBackLinkProperties.Create(AServer: TBackLink);
9189
function TBackLinkProperties.GetDefaultInterface: IADsBackLink;
9191
Result := FServer.DefaultInterface;
9194
function TBackLinkProperties.Get_RemoteID: Integer;
9196
Result := DefaultInterface.Get_RemoteID;
9199
procedure TBackLinkProperties.Set_RemoteID(retval: Integer);
9201
DefaultInterface.Set_RemoteID(retval);
9204
function TBackLinkProperties.Get_ObjectName: WideString;
9206
Result := DefaultInterface.Get_ObjectName;
9209
procedure TBackLinkProperties.Set_ObjectName(const retval: WideString);
9211
DefaultInterface.Set_ObjectName(retval);
9216
class function CoTypedName.Create: IADsTypedName;
9218
Result := CreateComObject(CLASS_TypedName) as IADsTypedName;
9221
class function CoTypedName.CreateRemote(const MachineName: string): IADsTypedName;
9223
Result := CreateRemoteComObject(MachineName, CLASS_TypedName) as IADsTypedName;
9226
procedure TTypedName.InitServerData;
9228
CServerData: TServerData = (
9229
ClassID: '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
9230
IntfIID: '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
9235
ServerData := @CServerData;
9238
procedure TTypedName.Connect;
9245
Fintf:= punk as IADsTypedName;
9249
procedure TTypedName.ConnectTo(svrIntf: IADsTypedName);
9255
procedure TTypedName.DisConnect;
9257
if Fintf <> nil then
9263
function TTypedName.GetDefaultInterface: IADsTypedName;
9267
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9271
constructor TTypedName.Create(AOwner: TComponent);
9273
inherited Create(AOwner);
9274
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9275
FProps := TTypedNameProperties.Create(Self);
9279
destructor TTypedName.Destroy;
9281
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9287
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9288
function TTypedName.GetServerProperties: TTypedNameProperties;
9294
function TTypedName.Get_ObjectName: WideString;
9296
Result := DefaultInterface.Get_ObjectName;
9299
procedure TTypedName.Set_ObjectName(const retval: WideString);
9301
DefaultInterface.Set_ObjectName(retval);
9304
function TTypedName.Get_Level: Integer;
9306
Result := DefaultInterface.Get_Level;
9309
procedure TTypedName.Set_Level(retval: Integer);
9311
DefaultInterface.Set_Level(retval);
9314
function TTypedName.Get_Interval: Integer;
9316
Result := DefaultInterface.Get_Interval;
9319
procedure TTypedName.Set_Interval(retval: Integer);
9321
DefaultInterface.Set_Interval(retval);
9324
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9325
constructor TTypedNameProperties.Create(AServer: TTypedName);
9331
function TTypedNameProperties.GetDefaultInterface: IADsTypedName;
9333
Result := FServer.DefaultInterface;
9336
function TTypedNameProperties.Get_ObjectName: WideString;
9338
Result := DefaultInterface.Get_ObjectName;
9341
procedure TTypedNameProperties.Set_ObjectName(const retval: WideString);
9343
DefaultInterface.Set_ObjectName(retval);
9346
function TTypedNameProperties.Get_Level: Integer;
9348
Result := DefaultInterface.Get_Level;
9351
procedure TTypedNameProperties.Set_Level(retval: Integer);
9353
DefaultInterface.Set_Level(retval);
9356
function TTypedNameProperties.Get_Interval: Integer;
9358
Result := DefaultInterface.Get_Interval;
9361
procedure TTypedNameProperties.Set_Interval(retval: Integer);
9363
DefaultInterface.Set_Interval(retval);
9368
class function CoHold.Create: IADsHold;
9370
Result := CreateComObject(CLASS_Hold) as IADsHold;
9373
class function CoHold.CreateRemote(const MachineName: string): IADsHold;
9375
Result := CreateRemoteComObject(MachineName, CLASS_Hold) as IADsHold;
9378
procedure THold.InitServerData;
9380
CServerData: TServerData = (
9381
ClassID: '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
9382
IntfIID: '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
9387
ServerData := @CServerData;
9390
procedure THold.Connect;
9397
Fintf:= punk as IADsHold;
9401
procedure THold.ConnectTo(svrIntf: IADsHold);
9407
procedure THold.DisConnect;
9409
if Fintf <> nil then
9415
function THold.GetDefaultInterface: IADsHold;
9419
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9423
constructor THold.Create(AOwner: TComponent);
9425
inherited Create(AOwner);
9426
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9427
FProps := THoldProperties.Create(Self);
9431
destructor THold.Destroy;
9433
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9439
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9440
function THold.GetServerProperties: THoldProperties;
9446
function THold.Get_ObjectName: WideString;
9448
Result := DefaultInterface.Get_ObjectName;
9451
procedure THold.Set_ObjectName(const retval: WideString);
9453
DefaultInterface.Set_ObjectName(retval);
9456
function THold.Get_Amount: Integer;
9458
Result := DefaultInterface.Get_Amount;
9461
procedure THold.Set_Amount(retval: Integer);
9463
DefaultInterface.Set_Amount(retval);
9466
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9467
constructor THoldProperties.Create(AServer: THold);
9473
function THoldProperties.GetDefaultInterface: IADsHold;
9475
Result := FServer.DefaultInterface;
9478
function THoldProperties.Get_ObjectName: WideString;
9480
Result := DefaultInterface.Get_ObjectName;
9483
procedure THoldProperties.Set_ObjectName(const retval: WideString);
9485
DefaultInterface.Set_ObjectName(retval);
9488
function THoldProperties.Get_Amount: Integer;
9490
Result := DefaultInterface.Get_Amount;
9493
procedure THoldProperties.Set_Amount(retval: Integer);
9495
DefaultInterface.Set_Amount(retval);
9500
class function CoPathname.Create: IADsPathname;
9502
Result := CreateComObject(CLASS_Pathname) as IADsPathname;
9505
class function CoPathname.CreateRemote(const MachineName: string): IADsPathname;
9507
Result := CreateRemoteComObject(MachineName, CLASS_Pathname) as IADsPathname;
9510
procedure TPathname.InitServerData;
9512
CServerData: TServerData = (
9513
ClassID: '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
9514
IntfIID: '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
9519
ServerData := @CServerData;
9522
procedure TPathname.Connect;
9529
Fintf:= punk as IADsPathname;
9533
procedure TPathname.ConnectTo(svrIntf: IADsPathname);
9539
procedure TPathname.DisConnect;
9541
if Fintf <> nil then
9547
function TPathname.GetDefaultInterface: IADsPathname;
9551
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9555
constructor TPathname.Create(AOwner: TComponent);
9557
inherited Create(AOwner);
9558
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9559
FProps := TPathnameProperties.Create(Self);
9563
destructor TPathname.Destroy;
9565
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9571
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9572
function TPathname.GetServerProperties: TPathnameProperties;
9578
function TPathname.Get_EscapedMode: Integer;
9580
Result := DefaultInterface.Get_EscapedMode;
9583
procedure TPathname.Set_EscapedMode(retval: Integer);
9585
DefaultInterface.Set_EscapedMode(retval);
9588
procedure TPathname.Set_(const bstrADsPath: WideString; lnSetType: Integer);
9590
DefaultInterface.Set_(bstrADsPath, lnSetType);
9593
procedure TPathname.SetDisplayType(lnDisplayType: Integer);
9595
DefaultInterface.SetDisplayType(lnDisplayType);
9598
function TPathname.Retrieve(lnFormatType: Integer): WideString;
9600
Result := DefaultInterface.Retrieve(lnFormatType);
9603
function TPathname.GetNumElements: Integer;
9605
Result := DefaultInterface.GetNumElements;
9608
function TPathname.GetElement(lnElementIndex: Integer): WideString;
9610
Result := DefaultInterface.GetElement(lnElementIndex);
9613
procedure TPathname.AddLeafElement(const bstrLeafElement: WideString);
9615
DefaultInterface.AddLeafElement(bstrLeafElement);
9618
procedure TPathname.RemoveLeafElement;
9620
DefaultInterface.RemoveLeafElement;
9623
function TPathname.CopyPath: IDispatch;
9625
Result := DefaultInterface.CopyPath;
9628
function TPathname.GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
9630
Result := DefaultInterface.GetEscapedElement(lnReserved, bstrInStr);
9633
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9634
constructor TPathnameProperties.Create(AServer: TPathname);
9640
function TPathnameProperties.GetDefaultInterface: IADsPathname;
9642
Result := FServer.DefaultInterface;
9645
function TPathnameProperties.Get_EscapedMode: Integer;
9647
Result := DefaultInterface.Get_EscapedMode;
9650
procedure TPathnameProperties.Set_EscapedMode(retval: Integer);
9652
DefaultInterface.Set_EscapedMode(retval);
9657
class function CoADSystemInfo.Create: IADsADSystemInfo;
9659
Result := CreateComObject(CLASS_ADSystemInfo) as IADsADSystemInfo;
9662
class function CoADSystemInfo.CreateRemote(const MachineName: string): IADsADSystemInfo;
9664
Result := CreateRemoteComObject(MachineName, CLASS_ADSystemInfo) as IADsADSystemInfo;
9667
procedure TADSystemInfo.InitServerData;
9669
CServerData: TServerData = (
9670
ClassID: '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
9671
IntfIID: '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
9676
ServerData := @CServerData;
9679
procedure TADSystemInfo.Connect;
9686
Fintf:= punk as IADsADSystemInfo;
9690
procedure TADSystemInfo.ConnectTo(svrIntf: IADsADSystemInfo);
9696
procedure TADSystemInfo.DisConnect;
9698
if Fintf <> nil then
9704
function TADSystemInfo.GetDefaultInterface: IADsADSystemInfo;
9708
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9712
constructor TADSystemInfo.Create(AOwner: TComponent);
9714
inherited Create(AOwner);
9715
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9716
FProps := TADSystemInfoProperties.Create(Self);
9720
destructor TADSystemInfo.Destroy;
9722
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9728
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9729
function TADSystemInfo.GetServerProperties: TADSystemInfoProperties;
9735
function TADSystemInfo.Get_UserName: WideString;
9737
Result := DefaultInterface.Get_UserName;
9740
function TADSystemInfo.Get_ComputerName: WideString;
9742
Result := DefaultInterface.Get_ComputerName;
9745
function TADSystemInfo.Get_SiteName: WideString;
9747
Result := DefaultInterface.Get_SiteName;
9750
function TADSystemInfo.Get_DomainShortName: WideString;
9752
Result := DefaultInterface.Get_DomainShortName;
9755
function TADSystemInfo.Get_DomainDNSName: WideString;
9757
Result := DefaultInterface.Get_DomainDNSName;
9760
function TADSystemInfo.Get_ForestDNSName: WideString;
9762
Result := DefaultInterface.Get_ForestDNSName;
9765
function TADSystemInfo.Get_PDCRoleOwner: WideString;
9767
Result := DefaultInterface.Get_PDCRoleOwner;
9770
function TADSystemInfo.Get_SchemaRoleOwner: WideString;
9772
Result := DefaultInterface.Get_SchemaRoleOwner;
9775
function TADSystemInfo.Get_IsNativeMode: WordBool;
9777
Result := DefaultInterface.Get_IsNativeMode;
9780
function TADSystemInfo.GetAnyDCName: WideString;
9782
Result := DefaultInterface.GetAnyDCName;
9785
function TADSystemInfo.GetDCSiteName(const szServer: WideString): WideString;
9787
Result := DefaultInterface.GetDCSiteName(szServer);
9790
procedure TADSystemInfo.RefreshSchemaCache;
9792
DefaultInterface.RefreshSchemaCache;
9795
function TADSystemInfo.GetTrees: OleVariant;
9797
Result := DefaultInterface.GetTrees;
9800
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9801
constructor TADSystemInfoProperties.Create(AServer: TADSystemInfo);
9807
function TADSystemInfoProperties.GetDefaultInterface: IADsADSystemInfo;
9809
Result := FServer.DefaultInterface;
9812
function TADSystemInfoProperties.Get_UserName: WideString;
9814
Result := DefaultInterface.Get_UserName;
9817
function TADSystemInfoProperties.Get_ComputerName: WideString;
9819
Result := DefaultInterface.Get_ComputerName;
9822
function TADSystemInfoProperties.Get_SiteName: WideString;
9824
Result := DefaultInterface.Get_SiteName;
9827
function TADSystemInfoProperties.Get_DomainShortName: WideString;
9829
Result := DefaultInterface.Get_DomainShortName;
9832
function TADSystemInfoProperties.Get_DomainDNSName: WideString;
9834
Result := DefaultInterface.Get_DomainDNSName;
9837
function TADSystemInfoProperties.Get_ForestDNSName: WideString;
9839
Result := DefaultInterface.Get_ForestDNSName;
9842
function TADSystemInfoProperties.Get_PDCRoleOwner: WideString;
9844
Result := DefaultInterface.Get_PDCRoleOwner;
9847
function TADSystemInfoProperties.Get_SchemaRoleOwner: WideString;
9849
Result := DefaultInterface.Get_SchemaRoleOwner;
9852
function TADSystemInfoProperties.Get_IsNativeMode: WordBool;
9854
Result := DefaultInterface.Get_IsNativeMode;
9859
class function CoWinNTSystemInfo.Create: IADsWinNTSystemInfo;
9861
Result := CreateComObject(CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
9864
class function CoWinNTSystemInfo.CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
9866
Result := CreateRemoteComObject(MachineName, CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
9869
procedure TWinNTSystemInfo.InitServerData;
9871
CServerData: TServerData = (
9872
ClassID: '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
9873
IntfIID: '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
9878
ServerData := @CServerData;
9881
procedure TWinNTSystemInfo.Connect;
9888
Fintf:= punk as IADsWinNTSystemInfo;
9892
procedure TWinNTSystemInfo.ConnectTo(svrIntf: IADsWinNTSystemInfo);
9898
procedure TWinNTSystemInfo.DisConnect;
9900
if Fintf <> nil then
9906
function TWinNTSystemInfo.GetDefaultInterface: IADsWinNTSystemInfo;
9910
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
9914
constructor TWinNTSystemInfo.Create(AOwner: TComponent);
9916
inherited Create(AOwner);
9917
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9918
FProps := TWinNTSystemInfoProperties.Create(Self);
9922
destructor TWinNTSystemInfo.Destroy;
9924
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9930
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9931
function TWinNTSystemInfo.GetServerProperties: TWinNTSystemInfoProperties;
9937
function TWinNTSystemInfo.Get_UserName: WideString;
9939
Result := DefaultInterface.Get_UserName;
9942
function TWinNTSystemInfo.Get_ComputerName: WideString;
9944
Result := DefaultInterface.Get_ComputerName;
9947
function TWinNTSystemInfo.Get_DomainName: WideString;
9949
Result := DefaultInterface.Get_DomainName;
9952
function TWinNTSystemInfo.Get_PDC: WideString;
9954
Result := DefaultInterface.Get_PDC;
9957
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
9958
constructor TWinNTSystemInfoProperties.Create(AServer: TWinNTSystemInfo);
9964
function TWinNTSystemInfoProperties.GetDefaultInterface: IADsWinNTSystemInfo;
9966
Result := FServer.DefaultInterface;
9969
function TWinNTSystemInfoProperties.Get_UserName: WideString;
9971
Result := DefaultInterface.Get_UserName;
9974
function TWinNTSystemInfoProperties.Get_ComputerName: WideString;
9976
Result := DefaultInterface.Get_ComputerName;
9979
function TWinNTSystemInfoProperties.Get_DomainName: WideString;
9981
Result := DefaultInterface.Get_DomainName;
9984
function TWinNTSystemInfoProperties.Get_PDC: WideString;
9986
Result := DefaultInterface.Get_PDC;
9991
class function CoDNWithBinary.Create: IADsDNWithBinary;
9993
Result := CreateComObject(CLASS_DNWithBinary) as IADsDNWithBinary;
9996
class function CoDNWithBinary.CreateRemote(const MachineName: string): IADsDNWithBinary;
9998
Result := CreateRemoteComObject(MachineName, CLASS_DNWithBinary) as IADsDNWithBinary;
10001
procedure TDNWithBinary.InitServerData;
10003
CServerData: TServerData = (
10004
ClassID: '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
10005
IntfIID: '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
10010
ServerData := @CServerData;
10013
procedure TDNWithBinary.Connect;
10017
if FIntf = nil then
10020
Fintf:= punk as IADsDNWithBinary;
10024
procedure TDNWithBinary.ConnectTo(svrIntf: IADsDNWithBinary);
10030
procedure TDNWithBinary.DisConnect;
10032
if Fintf <> nil then
10038
function TDNWithBinary.GetDefaultInterface: IADsDNWithBinary;
10040
if FIntf = nil then
10042
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
10046
constructor TDNWithBinary.Create(AOwner: TComponent);
10048
inherited Create(AOwner);
10049
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10050
FProps := TDNWithBinaryProperties.Create(Self);
10054
destructor TDNWithBinary.Destroy;
10056
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10062
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10063
function TDNWithBinary.GetServerProperties: TDNWithBinaryProperties;
10069
function TDNWithBinary.Get_BinaryValue: OleVariant;
10071
Result := DefaultInterface.Get_BinaryValue;
10074
procedure TDNWithBinary.Set_BinaryValue(retval: OleVariant);
10076
DefaultInterface.Set_BinaryValue(retval);
10079
function TDNWithBinary.Get_DNString: WideString;
10081
Result := DefaultInterface.Get_DNString;
10084
procedure TDNWithBinary.Set_DNString(const retval: WideString);
10086
DefaultInterface.Set_DNString(retval);
10089
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10090
constructor TDNWithBinaryProperties.Create(AServer: TDNWithBinary);
10093
FServer := AServer;
10096
function TDNWithBinaryProperties.GetDefaultInterface: IADsDNWithBinary;
10098
Result := FServer.DefaultInterface;
10101
function TDNWithBinaryProperties.Get_BinaryValue: OleVariant;
10103
Result := DefaultInterface.Get_BinaryValue;
10106
procedure TDNWithBinaryProperties.Set_BinaryValue(retval: OleVariant);
10108
DefaultInterface.Set_BinaryValue(retval);
10111
function TDNWithBinaryProperties.Get_DNString: WideString;
10113
Result := DefaultInterface.Get_DNString;
10116
procedure TDNWithBinaryProperties.Set_DNString(const retval: WideString);
10118
DefaultInterface.Set_DNString(retval);
10123
class function CoDNWithString.Create: IADsDNWithString;
10125
Result := CreateComObject(CLASS_DNWithString) as IADsDNWithString;
10128
class function CoDNWithString.CreateRemote(const MachineName: string): IADsDNWithString;
10130
Result := CreateRemoteComObject(MachineName, CLASS_DNWithString) as IADsDNWithString;
10133
procedure TDNWithString.InitServerData;
10135
CServerData: TServerData = (
10136
ClassID: '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
10137
IntfIID: '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
10142
ServerData := @CServerData;
10145
procedure TDNWithString.Connect;
10149
if FIntf = nil then
10152
Fintf:= punk as IADsDNWithString;
10156
procedure TDNWithString.ConnectTo(svrIntf: IADsDNWithString);
10162
procedure TDNWithString.DisConnect;
10164
if Fintf <> nil then
10170
function TDNWithString.GetDefaultInterface: IADsDNWithString;
10172
if FIntf = nil then
10174
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
10178
constructor TDNWithString.Create(AOwner: TComponent);
10180
inherited Create(AOwner);
10181
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10182
FProps := TDNWithStringProperties.Create(Self);
10186
destructor TDNWithString.Destroy;
10188
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10194
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10195
function TDNWithString.GetServerProperties: TDNWithStringProperties;
10201
function TDNWithString.Get_StringValue: WideString;
10203
Result := DefaultInterface.Get_StringValue;
10206
procedure TDNWithString.Set_StringValue(const retval: WideString);
10208
DefaultInterface.Set_StringValue(retval);
10211
function TDNWithString.Get_DNString: WideString;
10213
Result := DefaultInterface.Get_DNString;
10216
procedure TDNWithString.Set_DNString(const retval: WideString);
10218
DefaultInterface.Set_DNString(retval);
10221
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
10222
constructor TDNWithStringProperties.Create(AServer: TDNWithString);
10225
FServer := AServer;
10228
function TDNWithStringProperties.GetDefaultInterface: IADsDNWithString;
10230
Result := FServer.DefaultInterface;
10233
function TDNWithStringProperties.Get_StringValue: WideString;
10235
Result := DefaultInterface.Get_StringValue;
10238
procedure TDNWithStringProperties.Set_StringValue(const retval: WideString);
10240
DefaultInterface.Set_StringValue(retval);
10243
function TDNWithStringProperties.Get_DNString: WideString;
10245
Result := DefaultInterface.Get_DNString;
10248
procedure TDNWithStringProperties.Set_DNString(const retval: WideString);
10250
DefaultInterface.Set_DNString(retval);
10256
{$ifdef FPC} // dummy
10258
function CreateComObject(ID: TGUID): IUnknown; //empty
10263
function CreateRemoteComObject(w:widestring; ID: TGUID): IUnknown; //empty
10268
function tOleServer.GetServer:IUnknown;
10272
procedure tOleServer.InitServerData;
10275
constructor tOleServer.Create(AOwner: TComponent);
10278
Procedure tOleServer.Connect;
10281
procedure tOleServer.Disconnect;
10289
procedure Register;
10291
RegisterComponents('ActiveX',[TPropertyEntry, TPropertyValue, TAccessControlEntry, TAccessControlList,
10292
TSecurityDescriptor, TLargeInteger, TNameTranslate, TCaseIgnoreList, TFaxNumber,
10293
TNetAddress, TOctetList, TEmail, TPath, TReplicaPointer,
10294
TAcl, TTimestamp, TPostalAddress, TBackLink, TTypedName,
10295
THold, TPathname, TADSystemInfo, TWinNTSystemInfo, TDNWithBinary,