0

このスクリプトを Windows 2008/Vista で実行して 1 つのレジストリ キーを削除する必要がありますが、実行できません。

Const HKEY_CLASSES_ROOT     = &H80000000
strComputer = "."
strKeyPath = "Installer\Products\334A4D1453680B74CA87BEE6B7E40113" 
Set objRegistry = GetObject("winmgmts:\\" & _
    strComputer & "\root\default:StdRegProv") 
DeleteSubkeys HKEY_CLASSES_ROOT, strKeypath 

Private Sub DeleteSubkeys(HKEY_CURRENT_USER, strKeyPath) 
  strComputer = "."
  Set objRegistry = GetObject("winmgmts:\\" & _
    strComputer & "\root\default:StdRegProv") 

  objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys 
  If IsArray(arrSubkeys) Then 
    For Each strSubkey In arrSubkeys 
        DeleteSubkeys HKEY_CURRENT_USER, strKeyPath & "\" & strSubkey 
    Next 
  End If 

  objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath 
End Sub

理由はありますか？

4

1 に答える 1

1

これを管理者ユーザーとして実行していますか? パラメータ名として HKEY_CURRENT_USER を使用しているにもかかわらず、通常は昇格されたアクセスが必要な HKEY_CLASSES_ROOT から削除しようとしています。

于 2009-02-20T20:53:49.090 に答える