Boa tarde galera!
Preciso que a conta de administrador local seja habilitada em todos os computadores do domínio (em grande parte são Windows 7) aqui da empresa, e preciso setar uma senha pra ela também.
Andei pesquisando e vi que a maioria das soluções envolvem o uso de uma GPO específica pra isso, que foi já desabilitada pela Microsoft por alguma questão de segurança. E nos casos em que achei a solução em Script, não funcionou comigo.
Tem aqui um script que tentei usar e não funcionou:
strComputer = "."
strSenha = "Minha_senha"
i = 0
' Armazenando o Nome da Estação
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_ComputerSystem")
For Each objComputer in colSettings
strComputer = objComputer.Name
Next
'Armazenando a conta de administrador independentemente do idioma
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery _
("Select * From Win32_UserAccount Where Domain = '" & strComputer & "'")
For Each objAccount in colAccounts
If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
strContaAlvo = objAccount.Name
If (objAccount.Disabled = True) Then
i = i + 1
End If
End If
Next
'Configurando a senha do administrador local
Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
Set objShell = Wscript.CreateObject("Wscript.Shell")
strSetSenha = "cmd /c net user " & strContaAlvo & " " & strSenha
objShell.Run (strSetSenha), 0, True
'Caso a conta esteja Desabilitada Habilita a mesma
If (i > 0) Then
strAtivaConta = "cmd /c net user " & strContaAlvo & " /active:yes"
objShell.Run (strAtivaConta), 0, True
End If
Criei uma GPO numa OU específica para testar, editei a OU:
Configuração do Computador/Políticas/Configurações do Windows/Scripts/Inicialização e adicionei o arquivo (salvo em .vbs)
Mas quando testo num computador que está dentro da mesma OU não acontece nada... a conta de administrador ainda está desabilitada nele.
Tem algo errado com o script? teria que adicionar algum Parâmetro? existe outro script que funcione?
Desde já agradeço
Roger William
Habilitar e Alterar Senha de Administrador Local nas Estações do Domínio
