Break On
Dim $SO,$SearchList
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
 
; Example updates the DNS search list in the registry 
$SearchList = 'brooks.com,brook-1.com,welshing.com,nenavan.com,blakrt.com'
RegUpdate('computername','HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters','SearchList',$SearchList,'REG_SZ')
? 'Registry Update was: ' + @ERROR
 
Function RegUpdate($System,$SubKey,$Entry,$Expression,optional $DataType)
  Dim $RC,$RegUpdate,$CurrentDataType,$CurrentEntry,$Remote
  If $System = "" $Remote = @WKSTA Else $Remote = $System EndIf
  $Remote = Join(Split($Remote, '\'), '', 3)
  $Remote = IIf($Remote <> '', '\\' + $Remote + '\', $Remote)
  $RegUpdate=0
  If $DataType=""
    $DataType='REG_SZ'
  EndIf
  $CurrentDataType=ReadType($SubKey,$Entry)
  $CurrentEntry=ReadValue($SubKey,$Entry)
  If $CurrentEntry<>$Entry Or $CurrentDataType<>$DataType
    $RC = WriteValue($SubKey,$Entry,$Expression,$DataType)
    If @ERROR
      Exit @ERROR
    EndIF
    $RegUpdate=1
  EndIf
  Exit @ERROR
EndFunction