За обов'язком своєї роботи, був написаний скрипт, який дозволяє записувати дані входу в вільні атрибути користувача.
Не секрет що, при великій кількості комп'ютерів в домені, виникає ситуація, швидко знайти відповідність між користувачем домену та його комп'ютером. Звичайно, якщо імена комп'ютерів створювати по ПІБ користувачів, то ніяких труднощів, це викликати не може, але найчастіше відбувається навпаки.
Корпоративними політиками в більшості випадків, заборонено називати комп'ютери як ПІБ користувача. Це пов'язано в тому числі і тим, що користувач, може піти (звільниться, перевестися, змінити прізвище), а комп'ютер все таки не особиста власність цього співробітника і він (комп'ютер) нікуди не звільниться. А значить співробітникам ІТ підрозділу буде необхідно, змінювати ім'я комп'ютера на інший, що займає час і сили.
Таким чином у нас постало завдання: яким чином дізнаватися відповідність між користувачем домену який працює на комп'ютері, і ім'ям цього комп'ютера.
Заклад журналу де буде прописано відповідність, навіть розглядати не будемо. Це архаїчно і не технологічно :)
Напишемо скрипт, який при вході користувача в домен, буде записувати дані в один з вільних аттрибутов користувача.
Що нам може бути цікаво, крім імені комп'ютера?
Сам скрипт має вигляд
Dim adsinfo, ThisComp, oUser
Set adsinfo = CreateObject ( "adsysteminfo")