;;; Get Product Key to detect Product Name and Type
				(setq tmpProd (vlax-product-key))
				(princ)
				;Must Update DC ContentRoot variable as well
				;HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.1\ACAD-304:409\AEC\4.5\General\Tools
				;original path: C:\Documents and Settings\All Users\Application Data\Autodesk\ADT 2005\enu\
				;new path: W:\CAD2005\Standards\
				;Update Tool Palette Locations
				(setq RegEnt (strcat "HKEY_CURRENT_USER\\" tmpProd "\\AEC\\4.5\\General\\Tools"))
  				(vl-registry-write RegEnt "ToolContentRoot" "C:\\Documents and Settings\\All Users\\Application Data\\Autodesk\\ADT 2005\\enu\\")
				(princ)
				;Update AEC Design Center Content location
				(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\\")
				)
				;Note: variable name change from "CatalogRootPath" in ADT2004 to "DCAecContentRoot" in ADT2005
				(vl-registry-write ContentPath "DCAecContentRoot" CatalogPath)
				(princ)