none
Modificando senha Administrador local RRS feed

  • Pergunta

  •  

    Tenho várias estações rodando XP que possuem usuário administrador com senha já de dominio publico. Pior algumas nem precisa colocar senha, é só digitar o usuario e pronto.

     

    Tem como eu modificar a senha dessas contas em todas as estações do dominio?

     

     

     

     

    sexta-feira, 25 de abril de 2008 14:05

Respostas

  • Const ForReading = 1
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile _
        ("c:\scripts\computers.txt", ForReading)

     

    Rem Inicia troca de senha em cada maquina do arquivo .txt

    Do Until objTextFile.AtEndOfStream

    strNextLine = objTextFile.Readline
    arrServiceList = Split(strNextLine , ",")
    strComputer = arrServiceList(0)
       

    Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
    objUser.SetPassword "ti&sec34"
    objUser.SetInfo


    Loop

    objTextFile.close

    wscript.echo "Processo Finalizado"

     

    os que estao em negrito esta o user e senha padrao que vao estar nas maquinas

    no arquivo: computers.txt, vc coloca o nome de todas as maquicas.

     

    sexta-feira, 25 de abril de 2008 14:28

Todas as Respostas

  • Const ForReading = 1
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile _
        ("c:\scripts\computers.txt", ForReading)

     

    Rem Inicia troca de senha em cada maquina do arquivo .txt

    Do Until objTextFile.AtEndOfStream

    strNextLine = objTextFile.Readline
    arrServiceList = Split(strNextLine , ",")
    strComputer = arrServiceList(0)
       

    Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
    objUser.SetPassword "ti&sec34"
    objUser.SetInfo


    Loop

    objTextFile.close

    wscript.echo "Processo Finalizado"

     

    os que estao em negrito esta o user e senha padrao que vao estar nas maquinas

    no arquivo: computers.txt, vc coloca o nome de todas as maquicas.

     

    sexta-feira, 25 de abril de 2008 14:28
  • Klecio,

     

    Valeu cara muito bom. Funcionou.

     

    Abs

    sexta-feira, 25 de abril de 2008 19:22
  • tem como abandonar o arquivo computers.txt???

     

    tenho mais de 120 pcs aqui na minha rede.

     

     

    segunda-feira, 28 de abril de 2008 19:15
  • Você não pode exportar uma lista a partir do Usuários e Computadores do Active Directory?


    []s,


    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    Blog sobre scripting: http://viniciuscanto.blogspot.com

    quarta-feira, 30 de abril de 2008 01:08
    Moderador
  • Esse script foi o melhor que eu encontrei:

     

    sNewPassword = "SENHA"

    Set oWshNet = CreateObject("WScript.Network")
    sComputer = "."
    sAdminName = GetAdministratorName

    On Error Resume Next
    Set oUser = GetObject("WinNT://" & sComputer & "/" & sAdminName & ",user")
    oUser.SetPassword sNewPassword
    oUser.SetInfo
    'wscript.echo "setado: " & sNewPassword
    On Error Goto 0

    'powered by edutrom

    Function GetAdministratorName()
        Dim sUserSID, oWshNetwork, oUserAccount

        Set oWshNetwork = CreateObject("WScript.Network")
        Set oUserAccounts = GetObject( _
             "winmgmts://" & oWshNetwork.ComputerName & "/root/cimv2") _
             .ExecQuery("Select Name, SID from Win32_UserAccount" _
           & " WHERE Domain = '" & oWshNetwork.ComputerName & "'")

        On Error Resume Next
        For Each oUserAccount In oUserAccounts
          If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _
             Right(oUserAccount.SID, 4) = "-500" Then
            GetAdministratorName = oUserAccount.Name

     'wscript.echo oUserAccount.Name & ": " & oUserAccount.SID

            Exit For
          End if
        Next
    End Function

     

    quarta-feira, 30 de abril de 2008 11:51
  •  

    Tem sim, todas...
    quarta-feira, 30 de abril de 2008 21:56
  • Caros,

    Uso um script via arquivo de lote:

    echo off

    REM ATIVA CONTA DO ADMINISTRADOR
    net user administrador /Active

    REM ALTERANDO SENHA DO ADMINISTRADOR
    net user administrador P@ssW0rd

    REM ADICIONANDO o SUPORTE ao Administrador Local
    net localgroup Administradores suporte@DOMAIN /add

    Abraços,
    domingo, 4 de maio de 2008 00:19