Лучший отвечающий
Описание учётки компьютера

Вопрос
-
подскажите, что может быть, есть политика, которая накатывается на пользователей, добавляется кто залогинелся и куда залогинелся, вот скрипт:
On Error Resume Next
Dim adsinfo, ThisComp, oUser
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
if Lcase(ThisComp.cn)="ts-mims" or Lcase(ThisComp.cn)="ts-mims1" or then
wscript.quit
end if
Thiscomp.put "description", oUser.cn + " | Logged on: " + " " + CStr(Now)
ThisComp.Setinfo
oUser.put "Department", ThisComp.cn + " | Logged on: " + " " + CStr(Now)
oUser.Setinfo
wscript.quit
куда залогинелся пишет в описании учетки компьютера, но там вместо того чтобы писать имя учетки и время логона, пишет весь путь : OU=RT,OU=TF-OU,OU=User>>;Domain\NikolaevaXX;172.25.151.20;2011.12.20 15:43
почему так?
20 декабря 2011 г. 9:44
Ответы
-
все, решил проблему, оказывается одна политика была сверху накатана
- Помечено в качестве ответа Dmitry DavydovModerator 27 декабря 2011 г. 14:11
26 декабря 2011 г. 10:39
Все ответы
-
Потому что cn - это и есть, как ты сказал, весь путь. Чтобы вместо него был логин - используй атрибут sAMAccountName, т.е.:
Thiscomp.put "description", oUser.sAMAccountName + " | Logged on: " + " " + CStr(Now)
Andy Mishechkin- Помечено в качестве ответа KazunEditor 26 декабря 2011 г. 11:40
- Снята пометка об ответе Dmitry DavydovModerator 27 декабря 2011 г. 14:11
20 декабря 2011 г. 18:46 -
Потому что cn - это и есть, как ты сказал, весь путь. Чтобы вместо него был логин - используй атрибут sAMAccountName, т.е.:
Thiscomp.put "description", oUser.sAMAccountName + " | Logged on: " + " " + CStr(Now)
Andy Mishechkin- Изменено Ivan Kordyak 21 декабря 2011 г. 4:15
21 декабря 2011 г. 2:07 -
Потому что cn - это и есть, как ты сказал, весь путь. Чтобы вместо него был логин - используй атрибут sAMAccountName, т.е.:
Thiscomp.put "description", oUser.sAMAccountName + " | Logged on: " + " " + CStr(Now)
Andy Mishechkin
oUser.put "Department", ThisComp.cn + " | Logged on: " + " " + CStr(Now) - У пользователя Вы тоже исправили?21 декабря 2011 г. 6:18Отвечающий -
Потому что cn - это и есть, как ты сказал, весь путь. Чтобы вместо него был логин - используй атрибут sAMAccountName, т.е.:
Thiscomp.put "description", oUser.sAMAccountName + " | Logged on: " + " " + CStr(Now)
Andy Mishechkin
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
и это совсем не то, что у меня в скрипте заданно
21 декабря 2011 г. 7:31 -
Потому что cn - это и есть, как ты сказал, весь путь.
ээээ? Разве так? Не трудно ли пояснить?
---
Иван,
а точно ли это ваш скрипт пишет? попробуйте сотрите дескрипшн и запустите скрипт ручками на клиенте
21 декабря 2011 г. 8:47 -
Потому что cn - это и есть, как ты сказал, весь путь.
ээээ? Разве так? Не трудно ли пояснить?
---
Иван,
а точно ли это ваш скрипт пишет? попробуйте сотрите дескрипшн и запустите скрипт ручками на клиенте
21 декабря 2011 г. 9:17 -
Старая версия скрипта в автозапуске? :) ну или что нить типа того например:)
у вас в выводе присутствуют фразы "Logged on:" и " ~ >>Logged off: ", а в примере вывода, что вы приводите, их не видно
21 декабря 2011 г. 9:23 -
ээээ? Разве так? Не трудно ли пояснить?
Да, согласен. Ерунду сказал.
Досадная ошибка.....
Andy Mishechkin21 декабря 2011 г. 11:07 -
если скрипт отрабатываю непосредственно на компьютере то все работает, пишет в колонке "описание" учетки компьютера залогиненого пользователя и в учетке пользователя в колонке "Отдел", на какой тачке залогинелся, только он логоофится или логонится, то в колонке "Описание" учетки компьютера заполняется эта хе*ня: 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
причем заметил, что появилось это тогда когда я сделал делегировании на то чтобы пользователи могли заполнять калонку "описание" (по моему), может это летит с дефолта политик какой или? и это не на всех пользователях заполняется, может можно, как то продавить именно мою политику, чтоб кроме моей ничего больше не летело
22 декабря 2011 г. 4:52 -
все, решил проблему, оказывается одна политика была сверху накатана
- Помечено в качестве ответа Dmitry DavydovModerator 27 декабря 2011 г. 14:11
26 декабря 2011 г. 10:39