ad目录中添加用户属性

Sub ADSICreateMailBoxRecipient(MDBName As String, _
StorageGroup As String, _
Server As String, _
AdminGroup As String, _
Organization As String, _
DomainName As String, _
emailname As String, _
FirstName As String, _
LastName As String)
'MDBName is something like "MyMDB6"
'DomainName is something like "DC=MYDOMAIN3,DC=microsoft,DC=com"
'emailname is something like "jamessmith"
'this assumes the MDB to be a mailbox store.

Dim objUser As IADsUser
Dim objContainer As IADsContainer
Dim objMailbox As CDOEXM.IMailboxStore
Dim recipname As String, recip As String
recip = "CN=" & emailname
' get the container
Set objContainer = GetObject("LDAP://CN=users," + DomainName)
' create a recipient
Set objUser = objContainer.Create("User", recip)
objUser.Put "samAccountName", emailname
objUser.Put "sn", LastName
objUser.Put "givenName", FirstName
objUser.Put "userPrincipalName", emailname
====
dim sSlary
objUser.Put "extensionattribute1",sSlary
objUser.SetInfo
objUser.SetPassword "password" 'let user change it later
objUser.AccountDisabled = False
Set objMailbox = objUser
'Create a mailbox for the recipient
'You cannot create a mailbox using ADSI, so use CDOEXM
objMailbox.CreateMailbox "LDAP://CN=" + MDBName + _
",CN=" + StorageGroup + _
",CN=InformationStore" + _
",CN=" + Server + _
",CN=Servers" + _
",CN=" + AdminGroup + _
",CN=Administrative Groups" + _
",CN=" + Organization + _
",CN=Microsoft Exchange,CN=Services" + _
",CN=Configuration," + DomainName
objUser.SetInfo
End Sub