locked
criar vários usuários RRS feed

  • Pergunta

  • Boa tarde!

    Alguém sabe como fazer  um script onde eu possa criar vários usuários numa unidade organizacional. Dei uma olhada no script center, lá tinha um script para criar 1000 usuários, mas pela minha limitação no conhecimento sobre scripts fiquei travado nos erros. No ad (container) OU=T51,OU=Ensino_Medio,OU=Alunos,DC=lab,DC=local, tenho que acrescentar 23 usuários, eles começam com t51g01 até t51g23. Alguém sabe como posso resolver isso?

    o script que usei foi:

    Set objRootDSE = GetObject("LDAP://rootDSE")

    Set objContainer = GetObject("LDAP://OU=T51,OU=Ensino_Medio,OU=Alunos,DC=lab,DC=local," & _
        objRootDSE.Get("defaultNamingContext"))
     
    For i = 01 To 23
        Set objLeaf = objContainer.Create("User", "cn=t51g" & i)
        objLeaf.Put "sAMAccountName", "t51g" & i
        objLeaf.SetInfo
    Next
     
    WScript.Echo "23 Users created."

     

     

    Desde já agradeço!

    segunda-feira, 26 de fevereiro de 2007 18:35

Respostas

  • Só um detalhe, esse script do script center, nao define alguns atributos necessarios no AD, como: User Logon Name, User Account Control, User Principal Name, etc...
    terça-feira, 27 de fevereiro de 2007 13:59
  • Amigo,

    Altere a seguinte linha:

    Set objContainer = GetObject("LDAP://OU=T51,OU=Ensino_Medio,OU=Alunos" & _
        objRootDSE.Get("defaultNamingContext"))

    Classifique,
    Paulo Dutra

     

     

    segunda-feira, 26 de fevereiro de 2007 19:01
  • Boa tarde!

    Alguém sabe como fazer  um script onde eu possa criar vários usuários numa unidade organizacional. Dei uma olhada no script center, lá tinha um script para criar 1000 usuários, mas pela minha limitação no conhecimento sobre scripts fiquei travado nos erros. No ad (container) OU=T51,OU=Ensino_Medio,OU=Alunos,DC=lab,DC=local, tenho que acrescentar 23 usuários, eles começam com t51g01 até t51g23. Alguém sabe como posso resolver isso?

    o script que usei foi:

    Set objRootDSE = GetObject("LDAP://rootDSE")

    Set objContainer = GetObject("LDAP://OU=T51,OU=Ensino_Medio,OU=Alunos,DC=lab,DC=local," & _
        objRootDSE.Get("defaultNamingContext"))
     
    For i = 01 To 23
        Set objLeaf = objContainer.Create("User", "cn=t51g" & i)
        objLeaf.Put "sAMAccountName", "t51g" & i
        objLeaf.SetInfo
    Next
     
    WScript.Echo "23 Users created."

     

     

    Desde já agradeço!


    Alguma novidade sobre o Caso?

     

    Vou fechar essa thread para manter o forum organizado.

    []'s


    Thiago Cardoso Luiz
    W: www.thiagocardoso.org
    T: www.twitter.com/t_cardoso
    Microsoft Student Partner - Brazil/SP
    MCT MCSE MCSA MCTS ITIL MSP MCC

    Caso seja util vote e coloque como resposta!

    quinta-feira, 13 de outubro de 2011 17:09

Todas as Respostas

  • Amigo,

    Altere a seguinte linha:

    Set objContainer = GetObject("LDAP://OU=T51,OU=Ensino_Medio,OU=Alunos" & _
        objRootDSE.Get("defaultNamingContext"))

    Classifique,
    Paulo Dutra

     

     

    segunda-feira, 26 de fevereiro de 2007 19:01
  • Bom eu ja usei esse script do script center e vou postar um que encontrei melhor que esse. E da proxima vez, posta tambem no forum de script.

     

    CRLF = Chr(13) & Chr(10)

    'This statement binds the Global catalog
    Set root = GetObject("GC://RootDSE")

    'Default Domain capture
    Set domname = GetObject( "GC://" & root.Get("rootDomainNamingContext"))

    'Ask user for input
    dspath=inputbox("Especifique o caminho do diretorio no AD."+CRLF+"For Exemplo: DC=e-learn,DC=com","Sample NT 5.0 Script", domname.distinguishedname)
    If dspath="" then
    WScript.Quit(1)
    end if

    usernum=inputbox("Quantos usuarios deseja criar?","Sample NT 5.0 Script",10)
    If usernum="" then
    WScript.Quit(1)
    end if

    'Set the starting LDAP path
    set ns=getobject("
    LDAP://"+dspath)

    for y= 1 to usernum
    'specify context for the creation of the user
    Set u = ns.Create("user", "CN="+"USUARIO"+cstr(y))

    'specify downstream (NT 4.0) compatible name
    u.Put "sAMAccountName","USUARIO"+cstr(y)

    'specify UPN
    u.PUT "userPrincipalName","USUARIO"+cstr(y)

    'set user account properties
    u.Put "userAccountControl",66048
    u.Put "userPassword","Password*"
    u.Put "userPrincipalName","USUARIO"+cstr(y)+"@virtual.lan"

    'write user account to DS
    u.SetInfo
    next
    'Next

    msgbox "As contas de usuario foram criados com sucesso!"

     

    Mudanças a fazer:

    A onde estiver escrito USUARIO, voce devera alterar para a sua string de nomenclatura de usuario (no seu caso T51G). E depois alterar a string "@virtual.lan" para o nome do seu dominio.

     

    abs,

     

    Wagner

    segunda-feira, 26 de fevereiro de 2007 19:53
  • Só um detalhe, esse script do script center, nao define alguns atributos necessarios no AD, como: User Logon Name, User Account Control, User Principal Name, etc...
    terça-feira, 27 de fevereiro de 2007 13:59
  • Como fasso para criar varios usuarios, mas local, sem a interferencia do AD, no caso no XP, ou 2000, ou 2003 server...

    (mas sem o AD).

    vlw

    quinta-feira, 5 de abril de 2007 11:08
  • Boa tarde!

    Alguém sabe como fazer  um script onde eu possa criar vários usuários numa unidade organizacional. Dei uma olhada no script center, lá tinha um script para criar 1000 usuários, mas pela minha limitação no conhecimento sobre scripts fiquei travado nos erros. No ad (container) OU=T51,OU=Ensino_Medio,OU=Alunos,DC=lab,DC=local, tenho que acrescentar 23 usuários, eles começam com t51g01 até t51g23. Alguém sabe como posso resolver isso?

    o script que usei foi:

    Set objRootDSE = GetObject("LDAP://rootDSE")

    Set objContainer = GetObject("LDAP://OU=T51,OU=Ensino_Medio,OU=Alunos,DC=lab,DC=local," & _
        objRootDSE.Get("defaultNamingContext"))
     
    For i = 01 To 23
        Set objLeaf = objContainer.Create("User", "cn=t51g" & i)
        objLeaf.Put "sAMAccountName", "t51g" & i
        objLeaf.SetInfo
    Next
     
    WScript.Echo "23 Users created."

     

     

    Desde já agradeço!


    Alguma novidade sobre o Caso?

     

    Vou fechar essa thread para manter o forum organizado.

    []'s


    Thiago Cardoso Luiz
    W: www.thiagocardoso.org
    T: www.twitter.com/t_cardoso
    Microsoft Student Partner - Brazil/SP
    MCT MCSE MCSA MCTS ITIL MSP MCC

    Caso seja util vote e coloque como resposta!

    quinta-feira, 13 de outubro de 2011 17:09