域控操作二十九：计算机描述更改为用户最后一次登录信息

1，开启写入描述权限

2，写入登录脚本：保存格式为vbs

On Error Resume Next

 

Set objSysInfo =CreateObject("ADSystemInfo")

Set objComputer =GetObject("LDAP://" & objSysInfo.ComputerName)

Set objUser = GetObject("LDAP://"& objSysInfo.UserName)

 

strCompDesc =objUser.CN

 

if strCompDesc <> "" then

  objComputer.Description = strCompDesc & "|" & date& " " & time

  objComputer.SetInfo

end if

 

Set objUser = Nothing

Set objComputer = Nothing

Set objSysInfo = Nothing

将脚本下发下去指定UNC或者本地都行