none
Описание учётки компьютера RRS feed

  • Вопрос

  • подскажите, что может быть, есть политика, которая накатывается на пользователей, добавляется кто залогинелся и куда залогинелся, вот скрипт:

    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

Ответы

Все ответы

  • Потому что 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
    проблема еще остается, главное переименовываются не все так (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), в чем может быть проблема, не нашел закономерность.
    • Изменено Ivan Kordyak 21 декабря 2011 г. 4:15
    21 декабря 2011 г. 2:07
  • Потому что 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) - У пользователя Вы тоже исправили?
    21 декабря 2011 г. 6:18
    Отвечающий
  • Потому что 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

    и это совсем не то, что у меня в скрипте заданно

    21 декабря 2011 г. 7:31
  • Потому что cn - это и есть, как ты сказал, весь путь.

    ээээ? Разве так? Не трудно ли пояснить? 

    ---

    Иван,

    а точно ли это ваш скрипт пишет? попробуйте сотрите дескрипшн и запустите скрипт ручками на клиенте

     

     

    21 декабря 2011 г. 8:47
  • Потому что cn - это и есть, как ты сказал, весь путь.

    ээээ? Разве так? Не трудно ли пояснить? 

    ---

    Иван,

    а точно ли это ваш скрипт пишет? попробуйте сотрите дескрипшн и запустите скрипт ручками на клиенте

     

     

    так вот я тоже думаю, что это не мой скрипт пишет, щас попробую, ну даже если это не мой скрипт пишет, тогда почему вообще это дописывается, причем удаляю, а оно опять дописывается
    21 декабря 2011 г. 9:17
  • Старая версия скрипта в автозапуске? :) ну или что нить типа того например:)

    у вас в выводе присутствуют фразы "Logged on:" и " ~ >>Logged off: ", а в примере вывода, что вы приводите, их не видно

    21 декабря 2011 г. 9:23
  • ээээ? Разве так? Не трудно ли пояснить?  

     

    Да, согласен. Ерунду сказал.
    Досадная ошибка.....


    Andy Mishechkin
    21 декабря 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
  • все, решил проблему, оказывается одна политика была сверху накатана
    26 декабря 2011 г. 10:39