Возникла задача: Необходимо понимать системному администратору кто залогинен на определенном ПК. Другому сервису получать e-mail пользователя залогиненного на ПК.
Для этого был написан на Visual Basic Script небольшой код. Пользователь при включении/выключении/разлогинивании автоматически вносит в разрешенные ему для изменений поля своего аккаунта или компьютера.
Используются 2 переменных: wWWHomePage - переменная пользователя. По умолчанию создана и доступна для редактирования владельцу аккаунта.
Если есть необходимость Вы можете создать собственные атрибуты (ссылка или дополнить). Сделать видимым в ADUC через ADSIEDIT (ссылка или дополнить).
' На выключение ПК
Dim adsinfo, Comp, oUser
' Ищем объекты. Описание https://docs.microsoft.com/en-us/windows/win32/api/iads/nn-iads-iadsadsysteminfo
Set adsinfo = CreateObject("adsysteminfo")
Set Comp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
' Заносим данные в AD
'Пишем имя компьютера и время выключения
oUser.put "wWWHomePage", "off: " + ThisComp.cn + " " + CStr(Now)
oUser.Setinfo
Thiscomp.put "userlogin", "Logged off"
Comp.Setinfo
wscript.quit
Чуть более расширенный скрипт на LogOn
' На включение или разблокировку
Dim adsinfo, Comp, oUser,mailvalue
' Определяем объекты
Set adsinfo = CreateObject("adsysteminfo")
Set Comp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
' Проверка на наличие почтового адреса
mailvalue=oUser.mail
if mailvalue="" then
mailvalue="nomail"
End If
' Заносим данные в AD
'Пишем имя компьютера и время включения
oUser.put "wWWHomePage", "Logged on: " + ThisComp.cn + " " + CStr(Now)
oUser.Setinfo
' В поле compmail компьютера потовый адрес Внимание поле должно быть создано и доступно для записи
Comp.put "compmail", mailvalue
Comp.Setinfo
wscript.quit
Сохраняем в формате .vbs и прописываем в GPO (ссылка или дополнить)
Результат:
