none
Criar grupo no AD Através de uma O.U. RRS feed

  • Pergunta

  • Bom dia Pessoal,

    Preciso da ajuda de voces.
    Tenho uma OU chamada Usuários onde de acordo com a planta onde o Usuário se encontra, ele é movido para esta OU.
    Acontece que preciso criar um grupo com todos os usuários que estão nessa ou, e gostaria também que esse grupo fosse atualizado automaticamente, de alguma formta (por período, ou executando algum comando, enfim).
    Vocês poderiam me ajudar com isso.


    Ps. Sou novo na área de infra, e meus conhecimentos quanto ao AD, são bem limitados.
    Fico no aguardo.


    Até Mais,

    Diego
    sexta-feira, 10 de julho de 2009 13:44

Respostas

  • Olá,

    Faça o teste com o script abaixo:


    Set objDSE = GetObject("LDAP://rootDSE")
    strDefaultDN = "CN=Users," & objDSE.Get("defaultNamingContext")

    strNomeGrupo =     InputBox("Coloque o nome do grupo que deseja criar", , "NomedoGrupo")
    If strNomeGrupo = "" Then WScript.Quit(1)

    strDN =     InputBox("Coloque o Distinguished name da OU" & _
        vbCrLf & "(Exemplo: " & strDefaultDN & ")", , strDefaultDN)

    If strDN = "" Then WScript.Quit(1)       

    Set objContainer = GetObject("LDAP://" & strDN)

    Set objGroup = objContainer.Create("Group", "cn=" & strNomeGrupo)
    objGroup.put "name",strNomeGrupo
    objGroup.put "SamAccountname",strNomeGrupo
    objGroup.setinfo


    Set objGrupo = GetObject  ("LDAP://cn=" & strNomeGrupo & "," & strDN)
    objContainer.Filter = Array("user")

    For Each objChild In objContainer
       objGrupo.PutEx 3,"member", Array(objChild.Name & "," & strDN)
       objGrupo.SetInfo
    Next


    Salve com a extensão .vbs e execute.

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 10 de julho de 2009 15:15