Поиск компьютера пользователя в домене Windows

скрипт прост как валенок
Вот логон вариант

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 "Department", "Logged on: " + oUser.cn + " " + CStr(Now) ThisComp.Setinfo oUser.put "Department", "Logged on: " + ThisComp.cn + " " + CStr(Now) oUser.Setinfo

А вот логоф вариант

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 "Department", ">>Logged off: " + oUser.cn + " " + CStr(Now) ThisComp.Setinfo oUser.put "Department", ">>Logged off: " + ThisComp.cn + " " + CStr(Now) oUser.Setinfo

в обоих случаях пишется в поле Description (оно у нас не используется, если у вас занято — посмотрите в ADSIedit как назвается свободное у вас поле и пишите туда.

Как вы заметили — скрипт чуть усложнен. Он пишет имя компьютера в Description пользователя, и имя пользователя в Description компьютера. Такой «перекрестный опрос». Это помогает отследить не только «куда и когда пользователь залогинился», но и «кто и когда на этом компьютере залогинился»
Правда пришлось на это поле у объектов компьютеров в AD дать права всем пользователям на запись — но на мой взгляд это не сильно большая брешь в безопасности.
Если вас это смущает — сократите скрипт и пишите только в пользователя (туда ему прав писать хватит)