Адміністрування доменів в Windows NT, Basic, Програмування, статті

Tower, VBstep.ru

Введення

Стаття присвячена роботі з доменами Windows NT. На перший погляд здається, що цілком можна обійтися стандартними засобами адміністрування, які існують в операційній системі, але існує радий завдань, в яких необхідно автоматизувати створення і видалення груп користувачів, самих користувачів і включення користувачів у групи. У своїй практиці, я зіткнувся з проблемою написання програми, яка обробляє лог MSProxy, а користувачам, перевищили ліміт використання інтернет, вихід закривається. Для цього необхідно було просто видалити користувачів з певної групи. На початку наступного місяця необхідно повернути всіх користувачів інтернет до групи доступу. Ось при створенні такої програми я і почав вивчення функцій роботи з доменної організацією Windows NT.

У статті ми розглянемо створення і видалення групи в домені, створення і видалення користувача, додавання та видалення користувача з групи. Все буде розглядатися на прикладах, тому визначимося з деякими початковими умовами. Домен, з яким ми будемо працювати, називається “Test”. Група, з якою ми будемо працювати – “TestGroup”. Користувач – “TestUser”. Для того щоб було простіше працювати з проектом, входимо в меню References і підключаємо Active DS Type Library. Отже, починаємо працювати.

Створення та видалення групи

Не будемо довго розповідати про структуру домена, групах тощо. Це виходить за рамки статті, а відразу наведемо робочий код програми з коментарями.

Dim domain As IADsDomain 'Оголошуємо змінну типу домену Dim grp As IADsGroup 'Оголошуємо змінну типу група
     'Отримуємо об'єкт домену Test
Set domain = GetObject("WinNT://Test")
 'Створюємо нову групу користувачів
Set grp = domain.Create("group", "TestGroup")
 'Встановлюємо властивість типу групи.
grp.Put "groupType", ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP
 'Пишемо опис групи grp.Put "Description", "Група для прикладу роботи з доменом" 'Зберігаємо інформацію
grp.SetInfo
 'Видаляємо групу з домена.
domain.Delete "group", "groupType"

От і все. Створити групу і видалити надзвичайно просто.

Створення та видалення користувачів

Створення користувача більш копітка завдання, ніж створення групи, так як користувач домену має більше атрибутів, ніж група. Для початку розглянемо простий приклад створення користувача, і що з цього виходить.

Dim domain As IADsDomain Dim usr As IADsUser 'Оголошуємо змінну типу користувач
    
Set domain = GetObject("WinNT://Test")
 'Створюємо нового користувача
Set usr = domain.Create("user", "TestUser")
 'Зберігаємо інформацію про користувача
usr.SetInfo
     domain.Delete "user", "TestUser" 'Видаляємо користувача

Результатом цих дій буде створення нового користувача з ім’ям TestUser. Він буде мати ще деякі атрибути, а саме:

Наведу кілька прикладів установки атрибутів користувача, так як стандартні установки не завжди хороші. Отже,

'Установка опису для користувача usr.Put "Description", "Тестовий користувач"
 'Без коментарів, як кажуть
usr.Put "EmailAddress", "test@test.com"
 'Повне ім'я користувача
usr.Put "FullName", "Test User"
 'Заблокувати користувача
usr.Put "AccountDisabled", 1

От і все, що можна встановити за допомогою Put, але якщо ви уважно читали статтю, то вже починаєте мене лаяти. Чому? Дійсно я не описав можливість встановити пароль для користувача. За допомогою методу Put це зробити неможливо, тому існує спеціальний метод SetPassword. А ось і приклад використання

usr.SetPassword "blablabla"

На цьому знайомство із закладом і видаленням користувача ми закінчимо і розглянемо останню тему статті – включення і виключення користувача з груп.

Управління користувачами групи

Для того щоб додати користувача в групу необхідно скористатися наступним методом:
grp.Add (“WinNT://Test/TestUser”)

Видалення здійснюється за допомогою grp. Remove (“WinNT :/ / Test / TestUser”).
grp – об’єкт групи в домені NT.

От і все. Залишилося сказати кілька заключних слів. Визначити, входить користувач в групу чи ні, можна за допомогою функції IsMember, яка повертає логічне значення “так” і “ні”, зміст якого зрозумілий і без пояснення.

Висновок

Що ми дізналися з цієї статті? Ми дізналися про те, як працювати з доменом. Небагато, але достатньо для того, щоб знайти масу корисних застосувань. Наприклад, якщо трохи подумати, то можна без проблем дізнатися, скільки користувачів зареєстровано в домені.

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*