Script add description of Сomputer

26 мая 2009 г.
Comments

Попались на глаза интересные скрипты, которые добавляют к атрибуту Description объекта (объекта-компьютера в AD) имени текущего залогиненого пользователя. Два скрипта прописываются в групповую политику Logon и Logoff соответственно, и делегируются полномочия пользователь на атрибут Description в OU находятся клиентские компьютеры.  Скрипты и как это выглядит  взяты отсюда

image

Скрипт   Logon:

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



Скрипт Logoff :


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


Делегирование:


Делегирование будем выполнять только для клиентских компьютеров!




    • Right-click the OU/container where computer accounts reside and choose "Delegate Permissions".


    • Click "Next" and in the next dialog add "Domain Users" group. In the next dialog select "Create a custom task to delegate".


    • Select "only the following objects in the folder" and check "computer objects" in the listbox. Click Next.


    • In the next dialog make sure only "Property specific" is checked under "Show these permissions".


    • Check "Write description".


    • Next and Finish.


Ярлыки: