» » Заполняем поле Описание у компьютера в ActiveDirectory

Заполняем поле Описание у компьютера в ActiveDirectory


Заполняем поле Описание у компьютера в ActiveDirectory


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

При выполнении скрипта происходит запись в атрибут 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.sn + " " +  oUser.GivenName + " / " + oUser.sAMAccountName + " ( " + 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.sn + " " +  oUser.GivenName + " / " + oUser.sAMAccountName + " ( " + CStr(Now) + " )"
ThisComp.Setinfo


Оригинал статьи: https://retifff.wordpress.com/2010/01/23/script-login-online-users/ скачать dle 10.2 Форекс опционы

Внимание! Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.