WMI（拡張子vbs)によるレジストリキー削除

Question

プログラムのリソースは以下のサイトです。
（ｈつけてください）ttp://www.wmifun.net/sample/stdregprov_f.html

Option Explicit

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClass
Dim oLocator
Dim oService
Dim lRet
Const HKEY_LOCAL_MACHINE = &H80000002

'ローカルコンピュータに接続する。
Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer(, "root\default")
'クエリー条件を WQL にて指定する。
Set oClass = oService.Get("StdRegProv")

lRet = oClass.DeleteKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Toh\WMI")

If lRet = 0 Then
MsgBox "レジストリキーの削除に成功しました。"
Else
MsgBox "レジストリキーの削除に失敗しました。"
End If

'使用した各種オブジェクトを後片付けする。
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing

今回削除しようとしているのは以下のサイトの
ソフトウェアのレジストリです。
ダウンロードして起動するとパスワードを作るように要求されますので
わかるようなパスワードに設定してください。
ダウンロードすると以下のように
ソフトウェアのレジストリが追加されます。
\HKEY_CURRENT_USER\Software\pasonemu.net
ここにあるレジストリを削除するプログラムを作ろうとしているのですが、

Const HKEY_LOCAL_MACHINE = &H80000002

を

Const HKEY_CURRENT_USER = &H80000002

lRet = oClass.DeleteKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Toh\WMI")
を

lRet = oClass.DeleteKey(HKEY_CURRENT_USER, "\Software\pasonemu.net")
と変更しましたが、

レジストリーキーの削除に失敗しましたとメッセージが出てきてしまいます。
上の二つでサンプルプログラムで違うレジストリに対して応用させて
レジストリーの削除は出てきていませんか。
ほかに値を変えるところがあるのでしょうか。
vbscriptは全く習ったことないので、回答お願いします。

Answer 1

Const HKEY_CURRENT_USER = &H80000002

タイプミスでしょうか？
HKEY_CURRENT_USER は &H80000001ですよ。
もしくはプログラミングが全くはじめてと言うことでしょうか？変数名だけを変えてもプログラムの動作は変わりません。

あと、

（ｈつけてください）ttp://www.wmifun.net/sample/stdregprov_f.html

どういった理由でリンクにしたくないのか分かりませんが、このサイトではURLを書いただけで自動的にリンクになることはないので、hを省略するのは無意味です。

Comments

[mercurian-teto]

回答ありがとうございます。
プログラミングはfortranを学校の試験でやる程度しました。

Const HKEY_CURRENT_USER = &H80000001
と変更しましたが、依然、レジストリの削除に失敗と表示されます。

レジストリのアクセス制限は一切かかっていませんし（フルコントロールです）

[otn]

そもそも、そのキーはないのでは？