criar vários usuários

Todas as Respostas

• 

  

  0

  Entrar para Votar

  Amigo,

  Altere a seguinte linha:

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

  Classifique,
  Paulo Dutra

   

   

  • Marcado como Resposta Thiago Cardoso LuizMicrosoft employee quinta-feira, 13 de outubro de 2011 17:09

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

  

  0

  Entrar para Votar

  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
• 

  

  1

  Entrar para Votar

  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...

  • Sugerido como Resposta Thiago Cardoso LuizMicrosoft employee quinta-feira, 13 de outubro de 2011 17:09
  • Marcado como Resposta Thiago Cardoso LuizMicrosoft employee quinta-feira, 13 de outubro de 2011 17:09

  terça-feira, 27 de fevereiro de 2007 13:59
• 

  

  1

  Entrar para Votar

  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
• 

  

  0

  Entrar para Votar

  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!

  • Sugerido como Resposta Thiago Cardoso LuizMicrosoft employee quinta-feira, 13 de outubro de 2011 17:09
  • Marcado como Resposta Thiago Cardoso LuizMicrosoft employee quinta-feira, 13 de outubro de 2011 17:09

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