none
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

  • Marcio,

    Faz o seguinte, altera a seguinte linha do seu script:

    Set objContainer = GetObject("LDAP://OU=T51,OU=Ensino_Medio,OU=Alunos" & _

    Mas sugiro que voce use o script abaixo:

     

    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.

    terça-feira, 27 de fevereiro de 2007 20:53
  • Olá primeiramente gostaria de agradecer pelo script é bem simples, mas como não sou especialista em scripts, como executo esta dando um erro na linha 39, e não executa o script.

     

    Dúvidas: precisa colocar "@nomededomnio"

     

    como faço para indicar que todos usuários devem estar na OU "Usuarios"?

     

    agradeço pelo espaço.

    sexta-feira, 26 de outubro de 2007 18:06
  • Colega,

    Nesse script voce vai precisar alterar somente a string de nomenclatura que voce quer utilizar (ex: user, usuaio, operador, etc) entao no lugar em que esta USUARIO, voce altera para a string que desejar. A outra modificação é referente a string do seu dominio no caso do script estra @virtual.lan entao voce altera para string do seu dominio (ex. meudominio.rede, meudominio.net, etc).

    Quanto a criar os usuarios na OU Usuaurios, quando o Input Box abrir, voce tera que informar o nome do dominio.

    Para criar os usuarios dentro da OU Usuarios do dominio VIRTUAL.LAN ficaria da seguinte forma:

    OU=Usuarios,DC=Virtual,DC=Lan

    no caso é substituir/alterar as entradas com o nome do seu dominio.


    abs,


    Wagner
    sexta-feira, 26 de outubro de 2007 18:38

Todas as Respostas

  • Marcio,

    Faz o seguinte, altera a seguinte linha do seu script:

    Set objContainer = GetObject("LDAP://OU=T51,OU=Ensino_Medio,OU=Alunos" & _

    Mas sugiro que voce use o script abaixo:

     

    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.

    terça-feira, 27 de fevereiro de 2007 20:53
  • Olá primeiramente gostaria de agradecer pelo script é bem simples, mas como não sou especialista em scripts, como executo esta dando um erro na linha 39, e não executa o script.

     

    Dúvidas: precisa colocar "@nomededomnio"

     

    como faço para indicar que todos usuários devem estar na OU "Usuarios"?

     

    agradeço pelo espaço.

    sexta-feira, 26 de outubro de 2007 18:06
  • Colega,

    Nesse script voce vai precisar alterar somente a string de nomenclatura que voce quer utilizar (ex: user, usuaio, operador, etc) entao no lugar em que esta USUARIO, voce altera para a string que desejar. A outra modificação é referente a string do seu dominio no caso do script estra @virtual.lan entao voce altera para string do seu dominio (ex. meudominio.rede, meudominio.net, etc).

    Quanto a criar os usuarios na OU Usuaurios, quando o Input Box abrir, voce tera que informar o nome do dominio.

    Para criar os usuarios dentro da OU Usuarios do dominio VIRTUAL.LAN ficaria da seguinte forma:

    OU=Usuarios,DC=Virtual,DC=Lan

    no caso é substituir/alterar as entradas com o nome do seu dominio.


    abs,


    Wagner
    sexta-feira, 26 de outubro de 2007 18:38
  • Bom dia, Wargner,

     

    será se vc poderia me ajudar? Estou querendo criar 2000 usuários no meu AD, criei um arquivo .csv que contêm as seguintes informações:

     

    "samaccountname","displayname","ud","upn","dn","objectClass"
    "821725203","ABEL SILVA COSTA","Users","821725203@facsaoluis.br","cn=ABEL SILVA COSTA,cn=users,dc=shap-lab,dc=com,dc=br","User"
    "72602407017","ABERLON JORIAZIO SEREJO MENDONÇA","Users","72602407017@facsaoluis.br","cn=ABERLON JORIAZIO SEREJO MENDONÇA,cn=users,dc=shap-lab,dc=com,dc=br","User"
    "81171312070","ABGAIL ALEXANDRE DA SILVA","Users","81171312070@facsaoluis.br","cn=ABGAIL ALEXANDRE DA SILVA,cn=users,dc=shap-lab,dc=com,dc=br","User"
    "311201326","ABRÃO COELHO DOS SANTOS","Users","311201326@facsaoluis.br","cn=ABRÃO COELHO DOS SANTOS,cn=users,dc=shap-lab,dc=com,dc=br","User"
    "626001005","ADAILTON DE JESUS BEZERRA CHAVES","Users","626001005@facsaoluis.br","cn=ADAILTON DE JESUS BEZERRA CHAVES,cn=users,dc=shap-lab,dc=com,dc=br","User"
    "71301002125","ADAILTON SILVA SOARES FILHO","Users","71301002125@facsaoluis.br","cn=ADAILTON SILVA SOARES FILHO,cn=users,dc=shap-lab,dc=com,dc=br","User"
    "321100735","ADAM LUIS GOMES ARAUJO","Users","321100735@facsaoluis.br","cn=ADAM LUIS GOMES ARAUJO,cn=users,dc=shap-lab,dc=com,dc=br","User"
    "524002630","ADELIA MARIA MENEZES DA SILVEIRA","Users","524002630@facsaoluis.br","cn=ADELIA MARIA MENEZES DA SILVEIRA,cn=users,dc=shap-lab,dc=com,dc=br","User"
    "714010020130","ADELMAN RIBEIRO PINHEIRO JUNIOR","Users","714010020130@facsaoluis.br","cn=ADELMAN RIBEIRO PINHEIRO JUNIOR,cn=users,dc=shap-lab,dc=com,dc=br","User"

     

    De que forma poderia usuar seu script?

     

    Desde já agradeço,

     

    Cordialmente,

     

    Kawê

     

    quinta-feira, 30 de outubro de 2008 13:19