none
Senha Radmin RRS feed

  • 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
    segunda-feira, 13 de abril de 2009 21:10

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
    sexta-feira, 17 de abril de 2009 03:51
    Moderador
  • 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 next

    Const 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, fim

     Next

     

    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,strKeyPath

     

    strKeyPath4 = "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
    sexta-feira, 17 de abril de 2009 17:02
  • 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

    sexta-feira, 24 de abril de 2009 13:47