PRH 'drunk on virtue' over diversity drive, says Shriver