Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- logon.js:
- 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", " on: " + oUser.cn + " " + CStr(Now)
- ThisComp.Setinfo
- 'В поле Department учетки пользователя пишем имя компьютера и время входа
- oUser.put "Department", " on: " + ThisComp.cn + " " + CStr(Now)
- oUser.Setinfo
- wscript.quit
- logoff.js:
- 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", " off: " + oUser.cn + " " + CStr(Now)
- ThisComp.Setinfo
- 'В поле Department пользователя пишем имя компьютера и время входа
- oUser.put "Department", " off: " + ThisComp.cn + " " + CStr(Now)
- oUser.Setinfo
- wscript.quit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement