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

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

Dim adsinfo, ThisComp, oUser 

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

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

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

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

Dim adsinfo, ThisComp, oUser 

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

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

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

Пишутся скрипты в блокноте и сохраняются с расширением .vbs. Должно после сохранения появиться 2 таких файла