none
Idéias e Scripts para Gerenciar a Conta de Administrador Local RRS feed

  • Discussão Geral

  • Estou compartilhando este script e a idéia com a comunidade para facilitar a vida de muitos.


    Etapas do 1 - Script:
    1. O script verifica se a conta de administrador já foi renomeada ou não.
    2. Se não foi renomeada será renomeada para no nome desejado.

    OBS: Executamos esse script por GPO (Configuração do Computador/Configurações do Windows/Scripts/Inicializar) desta forma a conta de Administrador Local é renomeada automaticamente quando o computador é adicionado ao domínio.


    Etapas do 2 - Script:
    1. O script verifica o nome da conta.
    2. Altera a senha da conta.

    OBS: Executamos esse script por GPO (Configuração do Computador/Configurações do Windows/Scripts/Inicializar) desta forma a senha da conta de Administrador Local é alterada automaticamente quando o computador é adicionado ao domínio. Com isso podemos redefinir a senha de administrador a cada 7 dias somente alterando no script.

    __________________________________________________________________________________

    '1 Script - Renomear Conta de Administrador Local

    strComputer="."
    strLocalAdmin="Administrador"   'Nome da Conta de Administrador Local
    strNovoAdmin="AdminTest"       'Novo Nome para a Conta de Administrador Local 

    Set objNetwork = CreateObject("Wscript.Network")
    strComputer = objNetwork.ComputerName
    Set colAccounts = GetObject("WinNT://" & strComputer & "")
    colAccounts.Filter = Array("user")
    For Each objUser In colAccounts
        if objUser.Name = strNovoAdmin then
        WScript.Quit
        End If
    Next

    Set objLocalAdmin = GetObject("WinNT://" & strComputer & "/" & strLocalAdmin)
    Set objComputer = GetObject("WinNT://" & strComputer)

    objComputer.MoveHere objLocalAdmin.AdsPath, strNovoAdmin

    __________________________________________________________________________________

    '2 Script - Alterar Senha de Administrador Local

        strComputer = "."
        strAdmin = "admintest"      'Nome da Conta de Administrador
        strPassAdmin = "123456"    'Senha Desejada  
        Set objUser = GetObject("WinNT://" & strComputer & "/" & strAdmin & ", user")
        objUser.SetPassword strPassAdmin
        objUser.SetInfo



    Max Henrique Oliveira de Almeida Microsoft Certified Professional MCDST MCSA
    • Editado Max Henrique quarta-feira, 19 de agosto de 2009 19:27
    quarta-feira, 19 de agosto de 2009 19:10