Cannot read HKEY_USERS subkeys

Hi all,

I cannot use "EnumKey" for the HKEY_USERS. The script below was
working smoothly with windows 2000 sp3. However, after installing sp4,
it does not run correctly; it enumerates HKEY_CURRENT_USER, instead of
HKEY_USERS. How can I enumerates HKEY_USERS?


const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
const HKEY_USERS = &H80000003

const strIEHomePageKeyPath = "\Software\Microsoft\Internet
Explorer\Main"
const strIEHomePageValue = "Start Page"
const strLogonKeyPath =
"\Software\Microsoft\Windows\CurrentVersion\Explorer"

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = ""
oReg.EnumKey HKEY_USERS, "", arrSubKeys