Break On
Dim $SO,$Pause
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')
 

Dim $Owner,$SetOwner,$Org,$SetOrg,$Admin,$Key
$Owner = 'Some name'
$SetOrg = 'My Company'
$Key = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion'
$Admin = IIf(InGroup(@WKSTA+'\'+SidToName('S-1-5-32-544'))-1+@INWIN=1,1,0)
If $Admin
  $SetOwner = WriteValue($Key,'RegisteredOwner',$Owner,REG_SZ)
  $SetOrg = WriteValue($Key,'RegisteredOrganization',$SetOrg,REG_SZ)
Else
  ? 'Insufficient rights to modify the Owner settings...'
EndIf