Inquiridor
Senha Radmin

Pergunta
-
Ola, trabalho em uma empresa onde em todas as estações estão instaladas o software Radmin 2.1 onde foi pedido que alterassemos todas as senhas de cada micro para logarmos em cada maquina, so que temos em media mais de 400 micros e ira levar um bom tempo, há alguma maneira de fazer sem ter de ir em cada maquina? Sendo que as maquinas não tem permissão de adm, se ouvesse pelo menos um jeito de copiar algum arquivo para cada maquina que contesse a senha seria bem mais facil.
Obrigado
Todas as Respostas
-
Sim, tem sim. Você pode explicar melhor? Sua mensagem está tão confusa que não consegui entender exatamente o que você precisa fazer. O que vc quer dizer com "alterar todas as senhas de cada micro"? Seria a senha de administrador local? A senha da máquina no Active Directory? Senha do usuário?
[]s,
Vinicius Canto
MVP Admin Frameworks
http://viniciuscanto.blogspot.com
Vinicius Canto MVP Admin Frameworks Blog: http://viniciuscanto.blogspot.com -
Ellyson, onde trabalho também é utilizado o RADMIN 2.1
Veja, alterar a senha creio que não seja possível, o que nós fizemos foi alterar a autenticação para um Grupo do Active Directory (alterar variavel NEWGRUPO), outro ponto, adicionei o script na GPO (Computer Settings) como script de startup..
Segue o script;
on error resume nextConst HKEY_LOCAL_MACHINE =&H80000002
Dim oNet, newgrupo
newgrupo = "NOME DO GRUPO"strcomputer="."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strcomputer & "\root\default:StdRegProv")Caminho = "SYSTEM\RAdmin\v2.0\Server\Users\"
oReg.EnumKey HKEY_LOCAL_MACHINE, caminho, arrSubKeys
For Each subkey In arrSubKeys
fim = (Caminho & subkey)
oReg.DeleteKey HKEY_LOCAL_MACHINE, fimNext
strPath0 = "SYSTEM\RAdmin\v2.0\Server\Parameters"
uBinary = Array(01,00,00,00)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"AskUser", _
uBinary)uBinary = Array(01,00,00,00)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"NTAuthId", _
uBinary)uBinary = Array(01,00,00,00)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"NTAuthEnabled", _
uBinary)uBinary = Array(19)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"Port", _
uBinary)uBinary = Array(14,00,00,00)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"Timeout", _
uBinary)uBinary = Array(00,00,00,00)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"EnableLogFile", _
uBinary)uBinary = Array(00,00,00,00)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"FilterIp", _
uBinary)uBinary = Array(00,00,00,00)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"DisableTrayIcon", _
uBinary)uBinary = Array(00,00,00,00)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"AutoAllow", _
uBinary)uBinary = Array(00,00,00,00)
Return = oReg.SetBinaryValue(HKEY_LOCAL_MACHINE, _
strPath0, _
"EnableEventLog", _
uBinary)oReg.SetExpandedStringValue _
HKEY_LOCAL_MACHINE,strPath0,"LogFilePath","C:\logfile.txt"
strKeyPath = "SYSTEM\RAdmin\v2.0\Server\Users\"&complemento1
oReg.Createkey HKEY_LOCAL_MACHINE,strKeyPathstrKeyPath4 = "SYSTEM\RAdmin\v2.0\Server\Users\" & newgrupo
oReg.Createkey HKEY_LOCAL_MACHINE,strKeyPath4
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath4,"Access",31
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath4,"IsGroup",00000008
Caso seja útil, classifique como resposta.
Abs
Bruno M. Cunha http://www.projetoz.net -
A questão é a seguinte, há mais ou menos 392 maqunas que estão instaladas o radmin 2.1 client, estou tendo de mudar uma a uma a senha para logar em cada , pois todas estão com a senha Y e necessito colocar X em todas, pois estamos mudando, descobriram a nossa senha padrão e algumas maquinas mesmo estando bloqueado por ip estão conseguindo entrar em outra via radmin, então necessito trocar em todas, gostaria de ver se há possibilidade de executar um script na rede que alterasse todas as senhas dos client.
Obrigado