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
