locked
Alterar senha de ADM Local via GPO ou SCRIPT RRS feed

  • Pergunta

  • Srs,

     Preciso de uma ajuda para alterar a senha de ADM local das minhas estações.

     Achei esse Script aqui no forum mas ele só altera apenas uma maquina, gostaria de saber como eu faço para alterar a senha de varias maquinas (200)ao mesmo tempo?

    strComputer = "nome da maquina"
    Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
    Set objUser = GetObject("WinNT://" & strComputer & "/administrador, user")
    objUser.SetPassword "teste"
    objUser.SetInfo

    Grato.

    quarta-feira, 17 de janeiro de 2007 19:55

Respostas

  • Amigo, Boa Tarde!

     

    Outra solução ideal também é efetuar a alteração de senhas em massa é  utilizando a ferramenta PsPasswd pertencente ao Pstools, Abaixo link de um artigo com o passo a passo.

    http://social.technet.microsoft.com/wiki/contents/articles/6531.aspx

     

    Espero ter ajudado.

    Abs.


    Pablo Santos MCTS - ITIL E-mail/MSN: pablocpsantos@gmail.com
    • Marcado como Resposta Gustavo R Valle sexta-feira, 6 de janeiro de 2012 11:20
    quarta-feira, 4 de janeiro de 2012 19:51
  • Amigo,

    Use essa ferramenta que é show....altera a senha do admin local de todas as estações que estão ligadas de uma vez só.

    http://www.wd5.com.br/passwordadmin.rar

    Classifique,
    Paulo Dutra

    • Marcado como Resposta Gustavo R Valle sexta-feira, 6 de janeiro de 2012 11:19
    quarta-feira, 17 de janeiro de 2007 20:07
  • Renato, conseguir mudar a senha do adm local utilizando vbs obtido no seguinte site:

    http://www.scriptinganswers.com/default.asp

     

    Entre na opção de ScriptVault (existe uma notificação a respeito da responsabilidade de uso dos scritps);

    Siente desta notificação clique em "Click here to begin browsing the ScriptVault";

    Existem varias categorias a que vc deve direcionar-se é a: Security;

    O Script é o primeiro da lista "Change local Admin Password".

     

    Espero que estas informações tenha sido util.

     

     

    Rodrigo

    "Extraindo o maior valor da tecnologia aplicada as Redes"

    • Marcado como Resposta Gustavo R Valle sexta-feira, 6 de janeiro de 2012 11:20
    sexta-feira, 27 de julho de 2007 16:27

