Something like this doesn't work?
Code:
(defun C:test ()
(defun reg_updt (target)
(if
(null
(vl-registry-read
(strcat "HKEY_USERS\\S-1-5-21-1794388629-2076409663-1235820382-4565\\Software\\COADE, Inc.\\"
target "\\Plant\\Settings")))
nil
(vl-registry-write (strcat "HKEY_USERS\\S-1-5-21-1794388629-2076409663-1235820382-4565\\Software\\COADE, Inc.\\"
target "\\Plant\\Settings")
"Configuration 17" "J:/CAD/CADWorx System Config Files/test.cfg")
)
)
(setq result1 (reg_updt "CADWorx 2007"))
(setq result2 (reg_updt "CADWorx 2008"))
(princ)
)