none
Alterar senha de admin local

    Question

  •  

    Bom dia! Eu já vi que tem varios topicos aqui sobre esse assunto, mas nenhum respondeu a minha duvida por isso estou postando. Tenho um script que altera a senha de admin local do micros aqui da empresa, ele ta funcionando belezinha e tal, segue abaixo o script:

     

        strComputer = GetComputer()
        strAdmin = "Administrador"
        strPassAdmin = senhanova
        Set objUser = GetObject("WinNT://" & strComputer & "/" & strAdmin & ", user")
        objUser.SetPassword strPassAdmin
        objUser.SetInfo

     

    O problema é que tem alguns micros na empresa que estão em ingles e claro, como estão em ingles o usuário é administrator e não administrador, sei que é só trocar que blz, tudo vai funcionar, o problema que eu não posso colocar uma gpo para os micros que estao em ingles e outra para os que estao em portugues, e se eu usar 2 scripts, sempre que um micro em BR rodar o do ingles vai dar pau e vice-versa.

     

    Minha duvida é: Existe alguma maneira de ao inves de eu passar o usuário o mesmo possa pegar, tipo ele verifica que nessa maquina é ingles e coloca numa variavel auxiliar (stradmin) o usuario administrator e quando for BR ele coloca nessa variavel o usuario administrador.

     

    Obrigado.

     

     

    Thursday, October 04, 2007 12:31 PM

Answers

  • Ficaria assim:

     

    Code Block

    Set os = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
    For Each obj In os
       Set prps = obj.Properties_
       OSLang = prps("OSLanguage").value
    Next

    If OSLang = 1046 Then
     strAdmin = "Administrador"
    Else
     strAdmin = "Administrator"
    End If

        strComputer = GetComputer()
        strPassAdmin = senhanova
        Set objUser = GetObject("WinNT://" & strComputer & "/" & strAdmin & ", user")
        objUser.SetPassword strPassAdmin
        objUser.SetInfo

     

     


    Thursday, October 04, 2007 1:13 PM

