Залогиненные пользователи на компьютерах в консоли Active Directory

При выполнении скрипта происходит запись в атрибут Description (объекта – компьютера в Active Directory) имени текущего залогиненного пользователя. Это делается при логоне/логоффе пользователя.

Как все делается. Есть два скрипта, один для Logon, другой для Logoff. Скрипты эти помещаются соответственно в Logon и Logoff скрипты в групповую политику для OU, в котором находятся учетные записи пользователей.
Далее, группе… скажем Domain Users делегируем на OU, содержащий компьютеры, следующие разрешения: Computer Objects > Write Description.

Сами скрипты (логофф отличается от логон только парой слов в предпоследней строке):

writeComputerDescription_Logon.vbs

On Error Resume Next
Dim adsinfo, ThisComp, oUser
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
Thiscomp.put "description", "Logged on: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo

writeComputerDescription_Logoff.vbs

On Error Resume Next
Dim adsinfo, ThisComp, oUser
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
Thiscomp.put "description", ">> Logged off: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo

Выглядит это примерно так:

AD

Естественно, для того, чтобы совсем онлайн было, нужно все время жать F5 :)
Сам скрипт отсюда: http://www.dbforums.com/archive/index.php/t-1106587.html

http://retifff.wordpress.com/2010/01/23/script-login-online-users/

Запись опубликована в рубрике IT с метками , . Добавьте в закладки постоянную ссылку.

2 комментария на «Залогиненные пользователи на компьютерах в консоли Active Directory»

  1. Вадим говорит:

    Как насчет безопасности? Обязательно найдётся один продвинутый пользователь, который запустит оснастку и в описании компа соседа напишет «Джон — козёл»

Добавить комментарий

Войти с помощью: 

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Лимит времени истёк. Пожалуйста, перезагрузите CAPTCHA.