none
Criácão de varios usuarios via VBScript RRS feed

  • Pergunta

  • 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

    quinta-feira, 17 de abril de 2008 09:54

Respostas