Vbscript 无法使用VB脚本创建注册表项

我无法使用VB脚本创建注册表项。我已经使用wbemtest检查了WMI，并且正在使用管理权限运行脚本。我相信代码是正确的-我在互联网上看到了几个示例，看起来很简单。操作系统中是否还有其他东西可以阻止VB脚本创建注册表项

下面是示例代码

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "ostslhqe-48958" 

Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\TestKey"

objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPath

strKeyPath = "SOFTWARE\Script Center"

objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPath

---

注册表项创建的一个示例是：

Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strValueName = "My DWORD Value"
dwValue = 13
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue

---

来源：

您的示例使用了一个未赋值的变量-strKeyPath。我将假设这个变量应该被指定应该创建的键的值。在本例中，我看不出您发布的代码与我的示例中的代码有什么区别。除此之外，我错误地将我的计算机名分配给strComputer变量。查看脚本后，我发现在函数CreateKey中，我指定了HKEY_CURRENT_USER，但未定义。我应该使用HKEY_LOCAL_机器，该机器分配为&H8000002。谢谢你的帮助。