Потому что cn - это и есть, как ты сказал, весь путь. Чтобы вместо него был логин - используй атрибут sAMAccountName, т.е.:
Thiscomp.put "description", oUser.sAMAccountName + " | Logged on: " + " " + CStr(Now)
Andy Mishechkin
проблема еще остается, главное переименовываются не все так (OU=RT,OU=TF-OU,OU=User>>;Domain\NikolaevaXX;172.25.151.20;2011.12.20
15:43), только некоторые учетки, другие нормально, как и положено (Intouch | Logged on: 15.12.2011 16:17:14), в чем может быть проблема, не нашел закономерность.
oUser.put "Department", ThisComp.cn + " | Logged on: " + " " + CStr(Now) - У пользователя Вы тоже исправили?
да везде менял:
On Error Resume Next
Dim adsinfo, ThisComp, oUser, objSystemInfo
Set objSystemInfo = CreateObject("ADSystemInfo")
strDomainDN = objSystemInfo.DomainShortName
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
if Lcase(ThisComp.cn)="ts" or Lcase(ThisComp.cn)="ts1" then
wscript.quit
end if
Thiscomp.put "description", oUser.sAMAccountName &" ~ "& strDomainDN + " ~ >>Logged off: " + " " + CStr(Now)
ThisComp.Setinfo
oUser.put "Department", ThisComp.sAMAccountName + " ~ >>Logged off: " + " " + CStr(Now)
oUser.Setinfo
wscript.quit
и все равно пишет в некоторых учетках:
OU=RO,OU=TF-OU,OU=User>>;Domain\User;172.25.150.21 172.25.150.21 172.25.150.21;2011.12.21 15:24
и это совсем не то, что у меня в скрипте заданно
