| Вопрос: ADSI Again I Need Help | Добавлено: 28.05.04 00:42 |
Автор вопроса:  Eddie
|
Здрасти ... Кто Нить Работал с ADSI ??? Очень Нужна помощь ... Как Создать програмно с помощью ADSI Подразделение в Лесу Домена ???
|
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Eddie Вопросов: 11 Ответов: 120 |
Профиль | | #1 | Добавлено: 28.05.04 13:25 |
Никто ??? Все я пропал ... мне полный ... Курсовая в Унитаз 
|
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 28.05.04 16:20 |
| ADSI ??? Давай конкретное задание, лично я даже незнаю разшифровки ADSI, надо по конкретний! | ||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 28.05.04 16:21 |
|
ой.... прикольно!!!!!!!! предыдущее - юбилейное! а это 401
|
||
|
Номер ответа: 4 Автор ответа: EddieВопросов: 11 Ответов: 120 |
Профиль | | #4 | Добавлено: 28.05.04 16:44 |
|
А Как понять Юбилейное ???
Adsi - это работа с Active Directory, Создание, редактирование Учетных записей Пользователей, в Свой Project включаешь Библиотеку и Управляешь Active Directory, работае даже в ХР, но в ХР pro Моно создавать токо Группы, Юзеров, ставить пароли, вкючать в группу и всякая такая мелочь, но это под FAT, а под NTFS в ХР не пробовал, у меня стоит ХР и 2000 сервер, на 2000 сервере настраиваешь Active Directory, который катит токо под NTFS, там уже есть подразделения куда Относяться Пользователи, по Дефолту Юзеры Заносяться в ../USERS,а надо создать Другое подразделение и занести туды Юзверов, например : ../Computers/Test <- Два подразделения Test нах-ся в подразделении Computers , вот это мне и надо создать подразделение, нефига не получается, у кого токо не спрашивал Кто не знает кто Не отвечает на МЫЛО, Админу одному написал, вот жду, токо пока результатов нет, а времени осталось Очень МАЛО  , кстати я Те на Мыло посылал уже Исходник, посмотри Его поймешь что такое ADSI ... Слышен Звук Унитазного Смыва, это моя Курсовая
|
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 28.05.04 17:36 |
|
мда... сорри, с таким я не сталкивался, исходник конечно погляжу, но нечего не обещаю.
PS Просто у меня недавно кол-во ответов за 400 перевалило, именно четырёхсотое и было убилейное. |
||
|
Номер ответа: 6 Автор ответа:  User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #6 | Добавлено: 28.05.04 17:43 |
|
2Eddie: правильно заданный вопрос - половина ответа!
Если бы ты просто написал AD, уже бы имел ответ на руках.... Public Function AddOU(ByVal OUName As String, _ Optional Description As String) As Boolean 'PURPOSE: Add Organizational Unit to the Domain 'PARAMETERS: OUName -- name of organizaitonal unit to 'add 'Description (Optional) -- Description of Organizational Unit 'RETURNS: True if Successful, false otherwise 'REQURIES: ADSI, LDAP provider. User 'running this example must have 'security privileges to add ou 'EXAMPLE: AddOU" IT", Information Technology Department" Dim oRoot As IADs Dim oContainer As IADsContainer Dim oOrgUnit As IADsOU Dim sDomain As String On Error GoTo ErrHandler: Set oRoot = GetObject("LDAP://rootDSE" 
'get current domain sDomain = oRoot.Get("defaultNamingContext"
Set oContainer = GetObject("LDAP://" & sDomain) 'Create new OU Set oOrgUnit = oContainer.Create("organizationalUnit", "OU=" & OUName) If Trim(Description) <> "" Then oOrgUnit.Description = Description 'Save oOrgUnit.SetInfo AddOU = True ErrHandler: Set oOrgUnit = Nothing Set oContainer = Nothing Set oRoot = Nothing End Function |
||
|
Номер ответа: 7 Автор ответа: EddieВопросов: 11 Ответов: 120 |
Профиль | | #7 | Добавлено: 28.05.04 19:50 |
|
User Unknown, Ты мой спаситель !!!!!!! ОГРОМНОООЕ Тебе Спасиба, но это не полный ответ , как создать Юзера в Этом подразделении и как создать еще подразделение в этом подразделении ??? Экспериментировать к Сожалению Времени нема
Hacker : c юбилеем
|
||
|
Номер ответа: 8 Автор ответа: User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #8 | Добавлено: 28.05.04 20:02 |
|
Public Function AddUser(UserName As String, Password As _
String, Optional GroupName = "  omain Users", _
Optional FullName As String) As Boolean '************************************************* 'PURPOSE: Add a User to the Domain 'PARAMETERS: UserName: LoginName ' Password: Password ' GroupName (Optional): Group to Put User in ' Defaults to " omain Users"
' FullName (Optional) FullName of User 'RETURNS: True if successful, false otherwise 'REQUIRES: -- Active Directory ' -- A Reference to Active DS Type Library ' -- User of program has permission to add users 'EXAMPLE: 'AddUser "JoeU", "joespassword", "Administrators", "Joe User" '******************************************************* Dim oContainer As IADsContainer Dim oUser As IADsUser Dim oGroup As IADsGroup Dim oSysInfo As New WinNTSystemInfo Dim oRoot As IADs Dim oDomain As IADsDomain Dim sDomain As String On Error GoTo ErrHandler sDomain = oSysInfo.DomainName Set oContainer = GetObject("WinNT://" & sDomain) Set oUser = oContainer.Create("User", UserName) If FullName <> "" Then oUser.FullName = FullName oUser.SetInfo oUser.SetPassword Password Set oGroup = GetObject("WinNT://" & sDomain & "/" & GroupName) oGroup.Add "WinNT://" & sDomain & "/" & UserName oGroup.SetInfo AddUser = True ErrHandler: Set oContainer = Nothing Set oUser = Nothing Set oGroup = Nothing End Function ________________________________________________ Посмотри ещё вот эти вещицы, могут пригодиться... http://www.vbnet.ru/vba/stuff/Users_By_Groups.zip http://www.vbnet.ru/vba/stuff/Print_Information.zip http://www.vbnet.ru/vba/stuff/CS_Tools_2.zip |
||
|
Номер ответа: 9 Автор ответа: EddieВопросов: 11 Ответов: 120 |
Профиль | | #9 | Добавлено: 28.05.04 20:22 |
|
^^^ Так Этот Пример Простого Создания Юзера, Он запишеться в подразделение ../Users, а не в допустим ../Class/Computers, все я начинаю Паниковать ))
Эти примеры я смотрел Там тоже простое Создание Юзера Указывать Группу для Него, Пароль Менять Имя Юзера, но там ни слова про подразделения ... Еээхх ... Незнаешь как добавлять в Подразделение Юзеров ? а также подразделение в другое Подразделение ?
|
||
Страница: 1 |