[решено] AD массовое переименование пользователей

[toperx]

В AD есть гуруппа, в ней N юзеров, надо всем перед Отображаемым именем (Display Name) добавить одинаковые префиксы (например: было "Иванов Иван", а стало "XYZ Иванов Иван") - как это сделать разом? а не каждого ручками?

Заранее спасибо.

[Petya V4sechkin]

toperx, VBS устроит?

Как-то так:
Set gr = GetObject("LDAP://CN=MyGroup,OU=MyOU,DC=MyDomain,DC=local")

For Each user In gr.Members
If LCase(user.Class) = "user" Then
user.DisplayName = "XYZ " & user.DisplayName
user.SetInfo
End If
Next

Группа MyGroup в OU MyOU домена MyDomain.local

[toperx]

благодарю

[dvassilyev]

А можно данный скрипт переделать чтоб он всем юзерам прописал поле "Company"? типа "АО Рога и Копыта"

[toperx]

dvassilyev, а просто в оснаске стандартной выделить всех юзеров и в проперсах 5 вкладка?

[dvassilyev]

toperx, можно и так, если их 50 или 100, а если 600.

[Petya V4sechkin]

dvassilyev, в оснастке меню Вид -> Параметры фильтра -> Отображать объекты только следующих типов: Пользователи -> ОК -> выделяем всех (комбинация клавиш Ctrl + A) -> правой кнопкой мыши -> Свойства

[dvassilyev]

можно так, я сделал так
company=objRecordSet.Fields("company").Value
if isnull(company) then company="компания " end if ' если в AD не указана организация - ставим дефолтную

Petya V4sechkin, подскажи как можно все должность прописать
у меня есть текстовый файл. В нем идет такая инфа имя фамилия должность департамент
могу вместо имени фамилии вытащить logon name.
а вот как им прописать должности, можно не по все AD. А по департаментам, нужно прописать на русском языке выбрал поле Street, так как должности бываю до 75 символов .

[Petya V4sechkin]

dvassilyev, ниче не понял.

[dvassilyev]

Petya V4sechkin, мне нужно каждому юзеру прописать должности.
Эти должности записаны в xls файле.
Полный формат файла:
Имя, Фамилия, Должность, Департамент.

Нужно - сопоставляя First Name/ Last Name из АД с Имя/Фамимлия в xls файле - вставлять в поля AD: Title, Department - должность и департамент.