none
Dúvida em script para adicionar usuários... RRS feed

  • Pergunta

  • Olá,
    Alguém sabe se é possível adicionar um usuário ao domínio (remotamente) incluindo o atributo do grupo o qual ele pertence usando algum Script? O problema que temos é que não subimos o protocolo LDAP....

    []'s

    Thiago G. Traue

    segunda-feira, 22 de janeiro de 2007 17:34

Respostas

  • terça-feira, 23 de janeiro de 2007 11:10
  • E ai Thiago blz....???

    Estive vendo isso aqui onde trabalho e conseguimos montar dois Scripts, um para Criar OU e GRUPOS e outro que importa os usuários de uma tabela do excel e cria no AD.

    Script de Grupos

    '  #Criando OU Central#

    Set objDomain = GetObject("LDAP://dc=domain,dc=com,dc=br")

    '#Criando uma OU Central#

    Set objOU = objDomain.Create("organizationalUnit", "ou=USERS")
    objOU.SetInfo

    '  #Criando OUs dentro da OU Central#

    Set objDomain = GetObject("LDAP://ou=users,dc=domain,dc=com,dc=br")

    Set objOU = objDomain.Create("organizationalUnit", "ou=Diretoria")
    objOU.SetInfo



    Script de Usuários (dentro da tabela contém os seguintes campos:  cn  |  givenName  |  sn    displayName  |  description  |  sAMAccountName  |  userPrincipalName  |  memberOf    Unidade Organizacional)


    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, 9).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.SetInfo

    Set objGroup = GetObject("LDAP://"& objExcel.Cells(intRow, 8).Value)
    objGroup.Add(objUser.ADsPath)


    objUser.SetPassword "123"
    objUser.AccountDisabled = False
    objUser.Put "pwdLastSet", 0

    objUser.SetInfo

    intRow = intRow + 1
     
    Loop

    objExcel.Quit



    Criei apenas com os campos que eu precisava como propriedades dos usuários.

    Espero ter ajudado,
    Abraços
    Marco Antonio
    quarta-feira, 7 de março de 2007 22:05

Todas as Respostas

  • terça-feira, 23 de janeiro de 2007 11:10
  • E ai Thiago blz....???

    Estive vendo isso aqui onde trabalho e conseguimos montar dois Scripts, um para Criar OU e GRUPOS e outro que importa os usuários de uma tabela do excel e cria no AD.

    Script de Grupos

    '  #Criando OU Central#

    Set objDomain = GetObject("LDAP://dc=domain,dc=com,dc=br")

    '#Criando uma OU Central#

    Set objOU = objDomain.Create("organizationalUnit", "ou=USERS")
    objOU.SetInfo

    '  #Criando OUs dentro da OU Central#

    Set objDomain = GetObject("LDAP://ou=users,dc=domain,dc=com,dc=br")

    Set objOU = objDomain.Create("organizationalUnit", "ou=Diretoria")
    objOU.SetInfo



    Script de Usuários (dentro da tabela contém os seguintes campos:  cn  |  givenName  |  sn    displayName  |  description  |  sAMAccountName  |  userPrincipalName  |  memberOf    Unidade Organizacional)


    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, 9).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.SetInfo

    Set objGroup = GetObject("LDAP://"& objExcel.Cells(intRow, 8).Value)
    objGroup.Add(objUser.ADsPath)


    objUser.SetPassword "123"
    objUser.AccountDisabled = False
    objUser.Put "pwdLastSet", 0

    objUser.SetInfo

    intRow = intRow + 1
     
    Loop

    objExcel.Quit



    Criei apenas com os campos que eu precisava como propriedades dos usuários.

    Espero ter ajudado,
    Abraços
    Marco Antonio
    quarta-feira, 7 de março de 2007 22:05
  • Legal esse comentario! Vou gardar esses scripts! O problema é que não usamos o protocolo LDAP..... (não é dominio).


    []s'

    Thiago G. Traue
    quinta-feira, 8 de março de 2007 10:15