none
como hago para agregar usuarios

    Question

  • Buenas noches tengo un problema es que en windows server 2003 para agregar usuarios digamos 200 de un solo tiro he encontrado un script que contiene lo siguiente :

    Set objRootDSE = GetObject("LDAP://rootDSE")
    Set objContainer = GetObject("LDAP://cn=Users," & _
    objRootDSE.Get("defaultNamingContext"))

    For i = 1 to 200

    Set ObjLeat= objContainer.Create("User","cn=DEMOUSER"&i)
    objLeaf.Put"sAMAccountName","DEMOUSER" & _
    objLeaf.SetInfo
    Next
    WScript.Echo"Se termino de crear los 200 usuarios , corectamente"

    pero al ejecutar me sale un error que dice
    error en linea 8
    se requiere un objeto objLeaf

    mi pregunta cual es mi error y como puedo hacer para hacer correr ese programa muchas gracias

    Friday, July 10, 2009 3:57 AM

Answers

  • MUchas gracias por la respuesta german luis pero encontre el problema pero siento refutarte a tu respuesta pero en esa linea no estaba el problema sino estaba como dicen en la linea 8

    Set ObjLeat= objContainer.Create("User","cn=DEMOUSER"&i)

    como te daras cuenta el Set ObjLeat esta con la letra T mientras que los objLeaf esta con F definitivamente alli fue mi error lo hice correr el programa y corre a la perfeccion te puede crear 200 usuarios de un solo tiro  muchas gracias por haber respondido a mi pregunta gracias

    Espero resolver yo tambien a tus consultas gracias
    Friday, July 10, 2009 2:23 PM

All replies

  • Saludos,

    Tu error es que en la linea 8

    objLeaf.Put"sAMAccountName","DEMOUSER" & _

    Debe quedar asi

    objLeaf.Put"sAMAccountName","DEMOUSER" & i


    Una vez soluciones puedes gardar ese texto en un archivo con extension .cbs o .vbs  y ejecutarlo con doble click desde un usuario con permisos administrativos.
    Germán Ruiz -- Infrastructure Architect -- Speaker TechNet LATAM -- http://germanruizp.blogspot.com
    Friday, July 10, 2009 12:21 PM
  • MUchas gracias por la respuesta german luis pero encontre el problema pero siento refutarte a tu respuesta pero en esa linea no estaba el problema sino estaba como dicen en la linea 8

    Set ObjLeat= objContainer.Create("User","cn=DEMOUSER"&i)

    como te daras cuenta el Set ObjLeat esta con la letra T mientras que los objLeaf esta con F definitivamente alli fue mi error lo hice correr el programa y corre a la perfeccion te puede crear 200 usuarios de un solo tiro  muchas gracias por haber respondido a mi pregunta gracias

    Espero resolver yo tambien a tus consultas gracias
    Friday, July 10, 2009 2:23 PM