Usuário com melhor resposta
Modificando senha Administrador local

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?
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
LoopobjTextFile.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.
- Marcado como Resposta Fábio JrModerator segunda-feira, 5 de dezembro de 2011 15:56
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
LoopobjTextFile.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.
- Marcado como Resposta Fábio JrModerator segunda-feira, 5 de dezembro de 2011 15:56
-
-
-
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 -
Esse script foi o melhor que eu encontrei:
sNewPassword = "SENHA"
Set oWshNet = CreateObject("WScript.Network")
sComputer = "."
sAdminName = GetAdministratorNameOn 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, oUserAccountSet 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 -
-
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,