Sull'errore riprendere dopo
Const ADS_SCOPE_SUBTREE = 2 'cerca l'oggetto dell'obiettivo e tutti i livelli del sommergibile
objRootDSE fioco: Regolare il objRootDSE = GetObject (“LDAP: //RootDSE„)
lo strDNSDomain = sostituisce (sostituire (objRootDSE.Get (“defaultNamingContext„),„, DC= ", “."), “DC=„, "")
strADsPath = “LDAP: /„ & objRootDSE.Get (“defaultNamingContext„)
'Collegar all'indice attivo
Regolare il objConnection = CreateObject (“ADODB.Connection„)
Regolare il objCommand = CreateObject (“ADODB.Command„)
objConnection.Provider = “ADsDSOObject„
objConnection.Open “fornitore attivo dell'indice„
Regolar objCommand.ActiveConnection = objConnection
objCommand.Properties (“formato di pagina„) = 1000
objCommand.Properties (“Searchscope„) = ADS_SCOPE_SUBTREE
objOU fioco: Regolare il objOU = GetObject (“LDAP: /„ & TARGET_OU)
objExcel fioco: Regolare il objExcel = CreateObject (“Excel.Application„)
Oscurare il objWorkbook: Regolare il objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
'Iniziare alla fila 2, dopo l'intestazione.
Oscurare il intRow: intRow = 2
Fare fino a objExcel.Cells (intRow, 1).Value = ""
Oscurare lo strUserName: strUserName = objExcel.Cells (intRow, 1).Value
strDisplayName fioco: strDisplayName = objExcel.Cells (intRow, 2).Value
strFirstName fioco: strFirstName = objExcel.Cells (intRow, 3).Value
strLastName fioco: strLastName = objExcel.Cells (intRow, 4).Value
strDS fioco: strDS = objExcel.Cells (intRow, 5).Value
'strOffice fioco: strOffice = objExcel.Cells (intRow, 6).Value
strPWD fioco: strPWD = objExcel.Cells (intRow, 7).Value
'Il dominio dell'ANNUNCIO di ricerca per verificare il nome comune dell'utente già non esiste
objCommand.CommandText = “distinguishedName PRESCELTO DA '„ & strADsPath & _
““DOVE objectCategory='user„ E cn='" & strDisplayName & “'„
Regolare il objRecordSet = objCommand.Execute
Se objRecordSet.EOF allora
objUser fioco: Regolare il objUser = objOU.Create (“utente„, “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 “descrizione„, strDS
'objUser.Put “physicalDeliveryOfficeName„, strOffice
objUser.Put “homeDrive„, “X: „
objUser.Put “homeDirectory„,„ \ \ shadowcom.local \ sistema \ profili \ “& strUsername
objUser.SetInfo
'Sektion di Separat lavorare alla parola d'accesso di af dell'importazione lavorare a brugerne
objUser.userAccountControl = 512
strPWD di objUser.SetPassword
objUser.AccountDisabled = falso
objUser.SetInfo
Concluder se
intRow = intRow + 1
Ciclo
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
|