How to display all registry values in hive?

Hi,
I am trying to display values in registry hive but unfortunately getting error at UBound. Please guide.
Const HKEY_USERS = &H80000003
'On Error Resume Next
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Office\12.0\Excel\Option"
objRegistry.EnumValues HKEY_USERS, strKeyPath, arrValueNames, arrValueTypes
For i = 0 to UBound(arrValueNames)
strValueName = arrValueNames(i)
objRegistry.GetStringValue HKEY_USERS,strKeyPath,strValueName,strValue    
Wscript.Echo arrValueNames(i) & " -- " & strValue
Next

There is no subkey "Software\Microsoft\Office\12.0\Excel\Option" under HKEY_USERS. You mean to look under HKEY_CURRENT_USER, which is represented by the value &h80000001.