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

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

Окт. 24, 2006 // 10:28 | Комментарии (3)