| Вопрос: Добавить Юзера в Подразделение ... | Добавлено: 27.06.04 02:41 |
Автор вопроса:  Eddie
|
|
Всем у кого есть или Кто Юзал Y2K server(Вообщем нужен обязательно Active Directory):
Вот код создания нового подразделения: Dim Root As IADs Dim Container As IADsContainer Dim OrgUnit As IADsOU Dim Domain As String Set Container = GetObject("LDAP://DomainName/Name_Division") Set OrgUnit = Container.Create("OrganizationalUnit", "OU=Test") OrgUnit.Description = Description OrgUnit.SetInfo Здесь происходит создание подразделения TEST в Существующем подразделении : Name_Division , также здесь как Контейнер определяется подразделение Name_Division... Но как создать Нового пользователя ли Хотя бы как переместить существующего в Это подразделение ??? Вот код стандартного Создания пользователя : Dim Container As IADsContainer Dim Containername As String Dim User As IADsUser Dim newuser As String Containername = "DomainName" Set Container = GetObject("WinNT://" & Containername) Dim Flags As Long newuser = "UserU" Set User = Container.Create("User", newuser) User.Description = "Description" User.SetInfo Обьявление Контейнера как Домена и в Нем создается Юзер, а если Обьявить Контейнер так : Set Container = GetObject("LDAP://DomainName/Name_Division") То Он категорически отказывается Создаваться в Этом контейнере(а именно в подразделении: Name_Division), помогите разобраться ... |
| Ответы | Всего ответов: 0 |
Страница: