none
Erro no script de criar usuário RRS feed

  • Pergunta

  • 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

    quinta-feira, 22 de março de 2007 15:16

Respostas

Todas as Respostas