none
Lista permissões ad RRS feed

Respostas

  • Olá,

    Dá uma olhada no script abaixo:


    Option Explicit

     

    Dim objDSE, strDefaultDN, strDN, objContainer, objChild,Userobj,List,GroupObj,FileSystem,OutPutFile

     

    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")

    Set OutPutFile = FileSystem.CreateTextFile("Lista_de_Grupos.txt", True)

    Set objDSE = GetObject("LDAP://rootDSE")

    strDefaultDN = "CN=Users," & objDSE.Get("defaultNamingContext")

     

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

     

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

     

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

     

    objContainer.Filter = Array("user")

     

    For Each objChild In objContainer

        set UserObj = GetObject("LDAP://" & objChild.Name & "," & strDN)

        if err.number<>0 then

             if ChkEngine = "cscript.exe" then

              wscript.echo "Erro conectando ao " & strDN & " ou usuário não encontrado."

              wscript.quit

           else

              wscript.quit

           end if

        end if

     

        List= "Grupos do usuário: " & UserObj.cn & " (" & objChild.Name & ") in " & UCASE(strDN) & VBCRLF & VBCRLF

     

        For Each GroupObj In UserObj.Groups

           List = List & GroupObj.Name  & VBCRLF

        Next



     

            OutPutFile.WriteLine List

        OutPutFile.WriteLine "===================================================="

    Next

     

    OutPutFile.Close

    wscript.quit

     

    Function ChkEngine()

     

    ON ERROR RESUME NEXT

     

    strEngine=Wscript.FullName

     

    if Err.Number <>0 then

    wscript.echo "Error!"

    wscript.echo "Erro (" & Err.Number & ") Descrição: " & Err.Description

    wscript.quit

    end if

     

    PosX=InStrRev(strEngine,"\",-1,vbTextCompare)

    ChkEngine=Mid(strEngine,PosX+1)

     

    End Function


    Verifique se atende e nos retorne.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    sexta-feira, 16 de outubro de 2009 19:56