none
Script para descobrir administradores locais RRS feed

  • Pergunta

  • Boa Tarde,

    Preciso da ajuda para criar um script no ps para descubrir os usuários que são administradores locais na maquina. Preciso que eu consiga extrair do grupo administradores esses usuários.

    Podem me ajudar:


    RRCampos

    sexta-feira, 30 de janeiro de 2015 18:58

Respostas

  • Ba Ricardo.

    Da uma olhada nestes post's eles podem lhe ajudar.

    https://social.technet.microsoft.com/Forums/pt-BR/499a2edc-0d49-47ce-8469-4c26c04eab92/script-para-vericar-administradores-locais?forum=scriptadminpt

    https://social.technet.microsoft.com/Forums/pt-BR/f0a5b661-dbc8-4763-ad91-2489e4fe757f/descobrir-administradores-locais?forum=scriptadminpt

    https://social.technet.microsoft.com/Forums/pt-BR/8098bfa4-ffce-42b7-b498-05eceacd20c0/descobrir-os-administradores-locais-de-cada-maquina?forum=scriptadminpt

    Ou vc pode usar o que eu uso tche, que ja mostra no resultado quem esta fora do padrão.

    codigo.

    		strComputer = "."
    		Set colGroups = GetObject("WinNT://" & strComputer & "")
    		colGroups.Filter = Array("group")
    		
    		For Each objGroup In colGroups
    			strSaida=""
    			If (objGroup.Name = "Administrators") Or (objGroup.Name = "Administradores") Then
    		 		For Each objUser in objGroup.Members
    					If (objUser.name  <> "") and (ucase(objUser.name) <> "ADMINISTRATOR") and (ucase(objUser.name) <> "ADMINISTRADOR") and (ucase(objUser.name) <> "SupIT") and (ucase(objUser.name) <> "DOMAIN ADMINS") Then
    						strforapadrao = "Fora do padrão" 
    					End If 
    			 		strSaida = strSaida & strCompName & ";" & strDominio & ";" & strjuncao & ";" & UCase(objUser.Name) & ";" & strdata & ";" & strforapadrao & vbCrLf
    				Next 
    				strresult = strSaida
    			End If 
    		Next
    		
    		WScript.Echo strresult

    sexta-feira, 30 de janeiro de 2015 21:09
  • Boa Noite

    Tem um script de um amigo meu que faz isso é somente trocar o nome do seu domínio ele te traz tudo e algo mais em um html , segue o Link:

    https://gallery.technet.microsoft.com/Recuperar-mebros-do-grupo-d7bb3440

    Att,

    Roger Nogueira Saldanha

    MCP , MCSA , MCSE , MS Especialist.

    sábado, 31 de janeiro de 2015 00:38

Todas as Respostas

  • Ba Ricardo.

    Da uma olhada nestes post's eles podem lhe ajudar.

    https://social.technet.microsoft.com/Forums/pt-BR/499a2edc-0d49-47ce-8469-4c26c04eab92/script-para-vericar-administradores-locais?forum=scriptadminpt

    https://social.technet.microsoft.com/Forums/pt-BR/f0a5b661-dbc8-4763-ad91-2489e4fe757f/descobrir-administradores-locais?forum=scriptadminpt

    https://social.technet.microsoft.com/Forums/pt-BR/8098bfa4-ffce-42b7-b498-05eceacd20c0/descobrir-os-administradores-locais-de-cada-maquina?forum=scriptadminpt

    Ou vc pode usar o que eu uso tche, que ja mostra no resultado quem esta fora do padrão.

    codigo.

    		strComputer = "."
    		Set colGroups = GetObject("WinNT://" & strComputer & "")
    		colGroups.Filter = Array("group")
    		
    		For Each objGroup In colGroups
    			strSaida=""
    			If (objGroup.Name = "Administrators") Or (objGroup.Name = "Administradores") Then
    		 		For Each objUser in objGroup.Members
    					If (objUser.name  <> "") and (ucase(objUser.name) <> "ADMINISTRATOR") and (ucase(objUser.name) <> "ADMINISTRADOR") and (ucase(objUser.name) <> "SupIT") and (ucase(objUser.name) <> "DOMAIN ADMINS") Then
    						strforapadrao = "Fora do padrão" 
    					End If 
    			 		strSaida = strSaida & strCompName & ";" & strDominio & ";" & strjuncao & ";" & UCase(objUser.Name) & ";" & strdata & ";" & strforapadrao & vbCrLf
    				Next 
    				strresult = strSaida
    			End If 
    		Next
    		
    		WScript.Echo strresult

    sexta-feira, 30 de janeiro de 2015 21:09
  • Boa Noite

    Tem um script de um amigo meu que faz isso é somente trocar o nome do seu domínio ele te traz tudo e algo mais em um html , segue o Link:

    https://gallery.technet.microsoft.com/Recuperar-mebros-do-grupo-d7bb3440

    Att,

    Roger Nogueira Saldanha

    MCP , MCSA , MCSE , MS Especialist.

    sábado, 31 de janeiro de 2015 00:38