En error reasumir después
Const ADS_SCOPE_SUBTREE = 2 'busca el objeto de la blanco y todos los niveles del submarino
objRootDSE dévil: Fijar el objRootDSE = GetObject (“LDAP: //RootDSE”)
el strDNSDomain = substituye (substituir (objRootDSE.Get (“defaultNamingContext”),”, DC= ", “."), “DC=”, el "")
strADsPath = “LDAP: /” y objRootDSE.Get (“defaultNamingContext”)
'Conectar con el directorio activo
Fijar el objConnection = CreateObject (“ADODB.Connection”)
Fijar el objCommand = CreateObject (“ADODB.Command”)
objConnection.Provider = “ADsDSOObject”
objConnection.Open “abastecedor activo del directorio”
Fijar objCommand.ActiveConnection = objConnection
objCommand.Properties (“tamaño de página”) = 1000
objCommand.Properties (“Searchscope”) = ADS_SCOPE_SUBTREE
objOU dévil: Fijar el objOU = GetObject (“LDAP: /” y TARGET_OU)
objExcel dévil: Fijar el objExcel = CreateObject (“Excel.Application”)
Amortiguar el objWorkbook: Fijar el objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
'Comenzar en la fila 2, después del jefe.
Amortiguar el intRow: intRow = 2
Hacer hasta objExcel.Cells (intRow, 1).Value = el ""
Amortiguar el strUserName: strUserName = objExcel.Cells (intRow, 1).Value
strDisplayName dévil: strDisplayName = objExcel.Cells (intRow, 2).Value
strFirstName dévil: strFirstName = objExcel.Cells (intRow, 3).Value
strLastName dévil: strLastName = objExcel.Cells (intRow, 4).Value
strDS dévil: strDS = objExcel.Cells (intRow, 5).Value
'strOffice dévil: strOffice = objExcel.Cells (intRow, 6).Value
strPWD dévil: strPWD = objExcel.Cells (intRow, 7).Value
'El dominio del ANUNCIO de la búsqueda para verificar nombre común del usuario no existe ya
objCommand.CommandText = “distinguishedName SELECTO DE '” y strADsPath y _
““DONDE objectCategory='user” Y cn='" y strDisplayName y “'”
Fijar el objRecordSet = objCommand.Execute
Si objRecordSet.EOF entonces
objUser dévil: Fijar el objUser = objOU.Create (“usuario”, “CN=” y el strDisplayName)
objUser.Put “sAMAccountName”, strUserName
objUser.Put “userPrincipalName”, strUserName y “@” y strDNSDomain
objUser.Put “displayName”, strDisplayName
objUser.Put “sn”, strLastName
objUser.Put “givenName”, strFirstName
objUser.Put “descripción”, strDS
'objUser.Put “physicalDeliveryOfficeName”, strOffice
objUser.Put “homeDrive”, “X: ”
objUser.Put “homeDirectory”,” \ \ shadowcom.local \ sistema \ perfiles \ “y strUsername
objUser.SetInfo
'Sektion de Separat hasta contraseña del af de la importación hasta brugerne
objUser.userAccountControl = 512
strPWD de objUser.SetPassword
objUser.AccountDisabled = falso
objUser.SetInfo
Terminar si
intRow = intRow + 1
Lazo
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
|