Todas as Respostas

  • Amigo,

    Use essa ferramenta que é show....altera a senha do admin local de todas as estações que estão ligadas de uma vez só.

    http://www.wd5.com.br/passwordadmin.rar

    Classifique,
    Paulo Dutra

    • Marcado como Resposta Gustavo R Valle sexta-feira, 6 de janeiro de 2012 11:19
    quarta-feira, 17 de janeiro de 2007 20:07
  • Bom dia Paulo,

     Valew pela dica, eu baixei essa ferramenta mas nao consegui usar, vc poderia me passar o comando certinho?

    Grato.

    quinta-feira, 18 de janeiro de 2007 10:06
  • Poxa, eu estou precisando muito deste recurso. Sera que alguem pode ajudar?
    quinta-feira, 19 de julho de 2007 14:44
  • Isso me interessa muito, mais não consegui fazer download do programa citado, alguém conseguiu ?

    Grato
    quinta-feira, 19 de julho de 2007 21:55
  • Eu preciso disso urgente, e tenho o mesmo problema do usuario anterior. as maquinas do meu parque sao nomeadas desta forma:

     

    GCTEC01, 02, 03.....

    GCADM01, 02, 03.....

     

    Vi em outros topicos uma ferramenta chamada pspasswd mas nao consegui usar o comando Sad.

     

    Alguem me ajude heueheueh

    terça-feira, 24 de julho de 2007 19:01
  • Renato, conseguir mudar a senha do adm local utilizando vbs obtido no seguinte site:

    http://www.scriptinganswers.com/default.asp

     

    Entre na opção de ScriptVault (existe uma notificação a respeito da responsabilidade de uso dos scritps);

    Siente desta notificação clique em "Click here to begin browsing the ScriptVault";

    Existem varias categorias a que vc deve direcionar-se é a: Security;

    O Script é o primeiro da lista "Change local Admin Password".

     

    Espero que estas informações tenha sido util.

     

     

    Rodrigo

    "Extraindo o maior valor da tecnologia aplicada as Redes"

    • Marcado como Resposta Gustavo R Valle sexta-feira, 6 de janeiro de 2012 11:20
    sexta-feira, 27 de julho de 2007 16:27
  •  Rodrigo_aix wrote:

    Renato, conseguir mudar a senha do adm local utilizando vbs obtido no seguinte site:

    http://www.scriptinganswers.com/default.asp

     

    Entre na opção de ScriptVault (existe uma notificação a respeito da responsabilidade de uso dos scritps);

    Siente desta notificação clique em "Click here to begin browsing the ScriptVault";

    Existem varias categorias a que vc deve direcionar-se é a: Security;

    O Script é o primeiro da lista "Change local Admin Password".

     

    Espero que estas informações tenha sido util.

     

     

    Rodrigo

    "Extraindo o maior valor da tecnologia aplicada as Redes"

     

    Cara, valeu mesmo, muito bom este site, mas eu consegui de uma forma super simples e vou descreve-la aqui. depois de muito buscar pelo forum fiz uma mesclagem de scripts e deu super certo.

     

    1º Criei uma nova UO chamada "estacoes"

    2º Coloquei os computadores cadastrados no dominio dentro dela

    2º Gerei uma nova policy para esta UO e nela fui em: configuracoes do computador / configuracoes do windows / scripts / inicializar

    3º informei o local do arquivo de script \\gcserver\scripts$\senhaadminlocal.vbs

    4º Reiniciei as estacoes

    5º corri pro abraço heheheh

     

    O script usado segue abaixo:

     

    strComputer = "."
    Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
    Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")
    objUser.SetPassword "senha"
    objUser.SetInfo

     

    sexta-feira, 27 de julho de 2007 18:53
  • Prezado Renato,

     

    Estou tentando usar o script para modificar a senha de adm local que vc está disponibilizando, porém tem surgido um erro na linha 4, caracter 1. Eu simplesmente copiei o script, salvei como vbs, e o erro surgiu. Será que errei em algo.??

    Atenciosamente,

    terça-feira, 18 de março de 2008 04:36
  • Veja bem,

     

    Voce precisa:

     

     Alterar na linha 3 para o nome de usuario desejado

    Alterar na linha 4 para a senha do usuario colocado na liha 3

     

    Espero ter ajudado.

     

    terça-feira, 18 de março de 2008 20:02
  • Renato, show de bola!

     

    Obrigado pela dicas e por postar o script.

     

    Testei em VM com sucesso e agora vou utilizar aqui na empresa em ambiente producao.

     

    Vlws!!

     

     

     

    sábado, 18 de outubro de 2008 14:42
  •  

    quero alterar minha senha
    sábado, 8 de novembro de 2008 13:56
  • Legal, funcionou perfeitamente nos micros XP, mas agora eu quero fazer isso no VISTA e nao consigo da o seguinte erro:

     

     

    Script: c:\users\egil\desktop\modifica_senha_adm.vbs

    Linha: 4

    Caract.: 1

    Erro: A sintaxe do nome do arquivo, pasta ou nome do volume está incorreta.

    Codigo: 8007007B

    Origem: (null)

     

     

    vlw e aguardo um help.

    sexta-feira, 19 de dezembro de 2008 10:29
  • Willian,

    Use o scrip abaixo. A função dele é scanear os computadores no seu AD pinga-las e ver se esta on-line. Voce pode executa-lo na sua maquina local e as estações tem que estar com icmp habilitado.

    Eu achei ele no forum, como eu nao lembro a URL segue o codigo pronto.


    Const ADS_SCOPE_SUBTREE = 2

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =   CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection

    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

    objCommand.CommandText = _
            "SELECT distinguishedName FROM 'LDAP://OU=Computadores,OU=Planta,DC=DOMINIO,DC=br' WHERE objectCategory='Computer'"
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst

    Do Until objRecordSet.EOF


    strPath = objRecordSet.Fields("distinguishedName").Value
     
      x=("LDAP://"&strpath)
      Set objComp = GetObject(x)
     
      strComputer = (objcomp.cn)
     
     aMachines = split(strComputer)
     
     For Each machine in aMachines
        Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
            ExecQuery("select * from Win32_PingStatus where address = '"_
                & machine & "'")
       
        For Each objStatus in objPing
            If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
               
                wscript.echo (strcomputer)
       
        else
    On Error Resume Next
       

    Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
    Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")
    objUser.SetPassword "teste"
    objUser.SetInfo

     
      End If
        Next
     Next 


     objRecordSet.MoveNext
    Loop

    sexta-feira, 19 de dezembro de 2008 12:15
  • Bom dia Renato Nogueira,

     

    Eu utilizo este script também, porém aqui vai apenas uma dica de segurança.

     

    Caso algum usuário mais avançado encontre este script na rede, ele poderá editar o arquivo e descobrir a senha, para que isto não aconteça, baixe o Script Encoder da própria Microsoft:

     

    http://www.microsoft.com/downloads/details.aspx?FamilyId=E7877F67-C447-4873-B1B0-21F0626A6329&displaylang=en

     

    Com posse do programa digite:

     

    screnc.exe script.vbs script.vbe

     

    Assim seu script fica encriptado, protegendo o conteudo com a senha.

     

    Abraços.

     

     

     

    sexta-feira, 19 de dezembro de 2008 12:43
  • O Script que eu uso é um pouco diferente também:

     

    Set objNetwork = CreateObject("Wscript.Network")
    strComputer = objNetwork.ComputerName
    Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
    Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")
    objUser.SetPassword "SENHA"
    objUser.SetInfo

     

    sexta-feira, 19 de dezembro de 2008 12:45
  • Esse scrip e para rodar na maquina local dele, espero que ele nao disponibilize em aglum local compartilhado. Big Smile
    sexta-feira, 19 de dezembro de 2008 12:55
  • Amigo, Boa Tarde!

     

    Outra solução ideal também é efetuar a alteração de senhas em massa é  utilizando a ferramenta PsPasswd pertencente ao Pstools, Abaixo link de um artigo com o passo a passo.

    http://social.technet.microsoft.com/wiki/contents/articles/6531.aspx

     

    Espero ter ajudado.

    Abs.


    Pablo Santos MCTS - ITIL E-mail/MSN: pablocpsantos@gmail.com
    • Marcado como Resposta Gustavo R Valle sexta-feira, 6 de janeiro de 2012 11:20
    quarta-feira, 4 de janeiro de 2012 19:51