Problem with EnumKey "Object Not a Collection"

Question

The purpose of this script was to allow me to quickly change the WSUS intranet server (I'm not fully done with it yet), instead of using the local Group Policy. Sometimes the WindowsUpdate key does not exist. Rather than guessing and writing a new one, I'd
rather check if it exists, and only write if it doesn't. The problem I've had is I get "Object is not a collection" when I use EnumKey. From what I know, null values are causing the error, but I don't know how to resolve it.
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_
strComputer & "\root\default:StdRegProv")
strKeyPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows"
Wscript.Echo "This program serves to connect you to your intranet WSUS server. It will create or modify the registry."
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
bFound = (lcase(subkey) = lcase(regkey))
if bFound then exit for
Next
if bFound then
Wscript.echo "'WindowsUpdate' exists."
'Continue script without creating a key named WindowsUpdate.
Else
'Since key did not exist, create key and then continue.
The problem code is underlined (Line 10 for me).

Answer 1

EnumKey has a return value, and you're currently ignoring it. You can only assume that arrSubKeys has been set to an array if EnumKey returns 0. If it returns something other than 0, it's a Win32 error code which will give you more information about what
went wrong (for example, a return value of 2 is ERROR_FILE_NOT_FOUND, or "The system cannot find the file specified.")
Here's a brief example of how you might modify your code to check the return value:
intResult = objReg.EnumKey(HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys)
If intResult <> 0 Then
WScript.Echo "Error code from EnumKey: " & intResult
Else
For Each subkey In arrSubKeys
If LCase(subkey) = LCase(regkey) Then
bFound = True
Exit For
End If
Next
If bFound Then Wscript.Echo "'WindowsUpdate' exists."
End If