Sur l'erreur reprendre après
Const ADS_SCOPE_SUBTREE = 2 'recherchent l'objet de cible et tous les niveaux de sous-marin
Faible objRootDSE : Placer l'objRootDSE = le GetObject (« LDAP : //RootDSE »)
le strDNSDomain = remplacent (remplacer (objRootDSE.Get (« defaultNamingContext »), », DC= ", « ."), « DC= », le "")
strADsPath = « LDAP : / » et objRootDSE.Get (« defaultNamingContext »)
'Relier à l'annuaire actif
Placer l'objConnection = le CreateObject (« ADODB.Connection »)
Placer l'objCommand = le CreateObject (« ADODB.Command »)
objConnection.Provider = « ADsDSOObject »
objConnection.Open « fournisseur actif d'annuaire »
Placer objCommand.ActiveConnection = objConnection
objCommand.Properties (« taille de page ») = 1000
objCommand.Properties (« Searchscope ») = ADS_SCOPE_SUBTREE
Faible objOU : Placer l'objOU = le GetObject (« LDAP : / » et TARGET_OU)
Faible objExcel : Placer l'objExcel = le CreateObject (« Excel.Application »)
Obscurcir l'objWorkbook : Placer l'objWorkbook = l'objExcel.Workbooks.Open (EXCEL_FILE)
'Commencer à la rangée 2, après l'en-tête.
Obscurcir l'intRow : intRow = 2
Faire jusqu'à objExcel.Cells (intRow, 1).Value = ""
Obscurcir le strUserName : strUserName = objExcel.Cells (intRow, 1).Value
Faible strDisplayName : strDisplayName = objExcel.Cells (intRow, 2).Value
Faible strFirstName : strFirstName = objExcel.Cells (intRow, 3).Value
Faible strLastName : strLastName = objExcel.Cells (intRow, 4).Value
Faible strDS : strDS = objExcel.Cells (intRow, 5).Value
'Faible strOffice : strOffice = objExcel.Cells (intRow, 6).Value
Faible strPWD : strPWD = objExcel.Cells (intRow, 7).Value
'Le domaine d'ANNONCE de recherche pour vérifier le nom commun d'utilisateur n'existe pas déjà
objCommand.CommandText = « distinguishedName CHOISI DE ' » et strADsPath et _
« « OÙ objectCategory='user » ET cn='" et strDisplayName et « ' »
Placer l'objRecordSet = l'objCommand.Execute
Si objRecordSet.EOF alors
Faible objUser : Placer l'objUser = l'objOU.Create (« utilisateur », le « CN= » et le strDisplayName)
objUser.Put « sAMAccountName », strUserName
objUser.Put « userPrincipalName », strUserName et « @ » et strDNSDomain
objUser.Put « displayName », strDisplayName
objUser.Put « Sn », strLastName
objUser.Put « givenName », strFirstName
objUser.Put « description », strDS
'objUser.Put « physicalDeliveryOfficeName », strOffice
objUser.Put « homeDrive », « X : »
objUser.Put « homeDirectory », » \ \ shadowcom.local \ système \ profils \ « et strUsername
objUser.SetInfo
'Sektion de Separat jusqu'au mot de passe d'af d'importation jusqu'au brugerne
objUser.userAccountControl = 512
strPWD d'objUser.SetPassword
objUser.AccountDisabled = faux
objUser.SetInfo
Finir si
intRow = intRow + 1
Boucle
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
|