No erro recomeçar em seguida
Const ADS_SCOPE_SUBTREE = 2 'procurara objeto do alvo e todos os níveis do submarino
objRootDSE não ofuscante: Ajustar o objRootDSE = o GetObject (“LDAP: //RootDSE”)
o strDNSDomain = substitui (substituir (objRootDSE.Get (“defaultNamingContext”),”, DC= ", “."), “DC=”, o "")
strADsPath = “LDAP: /” & objRootDSE.Get (“defaultNamingContext”)
'Conetar ao diretório ativo
Ajustar o objConnection = o CreateObject (“ADODB.Connection”)
Ajustar o objCommand = o CreateObject (“ADODB.Command”)
objConnection.Provider = “ADsDSOObject”
objConnection.Open “fornecedor ativo do diretório”
Ajustar objCommand.ActiveConnection = objConnection
objCommand.Properties (de “tamanho página”) = 1000
objCommand.Properties (“Searchscope”) = ADS_SCOPE_SUBTREE
objOU não ofuscante: Ajustar o objOU = o GetObject (“LDAP: /” & TARGET_OU)
objExcel não ofuscante: Ajustar o objExcel = o CreateObject (“Excel.Application”)
Escurecer o objWorkbook: Ajustar o objWorkbook = o objExcel.Workbooks.Open (EXCEL_FILE)
'Começar na fileira 2, após o encabeçamento.
Escurecer o intRow: intRow = 2
Fazer até objExcel.Cells (intRow, 1). Valor = ""
strUserName não ofuscante: strUserName = objExcel.Cells (intRow, 1). Valor
strDisplayName não ofuscante: strDisplayName = objExcel.Cells (intRow, 2). Valor
strFirstName não ofuscante: strFirstName = objExcel.Cells (intRow, 3). Valor
strLastName não ofuscante: strLastName = objExcel.Cells (intRow, 4). Valor
strDS não ofuscante: strDS = objExcel.Cells (intRow, 5). Valor
'strOffice não ofuscante: strOffice = objExcel.Cells (intRow, 6). Valor
strPWD não ofuscante: strPWD = objExcel.Cells (intRow, 7). Valor
'O domínio do ANÚNCIO da busca para verific o nome comum do usuário já não existe
objCommand.CommandText = “distinguishedName SELETO DE '” & strADsPath & _
““ONDE objectCategory='user” E cn='" & strDisplayName & “'”
Ajustar o objRecordSet = o objCommand.Execute
Se objRecordSet.EOF então
objUser não ofuscante: Ajustar o objUser = o objOU.Create (“usuário”, o “CN=” & o strDisplayName)
objUser.Put “sAMAccountName”, strUserName
objUser.Put “userPrincipalName”, strUserName & “@” & strDNSDomain
objUser.Put “displayName”, strDisplayName
objUser.Put “sn”, strLastName
objUser.Put “givenName”, strFirstName
objUser.Put “descrição”, strDS
'objUser.Put “physicalDeliveryOfficeName”, strOffice
objUser.Put “homeDrive”, “X: ”
objUser.Put “homeDirectory”,” \ \ shadowcom.local \ sistema \ perfis \ “& strUsername
objUser.SetInfo
'Sektion de Separat até a senha do af da importação até o brugerne
objUser.userAccountControl = 512
strPWD de objUser.SetPassword
objUser.AccountDisabled = falso
objUser.SetInfo
Terminar se
intRow = intRow + 1
Laço
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
|