none
ALTERAR USUARIO DE ADMIN PARA USER COMUM RRS feed

  • Pergunta

  • Bom dia a todos,

     Alguem tem um exemplo de script para alterar as contas de usuario das estacoes da rede, que atualmente estão como administradores locais, e quero que fiquem como usuario comum, restrito?

     Att,

    Jose Luiz

    sábado, 25 de novembro de 2006 13:39

Respostas

  • O exemplo abaixo remove todos usuarios do grupo Administrators local (Exceto o Administrator local).

     

    Set oWshNet = CreateObject("WScript.Network")
    sComputer = oWshNet.ComputerName

    Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators")
    On Error Resume Next
    For Each oMember In oGroup.Members
       If oMember.Class = "User" Then 
         oGroup.Remove oMember.ADsPath
       End If
    Next

     

    segunda-feira, 27 de novembro de 2006 09:07
  • Bom dia

    Está dando uma msg de erro nesta linha, e eu não sei o que colocar ...

    Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators")

    Não foi possivel localizar o nome do grupo.

    Que nome tenho que atribuir?

    segunda-feira, 27 de novembro de 2006 10:58
  • Uma outra forma interessante é utilizando a diretiva de Grupos Restritos.

    Crie/Edite uma gpo e vá em: Configuração do Computador\Configurações do Windows\Configurações de Segurança\Grupos Restritos. Adicione o Grupo Administradores e inclua os usuário/grupos que devem fazer parte.

    Com essa diretiva vc automatiza a inserção de usuários em determinados grupos e ainda garante que se alguém colocar um usuário indevidamente neste grupo quando a policy for atualizada ela vai retirar os objetos indevidos do grupo.

     

    sexta-feira, 29 de dezembro de 2006 12:33
    Moderador

Todas as Respostas

  • O exemplo abaixo remove todos usuarios do grupo Administrators local (Exceto o Administrator local).

     

    Set oWshNet = CreateObject("WScript.Network")
    sComputer = oWshNet.ComputerName

    Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators")
    On Error Resume Next
    For Each oMember In oGroup.Members
       If oMember.Class = "User" Then 
         oGroup.Remove oMember.ADsPath
       End If
    Next

     

    segunda-feira, 27 de novembro de 2006 09:07
  • Bom dia

    Está dando uma msg de erro nesta linha, e eu não sei o que colocar ...

    Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators")

    Não foi possivel localizar o nome do grupo.

    Que nome tenho que atribuir?

    segunda-feira, 27 de novembro de 2006 10:58
  • O seu windows deve estar em português.
    Como não existe grupo chamado Administrators, mude para Administradores

     

    Set oWshNet = CreateObject("WScript.Network")
    sComputer = oWshNet.ComputerName

    Set oGroup = GetObject("WinNT://" & sComputer & "/Administradores")
    On Error Resume Next
    For Each oMember In oGroup.Members
       If oMember.Class = "User" Then 
         oGroup.Remove oMember.ADsPath
       End If
    Next

    quinta-feira, 28 de dezembro de 2006 17:41
  • Uma outra forma interessante é utilizando a diretiva de Grupos Restritos.

    Crie/Edite uma gpo e vá em: Configuração do Computador\Configurações do Windows\Configurações de Segurança\Grupos Restritos. Adicione o Grupo Administradores e inclua os usuário/grupos que devem fazer parte.

    Com essa diretiva vc automatiza a inserção de usuários em determinados grupos e ainda garante que se alguém colocar um usuário indevidamente neste grupo quando a policy for atualizada ela vai retirar os objetos indevidos do grupo.

     

    sexta-feira, 29 de dezembro de 2006 12:33
    Moderador