All replies

  • Ficaria assim:

     

    Code Block

    Set os = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
    For Each obj In os
       Set prps = obj.Properties_
       OSLang = prps("OSLanguage").value
    Next

    If OSLang = 1046 Then
     strAdmin = "Administrador"
    Else
     strAdmin = "Administrator"
    End If

        strComputer = GetComputer()
        strPassAdmin = senhanova
        Set objUser = GetObject("WinNT://" & strComputer & "/" & strAdmin & ", user")
        objUser.SetPassword strPassAdmin
        objUser.SetInfo

     

     


    Thursday, October 04, 2007 1:13 PM
  • Bruno,

     

    Muito obrigado. Funcionou certinho.

     

     

     

    Thursday, October 04, 2007 7:20 PM
  • Olá pessoal!

     

    Eu rodei este script abaixo de deu um erro de Tipo Incompatível: GetComputer(), oq será que falta eu fazer. PS sei muito pouco de scripts.

     

    Set os = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
    For Each obj In os
       Set prps = obj.Properties_
       OSLang = prps("OSLanguage").value
    Next

    If OSLang = 1046 Then
     strAdmin = "Administrador"
    Else
     strAdmin = "Administrator"
    End If
     strComputer = GetComputer()
     strPassAdmin = senhanova
     Set objUser = GetObject("WinNT://" & strComputer & "/" & strAdmin & ", user")
     objUser.SetPassword strPassAdmin
     objUser.SetInfo

    Friday, January 04, 2008 9:16 PM
  • Tenta utilizar o script abaixo:

     

    Code Block

    Set os = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
    Set wshNetwork = WScript.CreateObject( "WScript.Network")

    For Each obj In os
       Set prps = obj.Properties_
       OSLang = prps("OSLanguage").value
    Next

    If OSLang = 1046 Then
     strAdmin = "Administrador"
    Else
     strAdmin = "Administrator"
    End If
     strComputer = wshNetwork.ComputerName

     strPassAdmin = senhanova
     Set objUser = GetObject("WinNT://" & strComputer & "/" & strAdmin & ", user")
     objUser.SetPassword strPassAdmin
     objUser.SetInfo

     

     

    Em vermelho é o que foi alterado.
    Saturday, January 05, 2008 4:14 PM
  • Legal! Funcionou perfeitamente!!! Obrigado Bruno, entao eu posso colocar este Script no meu AD para quando os usuários foram se autenticar, executar e depois a senha estará trocada?

     

    Valew,

     

     

    Tuesday, January 08, 2008 3:37 PM
  • Depende, se os usuários forem administradores locais da estação, sim, caso contrário eles não terão direito para isso. Então você precisa colocar o script para ser executado no startup da maquina, assim, ele será executado com a conta SYSTEM que por padrão é administrador local da estação. Esta segunda opção é até mais recomendada já que não prejudica o tempo de logon do usuário.

    Thursday, January 10, 2008 1:41 AM
  • Algum tempo que eu procurava algo do gênero, mas não para as minhas workstatiosn e sim para os servers.

    exprimentei o script e não funciona. no Event Viewer dá a mensagem de "

    Execution of GPO scripts has timed out and have been terminated."

    Não sou programador, mas consigo ir alterando um ou outro script ás minhas necessidades. A minha questão é há algum parametro a ser mudado que estará relacionado com o OS? difere ser versão Server e não Workstation?
    Thursday, January 10, 2008 9:33 AM
  • Blz Bruno,

     

    Irei criar uma GPO para fazer essa alteração no Startup da máquina. Valew mano véio...

     

    Thursday, January 10, 2008 3:33 PM
  • Claudio, aparentemente este problema está relacionado ao timeout de execução de scripts e a detecção de link lentos ao aplicar uma politica de segurança. Para certificar-se disso execute o script manualmente em um servidor para garantir que o script está funcionando (ele deve funcionar em todos os SOs).

     

    Caso o script esteja funcionando, então tente desabilitar o "slow link detection" e também aumentar o timeout limite para a execução de scripts (o padrão é 10 min.).

    Friday, January 11, 2008 2:01 PM
  • Como é que funciona a execução do comando no startup? Não é so colocar o scipt para ser executado ao fazer logon na gpo?

    Tuesday, January 15, 2008 12:09 AM
  • Na GPO você pode configurar duas politicas de script, ou por logon ou no startup.

     

     

    Abra a politica de segurança > Computer Configuration > Windows Settings > Scripts (Startup/Shutdown).

     

     

    Wednesday, January 16, 2008 5:59 PM
  • Fala Bruno !!!

    tenho um parque com quase 200 micros com o O.S. W2K e XP e preciso mudar as senhas de ADM local das mesmas... testei todo os script´s na ordem que foram passados neste tópico, todos dão erro, os 3 primeiros dão erro de "Tipos incompativeis: \GetComputer", apenas o seu dá um erro diferente "erro: 0x80005000" esse micro onde rodo o .VBS está com W2K-Pro todo atualizado e office 2000 apenas... é um micro para testes apenas.

    Hug´s
    Friday, January 25, 2008 2:54 PM
  • Bom dia,

     

    Tive que fazer uma alterção deste tipo no meu parque e usei esse script VBS, só altera o usuario caso for diferente de Administrator e mude a senha que queria colocar.

     

    Abraços

     

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

    objUser.SetPassword "1ab5*-/7"
    objUser.SetInfo

    Sunday, January 27, 2008 12:58 PM
  • Olá Marcelo, desde já agradeço a ajuda, obrigado !!!

    mas não funiconou, eu coloco o script no startup de uma GPO que estou testando para fazer as alterações em todos os micros ao serem ligados... mas testando tanto local no PC quanto via GPO exibe o mesmo erro, que segue abaixo:

    linha: 2 --> deve ser esta !!! "Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")"
    Caract.: 1

    O PC é windows 2000 Pro e o server é W2K

    mais uma vez obrigado a todos e um abraço !
    Tuesday, January 29, 2008 12:37 PM
  •  

    Leonardo bom dia,

     

    S.O inglês ou português?

     

    Aguardo

    Tuesday, January 29, 2008 1:04 PM
  • Leonardo,

     

    Tesei agora um estação XP e deu certo.... não testei no 2000 mas acredito que deve funcionar. 

     

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

    objUser.SetPassword "1ab5*-/7"
    objUser.SetInfo

     

    Abraços

    Wednesday, January 30, 2008 3:47 PM
  •  Seppelle - Marcelo wrote:

     

    Leonardo bom dia,

     

    S.O inglês ou português?

     

    Aguardo



    Marcelo,

    O S.O do server é inglês e da estação é portugues-BR, será que tem algum "galho" !?

    Abraço !!!
    Friday, February 01, 2008 6:19 PM