Would you like to be able to access the Registry using Visual Lisp?
Try this :

;CODING STARTS HERE
(defun C:RegTest ( / AcadReg LMAcadReg Name1 Name2)

(vl-load-com)

(setq AcadReg (vlax-product-key)
LMAcadReg (strcat "HKEY_LOCAL_MACHINE\\" AcadReg)
Name1 (vl-registry-read LMAcadReg "FirstName")
Name2 (vl-registry-read LMAcadReg "LastName")
);setq

(alert (strcat "The name of this computer is " Name1 " " Name2))

(princ)

);defun

(princ)
;CODING ENDS HERE

Thanks to Bill Kramer for this little beauty.