-- name       : check_roles.sql
-- date       : 25-Mar-2002
-- Author     : Pentest Limited
-- Description: Check all of the possible default roles to see if they still
--              have the default passwords set. 
-- limitation : need to have access to sys.user$
--
-- useage     : SQL> @check_roles

set head off    
set lines 79   
set pages 0   
set feed off 
spool check_roles.lis
connect internal   
select 'Role : ODS_SERVER has the default password (ODS)' from sys.user$ where name='ODS_SERVER' and password='C6E799A949471F57';
select 'Role : WKADMIN has the default password (WKADMIN)' from sys.user$ where name='WKADMIN' and password='888203D36F64C5F6';
select 'Role : WKUSER has the default password (WKUSER)' from sys.user$ where name='WKUSER' and password='8B104568E259B370';
set feed on
set head on
set termout on
set lines 80 
spool off   
exit