none
Изменение атрибутов объектов в AD RRS feed

  • Общие обсуждения

  • Добрый вечер. Есть задача удалить у +100 учетных записей атрибут mail, пользователи эти все в одном контейнере, они уволенные и попадают в адресную книгу. Есть батник с командой CSVDE, который мне делает список пользователей с параметром mail.

    И есть вот такой скрипт на PS, взятый с течнета, помогите его привести в норм вид, я уже 2 часа бьюсь и никак не пойму что тут писать, в павершеле я достаточно плохо разбираюсь.

    $users = import-csv users.csv
    foreach($row in $users)
    {
    $dn = $row.dn
    $user=[ADSI]"LDAP://$dn"
    $tel = $row.telephonenumber
    $mobile = $row.mobile
    $iptel = $row.iptel
    $user.put("telephoneNumber", $tel)
    $user.put("mobile", $mobile)
    $user.put("iptel", $iptel)
    $user.SetInfo()
    }

    • Изменен тип Rotar MaksimModerator 9 ноября 2012 г. 9:51 Тема переведена в разряд обсуждений по причине отсутствия активности
    2 ноября 2012 г. 13:45

Все ответы

  • Попробуйте что-нибудь в таком роде:

    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOOBJECT;"
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection
    objCommand.CommandText = "<LDAP://ou=Уволенные,dc=domain,dc=com>;" & _
     "(&(objectCategory=person)(objectClass=user));" & "ADsPath;subtree"
    Set objRecordSet = objCommand.Execute
    Do Until objRecordset.EOF
     strADsPath = objRecordset.Fields("mail")
     Set objUser = GetObject(strADsPath)
     objUser.PutEx 1, "mail", 0

     objUser.SetInfo
     objRecordSet.MoveNext
    Loop
    objConnection.Close
    MsgBox "Задание завершено"

    P.S: Это VBScript (соответственно текст скрипта нужно будет сохранить в файл с расширением .vbs). В теле скрипта вместо ou=Уволенные,dc=domain,dc=com укажите путь к вашему OU, куда вы перемещаете учетные записи уволенных сотрудников.


    2 ноября 2012 г. 18:49
  • Уважаемый пользователь!
    В вашей теме отсутствует активность в течение последних 5 дней. При отсутствии каких-либо действий в течение 2 последующих дней, тема будет переведена в разряд обсуждений. Вы можете возобновить дискуссию, просто оставив сообщение в данной теме.

    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий

    7 ноября 2012 г. 10:06
    Модератор
  • Тема переведена в разряд обсуждений по причине отсутствия активности

    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий

    9 ноября 2012 г. 9:51
    Модератор