如何扩展ADSI的属性

[kyc]

我现在要扩展类user 的一个属性; 假设为：extendionID，请给各位高手任何用程序实现。谢谢！

[foobarren]

小柯，试试这个

Sub AddProgerty
DefineProperty "SchemaPath","user","extendionID","string", False, , True
end Sub

Function DefineProperty( _
ByVal AppSchemaFld As String, _
ByVal Namespace As String, _
ByVal PropertyName As String, _
Optional DataType As String = "string", _
Optional IsMultiValued As Boolean = False, _
Optional Default As String = "", _
Optional IsIndexed As Boolean = False)

' This function creates a property definition
' in an application schema folder. The default
' is to create a single-valued, string property
' that has no default value and is not indexed.

' If you are using VBScript, use this With:
' With CreateObject("ADODB.Record")
With New ADODB.Record
' Create the new property record
.Open AppSchemaFld & Replace(Namespace, ":", "-") & PropertyName _
, _
, adModeReadWrite _
, adCreateNonCollection + adCreateOverwrite
' Define the property
.Fields _
("DAV:contentclass") _
= "urn:content-classes:propertydef"
.Fields _
("urn:schemas-microsoft-com:xml-data#name") _
= Namespace & PropertyName
.Fields _
("urn:schemas-microsoft-com:datatypes#type") _
= DataType
.Fields _
("urn:schemas-microsoft-com:exch-data:ismultivalued") _
= IsMultiValued
.Fields _
("urn:schemas-microsoft-com:exch-data:defaultvalue") _
= Default
.Fields _
("urn:schemas-microsoft-com:exch-data:isindexed") _
= IsIndexed
' Save the changes
.Fields.Update
.Close
End With
End Function

[徐春华]

可以参考ADSI2.5SDK中的schema 扩展部分，一般来说对ADSI中的Schema的扩展是较为困难的，只有VC的接口。
另一办法是ADSI对象中有一些保留的扩展，如extensionName等，是可由用户自由支配的。