Unable to open registry key

[amo]

I tried to read the computer's Device ID and the code worked fine

However, when I tried it on my other computer, an error appeared

Unable to open registry key "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\MachineId" for reading

This is the VBA code that I use

Sub Try()
    
    Dim objShell As Object
    Dim DeviceID As String
    
    Set objShell = CreateObject("WScript.Shell")
    DeviceID = VBA.Replace(VBA.Replace(objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\MachineId"), "{", ""), "}", "")
    
End Sub

any idea ?

 

[RoryA]

Can you manually see and edit that key in the registry editor on the other pc? Perhaps it’s a permissions problem.