oh you mean this? ;\)

 Code:
function ProgramFiles()
  dim $Prev
  $Prev=setoption("WOW64AlternateRegView","On")
  $ProgramFiles=readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","ProgramFilesDir")
  $Prev=setoption("WOW64AlternateRegView",$Prev)
endfunction


Thanks for the input tho, if I had been looking for it, you can bet we would have been struggling to find it. \:\)