SerBUser
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть скрипт, который добавляет пользователей в AD из Excel:
Код:
Dim objRootLDAP, objContainer, objUser, objShell
Dim objExcel, objSpread, intRow,lngFlag
Dim strUser, strOU, strSheet
Dim strCN, strSam, strFirst, strLast, strPWD
' Revision. My attributes
Dim strPDO, strEmail, strPhone, strDesc, strDispName, strTitle, strDept, strCompany, strUPN
strOU = "OU=Test, " ' Не забудьте конечную запятую
strSheet = "C:\Users.xls"
' Соединяемся с Active Directory, c указаным OU.
Set objRootLDAP = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://" & strOU & "dc=test-domain,dc=ru")
' Открываем лист Excel. Если на компьютере не установлен Excell - ОБЪЕКТ НЕ СОЗДАСТСЯ!!!
Set objExcel = CreateObject("Excel.Application")
Set objSpread = objExcel.Workbooks.Open(strSheet)
intRow = 2 'Строка 1 содержит заголовки.
' Цикл 'DO...Loop' который читает ячейки
' Помните, что значения "x" в (intRow, x) должны соответствовать столбцам в strSheet
Do Until objExcel.Cells(intRow,1).Value = ""
strSam = Trim(objExcel.Cells(intRow, 1).Value)
strCN = Trim(objExcel.Cells(intRow, 2).Value)
strDispName = Trim(objExcel.Cells(intRow, 3).Value)
' Создаем пользователя по данным из strSheet.
Set objUser = objContainer.Create("User", "cn=" & strCN)
objUser.sAMAccountName = strSam
objUser.displayName = strDispName
objUser.SetInfo
' Отдельная секция для включения аккаунта и установки пароля
objUser.userAccountControl=66048
objUser.pwdLastSet = 0
objUser.SetInfo
intRow = intRow + 1
Loop
objExcel.Quit
WScript.Quit
' Конец
|
Все замечательно экспортируется - есть одно НО - свойство objUser.userAccountControl=65536 выставляет в свойствах учетки "Срок действия пароля не ограничен". Никак не могу сделать, чтоб выставлялись две галочки - "Срок действия пароля не ограничен" и "Запретить смену пароля пользователем". В ADSI смотрел - этот параметр должен быть 66048, но почему-то не прокатывает - все равно галочка только одна - "Срок действия пароля не ограничен". Подскажите, как быть? |
