;;; Get Product Key to detect Product Name and Type
				(setq tmpProd (vlax-product-key))
				(princ)
				;Must Update Design center ContentRoot variable as well
				;original path: C:\Documents and Settings\All Users\
				                ;Application Data\Autodesk\ADT 2005\enu\
				;new path: W:\CAD2005\Standards\
				;Update Tool Palette Locations
				(setq DCPath "w:\\cad2005\\Standards\\")
				(setq RegEnt (strcat "HKEY_CURRENT_USER\\" 
											tmpProd 
											"\\AEC\\4.5\\General\\Tools")
				)							
  			;(vl-registry-read RegEnt "ToolContentRoot") ;uncomment this to read the current setting
  			(vl-registry-write RegEnt "ToolContentRoot" DCPath)
				(princ)
				;Update AEC Design Center Content location
				(setq CatalogPath (strcat DCPath "AEC Content\\"))
				(setq ContentPath 
									(strcat "HKEY_CURRENT_USER\\"
									(vlax-product-key) "\\Profiles\\" 
									(vlax-get  (vla-get-profiles (vla-get-preferences 
									(vlax-get-acad-object))) "ActiveProfile") 
									"\\Preferences\\AecDcArch40\\")
				)
				(princ)
				;Note: variable name change from "CatalogRootPath" in 2004 
				;to "DCAecContentRoot" in 2005
				;(vl-registry-read ContentPath "DCAecContentRoot")
				;be aware this won't take effect until you restart your application
				(vl-registry-write ContentPath "DCAecContentRoot" CatalogPath)
				(princ)