vbscript - VBscript RegRead は常に失敗します - 何が間違っていますか?

Question

次の VBscript コードは、指定されたキーがローカル レジストリに存在する場合でも、常に検索に失敗します。私は何を間違っていますか？32 ビット XP Pro/SP3 を実行しています。

Dim winShell
Set winShell = CreateObject("WScript.Shell")
If regKeyExists(winShell, "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\ProgName\") Then
    wscript.echo "ProgName key found"
Else
    wscript.echo "Key not found!"
End If
Set winShell = Nothing

Function regKeyExists (winObj, key)
    On Error Resume Next
    regKeyExists = True
    Err.Clear
    winObj.RegRead(key)
    If Err <> 0 Then regKeyExists = False
    Err.Clear
End Function

キーが存在する場合でも、出力には常に「キーが見つかりません!」と表示されます。私は困惑しています！