Scripting Roles and role rights

Is it possible to script roles and their detailed dimension/cube rights easily

Why I ask is that In converting cubes from 2000 to 2005, some dimensions have been a pain to port, and removing/adding them to a cube results in having to re-create the cube security (not dimension security). Reverse engineering the roles to a script only creates a command to add the role, not to add the role to the cubes. What would be nice would be a way to reverse engineer all the components of a role, the role itself and the cube/dimension based security rights, and to be able to run that script as needed.