|
I am not real familiar with the UDF's as I am new to kixstart and never used them before....I am running the script the way I think it should be run but I am sure it is wrong because it is not producing the results...here is my code:
Break on dim $Regkey,$X,$changedx,$Value
? "Version Check"
If Keyexist("HKCU\Software\radmin\v2.0") or ("HKCU\Software\radmin\v2.1") goto RAGOOD Else Exit End IF
:RAGOOD If Keyexist("HKCU\Software\radmin\v2.0") $Regkey="HKCU\Software\radmin\v2.0\clients" else $Regkey="HKCU\Software\radmin\v2.1\clients" EndIf
function arrayenumvalue($regsubkey) dim $retcode, $valuecounter, $currentvalue, $valuearray if not keyexist($regsubkey) $arrayenumvalue='' return endif
$valuecounter=0 do $currentvalue=enumvalue($regsubkey,$valuecounter) if $currentvalue<>259 and @ERROR=0 redim preserve $valuearray[$valuecounter] $valuearray[$valuecounter]=$currentvalue $valuecounter=$valuecounter+1 endif until $currentvalue=259 or @ERROR
$arrayenumvalue=$valuearray endfunction
$regvalues=ArrayEnumKey($regkey) for each $value in $regvalues $content = readvalue($regkey,$value) $content = left($content,28)+'0A'+substr($content, 31) $rc = writevalue($regkey,$value,$content,'REG_Binary') next
:Exit quit
I am almost positive I am using this function wrong "Jens". can you describe how I should use this.
|