break on
;test for X64
$ = SetOption("WrapAtEOL","ON")
If @onwow64=1
Dim $E,$T,$UN
$UN="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
? "Writing REG_SZ value 'Testing' as test data to:"
? $UN+'TestData'
$E=writevalue($un,'TestData','Testing','REG_SZ')
? 'Write Returncode='+$E+' '+@serror+@crlf
$T=readvalue($un,'TestData')
$E=@error
? 'Reading back value from registry = '+$T
? 'Read Returnerror='+$E+' '+@serror+@crlf
$E=delvalue($un,'TestData')
? 'Deleting Test Entry returned:'+$E+' '+@serror+@crlf
$UN="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{CE2CDD62-0124-36CA-84D3-9F4DCF5C5BD9}"
? $UN
$T=ReadValue($UN,"DisplayName")
$E=@error
? "Reading 'DisplayName' = "+$T
? 'Reading Errorcode = '+$E+' '+@serror+@crlf
Else
? 'Not a x64 Test machine !'
Endif
? 'Press any key to exit...'
get $