Estou com erro no script abaixo, o erro é apresentado na linha que está em negrito:
Este script captura as informacoes de um XLS e cria o usuario no AD.
Quando eu comento a linha em negrito o scritp funciona.
Porém o campo no ad: " user logon name" vem em branco
Como faço para referenciar este campo? Ou eu estou referenciando errado no script?
Desde já agradeço a ajuda.
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("c:\Import.xls")
intRow = 2
Do Until objExcel.Cells(intRow,1).Value = ""
Set objOU = GetObject("LDAP://"& objExcel.Cells(intRow, 11).Value)
Set objUser = objOU.Create _
("User", "cn=" & objExcel.Cells(intRow, 1).Value)
objUser.givenName = objExcel.Cells(intRow, 2).Value
objUser.sn = objExcel.Cells(intRow, 3).Value
objUser.displayName = objExcel.Cells(intRow, 4).Value
objUser.description = objExcel.Cells(intRow, 5).Value
objUser.sAMAccountName = objExcel.Cells(intRow, 6).Value
objUser.userPrincipalName = objExcel.Cells(intRow, 7).Value
objUser.servicePrincipalName = objExcel.Cells(intRow, 8).Value
objUser.ProfilePath = objExcel.Cells(intRow, 9).Value
objUser.SetInfo
Set objGroup = GetObject("LDAP://"& objExcel.Cells(intRow, 10).Value)
objGroup.Add (objUser.ADsPath)
objUser.SetPassword "password"
objUser.AccountDisabled = False
objUser.Put "pwdLastSet", 0
objUser.SetInfo
intRow = intRow + 1
Loop
objExcel.Quit
