none
listar usuários de remote desktop RRS feed

  • Pergunta

  • Pessoal,

    Existe algum script que verifique em uma dada lista de servidores os usuarios que pertencem ao grupo remote desktop users ?


    Guilherme Teles
    quinta-feira, 19 de agosto de 2010 14:36

Todas as Respostas

  •  Segue um exemplo em PowerShell para verificar o grupo Administradores.

    Você pode alterar o grupo e adaptar um loop para verificar vários servidores.

    $server = "servidor"
    $group = "Administradores"
    
    $g = [ADSI]("WinNT://$server/$group,group")
    $ulist = $g.psbase.invoke("Members") | %{$_.GetType().InvokeMember("Name", 'GetProperty', $null, $_, $null)}
    
    $ulist

     

     


    Fábio de Paula Junior
    quinta-feira, 19 de agosto de 2010 19:48
    Moderador
  • Você pode utilizar o comando dsget, e exportar um arquivo txt com o DN de todos os membros do grupo, segue:

    dsget group "cn=DN_do_Grupo,ou=Nome_da_OU ,dc=Nome_NetBios_do_Domínio ,dc=Nome_de_Domínio " -expand -members > arquivo .txt

    Substitua os campos em negrito pelas informações do seu domínio.

    EX:

    dsget group "cn=Grupo1,ou=Brasil,dc=Planeta,dc=terra" -expand -members > arquivo.txt

    Feito isso, pra ficar melhor de visualizar faça o seguinte:

    1 - Abra o arquivo exportado e salve como .csv  

    2 - Abra o arquivo .csv com o Excel

    Se positivo marcar como resposta.

     

    José Anderson

    MCP - MCTS Windows Server 2008 Active Directory

    sexta-feira, 20 de agosto de 2010 15:50
  • Você pode usar esse script aqui:

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set lista = fso.OpenTextFile("arquivo.txt",1)
    Set output = fso.OpenTextFile("output.txt",8,true)
    
    ArrayPC = split(lista.readall,vbcrlf)
    
    For each PC in ArrayPC
    	strComputer = PC
    	On Error Resume Next
    	Set objGroup = GetObject("WinNT://" & strComputer & "/Remote Desktop Users")
    	
    	If Err then
    		Set objGroup = GetObject("WinNT://" & strComputer & "/Usuários da Área de Trabalho Remota")
    	end if
    	
    	output.writeline "Usuários no PC: " & PC
    	output.writeline "***********************************"
    	
    	For Each objUser In objGroup.Members
    		output.writeline objUser.Name
    	Next
    	output.writeline "***********************************"
    	output.writeblanklines(1)
    Next
    
    wscript.echo "FOI"
    

     

    É só colocar os pcs no arquivo.txt um em cada linha, e rodar.

    Abs


    JATOBA - MCSA-M Exchange 2003 / MCTS Network Infrastructure 2008 / MCTS Microsoft Exchange Server 2010
    sexta-feira, 20 de agosto de 2010 19:15
    Moderador