Скрипт выполняется для импортирования учетных записей пользователей в Active Directory из заполненного файла adduser.xls с помощью VBS скрипта. Что позволяет сократить время создания учетных записей пользователя в несколько раз – import_users.vbs
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
Option Explicit 'директива - определение переменных в сценарии при помощи оператора Dim Dim objRootLDAP, objContainer, objUser, objShell 'определение указателей-переменных Dim objExcel, objSpread 'определение указателей-переменных Dim intRow 'определение переменной строки Excel Dim strUser, strOU, strSheet 'определение переменных Dim strCN, strSam, strFirst, strLast, strPWD 'определение переменных атрибутов пользователя '********************************************************************************************************* ' -------------------------------------------------------------' ' Важные изменения OU = и strSheet с учетом вашего домена ' -------------------------------------------------------------' '********************************************************************************************************* strOU = "OU=students ," strSheet = "C:\Users\Администратор\Desktop\разборка\скрипт3\adduser.xlsx"'переменная, хранящая путь к файлу пользователей '********************************************************************************************************* 'Привязка к Active Directory, пользователей контейнер. Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strOU & _ objRootLDAP.Get("defaultNamingContext")) '********************************************************************************************************* 'Откройте таблицу Excel Set objExcel = CreateObject("Excel.Application") 'создание объекта Excel Set objSpread = objExcel.Workbooks.Open(strSheet) 'открытие файла пользователей intRow = 2 'задание начальной строки Excel для считывания данных пользователя '********************************************************************************************************* Do Until objExcel.Cells(intRow,1).Value = "" 'начало цикла обработки строк Excel strSam = Trim(objExcel.Cells(intRow, 1).Value) 'получение SAM пользователя strCN = Trim(objExcel.Cells(intRow, 2).Value) 'получение общего имени пользователя strFirst = Trim(objExcel.Cells(intRow, 3).Value) 'получение имени пользователя strLast = Trim(objExcel.Cells(intRow, 4).Value) 'получение фамилии пользователя strPWD = Trim(objExcel.Cells(intRow, 5).Value) 'получение пароля пользователя '********************************************************************************************************* 'Обратите внимание, intRow, х должно соответствовать столбцу в strSheet Set objUser = objContainer.Create("User", "cn=" & strCN) 'создание учетной записи CN objUser.sAMAccountName = strSam 'присвоение SAM пользователю objUser.givenName = strFirst 'присвоение имени пользователя objUser.sn = strLast 'присвоение фамилии пользователя objUser.Put "homeDirectory", "\\ais-serv\info" objUser.Put "displayName", strLast & " " & strFirst objUser.Put "initials", left(strFirst,1) & "." & left(strLast,1) objUser.Put "scriptPath", "logon.bat" objUser.SetInfo 'записываем новый объект (пользователя) в каталог '********************************************************************************************************* 'Построить фактического пользователя с данными в strSheet. objUser.userAccountControl = 512 'параметр учетной записи Normal_Account 'objUser.pwdLastSet = 0 ' //установка флага смены пароля при следующем входе пользователя objUser.SetPassword strPWD 'установка пароля пользователю objUser.SetInfo 'записываем новый объект (пользователя) в каталог '********************************************************************************************************* intRow = intRow + 1 'переход на следующую строку Excel Loop 'конец цикла обработки строк Excel msgbox "Пользователи добавлены в AD" objExcel.Quit 'закрытие Excel WScript.Quit 'завершение выполнение скрипта |
Файл excel с полями!
