Device ID Lookup through VBA

[Falko26]

Hey Team,

Device ID is not one of the Environ Variables Excel can access.

Does anyone know how to lookup the Device ID of the computer you are currently working on using Excel VBA?
I can find this variable myself by going to the about section in settings. however I am looking to reference this number for security purposes of my spreadsheet.

Thanks,

 

[kevin9999]

Don't know about the Device ID, but the computer name is relatively simple.

Sub GetName()
    MsgBox Environ$("computername")
End Sub

 

[nguyendang]

D

Hey Team,

Device ID is not one of the Environ Variables Excel can access.

Does anyone know how to lookup the Device ID of the computer you are currently working on using Excel VBA?
I can find this variable myself by going to the about section in settings. however I am looking to reference this number for security purposes of my spreadsheet.

Thanks,

Did you mean this "Device ID"?

Private Sub GetDeviceId()
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")
    Debug.Print objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\MachineId")
End Sub

 

[Falko26]

D

Did you mean this "Device ID"?

View attachment 90914

Private Sub GetDeviceId()
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")
    Debug.Print objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\MachineId")
End Sub

View attachment 90915

This is Exactly what I was trying to do!

Thanks!