Amigos,
Estou tentando criar varios usuarios utilizando uma planilha em excel com o seguinte script:
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open ("C:\Lista_usuarios.xls")
intRow = 2
Do Until objExcel.Cells(intRow,1).Value = ""
Can= objExcel.Cells(intRow, 1).Value
sAMAccountName2= objExcel.Cells(intRow, 2).Value
Nome= objExcel.Cells(intRow, 3).Value
Nome2 = objExcel.Cells(intRow, 4).Value
DisplayName= objExcel.Cells(intRow, 5).Value
LogonName= objExcel.Cells(intRow, 6).Value
Set objOU = GetObject(LDAP://OU=users,dc=teste,dc=com)
Set objUser = objOU.Create("users", "cn="&can)
objUser.Put "sAMAccountName", Samaccountname2
objuser.put "givenName", nome
objuser.put "sn", nome2
objuser.put "displayName", displayName
objuser.put "userPrincipalName", LogonName
objuser.setinfo
intRow = intRow + 1
Loop
objExcel.Quit
________________________________________________________________________________________________
Os campos que existem na minha planilha em excell são:
| CN |
SamAccountName |
First Name |
Last Name |
Display Name |
UserPrincipalName |
Ao tentar executar o script aparece o seguinte erro:
Line:2
char:1
Error: Object required :'ObjExcel'
Code:800A01A8
Source: Micrososft script run time error |
|
|
|
|
|
|
