Create user through procedure on another database via database link

create or REPLACE PROCEDURE hostname1   

  (host_name in varchar2,user_name in VARCHAR2, pass_word in VARCHAR2,    

  table_space in varchar2,pro_file in varchar2)    

as    

  db_link_name      varchar2(30);

  l_ddl_sql         varchar2(4000);

begin    

  select db_link into db_link_name from all_db_links where host=host_name; 

  l_ddl_sql := 'begin dbms_utility.exec_ddl_statement@'||db_link_name||'(''CREATE     USER '||user_name||' IDENTIFIED BY '||pass_word||'     

    DEFAULT TABLESPACE '||table_space||' PROFILE '|| pro_file||' ACCOUNT UNLOCK''); END;';

  EXECUTE IMMEDIATE l_ddl_sql;

l_ddl_sql := 'begin dbms_utility.exec_ddl_statement@'||db_link_name||    

    '(''GRANT CONNECT,RESOURCE,EXECUTE_CATALOG_ROLE,Create table,create session,create     view,create sequence,create procedure,create job,create synonym TO '||user_name || '''); END;';

  EXECUTE IMMEDIATE l_ddl_sql;

end;

/