Usuário com melhor resposta
Usuário Administrador Local

Pergunta
-
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 BlockSet objFSO = CreateObject("Scripting.FileSystemObject")
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("Saida.txt", True)OutPutFile.WriteLineSet 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- Marcado como Resposta Fábio JrModerator quarta-feira, 15 de fevereiro de 2012 12:32
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 BlockSet objFSO = CreateObject("Scripting.FileSystemObject")
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("Saida.txt", True)OutPutFile.WriteLineSet 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- Marcado como Resposta Fábio JrModerator quarta-feira, 15 de fevereiro de 2012 12:32
-
-
-
-
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
LoopEstou querendo mudar a senha da conta administrador local para System_2007
Se puder me ajudar, agradeço.
-
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, ArquivosPublic 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 SubSet 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
NextLoop
Function Changepassword(lercomp)Set objUser = GetObject("WinNT://" & lercomp & "/administrator, user")
'*************************************Senha***********************************
objUser.SetPassword "SENHA"
objUser.SetInfo
grava(lercomp & ";" & " Senha alterada")End Function
computers.close