none
((( Gerar relatório de usuários admin nos Computadores ))) RRS feed

  • Pergunta

  • Caros colegas, boa tarde!

    Estou precisano listar todos os usuários no parque de computadores que possuem privilégios administrativos.

    Todos que tentei do forum não consegui utilizar. Não é bem aquilo que estou querendo.

    Preciso executar um script quando os usuários ligarem o computador, e que gere um arquivo TXT no C:\ ou em um diretorio da rede \\server\share$, visuzalizando os "COMP0001, COMP0002", como exemplo quais são os usuários admin nas estações de trabalho.

     

    Obrigado,


    Grato, Trentini
    sexta-feira, 26 de março de 2010 16:43

Respostas

  • Adicione uma barra no final "\\server01\admin$\"

    E certifique que o usuário tenha permissão nessa pasta para salvar o log.

    Acho que é só isso.

    Se for util vote.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    • Marcado como Resposta TrentiniFood quinta-feira, 8 de abril de 2010 17:18
    quinta-feira, 8 de abril de 2010 16:28

Todas as Respostas

  • Tente o script abaixo

     

    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set ObjFSO = CreateObject("Scripting.FileSystemObject")

    'Nome do Computador, utilize "." para local
    strComputer = "."

    'Nome do grupo que deseja listar os usuários, Administrators ou administradores no seu caso
    strGroup = "Administradores"

    'Caminho onde o LoG sera salvo
    strLogFolder = "\\server\share\"

    'Nome que o arquivo será salvo
    strLogFile = WshNetwork.ComputerName & ".txt"

    strLogPath = strLogFolder & strLogFile

    Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup)

    If not objFSO.FileExists(strLogPath) Then 'Verifica se o relatorio da maquina já foi gerado
       Set ObjFileAppending = ObjFSO.opentextfile(strLogPath, 8, True)
       For Each objUser In objGroup.Members
           GravaTXT objUser.Name
       Next
    End If


    Function GravaTXT (String)
    ObjFileAppending.WriteLine String
    End Function

    Caso vc coloque esse script nas configurações de computador lembre de dar permissão de gravação para o grupo authenticated users que é o grupo que estão as contas dos computadores. Não esqueça de alterar no script a variavel strLogFolder.

     

    Espero ter ajudado.


    Caso seja util não esqueça de classificar.

     

    Gabriel.

    terça-feira, 30 de março de 2010 12:00
  • Tente o script abaixo

     

    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set ObjFSO = CreateObject("Scripting.FileSystemObject")

    'Nome do Computador, utilize "." para local
    strComputer = "."

    'Nome do grupo que deseja listar os usuários, Administrators ou administradores no seu caso
    strGroup = "Administradores"

    'Caminho onde o LoG sera salvo
    strLogFolder = "\\server\share\"

    'Nome que o arquivo será salvo
    strLogFile = WshNetwork.ComputerName & ".txt"

    strLogPath = strLogFolder & strLogFile

    Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup)

    If not objFSO.FileExists(strLogPath) Then 'Verifica se o relatorio da maquina já foi gerado
       Set ObjFileAppending = ObjFSO.opentextfile(strLogPath, 8, True)
       For Each objUser In objGroup.Members
           GravaTXT objUser.Name
       Next
    End If


    Function GravaTXT (String)
    ObjFileAppending.WriteLine String
    End Function

    Caso vc coloque esse script nas configurações de computador lembre de dar permissão de gravação para o grupo authenticated users que é o grupo que estão as contas dos computadores. Não esqueça de alterar no script a variavel strLogFolder.

     

    Espero ter ajudado.


    Caso seja util não esqueça de classificar.

     

    Gabriel.

    terça-feira, 30 de março de 2010 12:00
  • Vou executar os testes agora e te informo.

    Obrigado até o momento.


    Grato, Trentini
    quinta-feira, 8 de abril de 2010 15:19
  • Esta dando pepino na linha 21...

    Linha: 21

    Caract.: 4

    Erro: Caminho não encontrado

    Código: 800A004C

    Origem: Erro de tempo de exeução do Microsoft VBSCRIPT

    Mudei a linha do strLogFolder = "\\server01\admins$"


    Grato, Trentini
    quinta-feira, 8 de abril de 2010 16:23
  • Adicione uma barra no final "\\server01\admin$\"

    E certifique que o usuário tenha permissão nessa pasta para salvar o log.

    Acho que é só isso.

    Se for util vote.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    • Marcado como Resposta TrentiniFood quinta-feira, 8 de abril de 2010 17:18
    quinta-feira, 8 de abril de 2010 16:28
  • Perfeito, funcionou!

    Obrigado pela ajuda, parabéns.


    Grato, Trentini
    quinta-feira, 8 de abril de 2010 17:18