ms access, id številka računalnika

V registru pod HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProductID je zapisana številka, katera se pri različnih računalnikih nikoli ne ponovi. Kako bi lahko to številko s pomočjo klika na gumb prebral in jo zapisal v npr. text box? Nisem namreč preveč vešč v programiranju.

Hvala vsem
mazi42

... če tole malo zgoraj prirediš za Access:

Sub ProductID()

Dim strProductID As String
Dim strRegProductID As String
Dim objShell As Object
Dim objReg As Object

Set objShell = CreateObject("WScript.Shell")
Set objReg = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

strRegProductID = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId"
strProductID = objShell.RegRead(strRegProductID)

'Zapis vrednosti v MsgBox. Lahko tudi v polje na obrazcu, tabelo....
MsgBox "ProductID te mašine je: " & strProductID, vbOKOnly, "Sporočilo"

End Sub

... in zadeva deluje.

lp.