none
Script para remover todos os membros de todos os grupos que se encontram numa determinada OU RRS feed

  • Pergunta

  • Viva,

    Estou a precisar de um script que remova todos os membros de todos os grupos que se encontram numa determinada OU, já procurei e não encontrei nada. Como não percebo muito de script será que me podem ajudar.

    Obrigado
    Helena Carvalho
    segunda-feira, 16 de março de 2009 14:49

Respostas

  • Olá,

    Segue o script:

    ATENÇÃO: CUIDADO AO EXECUTAR ESTE SCRIPT, SE VOCÊ COLOCAR UMA OU ERRADA, TODOS OS MEMBROS DOS GRUPOS SERÃO EXCLUIDOS


    On Error Resume Next

    Const LimpaADMember = 1

    Dim objDSE, strDefaultDN, strDN, objContainer, objChild,objUser,objGroup

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

    strDN =     InputBox("Coloque o distinguished name do container" & _
        vbCrLf & "(e.g. " & strDefaultDN & ")", , strDefaultDN)

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

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

    objContainer.Filter = Array("Group")

    For Each objChild In objContainer
       set objGrupo = GetObject("LDAP://" & objChild.Name & "," & strDN)
       objGrupo.PutEx LimpaADMember, "member", 0
       objGrupo.SetInfo
    Next



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    segunda-feira, 16 de março de 2009 18:56