none
listar usuários de remote desktop RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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