none
Criação de usuário via Script RRS feed

  • Pergunta

  • Bom dia,

    Olhei o fórum mas não achei da forma que gostaria.

    Queria ver se é possivel a criação de usuários por planilha Excel com o seguintes dados

    First Name
    Last Name
    Display Name
    Description
    User Logon Name
    Colocar Senha e pedir para alterar no próximo logon.

    O nome da planilha será users_ad.xls

    Desde já mto obrigado.
    sexta-feira, 19 de fevereiro de 2010 10:10

Respostas

  • tens razão eu tinha isso numa documentação que havia procurado tempos atrás.
    mas aqui vai o link com explicações de fazer o que pretende e o uso do Excel via VBS:
    o código fica assim:
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open _
        ("C:\Scripts\New_users.xls")
    intRow = 2
    Do Until objExcel.Cells(intRow,1).Value = ""
        Set objOU = GetObject("ou=Finance, dc=fabrikam, dc=com")
        Set objUser = objOU.Create _
           ("User", "cn=" & objExcel.Cells(intRow, 1).Value)
        objUser.sAMAccountName = objExcel.Cells(intRow, 2).Value
        objUser.GivenName = objExcel.Cells(intRow, 3).Value
        objUser.SN = objExcel.Cells(intRow, 4).Value
        objUser.AccountDisabled = FALSE
        objUser.SetInfo
        intRow = intRow + 1
    Loop
    objExcel.Quit

    a folha de Excel deverá ser assim:
    CN SAM Account Name First Name Last Name
    R2C1 R2C2 R2C3 R2C4
    R3C1 R3C2 R3C3 R3C4

    Explicações mais concretas no link:
    http://msdn.microsoft.com/en-us/library/ms974568.aspx


    Cláudio Gonçalves
    sexta-feira, 19 de fevereiro de 2010 11:20

Todas as Respostas

  • encontrei na net

    Set objExcel = CreateObject ( "Excel.Application ")

    Set objWorkbook = objExcel.Workbooks.Open _

        ("C:\Scripts\New_users.xls")

    intRow = 2

    Do Until objExcel.Cells ( intRow,1).Value = ""

        Wscript.Echo "CN: " & objExcel.Cells ( intRow , 1).Value

        Wscript.Echo "sAMAccountName : " & objExcel.Cells ( intRow , 2).Value

        Wscript.Echo "GivenName : " & objExcel.Cells ( intRow , 3).Value

        Wscript.Echo "LastName : " & objExcel.Cells ( intRow , 4).Value

        intRow = intRow + 1

    Loop

    objExcel.Quit

    espero que te ajude
    Cláudio Gonçalves
    sexta-feira, 19 de fevereiro de 2010 11:00
  • Bom dia Cláudio,


    Obrigado pela força, mas acredito que esteja incompleto esse script, pois não tem nem LDAP ( OU=, DC=, DC=,)

    sexta-feira, 19 de fevereiro de 2010 11:04
  • tens razão eu tinha isso numa documentação que havia procurado tempos atrás.
    mas aqui vai o link com explicações de fazer o que pretende e o uso do Excel via VBS:
    o código fica assim:
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open _
        ("C:\Scripts\New_users.xls")
    intRow = 2
    Do Until objExcel.Cells(intRow,1).Value = ""
        Set objOU = GetObject("ou=Finance, dc=fabrikam, dc=com")
        Set objUser = objOU.Create _
           ("User", "cn=" & objExcel.Cells(intRow, 1).Value)
        objUser.sAMAccountName = objExcel.Cells(intRow, 2).Value
        objUser.GivenName = objExcel.Cells(intRow, 3).Value
        objUser.SN = objExcel.Cells(intRow, 4).Value
        objUser.AccountDisabled = FALSE
        objUser.SetInfo
        intRow = intRow + 1
    Loop
    objExcel.Quit

    a folha de Excel deverá ser assim:
    CN SAM Account Name First Name Last Name
    R2C1 R2C2 R2C3 R2C4
    R3C1 R3C2 R3C3 R3C4

    Explicações mais concretas no link:
    http://msdn.microsoft.com/en-us/library/ms974568.aspx


    Cláudio Gonçalves
    sexta-feira, 19 de fevereiro de 2010 11:20