none
windows 2003 com AD - documentar a rede RRS feed

  • Pergunta

  • Tenho um servidor windows 2003 com Ad, gostaria de saber se há alguma forma ou algum aplicativo para documentar a minha rede?. quais são os usuários, o que é compartilhado, quais as permissões.

    Gostaria também de criar uma lista dos usuários e alguns dados de cada usuário desse domínio.

    Celina

    quarta-feira, 8 de fevereiro de 2012 13:10

Respostas

  • Cejuhi,

    O system Internals tem o Accessenum, ele pode te ajuda com as permissões de pastas!

    Para uma lista dos usuários pode utilizar o seguinte

    Você pode salvar o script abaixo como ListUsers.vbs por exemplo e executá-lo pelo prompt (cmd), passando os parametros domíno e caminho do txt onde será salvo, por exemplo: ListUsers.vbs dominio.local C:\Usuarios.txt

    Segue o script.

    ---------------------------------------------------------------------------------------



    Sub ListUsers( strDomain )
        Set objComputer = GetObject("WinNT://" & strDomain )
        objComputer.Filter = Array( "User" )
        For Each objUser In objComputer
            suserInfo = objUser.Name & ", " & objUser.Fullname & ", "  & objUser.Description & ", " & objUser.AccountDisabled
                    objFile.WriteLine(sUserInfo)
        Next
    End Sub


    ' ****************************************************************************
    ' Main
    ' ****************************************************************************
    Dim strDomain
    Dim sUserInfo
    Dim sFileName

    strDomain = WScript.Arguments(0)
    sFileName = WScript.Arguments(1)
    If strDomain = "" Then
       WScript.Echo "VoCê não Adicionou os parametros necessários, chame o script pelo prompt, ex.: ListUsers.vbs dominio.local C:\listusers.txt"
    End If

    If sFileName = "" Then
       WScript.Echo "VoCê não Adicionou os parametros necessários, chame o script pelo prompt, ex.: ListUsers.vbs dominio.local C:\listusers.txt"
    End If

    set objFSO = createobject("scripting.filesystemobject")
    set objFile = objFSO.createtextfile(sFileName)
    objFile.WriteLine("Usuario, Nome Completo, Descrição, Status da Conta")

    ListUsers( strDomain )
    objFile.Close

    -------------------------------------------------------------------------------------------------------------------

    Você também pode fazer uma query pelo mmc do Active Directory Users and Computers e exportar a lista para um txt, ou ainda utilizar comandos como dsquery, dsget.

    Abraços



     Thiago Guirotto
     MCT | MCITP | MCTS | MCP
     Blog - Thiago Guirotto | My Profile Microsoft Virtual Card | Linkedin
     guirotto_tgo@hotmail.com

    • Sugerido como Resposta Thiago GuirottoMVP quarta-feira, 8 de fevereiro de 2012 14:03
    • Marcado como Resposta Richard Juhasz sexta-feira, 10 de fevereiro de 2012 12:26
    quarta-feira, 8 de fevereiro de 2012 14:02

Todas as Respostas

  • Cejuhi,

    O system Internals tem o Accessenum, ele pode te ajuda com as permissões de pastas!

    Para uma lista dos usuários pode utilizar o seguinte

    Você pode salvar o script abaixo como ListUsers.vbs por exemplo e executá-lo pelo prompt (cmd), passando os parametros domíno e caminho do txt onde será salvo, por exemplo: ListUsers.vbs dominio.local C:\Usuarios.txt

    Segue o script.

    ---------------------------------------------------------------------------------------



    Sub ListUsers( strDomain )
        Set objComputer = GetObject("WinNT://" & strDomain )
        objComputer.Filter = Array( "User" )
        For Each objUser In objComputer
            suserInfo = objUser.Name & ", " & objUser.Fullname & ", "  & objUser.Description & ", " & objUser.AccountDisabled
                    objFile.WriteLine(sUserInfo)
        Next
    End Sub


    ' ****************************************************************************
    ' Main
    ' ****************************************************************************
    Dim strDomain
    Dim sUserInfo
    Dim sFileName

    strDomain = WScript.Arguments(0)
    sFileName = WScript.Arguments(1)
    If strDomain = "" Then
       WScript.Echo "VoCê não Adicionou os parametros necessários, chame o script pelo prompt, ex.: ListUsers.vbs dominio.local C:\listusers.txt"
    End If

    If sFileName = "" Then
       WScript.Echo "VoCê não Adicionou os parametros necessários, chame o script pelo prompt, ex.: ListUsers.vbs dominio.local C:\listusers.txt"
    End If

    set objFSO = createobject("scripting.filesystemobject")
    set objFile = objFSO.createtextfile(sFileName)
    objFile.WriteLine("Usuario, Nome Completo, Descrição, Status da Conta")

    ListUsers( strDomain )
    objFile.Close

    -------------------------------------------------------------------------------------------------------------------

    Você também pode fazer uma query pelo mmc do Active Directory Users and Computers e exportar a lista para um txt, ou ainda utilizar comandos como dsquery, dsget.

    Abraços



     Thiago Guirotto
     MCT | MCITP | MCTS | MCP
     Blog - Thiago Guirotto | My Profile Microsoft Virtual Card | Linkedin
     guirotto_tgo@hotmail.com

    • Sugerido como Resposta Thiago GuirottoMVP quarta-feira, 8 de fevereiro de 2012 14:03
    • Marcado como Resposta Richard Juhasz sexta-feira, 10 de fevereiro de 2012 12:26
    quarta-feira, 8 de fevereiro de 2012 14:02
  • Thiago,

    surge uma mensagem de erro:

    Windows script Host

    Script: H:\ListUsers.vbs

    Line: 1

    Char: 3

    Error: Invalid Character

    Code: 800A0408

    Source: Microsoft VBScript compilation error.

    o que está errado?.

    Celina

    segunda-feira, 13 de fevereiro de 2012 13:40