массовое добавление пользователей из екселевской таблички

Запись создана марта 12, 2008

// массовое добавление пользователей из екселевской таблички
// структора таблички:
// Фамилия   Имя   Отчество   Логин   Должность   Отдел   Предприятие   Телефон

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _

// из какой таблички
("D:\excel.xls")

intRow = 1

Do Until objExcel.Cells(intRow,1).Value = ""

// куда добавляем, домен и юнит
Set objOU = GetObject("LDAP://OU=management,dc=domain,dc=name")

Set objUser = objOU.Create _
("User", "cn=" & objExcel.Cells(intRow, 1).Value & " " & objExcel.Cells(intRow, 2).Value & " " & objExcel.Cells(intRow, 3).Value)
objUser.sAMAccountName = objExcel.Cells(intRow, 4).Value
objUser.GivenName = objExcel.Cells(intRow, 2).Value
objUser.SN = objExcel.Cells(intRow, 1).Value
objUser.displayName = objExcel.Cells(intRow, 1).Value & " " & objExcel.Cells(intRow, 2).Value & " " & objExcel.Cells(intRow, 3).Value

// какой домен им ставить
objUser.Put "userPrincipalName", (objExcel.Cells(intRow, 4).Value & "@domain.name")
objUser.Put "title", objExcel.Cells(intRow, 5).Value
objUser.Put "department", objExcel.Cells(intRow, 6).Value
objUser.Put "Company", objExcel.Cells(intRow, 7).Value
'    objUser.Put "TelephoneNumber", objExcel.Cells(intRow, 8).Value

objUser.SetInfo
intRow = intRow + 1
Loop

objExcel.Quit

» Запись из раздела windows | 1 комметарий

Комментарии



один ответ to “массовое добавление пользователей из екселевской таблички”

  1. Jeka on сентября 15, 2009 9:06

    У меня при запуске скрипта выходит ошибка «add.vbs(1, 1) Microsoft VBScript compilation error: Expected statement» Параметры скрипта изменил под свой домен. В чем может быть проблема?




Ответить