![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: Change the User and Computer Account Description Attributes Each Time a User Logs On
|
||
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName) Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName) strMessage = objUser.CN & " logged on to " & objComputer.CN & " " & Now & "." objUser.Description = strMessage objUser.SetInfo objComputer.Description = strMessage objComputer.SetInfo | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |