VBA读取注册表HKEY_LOCAL_MACHINE问题

f8b1987

ykcbf1100 发表于 2024-4-10 14:43
我是win11系统

我虚拟机win11测试确实可以，但是win10里面试了不行

f8b1987

ykcbf1100 发表于 2024-4-10 14:43
我是win11系统

实测好像和32位程序有关，我win11的office是64位能访问，写成exe程序在win11打开无法访问注册表路径

f8b1987

zpy2 发表于 2024-4-10 14:33
regData = objRegistry.RegRead(regKeyPath & "\" & regValueName)

斜杠

加了斜杠了，也不行，在win11+office64位则可以

f8b1987

tanglf188 发表于 2024-4-10 14:49
win10+Office2021代码如下：
    Dim WShell As Object
    Set WShell = CreateObject("WScript.Shell ...

64位office测试可以的，但是win10+office32位测试不行

vitrel

+1，我的win10+office2019 32位测试不行。

fxl447098457

vitrel 发表于 2024-4-11 08:57
+1，我的win10+office2019 32位测试不行。

我这段代码应该通用了。试试。
Const HKEY_LOCAL_MACHINE = &H80000002
Sub 获取machineid()
Dim objCtx As Object, strOSArch, objLocator As Object, objStdRegProv As Object, Inparams As Object, Outparams As Object
Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
strOSArch = GetOSArch '获取操作系统位数
objCtx.Add "__ProviderArchitecture",strOSArch '这一句设置读取的注册表位置，设置64即为读取64位注册表
Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
Set objStdRegProv = objLocator.ConnectServer(".", "root\default", "", "", , , , objCtx).Get("StdRegProv")
Set Inparams = objStdRegProv.Methods_("GetStringValue").Inparameters
Inparams.Hdefkey = HKEY_LOCAL_MACHINE
Inparams.Ssubkeyname = "SOFTWARE\Microsoft\SQMClient"
Inparams.Svaluename = "MachineId"
Set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams, , objCtx)
MsgBox "MachineId:" & Outparams.SValue
Set Outparams = Nothing
Set Inparams = Nothing
Set objStdRegProv = Nothing
Set objLocator = Nothing
Set objCtx = Nothing
End Sub
Function GetOSArch() As Integer '获取系统是32位还是64位
GetOSArch = Val(GetObject("winmgmts:root\cimv2:Win32_OperatingSystem=@").OSArchitecture)
End Function

f8b1987

fxl447098457 发表于 2024-4-11 10:00
我这段代码应该通用了。试试。
Const HKEY_LOCAL_MACHINE = &H80000002
Sub 获取machineid()

确实可以..............

opel-wong

fxl447098457 发表于 2024-4-11 10:00
我这段代码应该通用了。试试。
Const HKEY_LOCAL_MACHINE = &H80000002
Sub 获取machineid()

能否再进一步，修改它，是否可以？