none
Usuário Administrador Local RRS feed

  • Pergunta

  • Pessoal !! Estou precisando de um script para alterar a senha de todos os micros da rede ( Domínio Windows 2000 ), fiz algumas tentativas, mas a senha só está alterando se usuário que estiver logado for Administrador.

    quinta-feira, 27 de setembro de 2007 20:32

Respostas

  • Thilco, tenta utilizar o script abaixo, não esqueça de alterar o que está em vermelho.

     

    O script você irá executar do seu computador logado com um usuário que seja administrador de todas as estações, então o script se conecta aos computadores remotos, que você deverá cadastrar em um arquivo chamado "estacoes.txt". Este arquivo deve ser salvo no mesmo diretório onde está o script.

     

    Um arquivo chamado "saida.txt" será criado automaticamente com um log do que foi feito.

     

    Exemplo Estacoes.txt:

    estacao1

    estacao2

    estacao3

     

    Code Block
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.CreateTextFile("Saida.txt", True)
    OutPutFile.WriteLine
    Set StrobjFile = objFSO.OpenTextFile("estacoes.txt", 1)
     Do Until StrobjFile.AtEndOfStream
      strComputer = StrobjFile.Readline
      Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")
      objUser.SetPassword "password"
      objUser.SetInfo
      
      If err.number <> 0 Then
       OutPutFile.WriteLine "Erro ao alterar a senha do computador - " & strComputer & " erro " & err.description
      Else
       OutPutFile.WriteLine "Senha do computador - " & strComputer & " alterada com sucesso"
      End If
     Loop

     

     

    segunda-feira, 1 de outubro de 2007 13:47

Todas as Respostas

  • Thilco, tenta utilizar o script abaixo, não esqueça de alterar o que está em vermelho.

     

    O script você irá executar do seu computador logado com um usuário que seja administrador de todas as estações, então o script se conecta aos computadores remotos, que você deverá cadastrar em um arquivo chamado "estacoes.txt". Este arquivo deve ser salvo no mesmo diretório onde está o script.

     

    Um arquivo chamado "saida.txt" será criado automaticamente com um log do que foi feito.

     

    Exemplo Estacoes.txt:

    estacao1

    estacao2

    estacao3

     

    Code Block
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.CreateTextFile("Saida.txt", True)
    OutPutFile.WriteLine
    Set StrobjFile = objFSO.OpenTextFile("estacoes.txt", 1)
     Do Until StrobjFile.AtEndOfStream
      strComputer = StrobjFile.Readline
      Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")
      objUser.SetPassword "password"
      objUser.SetInfo
      
      If err.number <> 0 Then
       OutPutFile.WriteLine "Erro ao alterar a senha do computador - " & strComputer & " erro " & err.description
      Else
       OutPutFile.WriteLine "Senha do computador - " & strComputer & " alterada com sucesso"
      End If
     Loop

     

     

    segunda-feira, 1 de outubro de 2007 13:47
  • Bruno,

     

    estou retomando este assunto, mas como vc pode verificar, não existe nada marcado em vermelho como vc menciona em sua mensagem, por favor indique o que deve alterar.

     

    Obrigado

     

    Thilco

    sexta-feira, 23 de novembro de 2007 19:16
  • Arrumei.

     

    domingo, 25 de novembro de 2007 23:06
  • Bruno, obrigado pela dica, assim que testar darei um retorno do resultado.
    quarta-feira, 28 de novembro de 2007 02:15
  • Bruno,

     

    segue abaixo a mensagem de erro que estou recebendo ao executar o script.

     

    Script: C:\download\AltSenha\AltSenhaAdmLocal.vbs

                        Linha:  8

                        Caract: 3

              Erro: 0x80005000

              Origem: (null)

     

    O script que estou executando é este:

     

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.CreateTextFile("Saida.txt", True)
    OutPutFile.WriteLine
    Set StrobjFile = objFSO.OpenTextFile("estacoes.txt", 1)
     Do Until StrobjFile.AtEndOfStream
      strComputer = StrobjFile.Readline
      Set objUser = GetObject("WinNT:// " & strComputer & "/Administrador, user")
      objUser.SetPassword "System_2007"
      objUser.SetInfo
     
      If err.number <> 0 Then
       OutPutFile.WriteLine "Erro ao alterar a senha do computador - " & strComputer & " erro " & err.description
      Else
       OutPutFile.WriteLine "Senha do computador - " & strComputer & " alterada com sucesso"
      End If
     Loop

     

     

    Estou querendo mudar a senha da conta administrador local para System_2007

    Se puder me ajudar, agradeço.

     

     


     

    quarta-feira, 28 de novembro de 2007 14:17
  • Segue um script que faz isso ..... basta criar um arquivo chamado Computers.txt no mesmo diretório que o script estiver ....  no mesmo diretório ele irá gerar o arquivo LogChangePassword.log.

     

     

    on error resume next
    Dim oNet, Computers, Lercomp, Arquivos

    Public Sub Grava(comp)
     Const ForAppending = 8
     arq_ext = "LogChangePassword.log"
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set arq_int = fso.OpenTextFile(arq_ext , ForAppending, true)
     data = now()
     arq_int.write (data & " - " & comp & vbcrlf)
     arq_int.close
    End Sub

    Set arquivos = CreateObject("Scripting.FileSystemObject")
    Set Computers = arquivos.OpenTextFile("Computers.txt")

     

    Do Until computers.AtEndOfStream
     lercomp = Computers.ReadLine


    aMachines = split(lercomp, ";")

    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.PrimaryAddressResolutionStatus) Or objStatus.PrimaryAddressResolutionStatus <> 0 Then
          
              grava(lercomp & ";" & "Não Resolveu nome")
           else
          
            if IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
                 grava(lercomp & ";" & " Não responde PING")
            else
             
             call Changepassword(lercomp)
            
            end if
           
                            
                     
           End If
              
     
           
        Next
    Next

    Loop


    Function Changepassword(lercomp)

    Set objUser = GetObject("WinNT://" & lercomp & "/administrator, user")
     
    '*************************************Senha***********************************
      objUser.SetPassword "SENHA"
      objUser.SetInfo
      
      grava(lercomp & ";" & " Senha alterada")

    End Function

    computers.close

     

     

     

    quarta-feira, 28 de novembro de 2007 15:53