На ошибке возобновьте затем
Const ADS_SCOPE_SUBTREE = 2 'ищет предмет цели и все уровни подводной лодки
Тусклое objRootDSE: Установите objRootDSE = GetObject («LDAP: //RootDSE»)
strDNSDomain = заменяет ть (замените (objRootDSE.Get («defaultNamingContext»),», DC= ", «."), «DC=», "")
strADsPath = «LDAP: /» & objRootDSE.Get («defaultNamingContext»)
'Соединитесь к активно директории
Установите objConnection = CreateObject («ADODB.Connection»)
Установите objCommand = CreateObject («ADODB.Command»)
objConnection.Provider = «ADsDSOObject»
objConnection.Open «активно провайдер директории»
Установите objCommand.ActiveConnection = objConnection
objCommand.Properties («размер страницы») = 1000
objCommand.Properties («Searchscope») = ADS_SCOPE_SUBTREE
Тусклое objOU: Установите objOU = GetObject («LDAP: /» & TARGET_OU)
Тусклое objExcel: Установите objExcel = CreateObject («Excel.Application»)
Затемните objWorkbook: Установите objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
'Начните на рядке 2, после коллектора.
Затемните intRow: intRow = 2
Не сделать до objExcel.Cells (intRow, 1).Value = ""
Затемните strUserName: strUserName = objExcel.Cells (intRow, 1).Value
Тусклое strDisplayName: strDisplayName = objExcel.Cells (intRow, 2).Value
Тусклое strFirstName: strFirstName = objExcel.Cells (intRow, 3).Value
Тусклое strLastName: strLastName = objExcel.Cells (intRow, 4).Value
Тусклое strDS: strDS = objExcel.Cells (intRow, 5).Value
'Тусклое strOffice: strOffice = objExcel.Cells (intRow, 6).Value
Тусклое strPWD: strPWD = objExcel.Cells (intRow, 7).Value
'Домен ОБЪЯВЛЕНИЯ поиска для проверки имени потребителя обычный уже не существует
objCommand.CommandText = «ОТБОРНОЕ distinguishedName ОТ '» & strADsPath & _
««ГДЕ objectCategory='user» И cn='" & strDisplayName & «'»
Установите objRecordSet = objCommand.Execute
Если objRecordSet.EOF после этого
Тусклое objUser: Установите objUser = objOU.Create («потребителя», «CN=» & strDisplayName)
objUser.Put «sAMAccountName», strUserName
objUser.Put «userPrincipalName», strUserName & «@» & strDNSDomain
objUser.Put «displayName», strDisplayName
objUser.Put «sn», strLastName
objUser.Put «givenName», strFirstName
objUser.Put «описание», strDS
'objUser.Put «physicalDeliveryOfficeName», strOffice
objUser.Put «homeDrive», «x: »
objUser.Put «homeDirectory»,» \ \ shadowcom.local \ система \ профили \ «& strUsername
objUser.SetInfo
'Sektion Separat до пароля af ввоза до brugerne
objUser.userAccountControl = 512
strPWD objUser.SetPassword
objUser.AccountDisabled = ложно
objUser.SetInfo
Закончитесь если
intRow = intRow + 1
Петля
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
|