Для удобства администрирования пользователей в AD можно добавить в поле "описание" компьютера или пользователя дополнительной полезной информации. В моем случае, добавление информации пользователю о компьютере и IP, в который он последний раз заходил. Ну и добавление информации компьютеру об его IP и последнем пользователе, который в него заходил.
Для начала надо разрешить пользователям домена заполнять "описание".
Для этого на домене или нужном подразделении правой кнопкой выбрать **//свойства - безопасность - дополнительно//** и там проставить следующие галочки.
Для добавление в "описание" пользователей\\
{{ :objects_description_ad_uc:descr_ad_uc1.jpg?nolink |}}
Для добавление в "описание" компьютеров\\
{{ :objects_description_ad_uc:descr_ad_uc2.jpg?nolink |}}
После этого создаем два скрипта **.vbs**
Для пользователей
<code>
Option Explicit
Dim objWMIService, objItem, colItems, osVersion, IPConfigSet, i
Dim strComputer, objSysInfo, objUser, objComputer, ips, IPConfig
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
Set IPConfigSet = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
If Not Instr(IPConfig.IPAddress(i), ":")> 0 Then