none
Renombrar todos los grupos dentro de una OU, añadiendoles un prefijo RRS feed

  • Pregunta

  • Hola a todos, llevaba ya tiempo sin acceder :-)

    Me gustaría saber si es posible renombrar todos los grupos dentros de una unidad organizativa.

    El renombrado sería añadir un prefijo a todos los grupos por ejemplo  MIDOMINIO_

    Llevo un buen rato mirando y no encuentro una manera.

    Muchas gracias de antemano.




    Salu2!, Dani Gracia - Madrid España
    -------------------------------------------------------------------------------------------------------------
    Por favor, marca como propuesta o como respuesta la que haya solucionado tu problema.<
    -------------------------------------------------------------------------------------------------------------

    jueves, 19 de abril de 2012 11:11

Respuestas

  • Renombrar no es renombrar, es mover, así que eso es lo que deberías haber mirado:

    'Obtenemos el objeto iADsContainer
    Set obj_OU = GetObject("LDAP://ou=Agentes,dc=tia,dc=org")
    
    'Movemos el grupo agregando un prefijo, pasando como primer parámetro,
    'al método MoveHere, la ruta LDAP del grupo y como segundo su nuevo RDN
    Set obj_Inutiles = obj_OU.MoveHere( _
                         "LDAP://cn=Agentes Inutiles,ou=Agentes,dc=tia,dc=org", _
                         "cn=Agentes Inutiles un prefijo")

    Referencia:

    IADsContainer::MoveHere method
    http://msdn.microsoft.com/en-us/library/windows/desktop/aa705991(v=vs.85).aspx

    Así pues, para agregar un prefijo a todos los grupos contenidos en una OU sería algo así:

    'Obtenemos el objeto iADsContainer Set obj_OU = GetObject("LDAP://ou=Agentes,dc=tia,dc=org") 'Filtramos para obtener los grupos ubicados en la OU obj_OU.Filter = Array("group") 'Recorremos los grupos contenidos en la OU For Each obj_Grupo In obj_OU 'Renombramos el grupo agregando un prefijo, pasando como primer parámetro, 'al método MoveHere, la ruta LDAP del grupo y como segundo su nuevo RDN Set obj_NuevoGrupo = obj_OU.MoveHere(obj_Grupo.adsPath, _ obj_Grupo.Name & " un prefijo") Next


    Un saludo

    Fernando Reyes [MS MVP]
    MCSA 2000/2003
    MCSE 2000/2003
    MCITP EnterpriseAdministrator
    Web: http://freyes.svetlian.com
    Blog: http://urpiano.wordpress.com
    RSS: http://urpiano.wordpress.com/feed/
    freyes.champú@champú.mvps.org
    (Aclárate la cabeza si quieres escribirme)




    lunes, 23 de abril de 2012 7:25
    Moderador