6394 lines
272 KiB
ObjectPascal
6394 lines
272 KiB
ObjectPascal
{*******************************************************}
|
|
{ MiTeC Common Routines }
|
|
{ ADSI interface }
|
|
{ }
|
|
{ Copyright (c) 1997-2017 Michal Mutl }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
{$INCLUDE Compilers.inc}
|
|
|
|
Unit MiTeC_FPC_ActiveDs_TLB;
|
|
|
|
// Imported ActiveDs on 4.4.2017 19:51:29 from C:\Windows\System32\activeds.tlb
|
|
|
|
interface
|
|
|
|
// Warning: renamed record member 'String' in _ADS_CASEIGNORE_LIST to 'String_'
|
|
// Warning: renamed record member 'Type' in __MIDL___MIDL_itf_ads_0000_0000_0005 to 'Type_'
|
|
// Warning: renamed record member 'Type' in __MIDL___MIDL_itf_ads_0000_0000_0014 to 'Type_'
|
|
// Warning: renamed record member 'Boolean' in __MIDL___MIDL_itf_ads_0000_0000_0017 to 'Boolean_'
|
|
// Warning: renamed record member 'Integer' in __MIDL___MIDL_itf_ads_0000_0000_0017 to 'Integer_'
|
|
// Dependency: stdole v2 (stdole2.pas)
|
|
// Warning: renamed property 'Class' in IADs to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsContainerdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsContainerdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsContainerdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsContainerdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsContainerdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsContainerdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsContainerdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsContainerdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsCollectiondisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsCollectiondisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsCollectiondisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsCollectiondisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsCollectiondisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsCollectiondisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsCollectiondisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsCollectiondisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsMembersdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsMembersdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsMembersdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsMembersdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsMembersdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsMembersdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsMembersdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsMembersdisp.Invoke
|
|
// Warning: renamed method 'Reset' in IADsPropertyList to 'Reset_'
|
|
// Warning: 'GUID' not automatable in IADsPropertyListdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertyListdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertyListdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPropertyListdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPropertyListdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPropertyListdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPropertyListdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPropertyListdisp.Invoke
|
|
// Warning: renamed method 'Reset' in IADsPropertyList to 'Reset_'
|
|
// Warning: 'GUID' not automatable in IADsPropertyEntrydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertyEntrydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertyEntrydisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPropertyEntrydisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPropertyEntrydisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPropertyEntrydisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPropertyEntrydisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPropertyEntrydisp.Invoke
|
|
// Warning: renamed property 'Boolean' in IADsPropertyValue to 'Boolean_'
|
|
// Warning: renamed property 'Integer' in IADsPropertyValue to 'Integer_'
|
|
// Warning: 'GUID' not automatable in IADsPropertyValuedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertyValuedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertyValuedisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPropertyValuedisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPropertyValuedisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPropertyValuedisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPropertyValuedisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPropertyValuedisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsPropertyValue2disp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertyValue2disp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertyValue2disp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPropertyValue2disp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPropertyValue2disp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPropertyValue2disp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPropertyValue2disp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPropertyValue2disp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsDeleteOpsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsDeleteOpsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsDeleteOpsdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsDeleteOpsdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsDeleteOpsdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsDeleteOpsdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsDeleteOpsdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsDeleteOpsdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsNamespacesdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsNamespacesdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsNamespacesdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsNamespacesdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsNamespacesdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsNamespacesdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsNamespacesdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsNamespacesdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsNamespaces to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsClassdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsClassdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsClassdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsClassdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsClassdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsClassdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsClassdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsClassdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsClass to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsPropertydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPropertydisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPropertydisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPropertydisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPropertydisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPropertydisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPropertydisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsProperty to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsSyntaxdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsSyntaxdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsSyntaxdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsSyntaxdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsSyntaxdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsSyntaxdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsSyntaxdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsSyntaxdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsSyntax to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsLocalitydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsLocalitydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsLocalitydisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsLocalitydisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsLocalitydisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsLocalitydisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsLocalitydisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsLocalitydisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsLocality to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsOdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsOdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsOdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsOdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsOdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsOdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsOdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsOdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsO to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsOUdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsOUdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsOUdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsOUdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsOUdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsOUdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsOUdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsOUdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsOU to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsDomaindisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsDomaindisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsDomaindisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsDomaindisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsDomaindisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsDomaindisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsDomaindisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsDomaindisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsDomain to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsComputerdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsComputerdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsComputerdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsComputerdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsComputerdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsComputerdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsComputerdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsComputerdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsComputer to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsComputerOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsComputerOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsComputerOperationsdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsComputerOperationsdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsComputerOperationsdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsComputerOperationsdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsComputerOperationsdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsComputerOperationsdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsComputerOperations to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsGroupdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsGroupdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsGroupdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsGroupdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsGroupdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsGroupdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsGroupdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsGroupdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsGroup to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsUserdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsUserdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsUserdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsUserdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsUserdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsUserdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsUserdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsUserdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsUser to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsPrintQueuedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPrintQueuedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPrintQueuedisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPrintQueuedisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPrintQueuedisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPrintQueuedisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPrintQueuedisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPrintQueuedisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsPrintQueue to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsPrintQueueOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPrintQueueOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPrintQueueOperationsdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPrintQueueOperationsdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPrintQueueOperationsdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPrintQueueOperationsdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPrintQueueOperationsdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPrintQueueOperationsdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsPrintQueueOperations to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsPrintJobdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPrintJobdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPrintJobdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPrintJobdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPrintJobdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPrintJobdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPrintJobdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPrintJobdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsPrintJob to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsPrintJobOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPrintJobOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPrintJobOperationsdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPrintJobOperationsdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPrintJobOperationsdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPrintJobOperationsdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPrintJobOperationsdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPrintJobOperationsdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsPrintJobOperations to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsServicedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsServicedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsServicedisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsServicedisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsServicedisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsServicedisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsServicedisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsServicedisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsService to 'Class_'
|
|
// Warning: renamed method 'Continue' in IADsServiceOperations to 'Continue_'
|
|
// Warning: 'GUID' not automatable in IADsServiceOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsServiceOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsServiceOperationsdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsServiceOperationsdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsServiceOperationsdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsServiceOperationsdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsServiceOperationsdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsServiceOperationsdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsServiceOperations to 'Class_'
|
|
// Warning: renamed method 'Continue' in IADsServiceOperations to 'Continue_'
|
|
// Warning: 'GUID' not automatable in IADsFileServicedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsFileServicedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsFileServicedisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsFileServicedisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsFileServicedisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsFileServicedisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsFileServicedisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsFileServicedisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsFileService to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsFileServiceOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsFileServiceOperationsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsFileServiceOperationsdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsFileServiceOperationsdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsFileServiceOperationsdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsFileServiceOperationsdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsFileServiceOperationsdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsFileServiceOperationsdisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsFileServiceOperations to 'Class_'
|
|
// Warning: renamed method 'Continue' in IADsFileServiceOperations to 'Continue_'
|
|
// Warning: 'GUID' not automatable in IADsFileSharedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsFileSharedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsFileSharedisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsFileSharedisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsFileSharedisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsFileSharedisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsFileSharedisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsFileSharedisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsFileShare to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsSessiondisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsSessiondisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsSessiondisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsSessiondisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsSessiondisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsSessiondisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsSessiondisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsSessiondisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsSession to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsResourcedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsResourcedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsResourcedisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsResourcedisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsResourcedisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsResourcedisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsResourcedisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsResourcedisp.Invoke
|
|
// Warning: renamed property 'Class' in IADsResource to 'Class_'
|
|
// Warning: 'GUID' not automatable in IADsOpenDSObjectdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsOpenDSObjectdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsOpenDSObjectdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsOpenDSObjectdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsOpenDSObjectdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsOpenDSObjectdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsOpenDSObjectdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsOpenDSObjectdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsAccessControlEntrydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsAccessControlEntrydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsAccessControlEntrydisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsAccessControlEntrydisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsAccessControlEntrydisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsAccessControlEntrydisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsAccessControlEntrydisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsAccessControlEntrydisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsAccessControlListdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsAccessControlListdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsAccessControlListdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsAccessControlListdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsAccessControlListdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsAccessControlListdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsAccessControlListdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsAccessControlListdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsSecurityDescriptordisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsSecurityDescriptordisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsSecurityDescriptordisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsSecurityDescriptordisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsSecurityDescriptordisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsSecurityDescriptordisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsSecurityDescriptordisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsSecurityDescriptordisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsLargeIntegerdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsLargeIntegerdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsLargeIntegerdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsLargeIntegerdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsLargeIntegerdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsLargeIntegerdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsLargeIntegerdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsLargeIntegerdisp.Invoke
|
|
// Warning: renamed method 'Set' in IADsNameTranslate to 'Set_'
|
|
// Warning: 'GUID' not automatable in IADsNameTranslatedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsNameTranslatedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsNameTranslatedisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsNameTranslatedisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsNameTranslatedisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsNameTranslatedisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsNameTranslatedisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsNameTranslatedisp.Invoke
|
|
// Warning: renamed method 'Set' in IADsNameTranslate to 'Set_'
|
|
// Warning: 'GUID' not automatable in IADsCaseIgnoreListdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsCaseIgnoreListdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsCaseIgnoreListdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsCaseIgnoreListdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsCaseIgnoreListdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsCaseIgnoreListdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsCaseIgnoreListdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsCaseIgnoreListdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsFaxNumberdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsFaxNumberdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsFaxNumberdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsFaxNumberdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsFaxNumberdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsFaxNumberdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsFaxNumberdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsFaxNumberdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsNetAddressdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsNetAddressdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsNetAddressdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsNetAddressdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsNetAddressdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsNetAddressdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsNetAddressdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsNetAddressdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsOctetListdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsOctetListdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsOctetListdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsOctetListdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsOctetListdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsOctetListdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsOctetListdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsOctetListdisp.Invoke
|
|
// Warning: renamed property 'Type' in IADsEmail to 'Type_'
|
|
// Warning: 'GUID' not automatable in IADsEmaildisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsEmaildisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsEmaildisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsEmaildisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsEmaildisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsEmaildisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsEmaildisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsEmaildisp.Invoke
|
|
// Warning: renamed property 'Type' in IADsPath to 'Type_'
|
|
// Warning: 'GUID' not automatable in IADsPathdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPathdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPathdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPathdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPathdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPathdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPathdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPathdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsReplicaPointerdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsReplicaPointerdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsReplicaPointerdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsReplicaPointerdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsReplicaPointerdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsReplicaPointerdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsReplicaPointerdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsReplicaPointerdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsAcldisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsAcldisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsAcldisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsAcldisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsAcldisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsAcldisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsAcldisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsAcldisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsTimestampdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsTimestampdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsTimestampdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsTimestampdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsTimestampdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsTimestampdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsTimestampdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsTimestampdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsPostalAddressdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPostalAddressdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPostalAddressdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPostalAddressdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPostalAddressdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPostalAddressdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPostalAddressdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPostalAddressdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsBackLinkdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsBackLinkdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsBackLinkdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsBackLinkdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsBackLinkdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsBackLinkdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsBackLinkdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsBackLinkdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsTypedNamedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsTypedNamedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsTypedNamedisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsTypedNamedisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsTypedNamedisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsTypedNamedisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsTypedNamedisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsTypedNamedisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsHolddisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsHolddisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsHolddisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsHolddisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsHolddisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsHolddisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsHolddisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsHolddisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsObjectOptionsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsObjectOptionsdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsObjectOptionsdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsObjectOptionsdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsObjectOptionsdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsObjectOptionsdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsObjectOptionsdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsObjectOptionsdisp.Invoke
|
|
// Warning: renamed method 'Set' in IADsPathname to 'Set_'
|
|
// Warning: 'GUID' not automatable in IADsPathnamedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPathnamedisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsPathnamedisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsPathnamedisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsPathnamedisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsPathnamedisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsPathnamedisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsPathnamedisp.Invoke
|
|
// Warning: renamed method 'Set' in IADsPathname to 'Set_'
|
|
// Warning: 'GUID' not automatable in IADsADSystemInfodisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsADSystemInfodisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsADSystemInfodisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsADSystemInfodisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsADSystemInfodisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsADSystemInfodisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsADSystemInfodisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsADSystemInfodisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsWinNTSystemInfodisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsWinNTSystemInfodisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsWinNTSystemInfodisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsWinNTSystemInfodisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsWinNTSystemInfodisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsWinNTSystemInfodisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsWinNTSystemInfodisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsWinNTSystemInfodisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsDNWithBinarydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsDNWithBinarydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsDNWithBinarydisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsDNWithBinarydisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsDNWithBinarydisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsDNWithBinarydisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsDNWithBinarydisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsDNWithBinarydisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsDNWithStringdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsDNWithStringdisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsDNWithStringdisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsDNWithStringdisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsDNWithStringdisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsDNWithStringdisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsDNWithStringdisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsDNWithStringdisp.Invoke
|
|
// Warning: 'GUID' not automatable in IADsSecurityUtilitydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsSecurityUtilitydisp.QueryInterface
|
|
// Warning: 'Ppointer' not automatable in IADsSecurityUtilitydisp.GetTypeInfo
|
|
// Warning: 'GUID' not automatable in IADsSecurityUtilitydisp.GetIDsOfNames
|
|
// Warning: 'PShortInt' not automatable in IADsSecurityUtilitydisp.GetIDsOfNames
|
|
// Warning: 'GUID' not automatable in IADsSecurityUtilitydisp.Invoke
|
|
// Warning: 'DISPPARAMS' not automatable in IADsSecurityUtilitydisp.Invoke
|
|
// Warning: 'EXCEPINFO' not automatable in IADsSecurityUtilitydisp.Invoke
|
|
Uses
|
|
Windows,ActiveX,Classes,Variants,stdole2;
|
|
Const
|
|
ActiveDsMajorVersion = 1;
|
|
ActiveDsMinorVersion = 0;
|
|
ActiveDsLCID = 0;
|
|
LIBID_ActiveDs : TGUID = '{97D25DB0-0363-11CF-ABC4-02608C9E7553}';
|
|
|
|
IID_IADs : TGUID = '{FD8256D0-FD15-11CE-ABC4-02608C9E7553}';
|
|
IID_IADsContainer : TGUID = '{001677D0-FD16-11CE-ABC4-02608C9E7553}';
|
|
IID_IADsCollection : TGUID = '{72B945E0-253B-11CF-A988-00AA006BC149}';
|
|
IID_IADsMembers : TGUID = '{451A0030-72EC-11CF-B03B-00AA006E0975}';
|
|
IID_IADsPropertyList : TGUID = '{C6F602B6-8F69-11D0-8528-00C04FD8D503}';
|
|
IID_IADsPropertyEntry : TGUID = '{05792C8E-941F-11D0-8529-00C04FD8D503}';
|
|
CLASS_PropertyEntry : TGUID = '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
|
|
IID_IADsPropertyValue : TGUID = '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
|
|
IID_IADsPropertyValue2 : TGUID = '{306E831C-5BC7-11D1-A3B8-00C04FB950DC}';
|
|
CLASS_PropertyValue : TGUID = '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
|
|
IID_IPrivateDispatch : TGUID = '{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}';
|
|
IID_ITypeInfo : TGUID = '{00020401-0000-0000-C000-000000000046}';
|
|
IID_ITypeComp : TGUID = '{00020403-0000-0000-C000-000000000046}';
|
|
IID_ITypeLib : TGUID = '{00020402-0000-0000-C000-000000000046}';
|
|
IID_IPrivateUnknown : TGUID = '{89126BAB-6EAD-11D1-8C18-00C04FD8D503}';
|
|
IID_IADsExtension : TGUID = '{3D35553C-D2B0-11D1-B17B-0000F87593A0}';
|
|
IID_IADsDeleteOps : TGUID = '{B2BD0902-8878-11D1-8C21-00C04FD8D503}';
|
|
IID_IADsNamespaces : TGUID = '{28B96BA0-B330-11CF-A9AD-00AA006BC149}';
|
|
IID_IADsClass : TGUID = '{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}';
|
|
IID_IADsProperty : TGUID = '{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}';
|
|
IID_IADsSyntax : TGUID = '{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}';
|
|
IID_IADsLocality : TGUID = '{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}';
|
|
IID_IADsO : TGUID = '{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}';
|
|
IID_IADsOU : TGUID = '{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}';
|
|
IID_IADsDomain : TGUID = '{00E4C220-FD16-11CE-ABC4-02608C9E7553}';
|
|
IID_IADsComputer : TGUID = '{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}';
|
|
IID_IADsComputerOperations : TGUID = '{EF497680-1D9F-11CF-B1F3-02608C9E7553}';
|
|
IID_IADsGroup : TGUID = '{27636B00-410F-11CF-B1FF-02608C9E7553}';
|
|
IID_IADsUser : TGUID = '{3E37E320-17E2-11CF-ABC4-02608C9E7553}';
|
|
IID_IADsPrintQueue : TGUID = '{B15160D0-1226-11CF-A985-00AA006BC149}';
|
|
IID_IADsPrintQueueOperations : TGUID = '{124BE5C0-156E-11CF-A986-00AA006BC149}';
|
|
IID_IADsPrintJob : TGUID = '{32FB6780-1ED0-11CF-A988-00AA006BC149}';
|
|
IID_IADsPrintJobOperations : TGUID = '{9A52DB30-1ECF-11CF-A988-00AA006BC149}';
|
|
IID_IADsService : TGUID = '{68AF66E0-31CA-11CF-A98A-00AA006BC149}';
|
|
IID_IADsServiceOperations : TGUID = '{5D7B33F0-31CA-11CF-A98A-00AA006BC149}';
|
|
IID_IADsFileService : TGUID = '{A89D1900-31CA-11CF-A98A-00AA006BC149}';
|
|
IID_IADsFileServiceOperations : TGUID = '{A02DED10-31CA-11CF-A98A-00AA006BC149}';
|
|
IID_IADsFileShare : TGUID = '{EB6DCAF0-4B83-11CF-A995-00AA006BC149}';
|
|
IID_IADsSession : TGUID = '{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}';
|
|
IID_IADsResource : TGUID = '{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}';
|
|
IID_IADsOpenDSObject : TGUID = '{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}';
|
|
IID_IDirectoryObject : TGUID = '{E798DE2C-22E4-11D0-84FE-00C04FD8D503}';
|
|
IID_IDirectorySearch : TGUID = '{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}';
|
|
IID_IDirectorySchemaMgmt : TGUID = '{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}';
|
|
IID_IADsAggregatee : TGUID = '{1346CE8C-9039-11D0-8528-00C04FD8D503}';
|
|
IID_IADsAggregator : TGUID = '{52DB5FB0-941F-11D0-8529-00C04FD8D503}';
|
|
IID_IADsAccessControlEntry : TGUID = '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
|
|
CLASS_AccessControlEntry : TGUID = '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
|
|
IID_IADsAccessControlList : TGUID = '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
|
|
CLASS_AccessControlList : TGUID = '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
|
|
IID_IADsSecurityDescriptor : TGUID = '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
|
|
CLASS_SecurityDescriptor : TGUID = '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
|
|
IID_IADsLargeInteger : TGUID = '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
|
|
CLASS_LargeInteger : TGUID = '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
|
|
IID_IADsNameTranslate : TGUID = '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
|
|
CLASS_NameTranslate : TGUID = '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
|
|
IID_IADsCaseIgnoreList : TGUID = '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
|
|
CLASS_CaseIgnoreList : TGUID = '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
|
|
IID_IADsFaxNumber : TGUID = '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
|
|
CLASS_FaxNumber : TGUID = '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
|
|
IID_IADsNetAddress : TGUID = '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
|
|
CLASS_NetAddress : TGUID = '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
|
|
IID_IADsOctetList : TGUID = '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
|
|
CLASS_OctetList : TGUID = '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
|
|
IID_IADsEmail : TGUID = '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
|
|
CLASS_Email : TGUID = '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
|
|
IID_IADsPath : TGUID = '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
|
|
CLASS_Path : TGUID = '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
|
|
IID_IADsReplicaPointer : TGUID = '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
|
|
CLASS_ReplicaPointer : TGUID = '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
|
|
IID_IADsAcl : TGUID = '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
|
|
IID_IADsTimestamp : TGUID = '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
|
|
CLASS_Timestamp : TGUID = '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
|
|
IID_IADsPostalAddress : TGUID = '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
|
|
CLASS_PostalAddress : TGUID = '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
|
|
IID_IADsBackLink : TGUID = '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
|
|
CLASS_BackLink : TGUID = '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
|
|
IID_IADsTypedName : TGUID = '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
|
|
CLASS_TypedName : TGUID = '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
|
|
IID_IADsHold : TGUID = '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
|
|
CLASS_Hold : TGUID = '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
|
|
IID_IADsObjectOptions : TGUID = '{46F14FDA-232B-11D1-A808-00C04FD8D5A8}';
|
|
IID_IADsPathname : TGUID = '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
|
|
CLASS_Pathname : TGUID = '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
|
|
IID_IADsADSystemInfo : TGUID = '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
|
|
CLASS_ADSystemInfo : TGUID = '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
|
|
IID_IADsWinNTSystemInfo : TGUID = '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
|
|
CLASS_WinNTSystemInfo : TGUID = '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
|
|
IID_IADsDNWithBinary : TGUID = '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
|
|
CLASS_DNWithBinary : TGUID = '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
|
|
IID_IADsDNWithString : TGUID = '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
|
|
CLASS_DNWithString : TGUID = '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
|
|
IID_IADsSecurityUtility : TGUID = '{A63251B2-5F21-474B-AB52-4A8EFAD10895}';
|
|
CLASS_ADsSecurityUtility : TGUID = '{F270C64A-FFB8-4AE4-85FE-3A75E5347966}';
|
|
|
|
//Enums
|
|
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0001 =LongWord;
|
|
Const
|
|
ADSTYPE_INVALID = $0000000000000000;
|
|
ADSTYPE_DN_STRING = $0000000000000001;
|
|
ADSTYPE_CASE_EXACT_STRING = $0000000000000002;
|
|
ADSTYPE_CASE_IGNORE_STRING = $0000000000000003;
|
|
ADSTYPE_PRINTABLE_STRING = $0000000000000004;
|
|
ADSTYPE_NUMERIC_STRING = $0000000000000005;
|
|
ADSTYPE_BOOLEAN = $0000000000000006;
|
|
ADSTYPE_INTEGER = $0000000000000007;
|
|
ADSTYPE_OCTET_STRING = $0000000000000008;
|
|
ADSTYPE_UTC_TIME = $0000000000000009;
|
|
ADSTYPE_LARGE_INTEGER = $000000000000000A;
|
|
ADSTYPE_PROV_SPECIFIC = $000000000000000B;
|
|
ADSTYPE_OBJECT_CLASS = $000000000000000C;
|
|
ADSTYPE_CASEIGNORE_LIST = $000000000000000D;
|
|
ADSTYPE_OCTET_LIST = $000000000000000E;
|
|
ADSTYPE_PATH = $000000000000000F;
|
|
ADSTYPE_POSTALADDRESS = $0000000000000010;
|
|
ADSTYPE_TIMESTAMP = $0000000000000011;
|
|
ADSTYPE_BACKLINK = $0000000000000012;
|
|
ADSTYPE_TYPEDNAME = $0000000000000013;
|
|
ADSTYPE_HOLD = $0000000000000014;
|
|
ADSTYPE_NETADDRESS = $0000000000000015;
|
|
ADSTYPE_REPLICAPOINTER = $0000000000000016;
|
|
ADSTYPE_FAXNUMBER = $0000000000000017;
|
|
ADSTYPE_EMAIL = $0000000000000018;
|
|
ADSTYPE_NT_SECURITY_DESCRIPTOR = $0000000000000019;
|
|
ADSTYPE_UNKNOWN = $000000000000001A;
|
|
ADSTYPE_DN_WITH_BINARY = $000000000000001B;
|
|
ADSTYPE_DN_WITH_STRING = $000000000000001C;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0018 =LongWord;
|
|
Const
|
|
ADS_SECURE_AUTHENTICATION = $0000000000000001;
|
|
ADS_USE_ENCRYPTION = $0000000000000002;
|
|
ADS_USE_SSL = $0000000000000002;
|
|
ADS_READONLY_SERVER = $0000000000000004;
|
|
ADS_PROMPT_CREDENTIALS = $0000000000000008;
|
|
ADS_NO_AUTHENTICATION = $0000000000000010;
|
|
ADS_FAST_BIND = $0000000000000020;
|
|
ADS_USE_SIGNING = $0000000000000040;
|
|
ADS_USE_SEALING = $0000000000000080;
|
|
ADS_USE_DELEGATION = $0000000000000100;
|
|
ADS_SERVER_BIND = $0000000000000200;
|
|
ADS_NO_REFERRAL_CHASING = $0000000000000400;
|
|
ADS_AUTH_RESERVED = $0000000080000000;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0019 =LongWord;
|
|
Const
|
|
ADS_STATUS_S_OK = $0000000000000000;
|
|
ADS_STATUS_INVALID_SEARCHPREF = $0000000000000001;
|
|
ADS_STATUS_INVALID_SEARCHPREFVALUE = $0000000000000002;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0020 =LongWord;
|
|
Const
|
|
ADS_DEREF_NEVER = $0000000000000000;
|
|
ADS_DEREF_SEARCHING = $0000000000000001;
|
|
ADS_DEREF_FINDING = $0000000000000002;
|
|
ADS_DEREF_ALWAYS = $0000000000000003;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0021 =LongWord;
|
|
Const
|
|
ADS_SCOPE_BASE = $0000000000000000;
|
|
ADS_SCOPE_ONELEVEL = $0000000000000001;
|
|
ADS_SCOPE_SUBTREE = $0000000000000002;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0022 =LongWord;
|
|
Const
|
|
ADSIPROP_ASYNCHRONOUS = $0000000000000000;
|
|
ADSIPROP_DEREF_ALIASES = $0000000000000001;
|
|
ADSIPROP_SIZE_LIMIT = $0000000000000002;
|
|
ADSIPROP_TIME_LIMIT = $0000000000000003;
|
|
ADSIPROP_ATTRIBTYPES_ONLY = $0000000000000004;
|
|
ADSIPROP_SEARCH_SCOPE = $0000000000000005;
|
|
ADSIPROP_TIMEOUT = $0000000000000006;
|
|
ADSIPROP_PAGESIZE = $0000000000000007;
|
|
ADSIPROP_PAGED_TIME_LIMIT = $0000000000000008;
|
|
ADSIPROP_CHASE_REFERRALS = $0000000000000009;
|
|
ADSIPROP_SORT_ON = $000000000000000A;
|
|
ADSIPROP_CACHE_RESULTS = $000000000000000B;
|
|
ADSIPROP_ADSIFLAG = $000000000000000C;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0023 =LongWord;
|
|
Const
|
|
ADSI_DIALECT_LDAP = $0000000000000000;
|
|
ADSI_DIALECT_SQL = $0000000000000001;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0024 =LongWord;
|
|
Const
|
|
ADS_CHASE_REFERRALS_NEVER = $0000000000000000;
|
|
ADS_CHASE_REFERRALS_SUBORDINATE = $0000000000000020;
|
|
ADS_CHASE_REFERRALS_EXTERNAL = $0000000000000040;
|
|
ADS_CHASE_REFERRALS_ALWAYS = $0000000000000060;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0025 =LongWord;
|
|
Const
|
|
ADS_SEARCHPREF_ASYNCHRONOUS = $0000000000000000;
|
|
ADS_SEARCHPREF_DEREF_ALIASES = $0000000000000001;
|
|
ADS_SEARCHPREF_SIZE_LIMIT = $0000000000000002;
|
|
ADS_SEARCHPREF_TIME_LIMIT = $0000000000000003;
|
|
ADS_SEARCHPREF_ATTRIBTYPES_ONLY = $0000000000000004;
|
|
ADS_SEARCHPREF_SEARCH_SCOPE = $0000000000000005;
|
|
ADS_SEARCHPREF_TIMEOUT = $0000000000000006;
|
|
ADS_SEARCHPREF_PAGESIZE = $0000000000000007;
|
|
ADS_SEARCHPREF_PAGED_TIME_LIMIT = $0000000000000008;
|
|
ADS_SEARCHPREF_CHASE_REFERRALS = $0000000000000009;
|
|
ADS_SEARCHPREF_SORT_ON = $000000000000000A;
|
|
ADS_SEARCHPREF_CACHE_RESULTS = $000000000000000B;
|
|
ADS_SEARCHPREF_DIRSYNC = $000000000000000C;
|
|
ADS_SEARCHPREF_TOMBSTONE = $000000000000000D;
|
|
ADS_SEARCHPREF_VLV = $000000000000000E;
|
|
ADS_SEARCHPREF_ATTRIBUTE_QUERY = $000000000000000F;
|
|
ADS_SEARCHPREF_SECURITY_MASK = $0000000000000010;
|
|
ADS_SEARCHPREF_DIRSYNC_FLAG = $0000000000000011;
|
|
ADS_SEARCHPREF_EXTENDED_DN = $0000000000000012;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0026 =LongWord;
|
|
Const
|
|
ADS_PASSWORD_ENCODE_REQUIRE_SSL = $0000000000000000;
|
|
ADS_PASSWORD_ENCODE_CLEAR = $0000000000000001;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0000_0000_0027 =LongWord;
|
|
Const
|
|
ADS_PROPERTY_CLEAR = $0000000000000001;
|
|
ADS_PROPERTY_UPDATE = $0000000000000002;
|
|
ADS_PROPERTY_APPEND = $0000000000000003;
|
|
ADS_PROPERTY_DELETE = $0000000000000004;
|
|
Type
|
|
tagTYPEKIND =LongWord;
|
|
Const
|
|
TKIND_ENUM = $0000000000000000;
|
|
TKIND_RECORD = $0000000000000001;
|
|
TKIND_MODULE = $0000000000000002;
|
|
TKIND_INTERFACE = $0000000000000003;
|
|
TKIND_DISPATCH = $0000000000000004;
|
|
TKIND_COCLASS = $0000000000000005;
|
|
TKIND_ALIAS = $0000000000000006;
|
|
TKIND_UNION = $0000000000000007;
|
|
TKIND_MAX = $0000000000000008;
|
|
Type
|
|
tagDESCKIND =LongWord;
|
|
Const
|
|
DESCKIND_NONE = $0000000000000000;
|
|
DESCKIND_FUNCDESC = $0000000000000001;
|
|
DESCKIND_VARDESC = $0000000000000002;
|
|
DESCKIND_TYPECOMP = $0000000000000003;
|
|
DESCKIND_IMPLICITAPPOBJ = $0000000000000004;
|
|
DESCKIND_MAX = $0000000000000005;
|
|
Type
|
|
tagFUNCKIND =LongWord;
|
|
Const
|
|
FUNC_VIRTUAL = $0000000000000000;
|
|
FUNC_PUREVIRTUAL = $0000000000000001;
|
|
FUNC_NONVIRTUAL = $0000000000000002;
|
|
FUNC_STATIC = $0000000000000003;
|
|
FUNC_DISPATCH = $0000000000000004;
|
|
Type
|
|
tagINVOKEKIND =LongWord;
|
|
Const
|
|
INVOKE_FUNC = $0000000000000001;
|
|
INVOKE_PROPERTYGET = $0000000000000002;
|
|
INVOKE_PROPERTYPUT = $0000000000000004;
|
|
INVOKE_PROPERTYPUTREF = $0000000000000008;
|
|
Type
|
|
tagCALLCONV =LongWord;
|
|
Const
|
|
CC_FASTCALL = $0000000000000000;
|
|
CC_CDECL = $0000000000000001;
|
|
CC_MSCPASCAL = $0000000000000002;
|
|
CC_PASCAL = $0000000000000002;
|
|
CC_MACPASCAL = $0000000000000003;
|
|
CC_STDCALL = $0000000000000004;
|
|
CC_FPFASTCALL = $0000000000000005;
|
|
CC_SYSCALL = $0000000000000006;
|
|
CC_MPWCDECL = $0000000000000007;
|
|
CC_MPWPASCAL = $0000000000000008;
|
|
CC_MAX = $0000000000000009;
|
|
Type
|
|
tagVARKIND =LongWord;
|
|
Const
|
|
VAR_PERINSTANCE = $0000000000000000;
|
|
VAR_STATIC = $0000000000000001;
|
|
VAR_CONST = $0000000000000002;
|
|
VAR_DISPATCH = $0000000000000003;
|
|
Type
|
|
tagSYSKIND =LongWord;
|
|
Const
|
|
SYS_WIN16 = $0000000000000000;
|
|
SYS_WIN32 = $0000000000000001;
|
|
SYS_MAC = $0000000000000002;
|
|
SYS_WIN64 = $0000000000000003;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0015_0001 =LongWord;
|
|
Const
|
|
ADS_SYSTEMFLAG_DISALLOW_DELETE = $0000000080000000;
|
|
ADS_SYSTEMFLAG_CONFIG_ALLOW_RENAME = $0000000040000000;
|
|
ADS_SYSTEMFLAG_CONFIG_ALLOW_MOVE = $0000000020000000;
|
|
ADS_SYSTEMFLAG_CONFIG_ALLOW_LIMITED_MOVE = $0000000010000000;
|
|
ADS_SYSTEMFLAG_DOMAIN_DISALLOW_RENAME = $0000000008000000;
|
|
ADS_SYSTEMFLAG_DOMAIN_DISALLOW_MOVE = $0000000004000000;
|
|
ADS_SYSTEMFLAG_CR_NTDS_NC = $0000000000000001;
|
|
ADS_SYSTEMFLAG_CR_NTDS_DOMAIN = $0000000000000002;
|
|
ADS_SYSTEMFLAG_ATTR_NOT_REPLICATED = $0000000000000001;
|
|
ADS_SYSTEMFLAG_ATTR_IS_CONSTRUCTED = $0000000000000004;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0021_0001 =LongWord;
|
|
Const
|
|
ADS_GROUP_TYPE_GLOBAL_GROUP = $0000000000000002;
|
|
ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = $0000000000000004;
|
|
ADS_GROUP_TYPE_LOCAL_GROUP = $0000000000000004;
|
|
ADS_GROUP_TYPE_UNIVERSAL_GROUP = $0000000000000008;
|
|
ADS_GROUP_TYPE_SECURITY_ENABLED = $0000000080000000;
|
|
Type
|
|
ADS_USER_FLAG =LongWord;
|
|
Const
|
|
ADS_UF_SCRIPT = $0000000000000001;
|
|
ADS_UF_ACCOUNTDISABLE = $0000000000000002;
|
|
ADS_UF_HOMEDIR_REQUIRED = $0000000000000008;
|
|
ADS_UF_LOCKOUT = $0000000000000010;
|
|
ADS_UF_PASSWD_NOTREQD = $0000000000000020;
|
|
ADS_UF_PASSWD_CANT_CHANGE = $0000000000000040;
|
|
ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = $0000000000000080;
|
|
ADS_UF_TEMP_DUPLICATE_ACCOUNT = $0000000000000100;
|
|
ADS_UF_NORMAL_ACCOUNT = $0000000000000200;
|
|
ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = $0000000000000800;
|
|
ADS_UF_WORKSTATION_TRUST_ACCOUNT = $0000000000001000;
|
|
ADS_UF_SERVER_TRUST_ACCOUNT = $0000000000002000;
|
|
ADS_UF_DONT_EXPIRE_PASSWD = $0000000000010000;
|
|
ADS_UF_MNS_LOGON_ACCOUNT = $0000000000020000;
|
|
ADS_UF_SMARTCARD_REQUIRED = $0000000000040000;
|
|
ADS_UF_TRUSTED_FOR_DELEGATION = $0000000000080000;
|
|
ADS_UF_NOT_DELEGATED = $0000000000100000;
|
|
ADS_UF_USE_DES_KEY_ONLY = $0000000000200000;
|
|
ADS_UF_DONT_REQUIRE_PREAUTH = $0000000000400000;
|
|
ADS_UF_PASSWORD_EXPIRED = $0000000000800000;
|
|
ADS_UF_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION = $0000000001000000;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0043_0001 =LongWord;
|
|
Const
|
|
ADS_RIGHT_DELETE = $0000000000010000;
|
|
ADS_RIGHT_READ_CONTROL = $0000000000020000;
|
|
ADS_RIGHT_WRITE_DAC = $0000000000040000;
|
|
ADS_RIGHT_WRITE_OWNER = $0000000000080000;
|
|
ADS_RIGHT_SYNCHRONIZE = $0000000000100000;
|
|
ADS_RIGHT_ACCESS_SYSTEM_SECURITY = $0000000001000000;
|
|
ADS_RIGHT_GENERIC_READ = $0000000080000000;
|
|
ADS_RIGHT_GENERIC_WRITE = $0000000040000000;
|
|
ADS_RIGHT_GENERIC_EXECUTE = $0000000020000000;
|
|
ADS_RIGHT_GENERIC_ALL = $0000000010000000;
|
|
ADS_RIGHT_DS_CREATE_CHILD = $0000000000000001;
|
|
ADS_RIGHT_DS_DELETE_CHILD = $0000000000000002;
|
|
ADS_RIGHT_ACTRL_DS_LIST = $0000000000000004;
|
|
ADS_RIGHT_DS_SELF = $0000000000000008;
|
|
ADS_RIGHT_DS_READ_PROP = $0000000000000010;
|
|
ADS_RIGHT_DS_WRITE_PROP = $0000000000000020;
|
|
ADS_RIGHT_DS_DELETE_TREE = $0000000000000040;
|
|
ADS_RIGHT_DS_LIST_OBJECT = $0000000000000080;
|
|
ADS_RIGHT_DS_CONTROL_ACCESS = $0000000000000100;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0043_0002 =LongWord;
|
|
Const
|
|
ADS_ACETYPE_ACCESS_ALLOWED = $0000000000000000;
|
|
ADS_ACETYPE_ACCESS_DENIED = $0000000000000001;
|
|
ADS_ACETYPE_SYSTEM_AUDIT = $0000000000000002;
|
|
ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = $0000000000000005;
|
|
ADS_ACETYPE_ACCESS_DENIED_OBJECT = $0000000000000006;
|
|
ADS_ACETYPE_SYSTEM_AUDIT_OBJECT = $0000000000000007;
|
|
ADS_ACETYPE_SYSTEM_ALARM_OBJECT = $0000000000000008;
|
|
ADS_ACETYPE_ACCESS_ALLOWED_CALLBACK = $0000000000000009;
|
|
ADS_ACETYPE_ACCESS_DENIED_CALLBACK = $000000000000000A;
|
|
ADS_ACETYPE_ACCESS_ALLOWED_CALLBACK_OBJECT = $000000000000000B;
|
|
ADS_ACETYPE_ACCESS_DENIED_CALLBACK_OBJECT = $000000000000000C;
|
|
ADS_ACETYPE_SYSTEM_AUDIT_CALLBACK = $000000000000000D;
|
|
ADS_ACETYPE_SYSTEM_ALARM_CALLBACK = $000000000000000E;
|
|
ADS_ACETYPE_SYSTEM_AUDIT_CALLBACK_OBJECT = $000000000000000F;
|
|
ADS_ACETYPE_SYSTEM_ALARM_CALLBACK_OBJECT = $0000000000000010;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0043_0003 =LongWord;
|
|
Const
|
|
ADS_ACEFLAG_INHERIT_ACE = $0000000000000002;
|
|
ADS_ACEFLAG_NO_PROPAGATE_INHERIT_ACE = $0000000000000004;
|
|
ADS_ACEFLAG_INHERIT_ONLY_ACE = $0000000000000008;
|
|
ADS_ACEFLAG_INHERITED_ACE = $0000000000000010;
|
|
ADS_ACEFLAG_VALID_INHERIT_FLAGS = $000000000000001F;
|
|
ADS_ACEFLAG_SUCCESSFUL_ACCESS = $0000000000000040;
|
|
ADS_ACEFLAG_FAILED_ACCESS = $0000000000000080;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0043_0004 =LongWord;
|
|
Const
|
|
ADS_FLAG_OBJECT_TYPE_PRESENT = $0000000000000001;
|
|
ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = $0000000000000002;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0043_0005 =LongWord;
|
|
Const
|
|
ADS_SD_CONTROL_SE_OWNER_DEFAULTED = $0000000000000001;
|
|
ADS_SD_CONTROL_SE_GROUP_DEFAULTED = $0000000000000002;
|
|
ADS_SD_CONTROL_SE_DACL_PRESENT = $0000000000000004;
|
|
ADS_SD_CONTROL_SE_DACL_DEFAULTED = $0000000000000008;
|
|
ADS_SD_CONTROL_SE_SACL_PRESENT = $0000000000000010;
|
|
ADS_SD_CONTROL_SE_SACL_DEFAULTED = $0000000000000020;
|
|
ADS_SD_CONTROL_SE_DACL_AUTO_INHERIT_REQ = $0000000000000100;
|
|
ADS_SD_CONTROL_SE_SACL_AUTO_INHERIT_REQ = $0000000000000200;
|
|
ADS_SD_CONTROL_SE_DACL_AUTO_INHERITED = $0000000000000400;
|
|
ADS_SD_CONTROL_SE_SACL_AUTO_INHERITED = $0000000000000800;
|
|
ADS_SD_CONTROL_SE_DACL_PROTECTED = $0000000000001000;
|
|
ADS_SD_CONTROL_SE_SACL_PROTECTED = $0000000000002000;
|
|
ADS_SD_CONTROL_SE_SELF_RELATIVE = $0000000000008000;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0043_0006 =LongWord;
|
|
Const
|
|
ADS_SD_REVISION_DS = $0000000000000004;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0044_0001 =LongWord;
|
|
Const
|
|
ADS_NAME_TYPE_1779 = $0000000000000001;
|
|
ADS_NAME_TYPE_CANONICAL = $0000000000000002;
|
|
ADS_NAME_TYPE_NT4 = $0000000000000003;
|
|
ADS_NAME_TYPE_DISPLAY = $0000000000000004;
|
|
ADS_NAME_TYPE_DOMAIN_SIMPLE = $0000000000000005;
|
|
ADS_NAME_TYPE_ENTERPRISE_SIMPLE = $0000000000000006;
|
|
ADS_NAME_TYPE_GUID = $0000000000000007;
|
|
ADS_NAME_TYPE_UNKNOWN = $0000000000000008;
|
|
ADS_NAME_TYPE_USER_PRINCIPAL_NAME = $0000000000000009;
|
|
ADS_NAME_TYPE_CANONICAL_EX = $000000000000000A;
|
|
ADS_NAME_TYPE_SERVICE_PRINCIPAL_NAME = $000000000000000B;
|
|
ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME = $000000000000000C;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0044_0002 =LongWord;
|
|
Const
|
|
ADS_NAME_INITTYPE_DOMAIN = $0000000000000001;
|
|
ADS_NAME_INITTYPE_SERVER = $0000000000000002;
|
|
ADS_NAME_INITTYPE_GC = $0000000000000003;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0058_0001 =LongWord;
|
|
Const
|
|
ADS_OPTION_SERVERNAME = $0000000000000000;
|
|
ADS_OPTION_REFERRALS = $0000000000000001;
|
|
ADS_OPTION_PAGE_SIZE = $0000000000000002;
|
|
ADS_OPTION_SECURITY_MASK = $0000000000000003;
|
|
ADS_OPTION_MUTUAL_AUTH_STATUS = $0000000000000004;
|
|
ADS_OPTION_QUOTA = $0000000000000005;
|
|
ADS_OPTION_PASSWORD_PORTNUMBER = $0000000000000006;
|
|
ADS_OPTION_PASSWORD_METHOD = $0000000000000007;
|
|
ADS_OPTION_ACCUMULATIVE_MODIFICATION = $0000000000000008;
|
|
ADS_OPTION_SKIP_SID_LOOKUP = $0000000000000009;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0058_0002 =LongWord;
|
|
Const
|
|
ADS_SECURITY_INFO_OWNER = $0000000000000001;
|
|
ADS_SECURITY_INFO_GROUP = $0000000000000002;
|
|
ADS_SECURITY_INFO_DACL = $0000000000000004;
|
|
ADS_SECURITY_INFO_SACL = $0000000000000008;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0059_0001 =LongWord;
|
|
Const
|
|
ADS_SETTYPE_FULL = $0000000000000001;
|
|
ADS_SETTYPE_PROVIDER = $0000000000000002;
|
|
ADS_SETTYPE_SERVER = $0000000000000003;
|
|
ADS_SETTYPE_DN = $0000000000000004;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0059_0002 =LongWord;
|
|
Const
|
|
ADS_FORMAT_WINDOWS = $0000000000000001;
|
|
ADS_FORMAT_WINDOWS_NO_SERVER = $0000000000000002;
|
|
ADS_FORMAT_WINDOWS_DN = $0000000000000003;
|
|
ADS_FORMAT_WINDOWS_PARENT = $0000000000000004;
|
|
ADS_FORMAT_X500 = $0000000000000005;
|
|
ADS_FORMAT_X500_NO_SERVER = $0000000000000006;
|
|
ADS_FORMAT_X500_DN = $0000000000000007;
|
|
ADS_FORMAT_X500_PARENT = $0000000000000008;
|
|
ADS_FORMAT_SERVER = $0000000000000009;
|
|
ADS_FORMAT_PROVIDER = $000000000000000A;
|
|
ADS_FORMAT_LEAF = $000000000000000B;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0059_0003 =LongWord;
|
|
Const
|
|
ADS_DISPLAY_FULL = $0000000000000001;
|
|
ADS_DISPLAY_VALUE_ONLY = $0000000000000002;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0059_0004 =LongWord;
|
|
Const
|
|
ADS_ESCAPEDMODE_DEFAULT = $0000000000000001;
|
|
ADS_ESCAPEDMODE_ON = $0000000000000002;
|
|
ADS_ESCAPEDMODE_OFF = $0000000000000003;
|
|
ADS_ESCAPEDMODE_OFF_EX = $0000000000000004;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0064_0001 =LongWord;
|
|
Const
|
|
ADS_PATH_FILE = $0000000000000001;
|
|
ADS_PATH_FILESHARE = $0000000000000002;
|
|
ADS_PATH_REGISTRY = $0000000000000003;
|
|
Type
|
|
__MIDL___MIDL_itf_ads_0001_0064_0002 =LongWord;
|
|
Const
|
|
ADS_SD_FORMAT_IID = $0000000000000001;
|
|
ADS_SD_FORMAT_RAW = $0000000000000002;
|
|
ADS_SD_FORMAT_HEXSTRING = $0000000000000003;
|
|
//Forward declarations
|
|
|
|
Type
|
|
IADs = interface;
|
|
IADsDisp = dispinterface;
|
|
IADsContainer = interface;
|
|
IADsContainerDisp = dispinterface;
|
|
IADsCollection = interface;
|
|
IADsCollectionDisp = dispinterface;
|
|
IADsMembers = interface;
|
|
IADsMembersDisp = dispinterface;
|
|
IADsPropertyList = interface;
|
|
IADsPropertyListDisp = dispinterface;
|
|
IADsPropertyEntry = interface;
|
|
IADsPropertyEntryDisp = dispinterface;
|
|
IADsPropertyValue = interface;
|
|
IADsPropertyValueDisp = dispinterface;
|
|
IADsPropertyValue2 = interface;
|
|
IADsPropertyValue2Disp = dispinterface;
|
|
IPrivateDispatch = interface;
|
|
ITypeInfo = interface;
|
|
ITypeComp = interface;
|
|
ITypeLib = interface;
|
|
IPrivateUnknown = interface;
|
|
IADsExtension = interface;
|
|
IADsDeleteOps = interface;
|
|
IADsDeleteOpsDisp = dispinterface;
|
|
IADsNamespaces = interface;
|
|
IADsNamespacesDisp = dispinterface;
|
|
IADsClass = interface;
|
|
IADsClassDisp = dispinterface;
|
|
IADsProperty = interface;
|
|
IADsPropertyDisp = dispinterface;
|
|
IADsSyntax = interface;
|
|
IADsSyntaxDisp = dispinterface;
|
|
IADsLocality = interface;
|
|
IADsLocalityDisp = dispinterface;
|
|
IADsO = interface;
|
|
IADsODisp = dispinterface;
|
|
IADsOU = interface;
|
|
IADsOUDisp = dispinterface;
|
|
IADsDomain = interface;
|
|
IADsDomainDisp = dispinterface;
|
|
IADsComputer = interface;
|
|
IADsComputerDisp = dispinterface;
|
|
IADsComputerOperations = interface;
|
|
IADsComputerOperationsDisp = dispinterface;
|
|
IADsGroup = interface;
|
|
IADsGroupDisp = dispinterface;
|
|
IADsUser = interface;
|
|
IADsUserDisp = dispinterface;
|
|
IADsPrintQueue = interface;
|
|
IADsPrintQueueDisp = dispinterface;
|
|
IADsPrintQueueOperations = interface;
|
|
IADsPrintQueueOperationsDisp = dispinterface;
|
|
IADsPrintJob = interface;
|
|
IADsPrintJobDisp = dispinterface;
|
|
IADsPrintJobOperations = interface;
|
|
IADsPrintJobOperationsDisp = dispinterface;
|
|
IADsService = interface;
|
|
IADsServiceDisp = dispinterface;
|
|
IADsServiceOperations = interface;
|
|
IADsServiceOperationsDisp = dispinterface;
|
|
IADsFileService = interface;
|
|
IADsFileServiceDisp = dispinterface;
|
|
IADsFileServiceOperations = interface;
|
|
IADsFileServiceOperationsDisp = dispinterface;
|
|
IADsFileShare = interface;
|
|
IADsFileShareDisp = dispinterface;
|
|
IADsSession = interface;
|
|
IADsSessionDisp = dispinterface;
|
|
IADsResource = interface;
|
|
IADsResourceDisp = dispinterface;
|
|
IADsOpenDSObject = interface;
|
|
IADsOpenDSObjectDisp = dispinterface;
|
|
IDirectoryObject = interface;
|
|
IDirectorySearch = interface;
|
|
IDirectorySchemaMgmt = interface;
|
|
IADsAggregatee = interface;
|
|
IADsAggregator = interface;
|
|
IADsAccessControlEntry = interface;
|
|
IADsAccessControlEntryDisp = dispinterface;
|
|
IADsAccessControlList = interface;
|
|
IADsAccessControlListDisp = dispinterface;
|
|
IADsSecurityDescriptor = interface;
|
|
IADsSecurityDescriptorDisp = dispinterface;
|
|
IADsLargeInteger = interface;
|
|
IADsLargeIntegerDisp = dispinterface;
|
|
IADsNameTranslate = interface;
|
|
IADsNameTranslateDisp = dispinterface;
|
|
IADsCaseIgnoreList = interface;
|
|
IADsCaseIgnoreListDisp = dispinterface;
|
|
IADsFaxNumber = interface;
|
|
IADsFaxNumberDisp = dispinterface;
|
|
IADsNetAddress = interface;
|
|
IADsNetAddressDisp = dispinterface;
|
|
IADsOctetList = interface;
|
|
IADsOctetListDisp = dispinterface;
|
|
IADsEmail = interface;
|
|
IADsEmailDisp = dispinterface;
|
|
IADsPath = interface;
|
|
IADsPathDisp = dispinterface;
|
|
IADsReplicaPointer = interface;
|
|
IADsReplicaPointerDisp = dispinterface;
|
|
IADsAcl = interface;
|
|
IADsAclDisp = dispinterface;
|
|
IADsTimestamp = interface;
|
|
IADsTimestampDisp = dispinterface;
|
|
IADsPostalAddress = interface;
|
|
IADsPostalAddressDisp = dispinterface;
|
|
IADsBackLink = interface;
|
|
IADsBackLinkDisp = dispinterface;
|
|
IADsTypedName = interface;
|
|
IADsTypedNameDisp = dispinterface;
|
|
IADsHold = interface;
|
|
IADsHoldDisp = dispinterface;
|
|
IADsObjectOptions = interface;
|
|
IADsObjectOptionsDisp = dispinterface;
|
|
IADsPathname = interface;
|
|
IADsPathnameDisp = dispinterface;
|
|
IADsADSystemInfo = interface;
|
|
IADsADSystemInfoDisp = dispinterface;
|
|
IADsWinNTSystemInfo = interface;
|
|
IADsWinNTSystemInfoDisp = dispinterface;
|
|
IADsDNWithBinary = interface;
|
|
IADsDNWithBinaryDisp = dispinterface;
|
|
IADsDNWithString = interface;
|
|
IADsDNWithStringDisp = dispinterface;
|
|
IADsSecurityUtility = interface;
|
|
IADsSecurityUtilityDisp = dispinterface;
|
|
|
|
//Map CoClass to its default interface
|
|
|
|
PropertyEntry = IADsPropertyEntry;
|
|
PropertyValue = IADsPropertyValue;
|
|
AccessControlEntry = IADsAccessControlEntry;
|
|
AccessControlList = IADsAccessControlList;
|
|
SecurityDescriptor = IADsSecurityDescriptor;
|
|
LargeInteger = IADsLargeInteger;
|
|
NameTranslate = IADsNameTranslate;
|
|
CaseIgnoreList = IADsCaseIgnoreList;
|
|
FaxNumber = IADsFaxNumber;
|
|
NetAddress = IADsNetAddress;
|
|
OctetList = IADsOctetList;
|
|
Email = IADsEmail;
|
|
Path = IADsPath;
|
|
ReplicaPointer = IADsReplicaPointer;
|
|
Timestamp = IADsTimestamp;
|
|
PostalAddress = IADsPostalAddress;
|
|
BackLink = IADsBackLink;
|
|
TypedName = IADsTypedName;
|
|
Hold = IADsHold;
|
|
Pathname = IADsPathname;
|
|
ADSystemInfo = IADsADSystemInfo;
|
|
WinNTSystemInfo = IADsWinNTSystemInfo;
|
|
DNWithBinary = IADsDNWithBinary;
|
|
DNWithString = IADsDNWithString;
|
|
ADsSecurityUtility = IADsSecurityUtility;
|
|
|
|
//records, unions, aliases
|
|
|
|
ADSTYPEENUM = __MIDL___MIDL_itf_ads_0000_0000_0001;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0002 = ^__MIDL___MIDL_itf_ads_0000_0000_0002;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0002 = packed record
|
|
dwLength : LongWord;
|
|
lpValue : PByte;
|
|
end;
|
|
ADS_OCTET_STRING = __MIDL___MIDL_itf_ads_0000_0000_0002;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0003 = ^__MIDL___MIDL_itf_ads_0000_0000_0003;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0003 = packed record
|
|
dwLength : LongWord;
|
|
lpValue : PByte;
|
|
end;
|
|
ADS_NT_SECURITY_DESCRIPTOR = __MIDL___MIDL_itf_ads_0000_0000_0003;
|
|
P_SYSTEMTIME = ^_SYSTEMTIME;
|
|
|
|
_SYSTEMTIME = TSystemTime;{packed record
|
|
wYear : Word;
|
|
wMonth : Word;
|
|
wDayOfWeek : Word;
|
|
wDay : Word;
|
|
wHour : Word;
|
|
wMinute : Word;
|
|
wSecond : Word;
|
|
wMilliseconds : Word;
|
|
end;}
|
|
P_LARGE_INTEGER = ^_LARGE_INTEGER;
|
|
|
|
_LARGE_INTEGER = Int64;{packed record
|
|
QuadPart : Int64;
|
|
end;}
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0004 = ^__MIDL___MIDL_itf_ads_0000_0000_0004;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0004 = packed record
|
|
dwLength : LongWord;
|
|
lpValue : PByte;
|
|
end;
|
|
ADS_PROV_SPECIFIC = TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0004;
|
|
P_ADS_CASEIGNORE_LIST = ^_ADS_CASEIGNORE_LIST;
|
|
|
|
_ADS_CASEIGNORE_LIST = packed record
|
|
Next : P_ADS_CASEIGNORE_LIST;
|
|
String_ : PWideChar;
|
|
end;
|
|
P_ADS_OCTET_LIST = ^_ADS_OCTET_LIST;
|
|
|
|
_ADS_OCTET_LIST = packed record
|
|
Next : P_ADS_OCTET_LIST;
|
|
Length : LongWord;
|
|
Data : PByte;
|
|
end;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0005 = ^TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0005;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0005 = packed record
|
|
Type_ : LongWord;
|
|
VolumeName : PWideChar;
|
|
Path : PWideChar;
|
|
end;
|
|
ADS_PATH = __MIDL___MIDL_itf_ads_0000_0000_0005;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0006 = ^TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0006;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0006 = packed record
|
|
PostalAddress : array[0..5] of PWideChar;
|
|
end;
|
|
ADS_POSTALADDRESS = __MIDL___MIDL_itf_ads_0000_0000_0006;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0007 = ^__MIDL___MIDL_itf_ads_0000_0000_0007;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0007 = packed record
|
|
WholeSeconds : LongWord;
|
|
EventID : LongWord;
|
|
end;
|
|
ADS_TIMESTAMP = TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0007;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0008 = ^__MIDL___MIDL_itf_ads_0000_0000_0008;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0008 = packed record
|
|
RemoteID : LongWord;
|
|
ObjectName : PWideChar;
|
|
end;
|
|
ADS_BACKLINK = TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0008;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0009 = ^__MIDL___MIDL_itf_ads_0000_0000_0009;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0009 = packed record
|
|
ObjectName : PWideChar;
|
|
Level : LongWord;
|
|
Interval : LongWord;
|
|
end;
|
|
ADS_TYPEDNAME = __MIDL___MIDL_itf_ads_0000_0000_0009;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0010 = ^__MIDL___MIDL_itf_ads_0000_0000_0010;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0010 = packed record
|
|
ObjectName : PWideChar;
|
|
Amount : LongWord;
|
|
end;
|
|
ADS_HOLD = TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0010;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0011 = ^TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0011;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0011 = packed record
|
|
AddressType : LongWord;
|
|
AddressLength : LongWord;
|
|
Address : PByte;
|
|
end;
|
|
ADS_NETADDRESS = __MIDL___MIDL_itf_ads_0000_0000_0011;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0012 = ^TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0012;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0012 = packed record
|
|
ServerName : PWideChar;
|
|
ReplicaType : LongWord;
|
|
ReplicaNumber : LongWord;
|
|
Count : LongWord;
|
|
ReplicaAddressHints : P__MIDL___MIDL_itf_ads_0000_0000_0011;
|
|
end;
|
|
ADS_REPLICAPOINTER = __MIDL___MIDL_itf_ads_0000_0000_0012;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0013 = ^TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0013;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0013 = packed record
|
|
TelephoneNumber : PWideChar;
|
|
NumberOfBits : LongWord;
|
|
Parameters : PByte;
|
|
end;
|
|
ADS_FAXNUMBER = __MIDL___MIDL_itf_ads_0000_0000_0013;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0014 = ^__MIDL___MIDL_itf_ads_0000_0000_0014;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0014 = packed record
|
|
Address : PWideChar;
|
|
Type_ : LongWord;
|
|
end;
|
|
ADS_EMAIL = TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0014;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0015 = ^TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0015;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0015 = packed record
|
|
dwLength : LongWord;
|
|
lpBinaryValue : PByte;
|
|
pszDNString : PWideChar;
|
|
end;
|
|
ADS_DN_WITH_BINARY = __MIDL___MIDL_itf_ads_0000_0000_0015;
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0016 = ^TGUID;//__MIDL___MIDL_itf_ads_0000_0000_0016;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0016 = packed record
|
|
pszStringValue : PWideChar;
|
|
pszDNString : PWideChar;
|
|
end;
|
|
ADS_DN_WITH_STRING = __MIDL___MIDL_itf_ads_0000_0000_0016;
|
|
P_adsvalue = ^_adsvalue;
|
|
PADSVALUE = ^_ADSVALUE;
|
|
|
|
P__MIDL___MIDL_itf_ads_0000_0000_0017 = ^__MIDL___MIDL_itf_ads_0000_0000_0017;
|
|
|
|
__MIDL___MIDL_itf_ads_0000_0000_0017 = record
|
|
case Integer of
|
|
0: (DNString : PWideChar);
|
|
1: (CaseExactString : PWideChar);
|
|
2: (CaseIgnoreString : PWideChar);
|
|
3: (PrintableString : PWideChar);
|
|
4: (NumericString : PWideChar);
|
|
5: (Boolean_ : LongWord);
|
|
6: (Integer_ : LongWord);
|
|
7: (OctetString : ADS_OCTET_STRING);
|
|
8: (UTCTime : _SYSTEMTIME);
|
|
9: (LargeInteger : _LARGE_INTEGER);
|
|
10: (ClassName : PWideChar);
|
|
11: (ProviderSpecific : ADS_PROV_SPECIFIC);
|
|
12: (pCaseIgnoreList : P_ADS_CASEIGNORE_LIST);
|
|
13: (pOctetList : P_ADS_OCTET_LIST);
|
|
14: (pPath : P__MIDL___MIDL_itf_ads_0000_0000_0005);
|
|
15: (pPostalAddress : P__MIDL___MIDL_itf_ads_0000_0000_0006);
|
|
16: (Timestamp : ADS_TIMESTAMP);
|
|
17: (BackLink : ADS_BACKLINK);
|
|
18: (pTypedName : P__MIDL___MIDL_itf_ads_0000_0000_0009);
|
|
19: (Hold : ADS_HOLD);
|
|
20: (pNetAddress : P__MIDL___MIDL_itf_ads_0000_0000_0011);
|
|
21: (pReplicaPointer : P__MIDL___MIDL_itf_ads_0000_0000_0012);
|
|
22: (pFaxNumber : P__MIDL___MIDL_itf_ads_0000_0000_0013);
|
|
23: (Email : ADS_EMAIL);
|
|
24: (SecurityDescriptor : ADS_NT_SECURITY_DESCRIPTOR);
|
|
25: (pDNWithBinary : P__MIDL___MIDL_itf_ads_0000_0000_0015);
|
|
26: (pDNWithString : P__MIDL___MIDL_itf_ads_0000_0000_0016);
|
|
end;
|
|
_adsvalue = packed record
|
|
dwType : ADSTYPEENUM;
|
|
__MIDL_0010 : __MIDL___MIDL_itf_ads_0000_0000_0017;
|
|
end;
|
|
P_ads_attr_info = ^_ads_attr_info;
|
|
|
|
_ads_attr_info = packed record
|
|
pszAttrName : PWideChar;
|
|
dwControlCode : LongWord;
|
|
dwADsType : ADSTYPEENUM;
|
|
pADsValues : P_adsvalue;
|
|
dwNumValues : LongWord;
|
|
end;
|
|
ADS_AUTHENTICATION_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0018;
|
|
P_ads_object_info = ^_ads_object_info;
|
|
|
|
_ads_object_info = packed record
|
|
pszRDN : PWideChar;
|
|
pszObjectDN : PWideChar;
|
|
pszParentDN : PWideChar;
|
|
pszSchemaDN : PWideChar;
|
|
pszClassName : PWideChar;
|
|
end;
|
|
ADS_STATUSENUM = __MIDL___MIDL_itf_ads_0000_0000_0019;
|
|
ADS_DEREFENUM = __MIDL___MIDL_itf_ads_0000_0000_0020;
|
|
ADS_SCOPEENUM = __MIDL___MIDL_itf_ads_0000_0000_0021;
|
|
ADS_PREFERENCES_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0022;
|
|
ADSI_DIALECT_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0023;
|
|
ADS_CHASE_REFERRALS_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0024;
|
|
ADS_SEARCHPREF_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0025;
|
|
ADS_PASSWORD_ENCODING_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0026;
|
|
Pads_searchpref_info = ^ads_searchpref_info;
|
|
|
|
ads_searchpref_info = packed record
|
|
dwSearchPref : ADS_SEARCHPREF_ENUM;
|
|
vValue : _adsvalue;
|
|
dwStatus : ADS_STATUSENUM;
|
|
end;
|
|
Pads_search_column = ^ads_search_column;
|
|
|
|
ads_search_column = packed record
|
|
pszAttrName : PWideChar;
|
|
dwADsType : ADSTYPEENUM;
|
|
pADsValues : P_adsvalue;
|
|
dwNumValues : LongWord;
|
|
hReserved : Ppointer;
|
|
end;
|
|
P_ads_attr_def = ^_ads_attr_def;
|
|
|
|
_ads_attr_def = packed record
|
|
pszAttrName : PWideChar;
|
|
dwADsType : ADSTYPEENUM;
|
|
dwMinRange : LongWord;
|
|
dwMaxRange : LongWord;
|
|
fMultiValued : Integer;
|
|
end;
|
|
P_ads_class_def = ^_ads_class_def;
|
|
|
|
_ads_class_def = packed record
|
|
pszClassName : PWideChar;
|
|
dwMandatoryAttrs : LongWord;
|
|
ppszMandatoryAttrs : PPWideChar;
|
|
optionalAttrs : LongWord;
|
|
ppszOptionalAttrs : PPPWideChar;
|
|
dwNamingAttrs : LongWord;
|
|
ppszNamingAttrs : PPPWideChar;
|
|
dwSuperClasses : LongWord;
|
|
ppszSuperClasses : PPPWideChar;
|
|
fIsContainer : Integer;
|
|
end;
|
|
P_ads_sortkey = ^_ads_sortkey;
|
|
|
|
_ads_sortkey = packed record
|
|
pszAttrType : PWideChar;
|
|
pszReserved : PWideChar;
|
|
fReverseorder : ShortInt;
|
|
end;
|
|
P_ads_vlv = ^_ads_vlv;
|
|
|
|
_ads_vlv = packed record
|
|
dwBeforeCount : LongWord;
|
|
dwAfterCount : LongWord;
|
|
dwOffset : LongWord;
|
|
dwContentCount : LongWord;
|
|
pszTarget : PWideChar;
|
|
dwContextIDLength : LongWord;
|
|
lpContextID : PByte;
|
|
end;
|
|
ADS_PROPERTY_OPERATION_ENUM = __MIDL___MIDL_itf_ads_0000_0000_0027;
|
|
PtagTYPEATTR = ^tagTYPEATTR;
|
|
|
|
PtagTYPEDESC = ^tagTYPEDESC;
|
|
|
|
P__MIDL_IOleAutomationTypes_0005 = ^__MIDL_IOleAutomationTypes_0005;
|
|
|
|
PtagARRAYDESC = ^tagARRAYDESC;
|
|
|
|
__MIDL_IOleAutomationTypes_0005 = record
|
|
case Integer of
|
|
0: (lptdesc : PtagTYPEDESC);
|
|
1: (lpadesc : PtagARRAYDESC);
|
|
2: (hreftype : LongWord);
|
|
end;
|
|
tagTYPEDESC = packed record
|
|
DUMMYUNIONNAME : __MIDL_IOleAutomationTypes_0005;
|
|
vt : Word;
|
|
end;
|
|
PtagSAFEARRAYBOUND = ^tagSAFEARRAYBOUND;
|
|
|
|
tagARRAYDESC = packed record
|
|
tdescElem : tagTYPEDESC;
|
|
cDims : Word;
|
|
rgbounds : PtagSAFEARRAYBOUND;
|
|
end;
|
|
tagSAFEARRAYBOUND = packed record
|
|
cElements : LongWord;
|
|
lLbound : Integer;
|
|
end;
|
|
PtagIDLDESC = ^tagIDLDESC;
|
|
|
|
tagIDLDESC = packed record
|
|
dwReserved : ULONG_PTR;
|
|
wIDLFlags : Word;
|
|
end;
|
|
tagTYPEATTR = packed record
|
|
GUID : TGUID;
|
|
lcid : LongWord;
|
|
dwReserved : LongWord;
|
|
memidConstructor : Integer;
|
|
memidDestructor : Integer;
|
|
lpstrSchema : PWideChar;
|
|
cbSizeInstance : LongWord;
|
|
typekind : tagTYPEKIND;
|
|
cFuncs : Word;
|
|
cVars : Word;
|
|
cImplTypes : Word;
|
|
cbSizeVft : Word;
|
|
cbAlignment : Word;
|
|
wTypeFlags : Word;
|
|
wMajorVerNum : Word;
|
|
wMinorVerNum : Word;
|
|
tdescAlias : tagTYPEDESC;
|
|
idldescType : tagIDLDESC;
|
|
end;
|
|
ULONG_PTR = LongWord;
|
|
DWORD = LongWord;
|
|
PtagFUNCDESC = ^tagFUNCDESC;
|
|
|
|
PtagELEMDESC = ^tagELEMDESC;
|
|
|
|
PtagPARAMDESC = ^tagPARAMDESC;
|
|
|
|
PtagPARAMDESCEX = ^tagPARAMDESCEX;
|
|
|
|
tagPARAMDESC = packed record
|
|
pparamdescex : PtagPARAMDESCEX;
|
|
wParamFlags : Word;
|
|
end;
|
|
tagELEMDESC = packed record
|
|
tdesc : tagTYPEDESC;
|
|
paramdesc : tagPARAMDESC;
|
|
end;
|
|
tagFUNCDESC = packed record
|
|
memid : Integer;
|
|
lprgscode : PSCODE;
|
|
lprgelemdescParam : PtagELEMDESC;
|
|
funckind : tagFUNCKIND;
|
|
invkind : tagINVOKEKIND;
|
|
callconv : tagCALLCONV;
|
|
cParams : Smallint;
|
|
cParamsOpt : Smallint;
|
|
oVft : Smallint;
|
|
cScodes : Smallint;
|
|
elemdescFunc : tagELEMDESC;
|
|
wFuncFlags : Word;
|
|
end;
|
|
tagPARAMDESCEX = packed record
|
|
cBytes : LongWord;
|
|
varDefaultValue : OleVariant;
|
|
end;
|
|
PtagVARDESC = ^tagVARDESC;
|
|
|
|
P__MIDL_IOleAutomationTypes_0006 = ^__MIDL_IOleAutomationTypes_0006;
|
|
|
|
__MIDL_IOleAutomationTypes_0006 = record
|
|
case Integer of
|
|
0: (oInst : LongWord);
|
|
1: (lpvarValue : POleVariant);
|
|
end;
|
|
tagVARDESC = packed record
|
|
memid : Integer;
|
|
lpstrSchema : PWideChar;
|
|
DUMMYUNIONNAME : __MIDL_IOleAutomationTypes_0006;
|
|
elemdescVar : tagELEMDESC;
|
|
wVarFlags : Word;
|
|
varkind : tagVARKIND;
|
|
end;
|
|
PtagTLIBATTR = ^tagTLIBATTR;
|
|
|
|
tagTLIBATTR = packed record
|
|
GUID : TGUID;
|
|
lcid : LongWord;
|
|
syskind : tagSYSKIND;
|
|
wMajorVerNum : Word;
|
|
wMinorVerNum : Word;
|
|
wLibFlags : Word;
|
|
end;
|
|
ADS_SYSTEMFLAG_ENUM = __MIDL___MIDL_itf_ads_0001_0015_0001;
|
|
ADS_GROUP_TYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0021_0001;
|
|
ADS_RIGHTS_ENUM = __MIDL___MIDL_itf_ads_0001_0043_0001;
|
|
ADS_ACETYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0043_0002;
|
|
ADS_ACEFLAG_ENUM = __MIDL___MIDL_itf_ads_0001_0043_0003;
|
|
ADS_FLAGTYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0043_0004;
|
|
ADS_SD_CONTROL_ENUM = __MIDL___MIDL_itf_ads_0001_0043_0005;
|
|
ADS_SD_REVISION_ENUM = __MIDL___MIDL_itf_ads_0001_0043_0006;
|
|
ADS_NAME_TYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0044_0001;
|
|
ADS_NAME_INITTYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0044_0002;
|
|
ADS_OPTION_ENUM = __MIDL___MIDL_itf_ads_0001_0058_0001;
|
|
ADS_SECURITY_INFO_ENUM = __MIDL___MIDL_itf_ads_0001_0058_0002;
|
|
ADS_SETTYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0059_0001;
|
|
ADS_FORMAT_ENUM = __MIDL___MIDL_itf_ads_0001_0059_0002;
|
|
ADS_DISPLAY_ENUM = __MIDL___MIDL_itf_ads_0001_0059_0003;
|
|
ADS_ESCAPE_MODE_ENUM = __MIDL___MIDL_itf_ads_0001_0059_0004;
|
|
ADS_PATHTYPE_ENUM = __MIDL___MIDL_itf_ads_0001_0064_0001;
|
|
ADS_SD_FORMAT_ENUM = __MIDL___MIDL_itf_ads_0001_0064_0002;
|
|
|
|
//interface declarations
|
|
|
|
// IADs :
|
|
|
|
IADs = interface(IDispatch)
|
|
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
|
|
function Get_Name : WideString; safecall;
|
|
function Get_Class_ : WideString; safecall;
|
|
function Get_GUID : WideString; safecall;
|
|
function Get_ADsPath : WideString; safecall;
|
|
function Get_Parent : WideString; safecall;
|
|
function Get_Schema : WideString; safecall;
|
|
// GetInfo :
|
|
procedure GetInfo;safecall;
|
|
// SetInfo :
|
|
procedure SetInfo;safecall;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;safecall;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);safecall;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;safecall;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);safecall;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);safecall;
|
|
// Name :
|
|
property Name:WideString read Get_Name;
|
|
// Class :
|
|
property Class_:WideString read Get_Class_;
|
|
// GUID :
|
|
property GUID:WideString read Get_GUID;
|
|
// ADsPath :
|
|
property ADsPath:WideString read Get_ADsPath;
|
|
// Parent :
|
|
property Parent:WideString read Get_Parent;
|
|
// Schema :
|
|
property Schema:WideString read Get_Schema;
|
|
end;
|
|
|
|
|
|
// IADs :
|
|
|
|
IADsDisp = dispinterface
|
|
['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
end;
|
|
|
|
|
|
// IADsContainer :
|
|
|
|
IADsContainer = interface(IDispatch)
|
|
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
|
|
function Get_Count : Integer; safecall;
|
|
function Get__NewEnum : IUnknown; safecall;
|
|
function Get_Filter : OleVariant; safecall;
|
|
procedure Set_Filter(const pVar:OleVariant); safecall;
|
|
function Get_Hints : OleVariant; safecall;
|
|
procedure Set_Hints(const pvFilter:OleVariant); safecall;
|
|
// GetObject :
|
|
function GetObject(ClassName:WideString;RelativeName:WideString):IDispatch;safecall;
|
|
// Create :
|
|
function Create(ClassName:WideString;RelativeName:WideString):IDispatch;safecall;
|
|
// Delete :
|
|
procedure Delete(bstrClassName:WideString;bstrRelativeName:WideString);safecall;
|
|
// CopyHere :
|
|
function CopyHere(SourceName:WideString;NewName:WideString):IDispatch;safecall;
|
|
// MoveHere :
|
|
function MoveHere(SourceName:WideString;NewName:WideString):IDispatch;safecall;
|
|
// Count :
|
|
property Count:Integer read Get_Count;
|
|
// _NewEnum :
|
|
property _NewEnum:IUnknown read Get__NewEnum;
|
|
// Filter :
|
|
property Filter:OleVariant read Get_Filter write Set_Filter;
|
|
// Hints :
|
|
property Hints:OleVariant read Get_Hints write Set_Hints;
|
|
end;
|
|
|
|
|
|
// IADsContainer :
|
|
|
|
IADsContainerDisp = dispinterface
|
|
['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetObject :
|
|
function GetObject(ClassName:WideString;RelativeName:WideString):IDispatch;dispid 5;
|
|
// Create :
|
|
function Create(ClassName:WideString;RelativeName:WideString):IDispatch;dispid 6;
|
|
// Delete :
|
|
procedure Delete(bstrClassName:WideString;bstrRelativeName:WideString);dispid 7;
|
|
// CopyHere :
|
|
function CopyHere(SourceName:WideString;NewName:WideString):IDispatch;dispid 8;
|
|
// MoveHere :
|
|
function MoveHere(SourceName:WideString;NewName:WideString):IDispatch;dispid 9;
|
|
// Count :
|
|
property Count:Integer readonly dispid 2;
|
|
// _NewEnum :
|
|
property _NewEnum:IUnknown readonly dispid -4;
|
|
// Filter :
|
|
property Filter:OleVariant dispid 3;
|
|
// Hints :
|
|
property Hints:OleVariant dispid 4;
|
|
end;
|
|
|
|
|
|
// IADsCollection :
|
|
|
|
IADsCollection = interface(IDispatch)
|
|
['{72B945E0-253B-11CF-A988-00AA006BC149}']
|
|
function Get__NewEnum : IUnknown; safecall;
|
|
// Add :
|
|
procedure Add(bstrName:WideString;vItem:OleVariant);safecall;
|
|
// Remove :
|
|
procedure Remove(bstrItemToBeRemoved:WideString);safecall;
|
|
// GetObject :
|
|
function GetObject(bstrName:WideString):OleVariant;safecall;
|
|
// _NewEnum :
|
|
property _NewEnum:IUnknown read Get__NewEnum;
|
|
end;
|
|
|
|
|
|
// IADsCollection :
|
|
|
|
IADsCollectionDisp = dispinterface
|
|
['{72B945E0-253B-11CF-A988-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// Add :
|
|
procedure Add(bstrName:WideString;vItem:OleVariant);dispid 4;
|
|
// Remove :
|
|
procedure Remove(bstrItemToBeRemoved:WideString);dispid 5;
|
|
// GetObject :
|
|
function GetObject(bstrName:WideString):OleVariant;dispid 6;
|
|
// _NewEnum :
|
|
property _NewEnum:IUnknown readonly dispid -4;
|
|
end;
|
|
|
|
|
|
// IADsMembers :
|
|
|
|
IADsMembers = interface(IDispatch)
|
|
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
|
|
function Get_Count : Integer; safecall;
|
|
function Get__NewEnum : IUnknown; safecall;
|
|
function Get_Filter : OleVariant; safecall;
|
|
procedure Set_Filter(const pvFilter:OleVariant); safecall;
|
|
// Count :
|
|
property Count:Integer read Get_Count;
|
|
// _NewEnum :
|
|
property _NewEnum:IUnknown read Get__NewEnum;
|
|
// Filter :
|
|
property Filter:OleVariant read Get_Filter write Set_Filter;
|
|
end;
|
|
|
|
|
|
// IADsMembers :
|
|
|
|
IADsMembersDisp = dispinterface
|
|
['{451A0030-72EC-11CF-B03B-00AA006E0975}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// Count :
|
|
property Count:Integer readonly dispid 2;
|
|
// _NewEnum :
|
|
property _NewEnum:IUnknown readonly dispid -4;
|
|
// Filter :
|
|
property Filter:OleVariant dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsPropertyList :
|
|
|
|
IADsPropertyList = interface(IDispatch)
|
|
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
|
|
function Get_PropertyCount : Integer; safecall;
|
|
// Next :
|
|
function Next:OleVariant;safecall;
|
|
// Skip :
|
|
procedure Skip(cElements:Integer);safecall;
|
|
// Reset_ :
|
|
procedure Reset_;safecall;
|
|
// Item :
|
|
function Item(varIndex:OleVariant):OleVariant;safecall;
|
|
// GetPropertyItem :
|
|
function GetPropertyItem(bstrName:WideString;lnADsType:Integer):OleVariant;safecall;
|
|
// PutPropertyItem :
|
|
procedure PutPropertyItem(varData:OleVariant);safecall;
|
|
// ResetPropertyItem :
|
|
procedure ResetPropertyItem(varEntry:OleVariant);safecall;
|
|
// PurgePropertyList :
|
|
procedure PurgePropertyList;safecall;
|
|
// PropertyCount :
|
|
property PropertyCount:Integer read Get_PropertyCount;
|
|
end;
|
|
|
|
|
|
// IADsPropertyList :
|
|
|
|
IADsPropertyListDisp = dispinterface
|
|
['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// Next :
|
|
function Next:OleVariant;dispid 3;
|
|
// Skip :
|
|
procedure Skip(cElements:Integer);dispid 4;
|
|
// Reset_ :
|
|
procedure Reset_;dispid 5;
|
|
// Item :
|
|
function Item(varIndex:OleVariant):OleVariant;dispid 0;
|
|
// GetPropertyItem :
|
|
function GetPropertyItem(bstrName:WideString;lnADsType:Integer):OleVariant;dispid 6;
|
|
// PutPropertyItem :
|
|
procedure PutPropertyItem(varData:OleVariant);dispid 7;
|
|
// ResetPropertyItem :
|
|
procedure ResetPropertyItem(varEntry:OleVariant);dispid 8;
|
|
// PurgePropertyList :
|
|
procedure PurgePropertyList;dispid 9;
|
|
// PropertyCount :
|
|
property PropertyCount:Integer readonly dispid 2;
|
|
end;
|
|
|
|
|
|
// IADsPropertyEntry :
|
|
|
|
IADsPropertyEntry = interface(IDispatch)
|
|
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
|
|
// Clear :
|
|
procedure Clear;safecall;
|
|
function Get_Name : WideString; safecall;
|
|
procedure Set_Name(const retval:WideString); safecall;
|
|
function Get_ADsType : Integer; safecall;
|
|
procedure Set_ADsType(const retval:Integer); safecall;
|
|
function Get_ControlCode : Integer; safecall;
|
|
procedure Set_ControlCode(const retval:Integer); safecall;
|
|
function Get_Values : OleVariant; safecall;
|
|
procedure Set_Values(const retval:OleVariant); safecall;
|
|
// Name :
|
|
property Name:WideString read Get_Name write Set_Name;
|
|
// ADsType :
|
|
property ADsType:Integer read Get_ADsType write Set_ADsType;
|
|
// ControlCode :
|
|
property ControlCode:Integer read Get_ControlCode write Set_ControlCode;
|
|
// Values :
|
|
property Values:OleVariant read Get_Values write Set_Values;
|
|
end;
|
|
|
|
|
|
// IADsPropertyEntry :
|
|
|
|
IADsPropertyEntryDisp = dispinterface
|
|
['{05792C8E-941F-11D0-8529-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// Clear :
|
|
procedure Clear;dispid 1;
|
|
// Name :
|
|
property Name:WideString dispid 2;
|
|
// ADsType :
|
|
property ADsType:Integer dispid 3;
|
|
// ControlCode :
|
|
property ControlCode:Integer dispid 4;
|
|
// Values :
|
|
property Values:OleVariant dispid 5;
|
|
end;
|
|
|
|
|
|
// IADsPropertyValue :
|
|
|
|
IADsPropertyValue = interface(IDispatch)
|
|
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
|
|
// Clear :
|
|
procedure Clear;safecall;
|
|
function Get_ADsType : Integer; safecall;
|
|
procedure Set_ADsType(const retval:Integer); safecall;
|
|
function Get_DNString : WideString; safecall;
|
|
procedure Set_DNString(const retval:WideString); safecall;
|
|
function Get_CaseExactString : WideString; safecall;
|
|
procedure Set_CaseExactString(const retval:WideString); safecall;
|
|
function Get_CaseIgnoreString : WideString; safecall;
|
|
procedure Set_CaseIgnoreString(const retval:WideString); safecall;
|
|
function Get_PrintableString : WideString; safecall;
|
|
procedure Set_PrintableString(const retval:WideString); safecall;
|
|
function Get_NumericString : WideString; safecall;
|
|
procedure Set_NumericString(const retval:WideString); safecall;
|
|
function Get_Boolean_ : Integer; safecall;
|
|
procedure Set_Boolean_(const retval:Integer); safecall;
|
|
function Get_Integer_ : Integer; safecall;
|
|
procedure Set_Integer_(const retval:Integer); safecall;
|
|
function Get_OctetString : OleVariant; safecall;
|
|
procedure Set_OctetString(const retval:OleVariant); safecall;
|
|
function Get_SecurityDescriptor : IDispatch; safecall;
|
|
procedure Set_SecurityDescriptor(const retval:IDispatch); safecall;
|
|
function Get_LargeInteger : IDispatch; safecall;
|
|
procedure Set_LargeInteger(const retval:IDispatch); safecall;
|
|
function Get_UTCTime : TDateTime; safecall;
|
|
procedure Set_UTCTime(const retval:TDateTime); safecall;
|
|
// ADsType :
|
|
property ADsType:Integer read Get_ADsType write Set_ADsType;
|
|
// DNString :
|
|
property DNString:WideString read Get_DNString write Set_DNString;
|
|
// CaseExactString :
|
|
property CaseExactString:WideString read Get_CaseExactString write Set_CaseExactString;
|
|
// CaseIgnoreString :
|
|
property CaseIgnoreString:WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
|
|
// PrintableString :
|
|
property PrintableString:WideString read Get_PrintableString write Set_PrintableString;
|
|
// NumericString :
|
|
property NumericString:WideString read Get_NumericString write Set_NumericString;
|
|
// Boolean :
|
|
property Boolean_:Integer read Get_Boolean_ write Set_Boolean_;
|
|
// Integer :
|
|
property Integer_:Integer read Get_Integer_ write Set_Integer_;
|
|
// OctetString :
|
|
property OctetString:OleVariant read Get_OctetString write Set_OctetString;
|
|
// SecurityDescriptor :
|
|
property SecurityDescriptor:IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
|
|
// LargeInteger :
|
|
property LargeInteger:IDispatch read Get_LargeInteger write Set_LargeInteger;
|
|
// UTCTime :
|
|
property UTCTime:TDateTime read Get_UTCTime write Set_UTCTime;
|
|
end;
|
|
|
|
|
|
// IADsPropertyValue :
|
|
|
|
IADsPropertyValueDisp = dispinterface
|
|
['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// Clear :
|
|
procedure Clear;dispid 1;
|
|
// ADsType :
|
|
property ADsType:Integer dispid 2;
|
|
// DNString :
|
|
property DNString:WideString dispid 3;
|
|
// CaseExactString :
|
|
property CaseExactString:WideString dispid 4;
|
|
// CaseIgnoreString :
|
|
property CaseIgnoreString:WideString dispid 5;
|
|
// PrintableString :
|
|
property PrintableString:WideString dispid 6;
|
|
// NumericString :
|
|
property NumericString:WideString dispid 7;
|
|
// Boolean :
|
|
property Boolean_:Integer dispid 8;
|
|
// Integer :
|
|
property Integer_:Integer dispid 9;
|
|
// OctetString :
|
|
property OctetString:OleVariant dispid 10;
|
|
// SecurityDescriptor :
|
|
property SecurityDescriptor:IDispatch dispid 11;
|
|
// LargeInteger :
|
|
property LargeInteger:IDispatch dispid 12;
|
|
// UTCTime :
|
|
property UTCTime:TDateTime dispid 13;
|
|
end;
|
|
|
|
|
|
// IADsPropertyValue2 :
|
|
|
|
IADsPropertyValue2 = interface(IDispatch)
|
|
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
|
|
// GetObjectProperty :
|
|
function GetObjectProperty(var lnADsType:Integer):OleVariant;safecall;
|
|
// PutObjectProperty :
|
|
procedure PutObjectProperty(lnADsType:Integer;vProp:OleVariant);safecall;
|
|
end;
|
|
|
|
|
|
// IADsPropertyValue2 :
|
|
|
|
IADsPropertyValue2Disp = dispinterface
|
|
['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetObjectProperty :
|
|
function GetObjectProperty(var lnADsType:Integer):OleVariant;dispid 1;
|
|
// PutObjectProperty :
|
|
procedure PutObjectProperty(lnADsType:Integer;vProp:OleVariant);dispid 2;
|
|
end;
|
|
|
|
|
|
// IPrivateDispatch :
|
|
|
|
IPrivateDispatch = interface(IUnknown)
|
|
['{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}']
|
|
// ADSIInitializeDispatchManager :
|
|
function ADSIInitializeDispatchManager(dwExtensionId:Integer):HRESULT;stdcall;
|
|
// ADSIGetTypeInfoCount :
|
|
function ADSIGetTypeInfoCount(out pctinfo:UInt):HRESULT;stdcall;
|
|
// ADSIGetTypeInfo :
|
|
function ADSIGetTypeInfo(itinfo:UInt;lcid:LongWord;out ppTInfo:ITypeInfo):HRESULT;stdcall;
|
|
// ADSIGetIDsOfNames :
|
|
function ADSIGetIDsOfNames(var riid:GUID;var rgszNames:PWord;cNames:UInt;lcid:LongWord;out rgdispid:Integer):HRESULT;stdcall;
|
|
// ADSIInvoke :
|
|
function ADSIInvoke(dispidMember:Integer;var riid:GUID;lcid:LongWord;wFlags:Word;var pdispparams:DISPPARAMS;out pvarResult:OleVariant;out pexcepinfo:EXCEPINFO;out puArgErr:UInt):HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// ITypeInfo :
|
|
|
|
ITypeInfo = interface(IUnknown)
|
|
['{00020401-0000-0000-C000-000000000046}']
|
|
// RemoteGetTypeAttr :
|
|
function RemoteGetTypeAttr(out ppTypeAttr:PtagTYPEATTR;out pDummy:DWORD):HRESULT;stdcall;
|
|
// GetTypeComp :
|
|
function GetTypeComp(out ppTComp:ITypeComp):HRESULT;stdcall;
|
|
// RemoteGetFuncDesc :
|
|
function RemoteGetFuncDesc(index:UInt;out ppFuncDesc:PtagFUNCDESC;out pDummy:DWORD):HRESULT;stdcall;
|
|
// RemoteGetVarDesc :
|
|
function RemoteGetVarDesc(index:UInt;out ppVarDesc:PtagVARDESC;out pDummy:DWORD):HRESULT;stdcall;
|
|
// RemoteGetNames :
|
|
function RemoteGetNames(memid:Integer;out rgBstrNames:WideString;cMaxNames:UInt;out pcNames:UInt):HRESULT;stdcall;
|
|
// GetRefTypeOfImplType :
|
|
function GetRefTypeOfImplType(index:UInt;out pRefType:LongWord):HRESULT;stdcall;
|
|
// GetImplTypeFlags :
|
|
function GetImplTypeFlags(index:UInt;out pImplTypeFlags:SYSINT):HRESULT;stdcall;
|
|
// LocalGetIDsOfNames :
|
|
function LocalGetIDsOfNames:HRESULT;stdcall;
|
|
// LocalInvoke :
|
|
function LocalInvoke:HRESULT;stdcall;
|
|
// RemoteGetDocumentation :
|
|
function RemoteGetDocumentation(memid:Integer;refPtrFlags:LongWord;out pBstrName:WideString;out pBstrDocString:WideString;out pdwHelpContext:LongWord;out pBstrHelpFile:WideString):HRESULT;stdcall;
|
|
// RemoteGetDllEntry :
|
|
function RemoteGetDllEntry(memid:Integer;invkind:tagINVOKEKIND;refPtrFlags:LongWord;out pBstrDllName:WideString;out pBstrName:WideString;out pwOrdinal:Word):HRESULT;stdcall;
|
|
// GetRefTypeInfo :
|
|
function GetRefTypeInfo(hreftype:LongWord;out ppTInfo:ITypeInfo):HRESULT;stdcall;
|
|
// LocalAddressOfMember :
|
|
function LocalAddressOfMember:HRESULT;stdcall;
|
|
// RemoteCreateInstance :
|
|
function RemoteCreateInstance(var riid:GUID;out ppvObj:IUnknown):HRESULT;stdcall;
|
|
// GetMops :
|
|
function GetMops(memid:Integer;out pBstrMops:WideString):HRESULT;stdcall;
|
|
// RemoteGetContainingTypeLib :
|
|
function RemoteGetContainingTypeLib(out ppTLib:ITypeLib;out pIndex:UInt):HRESULT;stdcall;
|
|
// LocalReleaseTypeAttr :
|
|
function LocalReleaseTypeAttr:HRESULT;stdcall;
|
|
// LocalReleaseFuncDesc :
|
|
function LocalReleaseFuncDesc:HRESULT;stdcall;
|
|
// LocalReleaseVarDesc :
|
|
function LocalReleaseVarDesc:HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// ITypeComp :
|
|
|
|
ITypeComp = interface(IUnknown)
|
|
['{00020403-0000-0000-C000-000000000046}']
|
|
// RemoteBind :
|
|
function RemoteBind(szName:PWideChar;lHashVal:LongWord;wFlags:Word;out ppTInfo:ITypeInfo;out pDescKind:tagDESCKIND;out ppFuncDesc:PtagFUNCDESC;out ppVarDesc:PtagVARDESC;out ppTypeComp:ITypeComp;out pDummy:DWORD):HRESULT;stdcall;
|
|
// RemoteBindType :
|
|
function RemoteBindType(szName:PWideChar;lHashVal:LongWord;out ppTInfo:ITypeInfo):HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// ITypeLib :
|
|
|
|
ITypeLib = interface(IUnknown)
|
|
['{00020402-0000-0000-C000-000000000046}']
|
|
// RemoteGetTypeInfoCount :
|
|
function RemoteGetTypeInfoCount(out pctinfo:UInt):HRESULT;stdcall;
|
|
// GetTypeInfo :
|
|
function GetTypeInfo(index:UInt;out ppTInfo:ITypeInfo):HRESULT;stdcall;
|
|
// GetTypeInfoType :
|
|
function GetTypeInfoType(index:UInt;out pTKind:tagTYPEKIND):HRESULT;stdcall;
|
|
// GetTypeInfoOfGuid :
|
|
function GetTypeInfoOfGuid(var GUID:GUID;out ppTInfo:ITypeInfo):HRESULT;stdcall;
|
|
// RemoteGetLibAttr :
|
|
function RemoteGetLibAttr(out ppTLibAttr:PtagTLIBATTR;out pDummy:DWORD):HRESULT;stdcall;
|
|
// GetTypeComp :
|
|
function GetTypeComp(out ppTComp:ITypeComp):HRESULT;stdcall;
|
|
// RemoteGetDocumentation :
|
|
function RemoteGetDocumentation(index:SYSINT;refPtrFlags:LongWord;out pBstrName:WideString;out pBstrDocString:WideString;out pdwHelpContext:LongWord;out pBstrHelpFile:WideString):HRESULT;stdcall;
|
|
// RemoteIsName :
|
|
function RemoteIsName(szNameBuf:PWideChar;lHashVal:LongWord;out pfName:Integer;out pBstrLibName:WideString):HRESULT;stdcall;
|
|
// RemoteFindName :
|
|
function RemoteFindName(szNameBuf:PWideChar;lHashVal:LongWord;out ppTInfo:ITypeInfo;out rgMemId:Integer;var pcFound:Word;out pBstrLibName:WideString):HRESULT;stdcall;
|
|
// LocalReleaseTLibAttr :
|
|
function LocalReleaseTLibAttr:HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// IPrivateUnknown :
|
|
|
|
IPrivateUnknown = interface(IUnknown)
|
|
['{89126BAB-6EAD-11D1-8C18-00C04FD8D503}']
|
|
// ADSIInitializeObject :
|
|
function ADSIInitializeObject(lpszUserName:WideString;lpszPassword:WideString;lnReserved:Integer):HRESULT;stdcall;
|
|
// ADSIReleaseObject :
|
|
function ADSIReleaseObject:HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// IADsExtension :
|
|
|
|
IADsExtension = interface(IUnknown)
|
|
['{3D35553C-D2B0-11D1-B17B-0000F87593A0}']
|
|
// Operate :
|
|
function Operate(dwCode:LongWord;varData1:OleVariant;varData2:OleVariant;varData3:OleVariant):HRESULT;stdcall;
|
|
// PrivateGetIDsOfNames :
|
|
function PrivateGetIDsOfNames(var riid:GUID;var rgszNames:PWord;cNames:UInt;lcid:LongWord;out rgdispid:Integer):HRESULT;stdcall;
|
|
// PrivateInvoke :
|
|
function PrivateInvoke(dispidMember:Integer;var riid:GUID;lcid:LongWord;wFlags:Word;var pdispparams:DISPPARAMS;out pvarResult:OleVariant;out pexcepinfo:EXCEPINFO;out puArgErr:UInt):HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// IADsDeleteOps :
|
|
|
|
IADsDeleteOps = interface(IDispatch)
|
|
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
|
|
// DeleteObject :
|
|
procedure DeleteObject(lnFlags:Integer);safecall;
|
|
end;
|
|
|
|
|
|
// IADsDeleteOps :
|
|
|
|
IADsDeleteOpsDisp = dispinterface
|
|
['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// DeleteObject :
|
|
procedure DeleteObject(lnFlags:Integer);dispid 2;
|
|
end;
|
|
|
|
|
|
// IADsNamespaces :
|
|
|
|
IADsNamespaces = interface(IADs)
|
|
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
|
|
function Get_DefaultContainer : WideString; safecall;
|
|
procedure Set_DefaultContainer(const retval:WideString); safecall;
|
|
// DefaultContainer :
|
|
property DefaultContainer:WideString read Get_DefaultContainer write Set_DefaultContainer;
|
|
end;
|
|
|
|
|
|
// IADsNamespaces :
|
|
|
|
IADsNamespacesDisp = dispinterface
|
|
['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// DefaultContainer :
|
|
property DefaultContainer:WideString dispid 1;
|
|
end;
|
|
|
|
|
|
// IADsClass :
|
|
|
|
IADsClass = interface(IADs)
|
|
['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
|
|
function Get_PrimaryInterface : WideString; safecall;
|
|
function Get_CLSID : WideString; safecall;
|
|
procedure Set_CLSID(const retval:WideString); safecall;
|
|
function Get_OID : WideString; safecall;
|
|
procedure Set_OID(const retval:WideString); safecall;
|
|
function Get_Abstract : WordBool; safecall;
|
|
procedure Set_Abstract(const retval:WordBool); safecall;
|
|
function Get_Auxiliary : WordBool; safecall;
|
|
procedure Set_Auxiliary(const retval:WordBool); safecall;
|
|
function Get_MandatoryProperties : OleVariant; safecall;
|
|
procedure Set_MandatoryProperties(const retval:OleVariant); safecall;
|
|
function Get_OptionalProperties : OleVariant; safecall;
|
|
procedure Set_OptionalProperties(const retval:OleVariant); safecall;
|
|
function Get_NamingProperties : OleVariant; safecall;
|
|
procedure Set_NamingProperties(const retval:OleVariant); safecall;
|
|
function Get_DerivedFrom : OleVariant; safecall;
|
|
procedure Set_DerivedFrom(const retval:OleVariant); safecall;
|
|
function Get_AuxDerivedFrom : OleVariant; safecall;
|
|
procedure Set_AuxDerivedFrom(const retval:OleVariant); safecall;
|
|
function Get_PossibleSuperiors : OleVariant; safecall;
|
|
procedure Set_PossibleSuperiors(const retval:OleVariant); safecall;
|
|
function Get_Containment : OleVariant; safecall;
|
|
procedure Set_Containment(const retval:OleVariant); safecall;
|
|
function Get_Container : WordBool; safecall;
|
|
procedure Set_Container(const retval:WordBool); safecall;
|
|
function Get_HelpFileName : WideString; safecall;
|
|
procedure Set_HelpFileName(const retval:WideString); safecall;
|
|
function Get_HelpFileContext : Integer; safecall;
|
|
procedure Set_HelpFileContext(const retval:Integer); safecall;
|
|
// Qualifiers :
|
|
function Qualifiers:IADsCollection;safecall;
|
|
// PrimaryInterface :
|
|
property PrimaryInterface:WideString read Get_PrimaryInterface;
|
|
// CLSID :
|
|
property CLSID:WideString read Get_CLSID write Set_CLSID;
|
|
// OID :
|
|
property OID:WideString read Get_OID write Set_OID;
|
|
// Abstract :
|
|
property Abstract:WordBool read Get_Abstract write Set_Abstract;
|
|
// Auxiliary :
|
|
property Auxiliary:WordBool read Get_Auxiliary write Set_Auxiliary;
|
|
// MandatoryProperties :
|
|
property MandatoryProperties:OleVariant read Get_MandatoryProperties write Set_MandatoryProperties;
|
|
// OptionalProperties :
|
|
property OptionalProperties:OleVariant read Get_OptionalProperties write Set_OptionalProperties;
|
|
// NamingProperties :
|
|
property NamingProperties:OleVariant read Get_NamingProperties write Set_NamingProperties;
|
|
// DerivedFrom :
|
|
property DerivedFrom:OleVariant read Get_DerivedFrom write Set_DerivedFrom;
|
|
// AuxDerivedFrom :
|
|
property AuxDerivedFrom:OleVariant read Get_AuxDerivedFrom write Set_AuxDerivedFrom;
|
|
// PossibleSuperiors :
|
|
property PossibleSuperiors:OleVariant read Get_PossibleSuperiors write Set_PossibleSuperiors;
|
|
// Containment :
|
|
property Containment:OleVariant read Get_Containment write Set_Containment;
|
|
// Container :
|
|
property Container:WordBool read Get_Container write Set_Container;
|
|
// HelpFileName :
|
|
property HelpFileName:WideString read Get_HelpFileName write Set_HelpFileName;
|
|
// HelpFileContext :
|
|
property HelpFileContext:Integer read Get_HelpFileContext write Set_HelpFileContext;
|
|
end;
|
|
|
|
|
|
// IADsClass :
|
|
|
|
IADsClassDisp = dispinterface
|
|
['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Qualifiers :
|
|
function Qualifiers:IADsCollection;dispid 25;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// PrimaryInterface :
|
|
property PrimaryInterface:WideString readonly dispid 15;
|
|
// CLSID :
|
|
property CLSID:WideString dispid 16;
|
|
// OID :
|
|
property OID:WideString dispid 17;
|
|
// Abstract :
|
|
property Abstract:WordBool dispid 18;
|
|
// Auxiliary :
|
|
property Auxiliary:WordBool dispid 26;
|
|
// MandatoryProperties :
|
|
property MandatoryProperties:OleVariant dispid 19;
|
|
// OptionalProperties :
|
|
property OptionalProperties:OleVariant dispid 29;
|
|
// NamingProperties :
|
|
property NamingProperties:OleVariant dispid 30;
|
|
// DerivedFrom :
|
|
property DerivedFrom:OleVariant dispid 20;
|
|
// AuxDerivedFrom :
|
|
property AuxDerivedFrom:OleVariant dispid 27;
|
|
// PossibleSuperiors :
|
|
property PossibleSuperiors:OleVariant dispid 28;
|
|
// Containment :
|
|
property Containment:OleVariant dispid 21;
|
|
// Container :
|
|
property Container:WordBool dispid 22;
|
|
// HelpFileName :
|
|
property HelpFileName:WideString dispid 23;
|
|
// HelpFileContext :
|
|
property HelpFileContext:Integer dispid 24;
|
|
end;
|
|
|
|
|
|
// IADsProperty :
|
|
|
|
IADsProperty = interface(IADs)
|
|
['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
|
|
function Get_OID : WideString; safecall;
|
|
procedure Set_OID(const retval:WideString); safecall;
|
|
function Get_Syntax : WideString; safecall;
|
|
procedure Set_Syntax(const retval:WideString); safecall;
|
|
function Get_MaxRange : Integer; safecall;
|
|
procedure Set_MaxRange(const retval:Integer); safecall;
|
|
function Get_MinRange : Integer; safecall;
|
|
procedure Set_MinRange(const retval:Integer); safecall;
|
|
function Get_MultiValued : WordBool; safecall;
|
|
procedure Set_MultiValued(const retval:WordBool); safecall;
|
|
// Qualifiers :
|
|
function Qualifiers:IADsCollection;safecall;
|
|
// OID :
|
|
property OID:WideString read Get_OID write Set_OID;
|
|
// Syntax :
|
|
property Syntax:WideString read Get_Syntax write Set_Syntax;
|
|
// MaxRange :
|
|
property MaxRange:Integer read Get_MaxRange write Set_MaxRange;
|
|
// MinRange :
|
|
property MinRange:Integer read Get_MinRange write Set_MinRange;
|
|
// MultiValued :
|
|
property MultiValued:WordBool read Get_MultiValued write Set_MultiValued;
|
|
end;
|
|
|
|
|
|
// IADsProperty :
|
|
|
|
IADsPropertyDisp = dispinterface
|
|
['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Qualifiers :
|
|
function Qualifiers:IADsCollection;dispid 22;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// OID :
|
|
property OID:WideString dispid 17;
|
|
// Syntax :
|
|
property Syntax:WideString dispid 18;
|
|
// MaxRange :
|
|
property MaxRange:Integer dispid 19;
|
|
// MinRange :
|
|
property MinRange:Integer dispid 20;
|
|
// MultiValued :
|
|
property MultiValued:WordBool dispid 21;
|
|
end;
|
|
|
|
|
|
// IADsSyntax :
|
|
|
|
IADsSyntax = interface(IADs)
|
|
['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
|
|
function Get_OleAutoDataType : Integer; safecall;
|
|
procedure Set_OleAutoDataType(const retval:Integer); safecall;
|
|
// OleAutoDataType :
|
|
property OleAutoDataType:Integer read Get_OleAutoDataType write Set_OleAutoDataType;
|
|
end;
|
|
|
|
|
|
// IADsSyntax :
|
|
|
|
IADsSyntaxDisp = dispinterface
|
|
['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// OleAutoDataType :
|
|
property OleAutoDataType:Integer dispid 15;
|
|
end;
|
|
|
|
|
|
// IADsLocality :
|
|
|
|
IADsLocality = interface(IADs)
|
|
['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
function Get_LocalityName : WideString; safecall;
|
|
procedure Set_LocalityName(const retval:WideString); safecall;
|
|
function Get_PostalAddress : WideString; safecall;
|
|
procedure Set_PostalAddress(const retval:WideString); safecall;
|
|
function Get_SeeAlso : OleVariant; safecall;
|
|
procedure Set_SeeAlso(const retval:OleVariant); safecall;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
// LocalityName :
|
|
property LocalityName:WideString read Get_LocalityName write Set_LocalityName;
|
|
// PostalAddress :
|
|
property PostalAddress:WideString read Get_PostalAddress write Set_PostalAddress;
|
|
// SeeAlso :
|
|
property SeeAlso:OleVariant read Get_SeeAlso write Set_SeeAlso;
|
|
end;
|
|
|
|
|
|
// IADsLocality :
|
|
|
|
IADsLocalityDisp = dispinterface
|
|
['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// Description :
|
|
property Description:WideString dispid 15;
|
|
// LocalityName :
|
|
property LocalityName:WideString dispid 16;
|
|
// PostalAddress :
|
|
property PostalAddress:WideString dispid 17;
|
|
// SeeAlso :
|
|
property SeeAlso:OleVariant dispid 18;
|
|
end;
|
|
|
|
|
|
// IADsO :
|
|
|
|
IADsO = interface(IADs)
|
|
['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
function Get_LocalityName : WideString; safecall;
|
|
procedure Set_LocalityName(const retval:WideString); safecall;
|
|
function Get_PostalAddress : WideString; safecall;
|
|
procedure Set_PostalAddress(const retval:WideString); safecall;
|
|
function Get_TelephoneNumber : WideString; safecall;
|
|
procedure Set_TelephoneNumber(const retval:WideString); safecall;
|
|
function Get_FaxNumber : WideString; safecall;
|
|
procedure Set_FaxNumber(const retval:WideString); safecall;
|
|
function Get_SeeAlso : OleVariant; safecall;
|
|
procedure Set_SeeAlso(const retval:OleVariant); safecall;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
// LocalityName :
|
|
property LocalityName:WideString read Get_LocalityName write Set_LocalityName;
|
|
// PostalAddress :
|
|
property PostalAddress:WideString read Get_PostalAddress write Set_PostalAddress;
|
|
// TelephoneNumber :
|
|
property TelephoneNumber:WideString read Get_TelephoneNumber write Set_TelephoneNumber;
|
|
// FaxNumber :
|
|
property FaxNumber:WideString read Get_FaxNumber write Set_FaxNumber;
|
|
// SeeAlso :
|
|
property SeeAlso:OleVariant read Get_SeeAlso write Set_SeeAlso;
|
|
end;
|
|
|
|
|
|
// IADsO :
|
|
|
|
IADsODisp = dispinterface
|
|
['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// Description :
|
|
property Description:WideString dispid 15;
|
|
// LocalityName :
|
|
property LocalityName:WideString dispid 16;
|
|
// PostalAddress :
|
|
property PostalAddress:WideString dispid 17;
|
|
// TelephoneNumber :
|
|
property TelephoneNumber:WideString dispid 18;
|
|
// FaxNumber :
|
|
property FaxNumber:WideString dispid 19;
|
|
// SeeAlso :
|
|
property SeeAlso:OleVariant dispid 20;
|
|
end;
|
|
|
|
|
|
// IADsOU :
|
|
|
|
IADsOU = interface(IADs)
|
|
['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
function Get_LocalityName : WideString; safecall;
|
|
procedure Set_LocalityName(const retval:WideString); safecall;
|
|
function Get_PostalAddress : WideString; safecall;
|
|
procedure Set_PostalAddress(const retval:WideString); safecall;
|
|
function Get_TelephoneNumber : WideString; safecall;
|
|
procedure Set_TelephoneNumber(const retval:WideString); safecall;
|
|
function Get_FaxNumber : WideString; safecall;
|
|
procedure Set_FaxNumber(const retval:WideString); safecall;
|
|
function Get_SeeAlso : OleVariant; safecall;
|
|
procedure Set_SeeAlso(const retval:OleVariant); safecall;
|
|
function Get_BusinessCategory : WideString; safecall;
|
|
procedure Set_BusinessCategory(const retval:WideString); safecall;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
// LocalityName :
|
|
property LocalityName:WideString read Get_LocalityName write Set_LocalityName;
|
|
// PostalAddress :
|
|
property PostalAddress:WideString read Get_PostalAddress write Set_PostalAddress;
|
|
// TelephoneNumber :
|
|
property TelephoneNumber:WideString read Get_TelephoneNumber write Set_TelephoneNumber;
|
|
// FaxNumber :
|
|
property FaxNumber:WideString read Get_FaxNumber write Set_FaxNumber;
|
|
// SeeAlso :
|
|
property SeeAlso:OleVariant read Get_SeeAlso write Set_SeeAlso;
|
|
// BusinessCategory :
|
|
property BusinessCategory:WideString read Get_BusinessCategory write Set_BusinessCategory;
|
|
end;
|
|
|
|
|
|
// IADsOU :
|
|
|
|
IADsOUDisp = dispinterface
|
|
['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// Description :
|
|
property Description:WideString dispid 15;
|
|
// LocalityName :
|
|
property LocalityName:WideString dispid 16;
|
|
// PostalAddress :
|
|
property PostalAddress:WideString dispid 17;
|
|
// TelephoneNumber :
|
|
property TelephoneNumber:WideString dispid 18;
|
|
// FaxNumber :
|
|
property FaxNumber:WideString dispid 19;
|
|
// SeeAlso :
|
|
property SeeAlso:OleVariant dispid 20;
|
|
// BusinessCategory :
|
|
property BusinessCategory:WideString dispid 21;
|
|
end;
|
|
|
|
|
|
// IADsDomain :
|
|
|
|
IADsDomain = interface(IADs)
|
|
['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
|
|
function Get_IsWorkgroup : WordBool; safecall;
|
|
function Get_MinPasswordLength : Integer; safecall;
|
|
procedure Set_MinPasswordLength(const retval:Integer); safecall;
|
|
function Get_MinPasswordAge : Integer; safecall;
|
|
procedure Set_MinPasswordAge(const retval:Integer); safecall;
|
|
function Get_MaxPasswordAge : Integer; safecall;
|
|
procedure Set_MaxPasswordAge(const retval:Integer); safecall;
|
|
function Get_MaxBadPasswordsAllowed : Integer; safecall;
|
|
procedure Set_MaxBadPasswordsAllowed(const retval:Integer); safecall;
|
|
function Get_PasswordHistoryLength : Integer; safecall;
|
|
procedure Set_PasswordHistoryLength(const retval:Integer); safecall;
|
|
function Get_PasswordAttributes : Integer; safecall;
|
|
procedure Set_PasswordAttributes(const retval:Integer); safecall;
|
|
function Get_AutoUnlockInterval : Integer; safecall;
|
|
procedure Set_AutoUnlockInterval(const retval:Integer); safecall;
|
|
function Get_LockoutObservationInterval : Integer; safecall;
|
|
procedure Set_LockoutObservationInterval(const retval:Integer); safecall;
|
|
// IsWorkgroup :
|
|
property IsWorkgroup:WordBool read Get_IsWorkgroup;
|
|
// MinPasswordLength :
|
|
property MinPasswordLength:Integer read Get_MinPasswordLength write Set_MinPasswordLength;
|
|
// MinPasswordAge :
|
|
property MinPasswordAge:Integer read Get_MinPasswordAge write Set_MinPasswordAge;
|
|
// MaxPasswordAge :
|
|
property MaxPasswordAge:Integer read Get_MaxPasswordAge write Set_MaxPasswordAge;
|
|
// MaxBadPasswordsAllowed :
|
|
property MaxBadPasswordsAllowed:Integer read Get_MaxBadPasswordsAllowed write Set_MaxBadPasswordsAllowed;
|
|
// PasswordHistoryLength :
|
|
property PasswordHistoryLength:Integer read Get_PasswordHistoryLength write Set_PasswordHistoryLength;
|
|
// PasswordAttributes :
|
|
property PasswordAttributes:Integer read Get_PasswordAttributes write Set_PasswordAttributes;
|
|
// AutoUnlockInterval :
|
|
property AutoUnlockInterval:Integer read Get_AutoUnlockInterval write Set_AutoUnlockInterval;
|
|
// LockoutObservationInterval :
|
|
property LockoutObservationInterval:Integer read Get_LockoutObservationInterval write Set_LockoutObservationInterval;
|
|
end;
|
|
|
|
|
|
// IADsDomain :
|
|
|
|
IADsDomainDisp = dispinterface
|
|
['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// IsWorkgroup :
|
|
property IsWorkgroup:WordBool readonly dispid 15;
|
|
// MinPasswordLength :
|
|
property MinPasswordLength:Integer dispid 16;
|
|
// MinPasswordAge :
|
|
property MinPasswordAge:Integer dispid 17;
|
|
// MaxPasswordAge :
|
|
property MaxPasswordAge:Integer dispid 18;
|
|
// MaxBadPasswordsAllowed :
|
|
property MaxBadPasswordsAllowed:Integer dispid 19;
|
|
// PasswordHistoryLength :
|
|
property PasswordHistoryLength:Integer dispid 20;
|
|
// PasswordAttributes :
|
|
property PasswordAttributes:Integer dispid 21;
|
|
// AutoUnlockInterval :
|
|
property AutoUnlockInterval:Integer dispid 22;
|
|
// LockoutObservationInterval :
|
|
property LockoutObservationInterval:Integer dispid 23;
|
|
end;
|
|
|
|
|
|
// IADsComputer :
|
|
|
|
IADsComputer = interface(IADs)
|
|
['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
|
|
function Get_ComputerID : WideString; safecall;
|
|
function Get_Site : WideString; safecall;
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
function Get_Location : WideString; safecall;
|
|
procedure Set_Location(const retval:WideString); safecall;
|
|
function Get_PrimaryUser : WideString; safecall;
|
|
procedure Set_PrimaryUser(const retval:WideString); safecall;
|
|
function Get_Owner : WideString; safecall;
|
|
procedure Set_Owner(const retval:WideString); safecall;
|
|
function Get_Division : WideString; safecall;
|
|
procedure Set_Division(const retval:WideString); safecall;
|
|
function Get_Department : WideString; safecall;
|
|
procedure Set_Department(const retval:WideString); safecall;
|
|
function Get_Role : WideString; safecall;
|
|
procedure Set_Role(const retval:WideString); safecall;
|
|
function Get_OperatingSystem : WideString; safecall;
|
|
procedure Set_OperatingSystem(const retval:WideString); safecall;
|
|
function Get_OperatingSystemVersion : WideString; safecall;
|
|
procedure Set_OperatingSystemVersion(const retval:WideString); safecall;
|
|
function Get_Model : WideString; safecall;
|
|
procedure Set_Model(const retval:WideString); safecall;
|
|
function Get_Processor : WideString; safecall;
|
|
procedure Set_Processor(const retval:WideString); safecall;
|
|
function Get_ProcessorCount : WideString; safecall;
|
|
procedure Set_ProcessorCount(const retval:WideString); safecall;
|
|
function Get_MemorySize : WideString; safecall;
|
|
procedure Set_MemorySize(const retval:WideString); safecall;
|
|
function Get_StorageCapacity : WideString; safecall;
|
|
procedure Set_StorageCapacity(const retval:WideString); safecall;
|
|
function Get_NetAddresses : OleVariant; safecall;
|
|
procedure Set_NetAddresses(const retval:OleVariant); safecall;
|
|
// ComputerID :
|
|
property ComputerID:WideString read Get_ComputerID;
|
|
// Site :
|
|
property Site:WideString read Get_Site;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
// Location :
|
|
property Location:WideString read Get_Location write Set_Location;
|
|
// PrimaryUser :
|
|
property PrimaryUser:WideString read Get_PrimaryUser write Set_PrimaryUser;
|
|
// Owner :
|
|
property Owner:WideString read Get_Owner write Set_Owner;
|
|
// Division :
|
|
property Division:WideString read Get_Division write Set_Division;
|
|
// Department :
|
|
property Department:WideString read Get_Department write Set_Department;
|
|
// Role :
|
|
property Role:WideString read Get_Role write Set_Role;
|
|
// OperatingSystem :
|
|
property OperatingSystem:WideString read Get_OperatingSystem write Set_OperatingSystem;
|
|
// OperatingSystemVersion :
|
|
property OperatingSystemVersion:WideString read Get_OperatingSystemVersion write Set_OperatingSystemVersion;
|
|
// Model :
|
|
property Model:WideString read Get_Model write Set_Model;
|
|
// Processor :
|
|
property Processor:WideString read Get_Processor write Set_Processor;
|
|
// ProcessorCount :
|
|
property ProcessorCount:WideString read Get_ProcessorCount write Set_ProcessorCount;
|
|
// MemorySize :
|
|
property MemorySize:WideString read Get_MemorySize write Set_MemorySize;
|
|
// StorageCapacity :
|
|
property StorageCapacity:WideString read Get_StorageCapacity write Set_StorageCapacity;
|
|
// NetAddresses :
|
|
property NetAddresses:OleVariant read Get_NetAddresses write Set_NetAddresses;
|
|
end;
|
|
|
|
|
|
// IADsComputer :
|
|
|
|
IADsComputerDisp = dispinterface
|
|
['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// ComputerID :
|
|
property ComputerID:WideString readonly dispid 16;
|
|
// Site :
|
|
property Site:WideString readonly dispid 18;
|
|
// Description :
|
|
property Description:WideString dispid 19;
|
|
// Location :
|
|
property Location:WideString dispid 20;
|
|
// PrimaryUser :
|
|
property PrimaryUser:WideString dispid 21;
|
|
// Owner :
|
|
property Owner:WideString dispid 22;
|
|
// Division :
|
|
property Division:WideString dispid 23;
|
|
// Department :
|
|
property Department:WideString dispid 24;
|
|
// Role :
|
|
property Role:WideString dispid 25;
|
|
// OperatingSystem :
|
|
property OperatingSystem:WideString dispid 26;
|
|
// OperatingSystemVersion :
|
|
property OperatingSystemVersion:WideString dispid 27;
|
|
// Model :
|
|
property Model:WideString dispid 28;
|
|
// Processor :
|
|
property Processor:WideString dispid 29;
|
|
// ProcessorCount :
|
|
property ProcessorCount:WideString dispid 30;
|
|
// MemorySize :
|
|
property MemorySize:WideString dispid 31;
|
|
// StorageCapacity :
|
|
property StorageCapacity:WideString dispid 32;
|
|
// NetAddresses :
|
|
property NetAddresses:OleVariant dispid 17;
|
|
end;
|
|
|
|
|
|
// IADsComputerOperations :
|
|
|
|
IADsComputerOperations = interface(IADs)
|
|
['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
|
|
// Status :
|
|
function Status:IDispatch;safecall;
|
|
// Shutdown :
|
|
procedure Shutdown(bReboot:WordBool);safecall;
|
|
end;
|
|
|
|
|
|
// IADsComputerOperations :
|
|
|
|
IADsComputerOperationsDisp = dispinterface
|
|
['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Status :
|
|
function Status:IDispatch;dispid 33;
|
|
// Shutdown :
|
|
procedure Shutdown(bReboot:WordBool);dispid 34;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
end;
|
|
|
|
|
|
// IADsGroup :
|
|
|
|
IADsGroup = interface(IADs)
|
|
['{27636B00-410F-11CF-B1FF-02608C9E7553}']
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
// Members :
|
|
function Members:IADsMembers;safecall;
|
|
// IsMember :
|
|
function IsMember(bstrMember:WideString):WordBool;safecall;
|
|
// Add :
|
|
procedure Add(bstrNewItem:WideString);safecall;
|
|
// Remove :
|
|
procedure Remove(bstrItemToBeRemoved:WideString);safecall;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
end;
|
|
|
|
|
|
// IADsGroup :
|
|
|
|
IADsGroupDisp = dispinterface
|
|
['{27636B00-410F-11CF-B1FF-02608C9E7553}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Members :
|
|
function Members:IADsMembers;dispid 16;
|
|
// IsMember :
|
|
function IsMember(bstrMember:WideString):WordBool;dispid 17;
|
|
// Add :
|
|
procedure Add(bstrNewItem:WideString);dispid 18;
|
|
// Remove :
|
|
procedure Remove(bstrItemToBeRemoved:WideString);dispid 19;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// Description :
|
|
property Description:WideString dispid 15;
|
|
end;
|
|
|
|
|
|
// IADsUser :
|
|
|
|
IADsUser = interface(IADs)
|
|
['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
|
|
function Get_BadLoginAddress : WideString; safecall;
|
|
function Get_BadLoginCount : Integer; safecall;
|
|
function Get_LastLogin : TDateTime; safecall;
|
|
function Get_LastLogoff : TDateTime; safecall;
|
|
function Get_LastFailedLogin : TDateTime; safecall;
|
|
function Get_PasswordLastChanged : TDateTime; safecall;
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
function Get_Division : WideString; safecall;
|
|
procedure Set_Division(const retval:WideString); safecall;
|
|
function Get_Department : WideString; safecall;
|
|
procedure Set_Department(const retval:WideString); safecall;
|
|
function Get_EmployeeID : WideString; safecall;
|
|
procedure Set_EmployeeID(const retval:WideString); safecall;
|
|
function Get_FullName : WideString; safecall;
|
|
procedure Set_FullName(const retval:WideString); safecall;
|
|
function Get_FirstName : WideString; safecall;
|
|
procedure Set_FirstName(const retval:WideString); safecall;
|
|
function Get_LastName : WideString; safecall;
|
|
procedure Set_LastName(const retval:WideString); safecall;
|
|
function Get_OtherName : WideString; safecall;
|
|
procedure Set_OtherName(const retval:WideString); safecall;
|
|
function Get_NamePrefix : WideString; safecall;
|
|
procedure Set_NamePrefix(const retval:WideString); safecall;
|
|
function Get_NameSuffix : WideString; safecall;
|
|
procedure Set_NameSuffix(const retval:WideString); safecall;
|
|
function Get_Title : WideString; safecall;
|
|
procedure Set_Title(const retval:WideString); safecall;
|
|
function Get_Manager : WideString; safecall;
|
|
procedure Set_Manager(const retval:WideString); safecall;
|
|
function Get_TelephoneHome : OleVariant; safecall;
|
|
procedure Set_TelephoneHome(const retval:OleVariant); safecall;
|
|
function Get_TelephoneMobile : OleVariant; safecall;
|
|
procedure Set_TelephoneMobile(const retval:OleVariant); safecall;
|
|
function Get_TelephoneNumber : OleVariant; safecall;
|
|
procedure Set_TelephoneNumber(const retval:OleVariant); safecall;
|
|
function Get_TelephonePager : OleVariant; safecall;
|
|
procedure Set_TelephonePager(const retval:OleVariant); safecall;
|
|
function Get_FaxNumber : OleVariant; safecall;
|
|
procedure Set_FaxNumber(const retval:OleVariant); safecall;
|
|
function Get_OfficeLocations : OleVariant; safecall;
|
|
procedure Set_OfficeLocations(const retval:OleVariant); safecall;
|
|
function Get_PostalAddresses : OleVariant; safecall;
|
|
procedure Set_PostalAddresses(const retval:OleVariant); safecall;
|
|
function Get_PostalCodes : OleVariant; safecall;
|
|
procedure Set_PostalCodes(const retval:OleVariant); safecall;
|
|
function Get_SeeAlso : OleVariant; safecall;
|
|
procedure Set_SeeAlso(const retval:OleVariant); safecall;
|
|
function Get_AccountDisabled : WordBool; safecall;
|
|
procedure Set_AccountDisabled(const retval:WordBool); safecall;
|
|
function Get_AccountExpirationDate : TDateTime; safecall;
|
|
procedure Set_AccountExpirationDate(const retval:TDateTime); safecall;
|
|
function Get_GraceLoginsAllowed : Integer; safecall;
|
|
procedure Set_GraceLoginsAllowed(const retval:Integer); safecall;
|
|
function Get_GraceLoginsRemaining : Integer; safecall;
|
|
procedure Set_GraceLoginsRemaining(const retval:Integer); safecall;
|
|
function Get_IsAccountLocked : WordBool; safecall;
|
|
procedure Set_IsAccountLocked(const retval:WordBool); safecall;
|
|
function Get_LoginHours : OleVariant; safecall;
|
|
procedure Set_LoginHours(const retval:OleVariant); safecall;
|
|
function Get_LoginWorkstations : OleVariant; safecall;
|
|
procedure Set_LoginWorkstations(const retval:OleVariant); safecall;
|
|
function Get_MaxLogins : Integer; safecall;
|
|
procedure Set_MaxLogins(const retval:Integer); safecall;
|
|
function Get_MaxStorage : Integer; safecall;
|
|
procedure Set_MaxStorage(const retval:Integer); safecall;
|
|
function Get_PasswordExpirationDate : TDateTime; safecall;
|
|
procedure Set_PasswordExpirationDate(const retval:TDateTime); safecall;
|
|
function Get_PasswordMinimumLength : Integer; safecall;
|
|
procedure Set_PasswordMinimumLength(const retval:Integer); safecall;
|
|
function Get_PasswordRequired : WordBool; safecall;
|
|
procedure Set_PasswordRequired(const retval:WordBool); safecall;
|
|
function Get_RequireUniquePassword : WordBool; safecall;
|
|
procedure Set_RequireUniquePassword(const retval:WordBool); safecall;
|
|
function Get_EmailAddress : WideString; safecall;
|
|
procedure Set_EmailAddress(const retval:WideString); safecall;
|
|
function Get_HomeDirectory : WideString; safecall;
|
|
procedure Set_HomeDirectory(const retval:WideString); safecall;
|
|
function Get_Languages : OleVariant; safecall;
|
|
procedure Set_Languages(const retval:OleVariant); safecall;
|
|
function Get_Profile : WideString; safecall;
|
|
procedure Set_Profile(const retval:WideString); safecall;
|
|
function Get_LoginScript : WideString; safecall;
|
|
procedure Set_LoginScript(const retval:WideString); safecall;
|
|
function Get_Picture : OleVariant; safecall;
|
|
procedure Set_Picture(const retval:OleVariant); safecall;
|
|
function Get_HomePage : WideString; safecall;
|
|
procedure Set_HomePage(const retval:WideString); safecall;
|
|
// Groups :
|
|
function Groups:IADsMembers;safecall;
|
|
// SetPassword :
|
|
procedure SetPassword(NewPassword:WideString);safecall;
|
|
// ChangePassword :
|
|
procedure ChangePassword(bstrOldPassword:WideString;bstrNewPassword:WideString);safecall;
|
|
// BadLoginAddress :
|
|
property BadLoginAddress:WideString read Get_BadLoginAddress;
|
|
// BadLoginCount :
|
|
property BadLoginCount:Integer read Get_BadLoginCount;
|
|
// LastLogin :
|
|
property LastLogin:TDateTime read Get_LastLogin;
|
|
// LastLogoff :
|
|
property LastLogoff:TDateTime read Get_LastLogoff;
|
|
// LastFailedLogin :
|
|
property LastFailedLogin:TDateTime read Get_LastFailedLogin;
|
|
// PasswordLastChanged :
|
|
property PasswordLastChanged:TDateTime read Get_PasswordLastChanged;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
// Division :
|
|
property Division:WideString read Get_Division write Set_Division;
|
|
// Department :
|
|
property Department:WideString read Get_Department write Set_Department;
|
|
// EmployeeID :
|
|
property EmployeeID:WideString read Get_EmployeeID write Set_EmployeeID;
|
|
// FullName :
|
|
property FullName:WideString read Get_FullName write Set_FullName;
|
|
// FirstName :
|
|
property FirstName:WideString read Get_FirstName write Set_FirstName;
|
|
// LastName :
|
|
property LastName:WideString read Get_LastName write Set_LastName;
|
|
// OtherName :
|
|
property OtherName:WideString read Get_OtherName write Set_OtherName;
|
|
// NamePrefix :
|
|
property NamePrefix:WideString read Get_NamePrefix write Set_NamePrefix;
|
|
// NameSuffix :
|
|
property NameSuffix:WideString read Get_NameSuffix write Set_NameSuffix;
|
|
// Title :
|
|
property Title:WideString read Get_Title write Set_Title;
|
|
// Manager :
|
|
property Manager:WideString read Get_Manager write Set_Manager;
|
|
// TelephoneHome :
|
|
property TelephoneHome:OleVariant read Get_TelephoneHome write Set_TelephoneHome;
|
|
// TelephoneMobile :
|
|
property TelephoneMobile:OleVariant read Get_TelephoneMobile write Set_TelephoneMobile;
|
|
// TelephoneNumber :
|
|
property TelephoneNumber:OleVariant read Get_TelephoneNumber write Set_TelephoneNumber;
|
|
// TelephonePager :
|
|
property TelephonePager:OleVariant read Get_TelephonePager write Set_TelephonePager;
|
|
// FaxNumber :
|
|
property FaxNumber:OleVariant read Get_FaxNumber write Set_FaxNumber;
|
|
// OfficeLocations :
|
|
property OfficeLocations:OleVariant read Get_OfficeLocations write Set_OfficeLocations;
|
|
// PostalAddresses :
|
|
property PostalAddresses:OleVariant read Get_PostalAddresses write Set_PostalAddresses;
|
|
// PostalCodes :
|
|
property PostalCodes:OleVariant read Get_PostalCodes write Set_PostalCodes;
|
|
// SeeAlso :
|
|
property SeeAlso:OleVariant read Get_SeeAlso write Set_SeeAlso;
|
|
// AccountDisabled :
|
|
property AccountDisabled:WordBool read Get_AccountDisabled write Set_AccountDisabled;
|
|
// AccountExpirationDate :
|
|
property AccountExpirationDate:TDateTime read Get_AccountExpirationDate write Set_AccountExpirationDate;
|
|
// GraceLoginsAllowed :
|
|
property GraceLoginsAllowed:Integer read Get_GraceLoginsAllowed write Set_GraceLoginsAllowed;
|
|
// GraceLoginsRemaining :
|
|
property GraceLoginsRemaining:Integer read Get_GraceLoginsRemaining write Set_GraceLoginsRemaining;
|
|
// IsAccountLocked :
|
|
property IsAccountLocked:WordBool read Get_IsAccountLocked write Set_IsAccountLocked;
|
|
// LoginHours :
|
|
property LoginHours:OleVariant read Get_LoginHours write Set_LoginHours;
|
|
// LoginWorkstations :
|
|
property LoginWorkstations:OleVariant read Get_LoginWorkstations write Set_LoginWorkstations;
|
|
// MaxLogins :
|
|
property MaxLogins:Integer read Get_MaxLogins write Set_MaxLogins;
|
|
// MaxStorage :
|
|
property MaxStorage:Integer read Get_MaxStorage write Set_MaxStorage;
|
|
// PasswordExpirationDate :
|
|
property PasswordExpirationDate:TDateTime read Get_PasswordExpirationDate write Set_PasswordExpirationDate;
|
|
// PasswordMinimumLength :
|
|
property PasswordMinimumLength:Integer read Get_PasswordMinimumLength write Set_PasswordMinimumLength;
|
|
// PasswordRequired :
|
|
property PasswordRequired:WordBool read Get_PasswordRequired write Set_PasswordRequired;
|
|
// RequireUniquePassword :
|
|
property RequireUniquePassword:WordBool read Get_RequireUniquePassword write Set_RequireUniquePassword;
|
|
// EmailAddress :
|
|
property EmailAddress:WideString read Get_EmailAddress write Set_EmailAddress;
|
|
// HomeDirectory :
|
|
property HomeDirectory:WideString read Get_HomeDirectory write Set_HomeDirectory;
|
|
// Languages :
|
|
property Languages:OleVariant read Get_Languages write Set_Languages;
|
|
// Profile :
|
|
property Profile:WideString read Get_Profile write Set_Profile;
|
|
// LoginScript :
|
|
property LoginScript:WideString read Get_LoginScript write Set_LoginScript;
|
|
// Picture :
|
|
property Picture:OleVariant read Get_Picture write Set_Picture;
|
|
// HomePage :
|
|
property HomePage:WideString read Get_HomePage write Set_HomePage;
|
|
end;
|
|
|
|
|
|
// IADsUser :
|
|
|
|
IADsUserDisp = dispinterface
|
|
['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Groups :
|
|
function Groups:IADsMembers;dispid 66;
|
|
// SetPassword :
|
|
procedure SetPassword(NewPassword:WideString);dispid 67;
|
|
// ChangePassword :
|
|
procedure ChangePassword(bstrOldPassword:WideString;bstrNewPassword:WideString);dispid 68;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// BadLoginAddress :
|
|
property BadLoginAddress:WideString readonly dispid 53;
|
|
// BadLoginCount :
|
|
property BadLoginCount:Integer readonly dispid 54;
|
|
// LastLogin :
|
|
property LastLogin:TDateTime readonly dispid 56;
|
|
// LastLogoff :
|
|
property LastLogoff:TDateTime readonly dispid 57;
|
|
// LastFailedLogin :
|
|
property LastFailedLogin:TDateTime readonly dispid 58;
|
|
// PasswordLastChanged :
|
|
property PasswordLastChanged:TDateTime readonly dispid 59;
|
|
// Description :
|
|
property Description:WideString dispid 15;
|
|
// Division :
|
|
property Division:WideString dispid 19;
|
|
// Department :
|
|
property Department:WideString dispid 122;
|
|
// EmployeeID :
|
|
property EmployeeID:WideString dispid 20;
|
|
// FullName :
|
|
property FullName:WideString dispid 23;
|
|
// FirstName :
|
|
property FirstName:WideString dispid 22;
|
|
// LastName :
|
|
property LastName:WideString dispid 25;
|
|
// OtherName :
|
|
property OtherName:WideString dispid 27;
|
|
// NamePrefix :
|
|
property NamePrefix:WideString dispid 114;
|
|
// NameSuffix :
|
|
property NameSuffix:WideString dispid 115;
|
|
// Title :
|
|
property Title:WideString dispid 36;
|
|
// Manager :
|
|
property Manager:WideString dispid 26;
|
|
// TelephoneHome :
|
|
property TelephoneHome:OleVariant dispid 32;
|
|
// TelephoneMobile :
|
|
property TelephoneMobile:OleVariant dispid 33;
|
|
// TelephoneNumber :
|
|
property TelephoneNumber:OleVariant dispid 34;
|
|
// TelephonePager :
|
|
property TelephonePager:OleVariant dispid 17;
|
|
// FaxNumber :
|
|
property FaxNumber:OleVariant dispid 16;
|
|
// OfficeLocations :
|
|
property OfficeLocations:OleVariant dispid 28;
|
|
// PostalAddresses :
|
|
property PostalAddresses:OleVariant dispid 30;
|
|
// PostalCodes :
|
|
property PostalCodes:OleVariant dispid 31;
|
|
// SeeAlso :
|
|
property SeeAlso:OleVariant dispid 117;
|
|
// AccountDisabled :
|
|
property AccountDisabled:WordBool dispid 37;
|
|
// AccountExpirationDate :
|
|
property AccountExpirationDate:TDateTime dispid 38;
|
|
// GraceLoginsAllowed :
|
|
property GraceLoginsAllowed:Integer dispid 41;
|
|
// GraceLoginsRemaining :
|
|
property GraceLoginsRemaining:Integer dispid 42;
|
|
// IsAccountLocked :
|
|
property IsAccountLocked:WordBool dispid 43;
|
|
// LoginHours :
|
|
property LoginHours:OleVariant dispid 45;
|
|
// LoginWorkstations :
|
|
property LoginWorkstations:OleVariant dispid 46;
|
|
// MaxLogins :
|
|
property MaxLogins:Integer dispid 47;
|
|
// MaxStorage :
|
|
property MaxStorage:Integer dispid 48;
|
|
// PasswordExpirationDate :
|
|
property PasswordExpirationDate:TDateTime dispid 49;
|
|
// PasswordMinimumLength :
|
|
property PasswordMinimumLength:Integer dispid 50;
|
|
// PasswordRequired :
|
|
property PasswordRequired:WordBool dispid 51;
|
|
// RequireUniquePassword :
|
|
property RequireUniquePassword:WordBool dispid 52;
|
|
// EmailAddress :
|
|
property EmailAddress:WideString dispid 60;
|
|
// HomeDirectory :
|
|
property HomeDirectory:WideString dispid 61;
|
|
// Languages :
|
|
property Languages:OleVariant dispid 62;
|
|
// Profile :
|
|
property Profile:WideString dispid 63;
|
|
// LoginScript :
|
|
property LoginScript:WideString dispid 64;
|
|
// Picture :
|
|
property Picture:OleVariant dispid 65;
|
|
// HomePage :
|
|
property HomePage:WideString dispid 120;
|
|
end;
|
|
|
|
|
|
// IADsPrintQueue :
|
|
|
|
IADsPrintQueue = interface(IADs)
|
|
['{B15160D0-1226-11CF-A985-00AA006BC149}']
|
|
function Get_PrinterPath : WideString; safecall;
|
|
procedure Set_PrinterPath(const retval:WideString); safecall;
|
|
function Get_Model : WideString; safecall;
|
|
procedure Set_Model(const retval:WideString); safecall;
|
|
function Get_Datatype : WideString; safecall;
|
|
procedure Set_Datatype(const retval:WideString); safecall;
|
|
function Get_PrintProcessor : WideString; safecall;
|
|
procedure Set_PrintProcessor(const retval:WideString); safecall;
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
function Get_Location : WideString; safecall;
|
|
procedure Set_Location(const retval:WideString); safecall;
|
|
function Get_StartTime : TDateTime; safecall;
|
|
procedure Set_StartTime(const retval:TDateTime); safecall;
|
|
function Get_UntilTime : TDateTime; safecall;
|
|
procedure Set_UntilTime(const retval:TDateTime); safecall;
|
|
function Get_DefaultJobPriority : Integer; safecall;
|
|
procedure Set_DefaultJobPriority(const retval:Integer); safecall;
|
|
function Get_Priority : Integer; safecall;
|
|
procedure Set_Priority(const retval:Integer); safecall;
|
|
function Get_BannerPage : WideString; safecall;
|
|
procedure Set_BannerPage(const retval:WideString); safecall;
|
|
function Get_PrintDevices : OleVariant; safecall;
|
|
procedure Set_PrintDevices(const retval:OleVariant); safecall;
|
|
function Get_NetAddresses : OleVariant; safecall;
|
|
procedure Set_NetAddresses(const retval:OleVariant); safecall;
|
|
// PrinterPath :
|
|
property PrinterPath:WideString read Get_PrinterPath write Set_PrinterPath;
|
|
// Model :
|
|
property Model:WideString read Get_Model write Set_Model;
|
|
// Datatype :
|
|
property Datatype:WideString read Get_Datatype write Set_Datatype;
|
|
// PrintProcessor :
|
|
property PrintProcessor:WideString read Get_PrintProcessor write Set_PrintProcessor;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
// Location :
|
|
property Location:WideString read Get_Location write Set_Location;
|
|
// StartTime :
|
|
property StartTime:TDateTime read Get_StartTime write Set_StartTime;
|
|
// UntilTime :
|
|
property UntilTime:TDateTime read Get_UntilTime write Set_UntilTime;
|
|
// DefaultJobPriority :
|
|
property DefaultJobPriority:Integer read Get_DefaultJobPriority write Set_DefaultJobPriority;
|
|
// Priority :
|
|
property Priority:Integer read Get_Priority write Set_Priority;
|
|
// BannerPage :
|
|
property BannerPage:WideString read Get_BannerPage write Set_BannerPage;
|
|
// PrintDevices :
|
|
property PrintDevices:OleVariant read Get_PrintDevices write Set_PrintDevices;
|
|
// NetAddresses :
|
|
property NetAddresses:OleVariant read Get_NetAddresses write Set_NetAddresses;
|
|
end;
|
|
|
|
|
|
// IADsPrintQueue :
|
|
|
|
IADsPrintQueueDisp = dispinterface
|
|
['{B15160D0-1226-11CF-A985-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// PrinterPath :
|
|
property PrinterPath:WideString dispid 15;
|
|
// Model :
|
|
property Model:WideString dispid 16;
|
|
// Datatype :
|
|
property Datatype:WideString dispid 17;
|
|
// PrintProcessor :
|
|
property PrintProcessor:WideString dispid 18;
|
|
// Description :
|
|
property Description:WideString dispid 19;
|
|
// Location :
|
|
property Location:WideString dispid 20;
|
|
// StartTime :
|
|
property StartTime:TDateTime dispid 21;
|
|
// UntilTime :
|
|
property UntilTime:TDateTime dispid 22;
|
|
// DefaultJobPriority :
|
|
property DefaultJobPriority:Integer dispid 23;
|
|
// Priority :
|
|
property Priority:Integer dispid 24;
|
|
// BannerPage :
|
|
property BannerPage:WideString dispid 25;
|
|
// PrintDevices :
|
|
property PrintDevices:OleVariant dispid 26;
|
|
// NetAddresses :
|
|
property NetAddresses:OleVariant dispid 27;
|
|
end;
|
|
|
|
|
|
// IADsPrintQueueOperations :
|
|
|
|
IADsPrintQueueOperations = interface(IADs)
|
|
['{124BE5C0-156E-11CF-A986-00AA006BC149}']
|
|
function Get_Status : Integer; safecall;
|
|
// PrintJobs :
|
|
function PrintJobs:IADsCollection;safecall;
|
|
// Pause :
|
|
procedure Pause;safecall;
|
|
// Resume :
|
|
procedure Resume;safecall;
|
|
// Purge :
|
|
procedure Purge;safecall;
|
|
// Status :
|
|
property Status:Integer read Get_Status;
|
|
end;
|
|
|
|
|
|
// IADsPrintQueueOperations :
|
|
|
|
IADsPrintQueueOperationsDisp = dispinterface
|
|
['{124BE5C0-156E-11CF-A986-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// PrintJobs :
|
|
function PrintJobs:IADsCollection;dispid 28;
|
|
// Pause :
|
|
procedure Pause;dispid 29;
|
|
// Resume :
|
|
procedure Resume;dispid 30;
|
|
// Purge :
|
|
procedure Purge;dispid 31;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// Status :
|
|
property Status:Integer readonly dispid 27;
|
|
end;
|
|
|
|
|
|
// IADsPrintJob :
|
|
|
|
IADsPrintJob = interface(IADs)
|
|
['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
|
|
function Get_HostPrintQueue : WideString; safecall;
|
|
function Get_User : WideString; safecall;
|
|
function Get_UserPath : WideString; safecall;
|
|
function Get_TimeSubmitted : TDateTime; safecall;
|
|
function Get_TotalPages : Integer; safecall;
|
|
function Get_Size : Integer; safecall;
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
function Get_Priority : Integer; safecall;
|
|
procedure Set_Priority(const retval:Integer); safecall;
|
|
function Get_StartTime : TDateTime; safecall;
|
|
procedure Set_StartTime(const retval:TDateTime); safecall;
|
|
function Get_UntilTime : TDateTime; safecall;
|
|
procedure Set_UntilTime(const retval:TDateTime); safecall;
|
|
function Get_Notify : WideString; safecall;
|
|
procedure Set_Notify(const retval:WideString); safecall;
|
|
function Get_NotifyPath : WideString; safecall;
|
|
procedure Set_NotifyPath(const retval:WideString); safecall;
|
|
// HostPrintQueue :
|
|
property HostPrintQueue:WideString read Get_HostPrintQueue;
|
|
// User :
|
|
property User:WideString read Get_User;
|
|
// UserPath :
|
|
property UserPath:WideString read Get_UserPath;
|
|
// TimeSubmitted :
|
|
property TimeSubmitted:TDateTime read Get_TimeSubmitted;
|
|
// TotalPages :
|
|
property TotalPages:Integer read Get_TotalPages;
|
|
// Size :
|
|
property Size:Integer read Get_Size;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
// Priority :
|
|
property Priority:Integer read Get_Priority write Set_Priority;
|
|
// StartTime :
|
|
property StartTime:TDateTime read Get_StartTime write Set_StartTime;
|
|
// UntilTime :
|
|
property UntilTime:TDateTime read Get_UntilTime write Set_UntilTime;
|
|
// Notify :
|
|
property Notify:WideString read Get_Notify write Set_Notify;
|
|
// NotifyPath :
|
|
property NotifyPath:WideString read Get_NotifyPath write Set_NotifyPath;
|
|
end;
|
|
|
|
|
|
// IADsPrintJob :
|
|
|
|
IADsPrintJobDisp = dispinterface
|
|
['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// HostPrintQueue :
|
|
property HostPrintQueue:WideString readonly dispid 15;
|
|
// User :
|
|
property User:WideString readonly dispid 16;
|
|
// UserPath :
|
|
property UserPath:WideString readonly dispid 17;
|
|
// TimeSubmitted :
|
|
property TimeSubmitted:TDateTime readonly dispid 18;
|
|
// TotalPages :
|
|
property TotalPages:Integer readonly dispid 19;
|
|
// Size :
|
|
property Size:Integer readonly dispid 234;
|
|
// Description :
|
|
property Description:WideString dispid 20;
|
|
// Priority :
|
|
property Priority:Integer dispid 21;
|
|
// StartTime :
|
|
property StartTime:TDateTime dispid 22;
|
|
// UntilTime :
|
|
property UntilTime:TDateTime dispid 23;
|
|
// Notify :
|
|
property Notify:WideString dispid 24;
|
|
// NotifyPath :
|
|
property NotifyPath:WideString dispid 25;
|
|
end;
|
|
|
|
|
|
// IADsPrintJobOperations :
|
|
|
|
IADsPrintJobOperations = interface(IADs)
|
|
['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
|
|
function Get_Status : Integer; safecall;
|
|
function Get_TimeElapsed : Integer; safecall;
|
|
function Get_PagesPrinted : Integer; safecall;
|
|
function Get_Position : Integer; safecall;
|
|
procedure Set_Position(const retval:Integer); safecall;
|
|
// Pause :
|
|
procedure Pause;safecall;
|
|
// Resume :
|
|
procedure Resume;safecall;
|
|
// Status :
|
|
property Status:Integer read Get_Status;
|
|
// TimeElapsed :
|
|
property TimeElapsed:Integer read Get_TimeElapsed;
|
|
// PagesPrinted :
|
|
property PagesPrinted:Integer read Get_PagesPrinted;
|
|
// Position :
|
|
property Position:Integer read Get_Position write Set_Position;
|
|
end;
|
|
|
|
|
|
// IADsPrintJobOperations :
|
|
|
|
IADsPrintJobOperationsDisp = dispinterface
|
|
['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Pause :
|
|
procedure Pause;dispid 30;
|
|
// Resume :
|
|
procedure Resume;dispid 31;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// Status :
|
|
property Status:Integer readonly dispid 26;
|
|
// TimeElapsed :
|
|
property TimeElapsed:Integer readonly dispid 27;
|
|
// PagesPrinted :
|
|
property PagesPrinted:Integer readonly dispid 28;
|
|
// Position :
|
|
property Position:Integer dispid 29;
|
|
end;
|
|
|
|
|
|
// IADsService :
|
|
|
|
IADsService = interface(IADs)
|
|
['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
|
|
function Get_HostComputer : WideString; safecall;
|
|
procedure Set_HostComputer(const retval:WideString); safecall;
|
|
function Get_DisplayName : WideString; safecall;
|
|
procedure Set_DisplayName(const retval:WideString); safecall;
|
|
function Get_Version : WideString; safecall;
|
|
procedure Set_Version(const retval:WideString); safecall;
|
|
function Get_ServiceType : Integer; safecall;
|
|
procedure Set_ServiceType(const retval:Integer); safecall;
|
|
function Get_StartType : Integer; safecall;
|
|
procedure Set_StartType(const retval:Integer); safecall;
|
|
function Get_Path : WideString; safecall;
|
|
procedure Set_Path(const retval:WideString); safecall;
|
|
function Get_StartupParameters : WideString; safecall;
|
|
procedure Set_StartupParameters(const retval:WideString); safecall;
|
|
function Get_ErrorControl : Integer; safecall;
|
|
procedure Set_ErrorControl(const retval:Integer); safecall;
|
|
function Get_LoadOrderGroup : WideString; safecall;
|
|
procedure Set_LoadOrderGroup(const retval:WideString); safecall;
|
|
function Get_ServiceAccountName : WideString; safecall;
|
|
procedure Set_ServiceAccountName(const retval:WideString); safecall;
|
|
function Get_ServiceAccountPath : WideString; safecall;
|
|
procedure Set_ServiceAccountPath(const retval:WideString); safecall;
|
|
function Get_Dependencies : OleVariant; safecall;
|
|
procedure Set_Dependencies(const retval:OleVariant); safecall;
|
|
// HostComputer :
|
|
property HostComputer:WideString read Get_HostComputer write Set_HostComputer;
|
|
// DisplayName :
|
|
property DisplayName:WideString read Get_DisplayName write Set_DisplayName;
|
|
// Version :
|
|
property Version:WideString read Get_Version write Set_Version;
|
|
// ServiceType :
|
|
property ServiceType:Integer read Get_ServiceType write Set_ServiceType;
|
|
// StartType :
|
|
property StartType:Integer read Get_StartType write Set_StartType;
|
|
// Path :
|
|
property Path:WideString read Get_Path write Set_Path;
|
|
// StartupParameters :
|
|
property StartupParameters:WideString read Get_StartupParameters write Set_StartupParameters;
|
|
// ErrorControl :
|
|
property ErrorControl:Integer read Get_ErrorControl write Set_ErrorControl;
|
|
// LoadOrderGroup :
|
|
property LoadOrderGroup:WideString read Get_LoadOrderGroup write Set_LoadOrderGroup;
|
|
// ServiceAccountName :
|
|
property ServiceAccountName:WideString read Get_ServiceAccountName write Set_ServiceAccountName;
|
|
// ServiceAccountPath :
|
|
property ServiceAccountPath:WideString read Get_ServiceAccountPath write Set_ServiceAccountPath;
|
|
// Dependencies :
|
|
property Dependencies:OleVariant read Get_Dependencies write Set_Dependencies;
|
|
end;
|
|
|
|
|
|
// IADsService :
|
|
|
|
IADsServiceDisp = dispinterface
|
|
['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// HostComputer :
|
|
property HostComputer:WideString dispid 15;
|
|
// DisplayName :
|
|
property DisplayName:WideString dispid 16;
|
|
// Version :
|
|
property Version:WideString dispid 17;
|
|
// ServiceType :
|
|
property ServiceType:Integer dispid 18;
|
|
// StartType :
|
|
property StartType:Integer dispid 19;
|
|
// Path :
|
|
property Path:WideString dispid 20;
|
|
// StartupParameters :
|
|
property StartupParameters:WideString dispid 21;
|
|
// ErrorControl :
|
|
property ErrorControl:Integer dispid 22;
|
|
// LoadOrderGroup :
|
|
property LoadOrderGroup:WideString dispid 23;
|
|
// ServiceAccountName :
|
|
property ServiceAccountName:WideString dispid 24;
|
|
// ServiceAccountPath :
|
|
property ServiceAccountPath:WideString dispid 25;
|
|
// Dependencies :
|
|
property Dependencies:OleVariant dispid 26;
|
|
end;
|
|
|
|
|
|
// IADsServiceOperations :
|
|
|
|
IADsServiceOperations = interface(IADs)
|
|
['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
|
|
function Get_Status : Integer; safecall;
|
|
// Start :
|
|
procedure Start;safecall;
|
|
// Stop :
|
|
procedure Stop;safecall;
|
|
// Pause :
|
|
procedure Pause;safecall;
|
|
// Continue_ :
|
|
procedure Continue_;safecall;
|
|
// SetPassword :
|
|
procedure SetPassword(bstrNewPassword:WideString);safecall;
|
|
// Status :
|
|
property Status:Integer read Get_Status;
|
|
end;
|
|
|
|
|
|
// IADsServiceOperations :
|
|
|
|
IADsServiceOperationsDisp = dispinterface
|
|
['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Start :
|
|
procedure Start;dispid 28;
|
|
// Stop :
|
|
procedure Stop;dispid 29;
|
|
// Pause :
|
|
procedure Pause;dispid 30;
|
|
// Continue_ :
|
|
procedure Continue_;dispid 31;
|
|
// SetPassword :
|
|
procedure SetPassword(bstrNewPassword:WideString);dispid 32;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// Status :
|
|
property Status:Integer readonly dispid 27;
|
|
end;
|
|
|
|
|
|
// IADsFileService :
|
|
|
|
IADsFileService = interface(IADsService)
|
|
['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
function Get_MaxUserCount : Integer; safecall;
|
|
procedure Set_MaxUserCount(const retval:Integer); safecall;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
// MaxUserCount :
|
|
property MaxUserCount:Integer read Get_MaxUserCount write Set_MaxUserCount;
|
|
end;
|
|
|
|
|
|
// IADsFileService :
|
|
|
|
IADsFileServiceDisp = dispinterface
|
|
['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// HostComputer :
|
|
property HostComputer:WideString dispid 15;
|
|
// DisplayName :
|
|
property DisplayName:WideString dispid 16;
|
|
// Version :
|
|
property Version:WideString dispid 17;
|
|
// ServiceType :
|
|
property ServiceType:Integer dispid 18;
|
|
// StartType :
|
|
property StartType:Integer dispid 19;
|
|
// Path :
|
|
property Path:WideString dispid 20;
|
|
// StartupParameters :
|
|
property StartupParameters:WideString dispid 21;
|
|
// ErrorControl :
|
|
property ErrorControl:Integer dispid 22;
|
|
// LoadOrderGroup :
|
|
property LoadOrderGroup:WideString dispid 23;
|
|
// ServiceAccountName :
|
|
property ServiceAccountName:WideString dispid 24;
|
|
// ServiceAccountPath :
|
|
property ServiceAccountPath:WideString dispid 25;
|
|
// Dependencies :
|
|
property Dependencies:OleVariant dispid 26;
|
|
// Description :
|
|
property Description:WideString dispid 33;
|
|
// MaxUserCount :
|
|
property MaxUserCount:Integer dispid 34;
|
|
end;
|
|
|
|
|
|
// IADsFileServiceOperations :
|
|
|
|
IADsFileServiceOperations = interface(IADsServiceOperations)
|
|
['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
|
|
// Sessions :
|
|
function Sessions:IADsCollection;safecall;
|
|
// Resources :
|
|
function Resources:IADsCollection;safecall;
|
|
end;
|
|
|
|
|
|
// IADsFileServiceOperations :
|
|
|
|
IADsFileServiceOperationsDisp = dispinterface
|
|
['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Start :
|
|
procedure Start;dispid 28;
|
|
// Stop :
|
|
procedure Stop;dispid 29;
|
|
// Pause :
|
|
procedure Pause;dispid 30;
|
|
// Continue_ :
|
|
procedure Continue_;dispid 31;
|
|
// SetPassword :
|
|
procedure SetPassword(bstrNewPassword:WideString);dispid 32;
|
|
// Sessions :
|
|
function Sessions:IADsCollection;dispid 35;
|
|
// Resources :
|
|
function Resources:IADsCollection;dispid 36;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// Status :
|
|
property Status:Integer readonly dispid 27;
|
|
end;
|
|
|
|
|
|
// IADsFileShare :
|
|
|
|
IADsFileShare = interface(IADs)
|
|
['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
|
|
function Get_CurrentUserCount : Integer; safecall;
|
|
function Get_Description : WideString; safecall;
|
|
procedure Set_Description(const retval:WideString); safecall;
|
|
function Get_HostComputer : WideString; safecall;
|
|
procedure Set_HostComputer(const retval:WideString); safecall;
|
|
function Get_Path : WideString; safecall;
|
|
procedure Set_Path(const retval:WideString); safecall;
|
|
function Get_MaxUserCount : Integer; safecall;
|
|
procedure Set_MaxUserCount(const retval:Integer); safecall;
|
|
// CurrentUserCount :
|
|
property CurrentUserCount:Integer read Get_CurrentUserCount;
|
|
// Description :
|
|
property Description:WideString read Get_Description write Set_Description;
|
|
// HostComputer :
|
|
property HostComputer:WideString read Get_HostComputer write Set_HostComputer;
|
|
// Path :
|
|
property Path:WideString read Get_Path write Set_Path;
|
|
// MaxUserCount :
|
|
property MaxUserCount:Integer read Get_MaxUserCount write Set_MaxUserCount;
|
|
end;
|
|
|
|
|
|
// IADsFileShare :
|
|
|
|
IADsFileShareDisp = dispinterface
|
|
['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// CurrentUserCount :
|
|
property CurrentUserCount:Integer readonly dispid 15;
|
|
// Description :
|
|
property Description:WideString dispid 16;
|
|
// HostComputer :
|
|
property HostComputer:WideString dispid 17;
|
|
// Path :
|
|
property Path:WideString dispid 18;
|
|
// MaxUserCount :
|
|
property MaxUserCount:Integer dispid 19;
|
|
end;
|
|
|
|
|
|
// IADsSession :
|
|
|
|
IADsSession = interface(IADs)
|
|
['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
|
|
function Get_User : WideString; safecall;
|
|
function Get_UserPath : WideString; safecall;
|
|
function Get_Computer : WideString; safecall;
|
|
function Get_ComputerPath : WideString; safecall;
|
|
function Get_ConnectTime : Integer; safecall;
|
|
function Get_IdleTime : Integer; safecall;
|
|
// User :
|
|
property User:WideString read Get_User;
|
|
// UserPath :
|
|
property UserPath:WideString read Get_UserPath;
|
|
// Computer :
|
|
property Computer:WideString read Get_Computer;
|
|
// ComputerPath :
|
|
property ComputerPath:WideString read Get_ComputerPath;
|
|
// ConnectTime :
|
|
property ConnectTime:Integer read Get_ConnectTime;
|
|
// IdleTime :
|
|
property IdleTime:Integer read Get_IdleTime;
|
|
end;
|
|
|
|
|
|
// IADsSession :
|
|
|
|
IADsSessionDisp = dispinterface
|
|
['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// User :
|
|
property User:WideString readonly dispid 15;
|
|
// UserPath :
|
|
property UserPath:WideString readonly dispid 16;
|
|
// Computer :
|
|
property Computer:WideString readonly dispid 17;
|
|
// ComputerPath :
|
|
property ComputerPath:WideString readonly dispid 18;
|
|
// ConnectTime :
|
|
property ConnectTime:Integer readonly dispid 19;
|
|
// IdleTime :
|
|
property IdleTime:Integer readonly dispid 20;
|
|
end;
|
|
|
|
|
|
// IADsResource :
|
|
|
|
IADsResource = interface(IADs)
|
|
['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
|
|
function Get_User : WideString; safecall;
|
|
function Get_UserPath : WideString; safecall;
|
|
function Get_Path : WideString; safecall;
|
|
function Get_LockCount : Integer; safecall;
|
|
// User :
|
|
property User:WideString read Get_User;
|
|
// UserPath :
|
|
property UserPath:WideString read Get_UserPath;
|
|
// Path :
|
|
property Path:WideString read Get_Path;
|
|
// LockCount :
|
|
property LockCount:Integer read Get_LockCount;
|
|
end;
|
|
|
|
|
|
// IADsResource :
|
|
|
|
IADsResourceDisp = dispinterface
|
|
['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetInfo :
|
|
procedure GetInfo;dispid 8;
|
|
// SetInfo :
|
|
procedure SetInfo;dispid 9;
|
|
// Get :
|
|
function Get(bstrName:WideString):OleVariant;dispid 10;
|
|
// Put :
|
|
procedure Put(bstrName:WideString;vProp:OleVariant);dispid 11;
|
|
// GetEx :
|
|
function GetEx(bstrName:WideString):OleVariant;dispid 12;
|
|
// PutEx :
|
|
procedure PutEx(lnControlCode:Integer;bstrName:WideString;vProp:OleVariant);dispid 13;
|
|
// GetInfoEx :
|
|
procedure GetInfoEx(vProperties:OleVariant;lnReserved:Integer);dispid 14;
|
|
// Name :
|
|
property Name:WideString readonly dispid 2;
|
|
// Class :
|
|
property Class_:WideString readonly dispid 3;
|
|
// GUID :
|
|
property GUID:WideString readonly dispid 4;
|
|
// ADsPath :
|
|
property ADsPath:WideString readonly dispid 5;
|
|
// Parent :
|
|
property Parent:WideString readonly dispid 6;
|
|
// Schema :
|
|
property Schema:WideString readonly dispid 7;
|
|
// User :
|
|
property User:WideString readonly dispid 15;
|
|
// UserPath :
|
|
property UserPath:WideString readonly dispid 16;
|
|
// Path :
|
|
property Path:WideString readonly dispid 17;
|
|
// LockCount :
|
|
property LockCount:Integer readonly dispid 18;
|
|
end;
|
|
|
|
|
|
// IADsOpenDSObject :
|
|
|
|
IADsOpenDSObject = interface(IDispatch)
|
|
['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
|
|
// OpenDSObject :
|
|
function OpenDSObject(lpszDNName:WideString;lpszUserName:WideString;lpszPassword:WideString;lnReserved:Integer):IDispatch;safecall;
|
|
end;
|
|
|
|
|
|
// IADsOpenDSObject :
|
|
|
|
IADsOpenDSObjectDisp = dispinterface
|
|
['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// OpenDSObject :
|
|
function OpenDSObject(lpszDNName:WideString;lpszUserName:WideString;lpszPassword:WideString;lnReserved:Integer):IDispatch;dispid 1;
|
|
end;
|
|
|
|
|
|
// IDirectoryObject :
|
|
|
|
IDirectoryObject = interface(IUnknown)
|
|
['{E798DE2C-22E4-11D0-84FE-00C04FD8D503}']
|
|
// GetObjectInformation :
|
|
function GetObjectInformation(out ppObjInfo:P_ads_object_info):HRESULT;stdcall;
|
|
// GetObjectAttributes :
|
|
function GetObjectAttributes(var pAttributeNames:PWideChar;dwNumberAttributes:LongWord;out ppAttributeEntries:P_ads_attr_info;out pdwNumAttributesReturned:LongWord):HRESULT;stdcall;
|
|
// SetObjectAttributes :
|
|
function SetObjectAttributes(var pAttributeEntries:_ads_attr_info;dwNumAttributes:LongWord;out pdwNumAttributesModified:LongWord):HRESULT;stdcall;
|
|
// CreateDSObject :
|
|
function CreateDSObject(pszRDNName:PWideChar;var pAttributeEntries:_ads_attr_info;dwNumAttributes:LongWord;out ppObject:IDispatch):HRESULT;stdcall;
|
|
// DeleteDSObject :
|
|
function DeleteDSObject(pszRDNName:PWideChar):HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// IDirectorySearch :
|
|
|
|
IDirectorySearch = interface(IUnknown)
|
|
['{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}']
|
|
// SetSearchPreference :
|
|
function SetSearchPreference(var pSearchPrefs:ads_searchpref_info;dwNumPrefs:LongWord):HRESULT;stdcall;
|
|
// ExecuteSearch :
|
|
function ExecuteSearch(pszSearchFilter:PWideChar;var pAttributeNames:PWideChar;dwNumberAttributes:LongWord;out phSearchResult:Ppointer):HRESULT;stdcall;
|
|
// AbandonSearch :
|
|
function AbandonSearch(var phSearchResult:pointer):HRESULT;stdcall;
|
|
// GetFirstRow :
|
|
function GetFirstRow(var hSearchResult:pointer):HRESULT;stdcall;
|
|
// GetNextRow :
|
|
function GetNextRow(var hSearchResult:pointer):HRESULT;stdcall;
|
|
// GetPreviousRow :
|
|
function GetPreviousRow(var hSearchResult:pointer):HRESULT;stdcall;
|
|
// GetNextColumnName :
|
|
function GetNextColumnName(var hSearchHandle:pointer;out ppszColumnName:PWideChar):HRESULT;stdcall;
|
|
// GetColumn :
|
|
function GetColumn(var hSearchResult:pointer;szColumnName:PWideChar;out pSearchColumn:ads_search_column):HRESULT;stdcall;
|
|
// FreeColumn :
|
|
function FreeColumn(var pSearchColumn:ads_search_column):HRESULT;stdcall;
|
|
// CloseSearchHandle :
|
|
function CloseSearchHandle(var hSearchResult:pointer):HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// IDirectorySchemaMgmt :
|
|
|
|
IDirectorySchemaMgmt = interface(IUnknown)
|
|
['{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}']
|
|
// EnumAttributes :
|
|
function EnumAttributes(ppszAttrNames:PWideChar;dwNumAttributes:LongWord;ppAttrDefinition:P_ads_attr_def;pdwNumAttributes:LongWord):HRESULT;stdcall;
|
|
// CreateAttributeDefinition :
|
|
function CreateAttributeDefinition(pszAttributeName:PWideChar;pAttributeDefinition:_ads_attr_def):HRESULT;stdcall;
|
|
// WriteAttributeDefinition :
|
|
function WriteAttributeDefinition(pszAttributeName:PWideChar;pAttributeDefinition:_ads_attr_def):HRESULT;stdcall;
|
|
// DeleteAttributeDefinition :
|
|
function DeleteAttributeDefinition(pszAttributeName:PWideChar):HRESULT;stdcall;
|
|
// EnumClasses :
|
|
function EnumClasses(ppszClassNames:PWideChar;dwNumClasses:LongWord;ppClassDefinition:P_ads_class_def;pdwNumClasses:LongWord):HRESULT;stdcall;
|
|
// WriteClassDefinition :
|
|
function WriteClassDefinition(pszClassName:PWideChar;pClassDefinition:_ads_class_def):HRESULT;stdcall;
|
|
// CreateClassDefinition :
|
|
function CreateClassDefinition(pszClassName:PWideChar;pClassDefinition:_ads_class_def):HRESULT;stdcall;
|
|
// DeleteClassDefinition :
|
|
function DeleteClassDefinition(pszClassName:PWideChar):HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// IADsAggregatee :
|
|
|
|
IADsAggregatee = interface(IUnknown)
|
|
['{1346CE8C-9039-11D0-8528-00C04FD8D503}']
|
|
// ConnectAsAggregatee :
|
|
function ConnectAsAggregatee(pOuterUnknown:IUnknown):HRESULT;stdcall;
|
|
// DisconnectAsAggregatee :
|
|
function DisconnectAsAggregatee:HRESULT;stdcall;
|
|
// RelinquishInterface :
|
|
function RelinquishInterface(riid:GUID):HRESULT;stdcall;
|
|
// RestoreInterface :
|
|
function RestoreInterface(riid:GUID):HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// IADsAggregator :
|
|
|
|
IADsAggregator = interface(IUnknown)
|
|
['{52DB5FB0-941F-11D0-8529-00C04FD8D503}']
|
|
// ConnectAsAggregator :
|
|
function ConnectAsAggregator(pAggregatee:IUnknown):HRESULT;stdcall;
|
|
// DisconnectAsAggregator :
|
|
function DisconnectAsAggregator:HRESULT;stdcall;
|
|
end;
|
|
|
|
|
|
// IADsAccessControlEntry :
|
|
|
|
IADsAccessControlEntry = interface(IDispatch)
|
|
['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
|
|
function Get_AccessMask : Integer; safecall;
|
|
procedure Set_AccessMask(const retval:Integer); safecall;
|
|
function Get_AceType : Integer; safecall;
|
|
procedure Set_AceType(const retval:Integer); safecall;
|
|
function Get_AceFlags : Integer; safecall;
|
|
procedure Set_AceFlags(const retval:Integer); safecall;
|
|
function Get_Flags : Integer; safecall;
|
|
procedure Set_Flags(const retval:Integer); safecall;
|
|
function Get_ObjectType : WideString; safecall;
|
|
procedure Set_ObjectType(const retval:WideString); safecall;
|
|
function Get_InheritedObjectType : WideString; safecall;
|
|
procedure Set_InheritedObjectType(const retval:WideString); safecall;
|
|
function Get_Trustee : WideString; safecall;
|
|
procedure Set_Trustee(const retval:WideString); safecall;
|
|
// AccessMask :
|
|
property AccessMask:Integer read Get_AccessMask write Set_AccessMask;
|
|
// AceType :
|
|
property AceType:Integer read Get_AceType write Set_AceType;
|
|
// AceFlags :
|
|
property AceFlags:Integer read Get_AceFlags write Set_AceFlags;
|
|
// Flags :
|
|
property Flags:Integer read Get_Flags write Set_Flags;
|
|
// ObjectType :
|
|
property ObjectType:WideString read Get_ObjectType write Set_ObjectType;
|
|
// InheritedObjectType :
|
|
property InheritedObjectType:WideString read Get_InheritedObjectType write Set_InheritedObjectType;
|
|
// Trustee :
|
|
property Trustee:WideString read Get_Trustee write Set_Trustee;
|
|
end;
|
|
|
|
|
|
// IADsAccessControlEntry :
|
|
|
|
IADsAccessControlEntryDisp = dispinterface
|
|
['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// AccessMask :
|
|
property AccessMask:Integer dispid 2;
|
|
// AceType :
|
|
property AceType:Integer dispid 3;
|
|
// AceFlags :
|
|
property AceFlags:Integer dispid 4;
|
|
// Flags :
|
|
property Flags:Integer dispid 5;
|
|
// ObjectType :
|
|
property ObjectType:WideString dispid 6;
|
|
// InheritedObjectType :
|
|
property InheritedObjectType:WideString dispid 7;
|
|
// Trustee :
|
|
property Trustee:WideString dispid 8;
|
|
end;
|
|
|
|
|
|
// IADsAccessControlList :
|
|
|
|
IADsAccessControlList = interface(IDispatch)
|
|
['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
|
|
function Get_AclRevision : Integer; safecall;
|
|
procedure Set_AclRevision(const retval:Integer); safecall;
|
|
function Get_AceCount : Integer; safecall;
|
|
procedure Set_AceCount(const retval:Integer); safecall;
|
|
// AddAce :
|
|
procedure AddAce(pAccessControlEntry:IDispatch);safecall;
|
|
// RemoveAce :
|
|
procedure RemoveAce(pAccessControlEntry:IDispatch);safecall;
|
|
// CopyAccessList :
|
|
function CopyAccessList:IDispatch;safecall;
|
|
function Get__NewEnum : IUnknown; safecall;
|
|
// AclRevision :
|
|
property AclRevision:Integer read Get_AclRevision write Set_AclRevision;
|
|
// AceCount :
|
|
property AceCount:Integer read Get_AceCount write Set_AceCount;
|
|
// _NewEnum :
|
|
property _NewEnum:IUnknown read Get__NewEnum;
|
|
end;
|
|
|
|
|
|
// IADsAccessControlList :
|
|
|
|
IADsAccessControlListDisp = dispinterface
|
|
['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// AddAce :
|
|
procedure AddAce(pAccessControlEntry:IDispatch);dispid 5;
|
|
// RemoveAce :
|
|
procedure RemoveAce(pAccessControlEntry:IDispatch);dispid 6;
|
|
// CopyAccessList :
|
|
function CopyAccessList:IDispatch;dispid 7;
|
|
// AclRevision :
|
|
property AclRevision:Integer dispid 3;
|
|
// AceCount :
|
|
property AceCount:Integer dispid 4;
|
|
// _NewEnum :
|
|
property _NewEnum:IUnknown readonly dispid -4;
|
|
end;
|
|
|
|
|
|
// IADsSecurityDescriptor :
|
|
|
|
IADsSecurityDescriptor = interface(IDispatch)
|
|
['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
|
|
function Get_Revision : Integer; safecall;
|
|
procedure Set_Revision(const retval:Integer); safecall;
|
|
function Get_Control : Integer; safecall;
|
|
procedure Set_Control(const retval:Integer); safecall;
|
|
function Get_Owner : WideString; safecall;
|
|
procedure Set_Owner(const retval:WideString); safecall;
|
|
function Get_OwnerDefaulted : WordBool; safecall;
|
|
procedure Set_OwnerDefaulted(const retval:WordBool); safecall;
|
|
function Get_Group : WideString; safecall;
|
|
procedure Set_Group(const retval:WideString); safecall;
|
|
function Get_GroupDefaulted : WordBool; safecall;
|
|
procedure Set_GroupDefaulted(const retval:WordBool); safecall;
|
|
function Get_DiscretionaryAcl : IDispatch; safecall;
|
|
procedure Set_DiscretionaryAcl(const retval:IDispatch); safecall;
|
|
function Get_DaclDefaulted : WordBool; safecall;
|
|
procedure Set_DaclDefaulted(const retval:WordBool); safecall;
|
|
function Get_SystemAcl : IDispatch; safecall;
|
|
procedure Set_SystemAcl(const retval:IDispatch); safecall;
|
|
function Get_SaclDefaulted : WordBool; safecall;
|
|
procedure Set_SaclDefaulted(const retval:WordBool); safecall;
|
|
// CopySecurityDescriptor :
|
|
function CopySecurityDescriptor:IDispatch;safecall;
|
|
// Revision :
|
|
property Revision:Integer read Get_Revision write Set_Revision;
|
|
// Control :
|
|
property Control:Integer read Get_Control write Set_Control;
|
|
// Owner :
|
|
property Owner:WideString read Get_Owner write Set_Owner;
|
|
// OwnerDefaulted :
|
|
property OwnerDefaulted:WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
|
|
// Group :
|
|
property Group:WideString read Get_Group write Set_Group;
|
|
// GroupDefaulted :
|
|
property GroupDefaulted:WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
|
|
// DiscretionaryAcl :
|
|
property DiscretionaryAcl:IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
|
|
// DaclDefaulted :
|
|
property DaclDefaulted:WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
|
|
// SystemAcl :
|
|
property SystemAcl:IDispatch read Get_SystemAcl write Set_SystemAcl;
|
|
// SaclDefaulted :
|
|
property SaclDefaulted:WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
|
|
end;
|
|
|
|
|
|
// IADsSecurityDescriptor :
|
|
|
|
IADsSecurityDescriptorDisp = dispinterface
|
|
['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// CopySecurityDescriptor :
|
|
function CopySecurityDescriptor:IDispatch;dispid 12;
|
|
// Revision :
|
|
property Revision:Integer dispid 2;
|
|
// Control :
|
|
property Control:Integer dispid 3;
|
|
// Owner :
|
|
property Owner:WideString dispid 4;
|
|
// OwnerDefaulted :
|
|
property OwnerDefaulted:WordBool dispid 5;
|
|
// Group :
|
|
property Group:WideString dispid 6;
|
|
// GroupDefaulted :
|
|
property GroupDefaulted:WordBool dispid 7;
|
|
// DiscretionaryAcl :
|
|
property DiscretionaryAcl:IDispatch dispid 8;
|
|
// DaclDefaulted :
|
|
property DaclDefaulted:WordBool dispid 9;
|
|
// SystemAcl :
|
|
property SystemAcl:IDispatch dispid 10;
|
|
// SaclDefaulted :
|
|
property SaclDefaulted:WordBool dispid 11;
|
|
end;
|
|
|
|
|
|
// IADsLargeInteger :
|
|
|
|
IADsLargeInteger = interface(IDispatch)
|
|
['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
|
|
function Get_HighPart : Integer; safecall;
|
|
procedure Set_HighPart(const retval:Integer); safecall;
|
|
function Get_LowPart : Integer; safecall;
|
|
procedure Set_LowPart(const retval:Integer); safecall;
|
|
// HighPart :
|
|
property HighPart:Integer read Get_HighPart write Set_HighPart;
|
|
// LowPart :
|
|
property LowPart:Integer read Get_LowPart write Set_LowPart;
|
|
end;
|
|
|
|
|
|
// IADsLargeInteger :
|
|
|
|
IADsLargeIntegerDisp = dispinterface
|
|
['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// HighPart :
|
|
property HighPart:Integer dispid 2;
|
|
// LowPart :
|
|
property LowPart:Integer dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsNameTranslate :
|
|
|
|
IADsNameTranslate = interface(IDispatch)
|
|
['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
|
|
procedure Set_ChaseReferral(const Param1:Integer); safecall;
|
|
// Init :
|
|
procedure Init(lnSetType:Integer;bstrADsPath:WideString);safecall;
|
|
// InitEx :
|
|
procedure InitEx(lnSetType:Integer;bstrADsPath:WideString;bstrUserID:WideString;bstrDomain:WideString;bstrPassword:WideString);safecall;
|
|
// Set_ :
|
|
procedure Set_(lnSetType:Integer;bstrADsPath:WideString);safecall;
|
|
// Get :
|
|
function Get(lnFormatType:Integer):WideString;safecall;
|
|
// SetEx :
|
|
procedure SetEx(lnFormatType:Integer;pVar:OleVariant);safecall;
|
|
// GetEx :
|
|
function GetEx(lnFormatType:Integer):OleVariant;safecall;
|
|
// ChaseReferral :
|
|
property ChaseReferral:Integer write Set_ChaseReferral;
|
|
end;
|
|
|
|
|
|
// IADsNameTranslate :
|
|
|
|
IADsNameTranslateDisp = dispinterface
|
|
['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// Init :
|
|
procedure Init(lnSetType:Integer;bstrADsPath:WideString);dispid 2;
|
|
// InitEx :
|
|
procedure InitEx(lnSetType:Integer;bstrADsPath:WideString;bstrUserID:WideString;bstrDomain:WideString;bstrPassword:WideString);dispid 3;
|
|
// Set_ :
|
|
procedure Set_(lnSetType:Integer;bstrADsPath:WideString);dispid 4;
|
|
// Get :
|
|
function Get(lnFormatType:Integer):WideString;dispid 5;
|
|
// SetEx :
|
|
procedure SetEx(lnFormatType:Integer;pVar:OleVariant);dispid 6;
|
|
// GetEx :
|
|
function GetEx(lnFormatType:Integer):OleVariant;dispid 7;
|
|
// ChaseReferral :
|
|
property ChaseReferral:Integer writeonly dispid 1;
|
|
end;
|
|
|
|
|
|
// IADsCaseIgnoreList :
|
|
|
|
IADsCaseIgnoreList = interface(IDispatch)
|
|
['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
|
|
function Get_CaseIgnoreList : OleVariant; safecall;
|
|
procedure Set_CaseIgnoreList(const retval:OleVariant); safecall;
|
|
// CaseIgnoreList :
|
|
property CaseIgnoreList:OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
|
|
end;
|
|
|
|
|
|
// IADsCaseIgnoreList :
|
|
|
|
IADsCaseIgnoreListDisp = dispinterface
|
|
['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// CaseIgnoreList :
|
|
property CaseIgnoreList:OleVariant dispid 2;
|
|
end;
|
|
|
|
|
|
// IADsFaxNumber :
|
|
|
|
IADsFaxNumber = interface(IDispatch)
|
|
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
|
|
function Get_TelephoneNumber : WideString; safecall;
|
|
procedure Set_TelephoneNumber(const retval:WideString); safecall;
|
|
function Get_Parameters : OleVariant; safecall;
|
|
procedure Set_Parameters(const retval:OleVariant); safecall;
|
|
// TelephoneNumber :
|
|
property TelephoneNumber:WideString read Get_TelephoneNumber write Set_TelephoneNumber;
|
|
// Parameters :
|
|
property Parameters:OleVariant read Get_Parameters write Set_Parameters;
|
|
end;
|
|
|
|
|
|
// IADsFaxNumber :
|
|
|
|
IADsFaxNumberDisp = dispinterface
|
|
['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// TelephoneNumber :
|
|
property TelephoneNumber:WideString dispid 2;
|
|
// Parameters :
|
|
property Parameters:OleVariant dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsNetAddress :
|
|
|
|
IADsNetAddress = interface(IDispatch)
|
|
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
|
|
function Get_AddressType : Integer; safecall;
|
|
procedure Set_AddressType(const retval:Integer); safecall;
|
|
function Get_Address : OleVariant; safecall;
|
|
procedure Set_Address(const retval:OleVariant); safecall;
|
|
// AddressType :
|
|
property AddressType:Integer read Get_AddressType write Set_AddressType;
|
|
// Address :
|
|
property Address:OleVariant read Get_Address write Set_Address;
|
|
end;
|
|
|
|
|
|
// IADsNetAddress :
|
|
|
|
IADsNetAddressDisp = dispinterface
|
|
['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// AddressType :
|
|
property AddressType:Integer dispid 2;
|
|
// Address :
|
|
property Address:OleVariant dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsOctetList :
|
|
|
|
IADsOctetList = interface(IDispatch)
|
|
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
|
|
function Get_OctetList : OleVariant; safecall;
|
|
procedure Set_OctetList(const retval:OleVariant); safecall;
|
|
// OctetList :
|
|
property OctetList:OleVariant read Get_OctetList write Set_OctetList;
|
|
end;
|
|
|
|
|
|
// IADsOctetList :
|
|
|
|
IADsOctetListDisp = dispinterface
|
|
['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// OctetList :
|
|
property OctetList:OleVariant dispid 2;
|
|
end;
|
|
|
|
|
|
// IADsEmail :
|
|
|
|
IADsEmail = interface(IDispatch)
|
|
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
|
|
function Get_Type_ : Integer; safecall;
|
|
procedure Set_Type_(const retval:Integer); safecall;
|
|
function Get_Address : WideString; safecall;
|
|
procedure Set_Address(const retval:WideString); safecall;
|
|
// Type :
|
|
property Type_:Integer read Get_Type_ write Set_Type_;
|
|
// Address :
|
|
property Address:WideString read Get_Address write Set_Address;
|
|
end;
|
|
|
|
|
|
// IADsEmail :
|
|
|
|
IADsEmailDisp = dispinterface
|
|
['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// Type :
|
|
property Type_:Integer dispid 2;
|
|
// Address :
|
|
property Address:WideString dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsPath :
|
|
|
|
IADsPath = interface(IDispatch)
|
|
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
|
|
function Get_Type_ : Integer; safecall;
|
|
procedure Set_Type_(const retval:Integer); safecall;
|
|
function Get_VolumeName : WideString; safecall;
|
|
procedure Set_VolumeName(const retval:WideString); safecall;
|
|
function Get_Path : WideString; safecall;
|
|
procedure Set_Path(const retval:WideString); safecall;
|
|
// Type :
|
|
property Type_:Integer read Get_Type_ write Set_Type_;
|
|
// VolumeName :
|
|
property VolumeName:WideString read Get_VolumeName write Set_VolumeName;
|
|
// Path :
|
|
property Path:WideString read Get_Path write Set_Path;
|
|
end;
|
|
|
|
|
|
// IADsPath :
|
|
|
|
IADsPathDisp = dispinterface
|
|
['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// Type :
|
|
property Type_:Integer dispid 2;
|
|
// VolumeName :
|
|
property VolumeName:WideString dispid 3;
|
|
// Path :
|
|
property Path:WideString dispid 4;
|
|
end;
|
|
|
|
|
|
// IADsReplicaPointer :
|
|
|
|
IADsReplicaPointer = interface(IDispatch)
|
|
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
|
|
function Get_ServerName : WideString; safecall;
|
|
procedure Set_ServerName(const retval:WideString); safecall;
|
|
function Get_ReplicaType : Integer; safecall;
|
|
procedure Set_ReplicaType(const retval:Integer); safecall;
|
|
function Get_ReplicaNumber : Integer; safecall;
|
|
procedure Set_ReplicaNumber(const retval:Integer); safecall;
|
|
function Get_Count : Integer; safecall;
|
|
procedure Set_Count(const retval:Integer); safecall;
|
|
function Get_ReplicaAddressHints : OleVariant; safecall;
|
|
procedure Set_ReplicaAddressHints(const retval:OleVariant); safecall;
|
|
// ServerName :
|
|
property ServerName:WideString read Get_ServerName write Set_ServerName;
|
|
// ReplicaType :
|
|
property ReplicaType:Integer read Get_ReplicaType write Set_ReplicaType;
|
|
// ReplicaNumber :
|
|
property ReplicaNumber:Integer read Get_ReplicaNumber write Set_ReplicaNumber;
|
|
// Count :
|
|
property Count:Integer read Get_Count write Set_Count;
|
|
// ReplicaAddressHints :
|
|
property ReplicaAddressHints:OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
|
|
end;
|
|
|
|
|
|
// IADsReplicaPointer :
|
|
|
|
IADsReplicaPointerDisp = dispinterface
|
|
['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// ServerName :
|
|
property ServerName:WideString dispid 2;
|
|
// ReplicaType :
|
|
property ReplicaType:Integer dispid 3;
|
|
// ReplicaNumber :
|
|
property ReplicaNumber:Integer dispid 4;
|
|
// Count :
|
|
property Count:Integer dispid 5;
|
|
// ReplicaAddressHints :
|
|
property ReplicaAddressHints:OleVariant dispid 6;
|
|
end;
|
|
|
|
|
|
// IADsAcl :
|
|
|
|
IADsAcl = interface(IDispatch)
|
|
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
|
|
function Get_ProtectedAttrName : WideString; safecall;
|
|
procedure Set_ProtectedAttrName(const retval:WideString); safecall;
|
|
function Get_SubjectName : WideString; safecall;
|
|
procedure Set_SubjectName(const retval:WideString); safecall;
|
|
function Get_Privileges : Integer; safecall;
|
|
procedure Set_Privileges(const retval:Integer); safecall;
|
|
// CopyAcl :
|
|
function CopyAcl:IDispatch;safecall;
|
|
// ProtectedAttrName :
|
|
property ProtectedAttrName:WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
|
|
// SubjectName :
|
|
property SubjectName:WideString read Get_SubjectName write Set_SubjectName;
|
|
// Privileges :
|
|
property Privileges:Integer read Get_Privileges write Set_Privileges;
|
|
end;
|
|
|
|
|
|
// IADsAcl :
|
|
|
|
IADsAclDisp = dispinterface
|
|
['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// CopyAcl :
|
|
function CopyAcl:IDispatch;dispid 5;
|
|
// ProtectedAttrName :
|
|
property ProtectedAttrName:WideString dispid 2;
|
|
// SubjectName :
|
|
property SubjectName:WideString dispid 3;
|
|
// Privileges :
|
|
property Privileges:Integer dispid 4;
|
|
end;
|
|
|
|
|
|
// IADsTimestamp :
|
|
|
|
IADsTimestamp = interface(IDispatch)
|
|
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
|
|
function Get_WholeSeconds : Integer; safecall;
|
|
procedure Set_WholeSeconds(const retval:Integer); safecall;
|
|
function Get_EventID : Integer; safecall;
|
|
procedure Set_EventID(const retval:Integer); safecall;
|
|
// WholeSeconds :
|
|
property WholeSeconds:Integer read Get_WholeSeconds write Set_WholeSeconds;
|
|
// EventID :
|
|
property EventID:Integer read Get_EventID write Set_EventID;
|
|
end;
|
|
|
|
|
|
// IADsTimestamp :
|
|
|
|
IADsTimestampDisp = dispinterface
|
|
['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// WholeSeconds :
|
|
property WholeSeconds:Integer dispid 2;
|
|
// EventID :
|
|
property EventID:Integer dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsPostalAddress :
|
|
|
|
IADsPostalAddress = interface(IDispatch)
|
|
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
|
|
function Get_PostalAddress : OleVariant; safecall;
|
|
procedure Set_PostalAddress(const retval:OleVariant); safecall;
|
|
// PostalAddress :
|
|
property PostalAddress:OleVariant read Get_PostalAddress write Set_PostalAddress;
|
|
end;
|
|
|
|
|
|
// IADsPostalAddress :
|
|
|
|
IADsPostalAddressDisp = dispinterface
|
|
['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// PostalAddress :
|
|
property PostalAddress:OleVariant dispid 2;
|
|
end;
|
|
|
|
|
|
// IADsBackLink :
|
|
|
|
IADsBackLink = interface(IDispatch)
|
|
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
|
|
function Get_RemoteID : Integer; safecall;
|
|
procedure Set_RemoteID(const retval:Integer); safecall;
|
|
function Get_ObjectName : WideString; safecall;
|
|
procedure Set_ObjectName(const retval:WideString); safecall;
|
|
// RemoteID :
|
|
property RemoteID:Integer read Get_RemoteID write Set_RemoteID;
|
|
// ObjectName :
|
|
property ObjectName:WideString read Get_ObjectName write Set_ObjectName;
|
|
end;
|
|
|
|
|
|
// IADsBackLink :
|
|
|
|
IADsBackLinkDisp = dispinterface
|
|
['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// RemoteID :
|
|
property RemoteID:Integer dispid 2;
|
|
// ObjectName :
|
|
property ObjectName:WideString dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsTypedName :
|
|
|
|
IADsTypedName = interface(IDispatch)
|
|
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
|
|
function Get_ObjectName : WideString; safecall;
|
|
procedure Set_ObjectName(const retval:WideString); safecall;
|
|
function Get_Level : Integer; safecall;
|
|
procedure Set_Level(const retval:Integer); safecall;
|
|
function Get_Interval : Integer; safecall;
|
|
procedure Set_Interval(const retval:Integer); safecall;
|
|
// ObjectName :
|
|
property ObjectName:WideString read Get_ObjectName write Set_ObjectName;
|
|
// Level :
|
|
property Level:Integer read Get_Level write Set_Level;
|
|
// Interval :
|
|
property Interval:Integer read Get_Interval write Set_Interval;
|
|
end;
|
|
|
|
|
|
// IADsTypedName :
|
|
|
|
IADsTypedNameDisp = dispinterface
|
|
['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// ObjectName :
|
|
property ObjectName:WideString dispid 2;
|
|
// Level :
|
|
property Level:Integer dispid 3;
|
|
// Interval :
|
|
property Interval:Integer dispid 4;
|
|
end;
|
|
|
|
|
|
// IADsHold :
|
|
|
|
IADsHold = interface(IDispatch)
|
|
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
|
|
function Get_ObjectName : WideString; safecall;
|
|
procedure Set_ObjectName(const retval:WideString); safecall;
|
|
function Get_Amount : Integer; safecall;
|
|
procedure Set_Amount(const retval:Integer); safecall;
|
|
// ObjectName :
|
|
property ObjectName:WideString read Get_ObjectName write Set_ObjectName;
|
|
// Amount :
|
|
property Amount:Integer read Get_Amount write Set_Amount;
|
|
end;
|
|
|
|
|
|
// IADsHold :
|
|
|
|
IADsHoldDisp = dispinterface
|
|
['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// ObjectName :
|
|
property ObjectName:WideString dispid 2;
|
|
// Amount :
|
|
property Amount:Integer dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsObjectOptions :
|
|
|
|
IADsObjectOptions = interface(IDispatch)
|
|
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
|
|
// GetOption :
|
|
function GetOption(lnOption:Integer):OleVariant;safecall;
|
|
// SetOption :
|
|
procedure SetOption(lnOption:Integer;vValue:OleVariant);safecall;
|
|
end;
|
|
|
|
|
|
// IADsObjectOptions :
|
|
|
|
IADsObjectOptionsDisp = dispinterface
|
|
['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetOption :
|
|
function GetOption(lnOption:Integer):OleVariant;dispid 2;
|
|
// SetOption :
|
|
procedure SetOption(lnOption:Integer;vValue:OleVariant);dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsPathname :
|
|
|
|
IADsPathname = interface(IDispatch)
|
|
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
|
|
// Set_ :
|
|
procedure Set_(bstrADsPath:WideString;lnSetType:Integer);safecall;
|
|
// SetDisplayType :
|
|
procedure SetDisplayType(lnDisplayType:Integer);safecall;
|
|
// Retrieve :
|
|
function Retrieve(lnFormatType:Integer):WideString;safecall;
|
|
// GetNumElements :
|
|
function GetNumElements:Integer;safecall;
|
|
// GetElement :
|
|
function GetElement(lnElementIndex:Integer):WideString;safecall;
|
|
// AddLeafElement :
|
|
procedure AddLeafElement(bstrLeafElement:WideString);safecall;
|
|
// RemoveLeafElement :
|
|
procedure RemoveLeafElement;safecall;
|
|
// CopyPath :
|
|
function CopyPath:IDispatch;safecall;
|
|
// GetEscapedElement :
|
|
function GetEscapedElement(lnReserved:Integer;bstrInStr:WideString):WideString;safecall;
|
|
function Get_EscapedMode : Integer; safecall;
|
|
procedure Set_EscapedMode(const retval:Integer); safecall;
|
|
// EscapedMode :
|
|
property EscapedMode:Integer read Get_EscapedMode write Set_EscapedMode;
|
|
end;
|
|
|
|
|
|
// IADsPathname :
|
|
|
|
IADsPathnameDisp = dispinterface
|
|
['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// Set_ :
|
|
procedure Set_(bstrADsPath:WideString;lnSetType:Integer);dispid 2;
|
|
// SetDisplayType :
|
|
procedure SetDisplayType(lnDisplayType:Integer);dispid 3;
|
|
// Retrieve :
|
|
function Retrieve(lnFormatType:Integer):WideString;dispid 4;
|
|
// GetNumElements :
|
|
function GetNumElements:Integer;dispid 5;
|
|
// GetElement :
|
|
function GetElement(lnElementIndex:Integer):WideString;dispid 6;
|
|
// AddLeafElement :
|
|
procedure AddLeafElement(bstrLeafElement:WideString);dispid 7;
|
|
// RemoveLeafElement :
|
|
procedure RemoveLeafElement;dispid 8;
|
|
// CopyPath :
|
|
function CopyPath:IDispatch;dispid 9;
|
|
// GetEscapedElement :
|
|
function GetEscapedElement(lnReserved:Integer;bstrInStr:WideString):WideString;dispid 10;
|
|
// EscapedMode :
|
|
property EscapedMode:Integer dispid 11;
|
|
end;
|
|
|
|
|
|
// IADsADSystemInfo :
|
|
|
|
IADsADSystemInfo = interface(IDispatch)
|
|
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
|
|
function Get_UserName : WideString; safecall;
|
|
function Get_ComputerName : WideString; safecall;
|
|
function Get_SiteName : WideString; safecall;
|
|
function Get_DomainShortName : WideString; safecall;
|
|
function Get_DomainDNSName : WideString; safecall;
|
|
function Get_ForestDNSName : WideString; safecall;
|
|
function Get_PDCRoleOwner : WideString; safecall;
|
|
function Get_SchemaRoleOwner : WideString; safecall;
|
|
function Get_IsNativeMode : WordBool; safecall;
|
|
// GetAnyDCName :
|
|
function GetAnyDCName:WideString;safecall;
|
|
// GetDCSiteName :
|
|
function GetDCSiteName(szServer:WideString):WideString;safecall;
|
|
// RefreshSchemaCache :
|
|
procedure RefreshSchemaCache;safecall;
|
|
// GetTrees :
|
|
function GetTrees:OleVariant;safecall;
|
|
// UserName :
|
|
property UserName:WideString read Get_UserName;
|
|
// ComputerName :
|
|
property ComputerName:WideString read Get_ComputerName;
|
|
// SiteName :
|
|
property SiteName:WideString read Get_SiteName;
|
|
// DomainShortName :
|
|
property DomainShortName:WideString read Get_DomainShortName;
|
|
// DomainDNSName :
|
|
property DomainDNSName:WideString read Get_DomainDNSName;
|
|
// ForestDNSName :
|
|
property ForestDNSName:WideString read Get_ForestDNSName;
|
|
// PDCRoleOwner :
|
|
property PDCRoleOwner:WideString read Get_PDCRoleOwner;
|
|
// SchemaRoleOwner :
|
|
property SchemaRoleOwner:WideString read Get_SchemaRoleOwner;
|
|
// IsNativeMode :
|
|
property IsNativeMode:WordBool read Get_IsNativeMode;
|
|
end;
|
|
|
|
|
|
// IADsADSystemInfo :
|
|
|
|
IADsADSystemInfoDisp = dispinterface
|
|
['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetAnyDCName :
|
|
function GetAnyDCName:WideString;dispid 11;
|
|
// GetDCSiteName :
|
|
function GetDCSiteName(szServer:WideString):WideString;dispid 12;
|
|
// RefreshSchemaCache :
|
|
procedure RefreshSchemaCache;dispid 13;
|
|
// GetTrees :
|
|
function GetTrees:OleVariant;dispid 14;
|
|
// UserName :
|
|
property UserName:WideString readonly dispid 2;
|
|
// ComputerName :
|
|
property ComputerName:WideString readonly dispid 3;
|
|
// SiteName :
|
|
property SiteName:WideString readonly dispid 4;
|
|
// DomainShortName :
|
|
property DomainShortName:WideString readonly dispid 5;
|
|
// DomainDNSName :
|
|
property DomainDNSName:WideString readonly dispid 6;
|
|
// ForestDNSName :
|
|
property ForestDNSName:WideString readonly dispid 7;
|
|
// PDCRoleOwner :
|
|
property PDCRoleOwner:WideString readonly dispid 8;
|
|
// SchemaRoleOwner :
|
|
property SchemaRoleOwner:WideString readonly dispid 9;
|
|
// IsNativeMode :
|
|
property IsNativeMode:WordBool readonly dispid 10;
|
|
end;
|
|
|
|
|
|
// IADsWinNTSystemInfo :
|
|
|
|
IADsWinNTSystemInfo = interface(IDispatch)
|
|
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
|
|
function Get_UserName : WideString; safecall;
|
|
function Get_ComputerName : WideString; safecall;
|
|
function Get_DomainName : WideString; safecall;
|
|
function Get_PDC : WideString; safecall;
|
|
// UserName :
|
|
property UserName:WideString read Get_UserName;
|
|
// ComputerName :
|
|
property ComputerName:WideString read Get_ComputerName;
|
|
// DomainName :
|
|
property DomainName:WideString read Get_DomainName;
|
|
// PDC :
|
|
property PDC:WideString read Get_PDC;
|
|
end;
|
|
|
|
|
|
// IADsWinNTSystemInfo :
|
|
|
|
IADsWinNTSystemInfoDisp = dispinterface
|
|
['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// UserName :
|
|
property UserName:WideString readonly dispid 2;
|
|
// ComputerName :
|
|
property ComputerName:WideString readonly dispid 3;
|
|
// DomainName :
|
|
property DomainName:WideString readonly dispid 4;
|
|
// PDC :
|
|
property PDC:WideString readonly dispid 5;
|
|
end;
|
|
|
|
|
|
// IADsDNWithBinary :
|
|
|
|
IADsDNWithBinary = interface(IDispatch)
|
|
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
|
|
function Get_BinaryValue : OleVariant; safecall;
|
|
procedure Set_BinaryValue(const retval:OleVariant); safecall;
|
|
function Get_DNString : WideString; safecall;
|
|
procedure Set_DNString(const retval:WideString); safecall;
|
|
// BinaryValue :
|
|
property BinaryValue:OleVariant read Get_BinaryValue write Set_BinaryValue;
|
|
// DNString :
|
|
property DNString:WideString read Get_DNString write Set_DNString;
|
|
end;
|
|
|
|
|
|
// IADsDNWithBinary :
|
|
|
|
IADsDNWithBinaryDisp = dispinterface
|
|
['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// BinaryValue :
|
|
property BinaryValue:OleVariant dispid 2;
|
|
// DNString :
|
|
property DNString:WideString dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsDNWithString :
|
|
|
|
IADsDNWithString = interface(IDispatch)
|
|
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
|
|
function Get_StringValue : WideString; safecall;
|
|
procedure Set_StringValue(const retval:WideString); safecall;
|
|
function Get_DNString : WideString; safecall;
|
|
procedure Set_DNString(const retval:WideString); safecall;
|
|
// StringValue :
|
|
property StringValue:WideString read Get_StringValue write Set_StringValue;
|
|
// DNString :
|
|
property DNString:WideString read Get_DNString write Set_DNString;
|
|
end;
|
|
|
|
|
|
// IADsDNWithString :
|
|
|
|
IADsDNWithStringDisp = dispinterface
|
|
['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// StringValue :
|
|
property StringValue:WideString dispid 2;
|
|
// DNString :
|
|
property DNString:WideString dispid 3;
|
|
end;
|
|
|
|
|
|
// IADsSecurityUtility :
|
|
|
|
IADsSecurityUtility = interface(IDispatch)
|
|
['{A63251B2-5F21-474B-AB52-4A8EFAD10895}']
|
|
// GetSecurityDescriptor :
|
|
function GetSecurityDescriptor(varPath:OleVariant;lPathFormat:Integer;lFormat:Integer):OleVariant;safecall;
|
|
// SetSecurityDescriptor :
|
|
procedure SetSecurityDescriptor(varPath:OleVariant;lPathFormat:Integer;varData:OleVariant;lDataFormat:Integer);safecall;
|
|
// ConvertSecurityDescriptor :
|
|
function ConvertSecurityDescriptor(varSD:OleVariant;lDataFormat:Integer;lOutFormat:Integer):OleVariant;safecall;
|
|
function Get_SecurityMask : Integer; safecall;
|
|
procedure Set_SecurityMask(const retval:Integer); safecall;
|
|
// SecurityMask :
|
|
property SecurityMask:Integer read Get_SecurityMask write Set_SecurityMask;
|
|
end;
|
|
|
|
|
|
// IADsSecurityUtility :
|
|
|
|
IADsSecurityUtilityDisp = dispinterface
|
|
['{A63251B2-5F21-474B-AB52-4A8EFAD10895}']
|
|
// QueryInterface :
|
|
procedure QueryInterface(var riid:{!! GUID !!} OleVariant;out ppvObj:{!! Ppointer !!} OleVariant);dispid 1610612736;
|
|
// AddRef :
|
|
function AddRef:LongWord;dispid 1610612737;
|
|
// Release :
|
|
function Release:LongWord;dispid 1610612738;
|
|
// GetTypeInfoCount :
|
|
procedure GetTypeInfoCount(out pctinfo:UInt);dispid 1610678272;
|
|
// GetTypeInfo :
|
|
procedure GetTypeInfo(itinfo:UInt;lcid:LongWord;out pptinfo:{!! Ppointer !!} OleVariant);dispid 1610678273;
|
|
// GetIDsOfNames :
|
|
procedure GetIDsOfNames(var riid:{!! GUID !!} OleVariant;var rgszNames:{!! PShortInt !!} OleVariant;cNames:UInt;lcid:LongWord;out rgdispid:Integer);dispid 1610678274;
|
|
// Invoke :
|
|
procedure Invoke(dispidMember:Integer;var riid:{!! GUID !!} OleVariant;lcid:LongWord;wFlags:Word;var pdispparams:{!! DISPPARAMS !!} OleVariant;out pvarResult:OleVariant;out pexcepinfo:{!! EXCEPINFO !!} OleVariant;out puArgErr:UInt);dispid 1610678275;
|
|
// GetSecurityDescriptor :
|
|
function GetSecurityDescriptor(varPath:OleVariant;lPathFormat:Integer;lFormat:Integer):OleVariant;dispid 2;
|
|
// SetSecurityDescriptor :
|
|
procedure SetSecurityDescriptor(varPath:OleVariant;lPathFormat:Integer;varData:OleVariant;lDataFormat:Integer);dispid 3;
|
|
// ConvertSecurityDescriptor :
|
|
function ConvertSecurityDescriptor(varSD:OleVariant;lDataFormat:Integer;lOutFormat:Integer):OleVariant;dispid 4;
|
|
// SecurityMask :
|
|
property SecurityMask:Integer dispid 5;
|
|
end;
|
|
|
|
//CoClasses
|
|
CoPropertyEntry = Class
|
|
Public
|
|
Class Function Create: IADsPropertyEntry;
|
|
Class Function CreateRemote(const MachineName: string): IADsPropertyEntry;
|
|
end;
|
|
|
|
CoPropertyValue = Class
|
|
Public
|
|
Class Function Create: IADsPropertyValue;
|
|
Class Function CreateRemote(const MachineName: string): IADsPropertyValue;
|
|
end;
|
|
|
|
CoAccessControlEntry = Class
|
|
Public
|
|
Class Function Create: IADsAccessControlEntry;
|
|
Class Function CreateRemote(const MachineName: string): IADsAccessControlEntry;
|
|
end;
|
|
|
|
CoAccessControlList = Class
|
|
Public
|
|
Class Function Create: IADsAccessControlList;
|
|
Class Function CreateRemote(const MachineName: string): IADsAccessControlList;
|
|
end;
|
|
|
|
CoSecurityDescriptor = Class
|
|
Public
|
|
Class Function Create: IADsSecurityDescriptor;
|
|
Class Function CreateRemote(const MachineName: string): IADsSecurityDescriptor;
|
|
end;
|
|
|
|
CoLargeInteger = Class
|
|
Public
|
|
Class Function Create: IADsLargeInteger;
|
|
Class Function CreateRemote(const MachineName: string): IADsLargeInteger;
|
|
end;
|
|
|
|
CoNameTranslate = Class
|
|
Public
|
|
Class Function Create: IADsNameTranslate;
|
|
Class Function CreateRemote(const MachineName: string): IADsNameTranslate;
|
|
end;
|
|
|
|
CoCaseIgnoreList = Class
|
|
Public
|
|
Class Function Create: IADsCaseIgnoreList;
|
|
Class Function CreateRemote(const MachineName: string): IADsCaseIgnoreList;
|
|
end;
|
|
|
|
CoFaxNumber = Class
|
|
Public
|
|
Class Function Create: IADsFaxNumber;
|
|
Class Function CreateRemote(const MachineName: string): IADsFaxNumber;
|
|
end;
|
|
|
|
CoNetAddress = Class
|
|
Public
|
|
Class Function Create: IADsNetAddress;
|
|
Class Function CreateRemote(const MachineName: string): IADsNetAddress;
|
|
end;
|
|
|
|
CoOctetList = Class
|
|
Public
|
|
Class Function Create: IADsOctetList;
|
|
Class Function CreateRemote(const MachineName: string): IADsOctetList;
|
|
end;
|
|
|
|
CoEmail = Class
|
|
Public
|
|
Class Function Create: IADsEmail;
|
|
Class Function CreateRemote(const MachineName: string): IADsEmail;
|
|
end;
|
|
|
|
CoPath = Class
|
|
Public
|
|
Class Function Create: IADsPath;
|
|
Class Function CreateRemote(const MachineName: string): IADsPath;
|
|
end;
|
|
|
|
CoReplicaPointer = Class
|
|
Public
|
|
Class Function Create: IADsReplicaPointer;
|
|
Class Function CreateRemote(const MachineName: string): IADsReplicaPointer;
|
|
end;
|
|
|
|
CoTimestamp = Class
|
|
Public
|
|
Class Function Create: IADsTimestamp;
|
|
Class Function CreateRemote(const MachineName: string): IADsTimestamp;
|
|
end;
|
|
|
|
CoPostalAddress = Class
|
|
Public
|
|
Class Function Create: IADsPostalAddress;
|
|
Class Function CreateRemote(const MachineName: string): IADsPostalAddress;
|
|
end;
|
|
|
|
CoBackLink = Class
|
|
Public
|
|
Class Function Create: IADsBackLink;
|
|
Class Function CreateRemote(const MachineName: string): IADsBackLink;
|
|
end;
|
|
|
|
CoTypedName = Class
|
|
Public
|
|
Class Function Create: IADsTypedName;
|
|
Class Function CreateRemote(const MachineName: string): IADsTypedName;
|
|
end;
|
|
|
|
CoHold = Class
|
|
Public
|
|
Class Function Create: IADsHold;
|
|
Class Function CreateRemote(const MachineName: string): IADsHold;
|
|
end;
|
|
|
|
CoPathname = Class
|
|
Public
|
|
Class Function Create: IADsPathname;
|
|
Class Function CreateRemote(const MachineName: string): IADsPathname;
|
|
end;
|
|
|
|
CoADSystemInfo = Class
|
|
Public
|
|
Class Function Create: IADsADSystemInfo;
|
|
Class Function CreateRemote(const MachineName: string): IADsADSystemInfo;
|
|
end;
|
|
|
|
CoWinNTSystemInfo = Class
|
|
Public
|
|
Class Function Create: IADsWinNTSystemInfo;
|
|
Class Function CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
|
|
end;
|
|
|
|
CoDNWithBinary = Class
|
|
Public
|
|
Class Function Create: IADsDNWithBinary;
|
|
Class Function CreateRemote(const MachineName: string): IADsDNWithBinary;
|
|
end;
|
|
|
|
CoDNWithString = Class
|
|
Public
|
|
Class Function Create: IADsDNWithString;
|
|
Class Function CreateRemote(const MachineName: string): IADsDNWithString;
|
|
end;
|
|
|
|
CoADsSecurityUtility = Class
|
|
Public
|
|
Class Function Create: IADsSecurityUtility;
|
|
Class Function CreateRemote(const MachineName: string): IADsSecurityUtility;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses comobj;
|
|
|
|
Class Function CoPropertyEntry.Create: IADsPropertyEntry;
|
|
begin
|
|
Result := CreateComObject(CLASS_PropertyEntry) as IADsPropertyEntry;
|
|
end;
|
|
|
|
Class Function CoPropertyEntry.CreateRemote(const MachineName: string): IADsPropertyEntry;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_PropertyEntry) as IADsPropertyEntry;
|
|
end;
|
|
|
|
Class Function CoPropertyValue.Create: IADsPropertyValue;
|
|
begin
|
|
Result := CreateComObject(CLASS_PropertyValue) as IADsPropertyValue;
|
|
end;
|
|
|
|
Class Function CoPropertyValue.CreateRemote(const MachineName: string): IADsPropertyValue;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_PropertyValue) as IADsPropertyValue;
|
|
end;
|
|
|
|
Class Function CoAccessControlEntry.Create: IADsAccessControlEntry;
|
|
begin
|
|
Result := CreateComObject(CLASS_AccessControlEntry) as IADsAccessControlEntry;
|
|
end;
|
|
|
|
Class Function CoAccessControlEntry.CreateRemote(const MachineName: string): IADsAccessControlEntry;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_AccessControlEntry) as IADsAccessControlEntry;
|
|
end;
|
|
|
|
Class Function CoAccessControlList.Create: IADsAccessControlList;
|
|
begin
|
|
Result := CreateComObject(CLASS_AccessControlList) as IADsAccessControlList;
|
|
end;
|
|
|
|
Class Function CoAccessControlList.CreateRemote(const MachineName: string): IADsAccessControlList;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_AccessControlList) as IADsAccessControlList;
|
|
end;
|
|
|
|
Class Function CoSecurityDescriptor.Create: IADsSecurityDescriptor;
|
|
begin
|
|
Result := CreateComObject(CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
|
|
end;
|
|
|
|
Class Function CoSecurityDescriptor.CreateRemote(const MachineName: string): IADsSecurityDescriptor;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
|
|
end;
|
|
|
|
Class Function CoLargeInteger.Create: IADsLargeInteger;
|
|
begin
|
|
Result := CreateComObject(CLASS_LargeInteger) as IADsLargeInteger;
|
|
end;
|
|
|
|
Class Function CoLargeInteger.CreateRemote(const MachineName: string): IADsLargeInteger;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_LargeInteger) as IADsLargeInteger;
|
|
end;
|
|
|
|
Class Function CoNameTranslate.Create: IADsNameTranslate;
|
|
begin
|
|
Result := CreateComObject(CLASS_NameTranslate) as IADsNameTranslate;
|
|
end;
|
|
|
|
Class Function CoNameTranslate.CreateRemote(const MachineName: string): IADsNameTranslate;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_NameTranslate) as IADsNameTranslate;
|
|
end;
|
|
|
|
Class Function CoCaseIgnoreList.Create: IADsCaseIgnoreList;
|
|
begin
|
|
Result := CreateComObject(CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
|
|
end;
|
|
|
|
Class Function CoCaseIgnoreList.CreateRemote(const MachineName: string): IADsCaseIgnoreList;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
|
|
end;
|
|
|
|
Class Function CoFaxNumber.Create: IADsFaxNumber;
|
|
begin
|
|
Result := CreateComObject(CLASS_FaxNumber) as IADsFaxNumber;
|
|
end;
|
|
|
|
Class Function CoFaxNumber.CreateRemote(const MachineName: string): IADsFaxNumber;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_FaxNumber) as IADsFaxNumber;
|
|
end;
|
|
|
|
Class Function CoNetAddress.Create: IADsNetAddress;
|
|
begin
|
|
Result := CreateComObject(CLASS_NetAddress) as IADsNetAddress;
|
|
end;
|
|
|
|
Class Function CoNetAddress.CreateRemote(const MachineName: string): IADsNetAddress;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_NetAddress) as IADsNetAddress;
|
|
end;
|
|
|
|
Class Function CoOctetList.Create: IADsOctetList;
|
|
begin
|
|
Result := CreateComObject(CLASS_OctetList) as IADsOctetList;
|
|
end;
|
|
|
|
Class Function CoOctetList.CreateRemote(const MachineName: string): IADsOctetList;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_OctetList) as IADsOctetList;
|
|
end;
|
|
|
|
Class Function CoEmail.Create: IADsEmail;
|
|
begin
|
|
Result := CreateComObject(CLASS_Email) as IADsEmail;
|
|
end;
|
|
|
|
Class Function CoEmail.CreateRemote(const MachineName: string): IADsEmail;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_Email) as IADsEmail;
|
|
end;
|
|
|
|
Class Function CoPath.Create: IADsPath;
|
|
begin
|
|
Result := CreateComObject(CLASS_Path) as IADsPath;
|
|
end;
|
|
|
|
Class Function CoPath.CreateRemote(const MachineName: string): IADsPath;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_Path) as IADsPath;
|
|
end;
|
|
|
|
Class Function CoReplicaPointer.Create: IADsReplicaPointer;
|
|
begin
|
|
Result := CreateComObject(CLASS_ReplicaPointer) as IADsReplicaPointer;
|
|
end;
|
|
|
|
Class Function CoReplicaPointer.CreateRemote(const MachineName: string): IADsReplicaPointer;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_ReplicaPointer) as IADsReplicaPointer;
|
|
end;
|
|
|
|
Class Function CoTimestamp.Create: IADsTimestamp;
|
|
begin
|
|
Result := CreateComObject(CLASS_Timestamp) as IADsTimestamp;
|
|
end;
|
|
|
|
Class Function CoTimestamp.CreateRemote(const MachineName: string): IADsTimestamp;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_Timestamp) as IADsTimestamp;
|
|
end;
|
|
|
|
Class Function CoPostalAddress.Create: IADsPostalAddress;
|
|
begin
|
|
Result := CreateComObject(CLASS_PostalAddress) as IADsPostalAddress;
|
|
end;
|
|
|
|
Class Function CoPostalAddress.CreateRemote(const MachineName: string): IADsPostalAddress;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_PostalAddress) as IADsPostalAddress;
|
|
end;
|
|
|
|
Class Function CoBackLink.Create: IADsBackLink;
|
|
begin
|
|
Result := CreateComObject(CLASS_BackLink) as IADsBackLink;
|
|
end;
|
|
|
|
Class Function CoBackLink.CreateRemote(const MachineName: string): IADsBackLink;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_BackLink) as IADsBackLink;
|
|
end;
|
|
|
|
Class Function CoTypedName.Create: IADsTypedName;
|
|
begin
|
|
Result := CreateComObject(CLASS_TypedName) as IADsTypedName;
|
|
end;
|
|
|
|
Class Function CoTypedName.CreateRemote(const MachineName: string): IADsTypedName;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_TypedName) as IADsTypedName;
|
|
end;
|
|
|
|
Class Function CoHold.Create: IADsHold;
|
|
begin
|
|
Result := CreateComObject(CLASS_Hold) as IADsHold;
|
|
end;
|
|
|
|
Class Function CoHold.CreateRemote(const MachineName: string): IADsHold;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_Hold) as IADsHold;
|
|
end;
|
|
|
|
Class Function CoPathname.Create: IADsPathname;
|
|
begin
|
|
Result := CreateComObject(CLASS_Pathname) as IADsPathname;
|
|
end;
|
|
|
|
Class Function CoPathname.CreateRemote(const MachineName: string): IADsPathname;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_Pathname) as IADsPathname;
|
|
end;
|
|
|
|
Class Function CoADSystemInfo.Create: IADsADSystemInfo;
|
|
begin
|
|
Result := CreateComObject(CLASS_ADSystemInfo) as IADsADSystemInfo;
|
|
end;
|
|
|
|
Class Function CoADSystemInfo.CreateRemote(const MachineName: string): IADsADSystemInfo;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_ADSystemInfo) as IADsADSystemInfo;
|
|
end;
|
|
|
|
Class Function CoWinNTSystemInfo.Create: IADsWinNTSystemInfo;
|
|
begin
|
|
Result := CreateComObject(CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
|
|
end;
|
|
|
|
Class Function CoWinNTSystemInfo.CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
|
|
end;
|
|
|
|
Class Function CoDNWithBinary.Create: IADsDNWithBinary;
|
|
begin
|
|
Result := CreateComObject(CLASS_DNWithBinary) as IADsDNWithBinary;
|
|
end;
|
|
|
|
Class Function CoDNWithBinary.CreateRemote(const MachineName: string): IADsDNWithBinary;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_DNWithBinary) as IADsDNWithBinary;
|
|
end;
|
|
|
|
Class Function CoDNWithString.Create: IADsDNWithString;
|
|
begin
|
|
Result := CreateComObject(CLASS_DNWithString) as IADsDNWithString;
|
|
end;
|
|
|
|
Class Function CoDNWithString.CreateRemote(const MachineName: string): IADsDNWithString;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_DNWithString) as IADsDNWithString;
|
|
end;
|
|
|
|
Class Function CoADsSecurityUtility.Create: IADsSecurityUtility;
|
|
begin
|
|
Result := CreateComObject(CLASS_ADsSecurityUtility) as IADsSecurityUtility;
|
|
end;
|
|
|
|
Class Function CoADsSecurityUtility.CreateRemote(const MachineName: string): IADsSecurityUtility;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName,CLASS_ADsSecurityUtility) as IADsSecurityUtility;
|
|
end;
|
|
|
|
end.
|