VBA读取注册表HKEY_LOCAL_MACHINE问题

f8b1987

网上找到读取HKEY_CURRENT_USER中的代码，但是照着修改读取失败了。


应该如何读取HKEY_LOCAL_MACHINE下面的内容？


需要读取的注册表位置：
计算机\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient中MachineId的值

ykcbf1100

这是GPT写的，我的电脑上成功了，你可以试试。

1. Sub ReadRegistryValue()
   
2.     ' 设置注册表路径和值名
   
3.     regKeyPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient"
   
4.     regValueName = "MachineId"
   
5.     ' 创建注册表对象
   
6.     Set objRegistry = CreateObject("WScript.Shell")
   
7.     ' 读取注册表值
   
8.     regData = objRegistry.RegRead(regKeyPath & "" & regValueName)
   
9.     ' 输出注册表值
   
10.     MsgBox "MachineId 的值为：" & regData
    
11. End Sub
    

复制代码

fxl447098457

看样子需要有权限限制。楼上的代码在我这里也是跑不动。就读值的那行报错。

f8b1987

ykcbf1100 发表于 2024-4-10 10:35
这是GPT写的，我的电脑上成功了，你可以试试。

读取注册表值这句报错，windows10 专业工作站版

f8b1987

fxl447098457 发表于 2024-4-10 13:48
看样子需要有权限限制。楼上的代码在我这里也是跑不动。就读值的那行报错。

我这一样报错，丢vb6中 管理员运行也是报错

zpy2

f8b1987 发表于 2024-4-10 14:27
读取注册表值这句报错，windows10 专业工作站版

regData = objRegistry.RegRead(regKeyPath & "\" & regValueName)

斜杠

yang央

f8b1987 发表于 2024-4-10 14:27
读取注册表值这句报错，windows10 专业工作站版

可能被禁用了吧，你试试重新注册wshom.ocx
Regsvr32.exe /u wshom.ocx
Regsv32.exe wshom.ocx

ykcbf1100

f8b1987 发表于 2024-4-10 14:27
读取注册表值这句报错，windows10 专业工作站版

我是win11系统

tanglf188

win10+Office2021代码如下：
    Dim WShell As Object
    Set WShell = CreateObject("WScript.Shell")
    MsgBox WShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\MachineId")

tanglf188

ykcbf1100 发表于 2024-4-10 10:35
这是GPT写的，我的电脑上成功了，你可以试试。

加反斜杠\
    regData = objRegistry.RegRead(regKeyPath & "\" & regValueName)