массовое добавление пользователей из екселевской таблички
Запись создана 12 марта, 2008
[cc lang=»vb»]// массовое добавление пользователей из екселевской таблички
// структора таблички:
// Фамилия Имя Отчество Логин Должность Отдел Предприятие Телефон
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
[/cc]
Схожие темы
» Запись из раздела windows | 1 комметарий
Комментарии
один ответ to “массовое добавление пользователей из екселевской таблички”
Ответить
У меня при запуске скрипта выходит ошибка «add.vbs(1, 1) Microsoft VBScript compilation error: Expected statement» Параметры скрипта изменил под свой домен. В чем может быть проблема?