Active Directory logon logoff to Description field

вторник, 01 июля 2014

23:01

maxitso

, windows

В результате, мы "построили свой лунапарк с VBS и пользователями", и написали 2 небольших логон-логоф скрипта, которые запускаются групповой политикой на уровне всего домена при входе пользователя в систему, и при выходе из нее соответственно.

ЛОГОН-Вариант

Dim adsinfo, ThisComp, oUser
on Error Resume Next
' Определяем объекты
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)

' Заносим данные в AD
' В поле Department компьютера пишем имя пользователя, и время входа
Thiscomp.put "Description", "Logged on: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo

'В поле Department учетки пользователя пишем имя компьютера и время входа
oUser.put "Description", "Logged on: " + ThisComp.cn + " " + CStr(Now)
oUser.Setinfo 
wscript.quit

ЛОГОФФ-Вариант

Dim adsinfo, ThisComp, oUser
on Error Resume Next
' Определяем объекты
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)

' Заносим данные в AD 
' В поле Department компьютера пишем имя пользователя, и время входа
Thiscomp.put "Description", "Logged off: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo

'В поле Department пользователя пишем имя компьютера и время входа
oUser.put "Description", "Logged off: " + ThisComp.cn + " " + CStr(Now)
oUser.Setinfo 
wscript.quit

Пояснения по коду наверное не нужны, скрипт элементарен, расскажу лишь про плюсы скрипта которые в моей ситуации значительно перевесили минусы (о которых тоже расскажу).

Плюсы

при таком скрипте достаточно настроить в оснастке AD отображение одного дополнительного столбца (в нашем случае department) и можно будет четко видеть где кто работает в данный момент, когда он туда залогинился, либо если на компьютере никто не работает – то кто на нем работал последним, и когда вышел из системы
Не привлекается никакого стороннего ПО, нагрузка на систему (время входа пользователя) увеличивается очень незначительно
Легко и наглядно отслеживается наличие старых объектов компьютеров-пользователей в AD (по дате последнего логина)
Данные централизованно хранятся в AD и не нужно никакого дополнительного хранилища (файла, папки, БД и т.п.). Данные дублируются в объектах Пользователь и Компьютер, т.е. можно отследить ситуацию «дважды под одним и тем же вошел на разных компьютерах».
Выбраны наименее используемые (у нас и у всех тех организаций, с которыми я работал) ОБЩИЕ для объектов пользователь и компьютер поля AD. Это плюс, потому что если бы поля были разными – то пришлось бы добавлять отображение лишних столбцов в оснастке AD
Легко корректировать скрипт по своему усмотрению (выбирать другие поля для хранения данных, писать дополнительно в текстовый файл, исключать из обработки отдельных пользователей или компьютеры (например терминальные сервера), и т.д.)

Минусы

НЕ ХРАНИТСЯ история входов, т.е. записано только текущее состояние. Если история входов нужна, то временно можно добавив несколько строк кода писать информацию еще и в сетевой файл, а если нужна постоянно – то лучше подумать о другом методе учета.
Требуется выдать дополнительное разрешение Write\Modify на поле Description объектов Компьютер и Пользователь в AD для всех доменных пользователей. Минус в моей ситуации сомнительный, но и отрицать его не буду – он есть.

@темы: ad, windows, logon

URL

Поделиться

Рыба, КОТОРАЯ в каждом червяке видит крючок, долго не про... http://www.library.northwestern.edu...ters/index.html Наш ответ ЖЖ состоялся?)))

Я совсем недвно узнала об этом дневнике.... порой кажетьс... Сегодня из-за утренного недостатка адреналина :o были п... Представьте... Час езды на автобусе и начинаются горы,...

Комментарии

12.02.2024 в 13:56

Гость

Здравствуйте, приветствую всех участников форума!

Хотел бы поделиться с вами своим свежим опытом поиска качественного автосервиса в Оренбурге. После многочисленных обращений, я наконец нашел то место, которым действительно остался доволен — АвтоЛайф.

Что мне особенно понравилось в АвтоЛайф 56, так это мастерство специалистов каждого специалиста этого сервиса. Мастера не только быстро и эффективно решили проблему с моим автомобилем, но и предоставили ценные советы по его дальнейшему обслуживанию.

Мне кажется важным поделиться этой информацией с вами, так как знаю, насколько трудно порой найти действительно надежный сервис. Если вы ищете достойный автосервис в Оренбурге, рекомендую обратить внимание на AutoLife56, расположенный по адресу: г. Оренбург, ул. Берёзка, 20, корп. 2. Они работают с 10:00 до 20:00 без выходных, и более подробную информацию вы можете найти на их сайте: https://autolife56.ru/.

Надеюсь, мой опыт окажется важным для кого-то из вас. Буду рад узнать о ваших впечатлениях, если решите воспользоваться услугами AutoLife56.

Ремонт тормозной системы
Больше ссылок
Опыт использования доступного автосервиса в Оренбурге завершился успехом: AutoLife56 Познакомьтесь о АвтоЛайф 56: наши преимущества в обслуживании автомобилях в Оренбурге Вашему вниманию советуем надёжный автосервис в Оренбурге - АвтоЛайф 56 Не теряйте: АвтоЛайф — ваш выбор в мире авторемонта в Оренбурге Предложение: заслуживающий доверия автосервис в Оренбурге - АвтоЛайф 56 ba7_433

URL

19.02.2024 в 18:19

Гость