none
Desativar Vários usuários Local no XP RRS feed

  • Pergunta

  • Olá pessoal.
    Quero saber um script que desative ou delete todos os usuários locais deixando apenas o usuário administrador.

    Eu consegui usar um script mas só deleta um usuário por ver e por máquina, e eu quero colocar o script pra rodar na rede e realizar o procedimento direto.


    Grato.

    quinta-feira, 10 de maio de 2012 19:56

Respostas

  • Tente este VBScript (.VBS):

    'Insira na string abaixo as contas que você não quer excluir
    'no exemplo não vai excluir a conta administrador e convidado
    'separe por ";"
    strExcecoes = "ADMINISTRADOR;CONVIDADO"
    
    Set objNetwork = CreateObject("Wscript.Network")
    strComputer = objNetwork.ComputerName
    Set colAccounts = GetObject("WinNT://" & strComputer & "")
    
    colAccounts.Filter = Array("user")
    For Each objUser In colAccounts
    	
        IF instr(ucase(strExcecoes),ucase(objUser.Name))=0 THEN
    
    		colAccounts.Delete "user", OBJUSER.NAME
    		
    	END IF
    Next

    Você pode colocar este script em uma GPO configurando na diretiva de script de Startup(inicialização), tem que ser assim no Logon não vai funcionar porque se o usuário que estiver logando não for administrador o script vai falhar(erro de acesso negado).


    Fábio de Paula Junior

    quinta-feira, 10 de maio de 2012 22:46
    Moderador