Thanks. Here is what I came up with. It's just the three bits and pieces I needed, and obviously not the whole lisp file.
Code:
(setq stampon (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Dialogs\\Plot Stamp" "PlotStamp"))
(if (= stampon 0)
(vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Dialogs\\Plot Stamp" "PlotStamp" 1)
)
(setq stampfile (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_plant_2007\\Dialogs\\Plot Stamp" "PSPFilename"))
(if (/= stampfile "J:/CAD/Plot Stamp.pss")
(vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Dialogs\\Plot Stamp" "PSPFilename" "J:/CAD/Plot Stamp.pss")
)
(setq savetime (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Editor Configuration" "AutomaticSaveMinutes"))
(if (/= savetime 5)
(vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Editor Configuration" "AutomaticSaveMinutes" 5)
)