Ошибка при создании пользователя в домене.

[KOL]

Код: Выделить всё

Private Sub CreateUser(oCont)
   
    Dim oUser As Object

    Set oUser = oContainer.Create("User", "CN=" & sFullName)

    oUser.Put "samAccountName", sLogin
    oUser.Put "givenName", sFirstName
    oUser.Put "sn", sLastName
    oUser.Put "userPrincipalName", sLogin & sEmail
    ...


При назначении параметров (oUser.Put) получаю ошибку:
"Run-time error '-2147467259 (80004005)':
Automation error"

Почему?

[KOL]

Вдогонку: объект oContainer создавался так:

Код: Выделить всё

Dim oContainer As Object
Set oContainer = GetObject("LDAP://10.60.0.10/OU=NewUsers,DC=my,DC=serw,DC=ru")


При компиляции ошибок нет, ldap-путь указан верно.

[KOL]

Мало того. Для чистоты эксперимента была подключена "Active DS Type Library" и взят готовый пример из Microsoft Active Directory SDK:

Код: Выделить всё

Private Sub Command1_Click()

    Dim strDisplayname As String
    Dim strAlias As String
    Dim strTelephone As String
    Dim objCont As IADsContainer
    Dim objNewCR As IADs
   
    strDisplayname = "James Smith"
    strAlias = "jsmith"
    strTelephone = "867-5309"
   
    Set objCont = GetObject("LDAP://Server/cn=Recipients,ou=Site,o=Org")
    Set objNewCR = objCont.Create("Remote-Address", CStr("cn=" & strAlias))
    objNewCR.Put "cn", CStr(strDisplayname)
    objNewCR.Put "uid", CStr(strAlias)
    objNewCR.Put "telephoneNumber", CStr(strTelephone)
    objNewCR.Put "Target-Address", "SMTP:jsmith@microsoft.com"
    objNewCR.SetInfo

End Sub

На последней строчке получаю ошибку:
"Run-time error '-2147016694 (8007200a)':
Automation error"

Что не так?

[tyomitch]

За неиспользование кнопки "правка" будет предупреждение.

[Konst_One]

видимо в твоем AD нет таких параметров (telephoneNumber,Target-Address и тп), добавь их через администратора AD, а уже потом можешь конкретному юзеру эти параметры назначать.

[KOL]

Konst_One
Действительно, именно так и было. Спасибо.
Ещё вопрос. Пользователя создаём посредством ADSI. Мейлбокс же для него создается с помощью CDOEXM:

Код: Выделить всё

   oMailbox.CreateMailbox "LDAP://10.60.0.10/CN=Mailbox Store,CN=First Storage Group,CN=InformationStore,CN=Servers,CN=Administrative Groups,CN=SERW,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=serw,DC=ru" & _
   oUser.SetInfo


(Так работает в vbs-сценарии, по которому пишется программа)
При компиляции, в строке oUser.SetInfo получаю ошибку:
"Compile error:
Expected Function or variable"
Понятно, что на локальной машине нет поддержки CDOEXM. Но хотелось бы скомпилировать экзешник, после чего запустить его на сервере с Exchange, где сия поддержка имеется.
Можно ли скомпилировать исполняемый файл в данном случае? Если да, то как.

[alibek]

Используй позднее связывание.
Т.е. все объектные переменные объявляй как Object.
Так же проверь, что не используются константы, объявленные во внешней библиотеке.

[KOL]

alibek
Если я объявляю все объектные переменные как Object, то получаю ошибку, указанную в самом первом посте этой темы.

[Konst_One]

значит, придется компилить на сервере