CREATE MANY USERS AT ONCE

Question

Hi,
How do I create more than one user at once?
Thanks

Answer 1

Hi seashell,
Let me make your life little easy.
CREATE OR REPLACE PROCEDURE create_user( p_user_list VARCHAR2, p_tablespace_name VARCHAR2) AUTHID CURRENT_USER AS
l_user VARCHAR2(30);
l_comma_pos NUMBER := 1;
l_cursor_pos NUMBER := 1;
l_user_sql VARCHAR2(100);
l_grant_sql VARCHAR2(100);
BEGIN
LOOP
l_comma_pos := INSTR(p_user_list,',',l_comma_pos,1);
               DBMS_OUTPUT.PUT_LINE('sTEP1 :'||l_comma_pos );
IF l_comma_pos = 0 THEN
l_user := SUBSTR(p_user_list,l_cursor_pos);
                                        DBMS_OUTPUT.PUT_LINE('sTEP2');
                              l_comma_pos := -1;          
ELSE
l_user := SUBSTR(p_user_list, l_cursor_pos, l_comma_pos-l_cursor_pos);
                                        DBMS_OUTPUT.PUT_LINE('sTEP3');
l_cursor_pos := l_comma_pos + 1;
          l_comma_pos := l_comma_pos + 1;
END IF;
l_user_sql := 'CREATE USER '||l_user||' IDENTIFIED BY '||l_user||' DEFAULT TABLESPACE '||p_tablespace_name;
l_grant_sql := 'GRANT CONNECT,RESOURCE TO '||l_user;
DBMS_OUTPUT.PUT_LINE(l_user_sql);
     EXECUTE IMMEDIATE l_user_sql;
     DBMS_OUTPUT.PUT_LINE(l_grant_sql);
     EXECUTE IMMEDIATE l_grant_sql;
EXIT WHEN l_comma_pos = -1;
END LOOP;
END create_user;
Just create this procedure in system user of your database.
To use this procedure you need to pass two things one is list of user seprated by ',' and tablespace in which you want to create your user.
example I want to create two user lets suppose 'Raj' and 'seashell', and I want to use tablespace 'users'
SQL> execute create_user('raj,seashell','users');
I hope this will help you out.
Message was edited by:
rajs