因公司业务需要，希望能将HR上的部门公司以及员工信息同步到AD服务器，以为其他应用系统做统一的域认证管理，因为用Java来实现比较麻烦，还要弄个web容器啥的，因此就决定直接在HR的数据库上写过程来同步了，因为希望同步过去的用户有默认密码，且账户是默认启用状态，因此需要通过ssl的方式来连接AD服务器，花了一些时间查找了一些资料（真尼玛不好找，baidu基本没有，翻墙用Google搜的），现在把部分关键实现代码及注意事项记录下来。
【一】在Oracle服务器上创建Wallet
首先应该在ad服务器上导出一个扩展名为.cer的根证书，这一步骤请联系网管，此处不描述了。
登录Oracle所在服务器
su - oracle
mkdir /home/oracle/wallet
正式创建一个wallet对象，访问密码为wallet
orapki wallet create -wallet /home/oracle/wallet -pwd wallet
将ad服务器上导出的根证书，添加到wallet中
orapki wallet add -wallet /home/oracle/wallet -trusted_cert -cert /home/oracle/certnew.cer
【二】连接ldap服务器的部分代码, 其中 g_ 打头的变量，需要替换成你们自己的
procedure ldap_connect is
begin
dbms_ldap.USE_EXCEPTION := true;
-- 注意此处端口变量值应为636，因为我们要采用ssl连接，普通的连接设置为389即可
g_session := dbms_ldap.init(
hostname => g_ldap_host,
portnum => g_ldap_port
);
-- 通过wallet验证
g_return_value := dbms_ldap.open_ssl(
ld => g_session,
sslwrl => ‘file:/home/oracle/wallet‘, -- wallet地址
sslwalletpasswd => ‘wallet‘, -- wallet验证密码
sslauth => 2
);
-- 记住这里的验证用户应该具有管理员权限，否则后面没有创建ou和user的权限
g_return_value := dbms_ldap.simple_bind_s(
ld => g_session,
dn => g_login_user,
passwd => g_login_password
);
exception
when others then
dbms_output.put_line(sqlcode || ‘:‘ || sqlerrm);
ldap_disconnect;
pkg_log.error(‘ldap_connect‘, ‘出错原因【SQLCODE=‘||sqlcode||‘ SQLERRM=‘||sqlerrm||‘】‘);
end ldap_connect;
【三】创建用户时的注意点
这时在新建或者修改用户时，就可以正常变更密码(unicodePwd)以及账户控制(userAccountControl)属性了
但是设定unicodePwd时，要求的是binary格式的变量，部分代码如下
procedure ldap_add_user (
p_sn varchar2,
p_given_name varchar2,
p_user_name varchar2,
p_user_principal_name varchar2,
p_user_password varchar2,
p_belong_ou varchar2
) is
v_array dbms_ldap.MOD_ARRAY := dbms_ldap.create_mod_array(10);
v_add_values dbms_ldap.STRING_COLLECTION;
v_pwd_values dbms_ldap.BERVAL_COLLECTION;
v_dn varchar2(300); -- dn信息
begin
......
v_add_values(1) := ‘512‘; -- Normal Account
dbms_ldap.populate_mod_array(
modptr => v_array,
mod_op => dbms_ldap.MOD_ADD,
mod_type => ‘userAccountControl‘,
modval => v_add_values
);
v_pwd_values(1) := UTL_RAW.cast_to_raw(convert(‘"‘||p_user_password||‘"‘, ‘AL16UTF16LE‘));
dbms_ldap.populate_mod_array(
modptr => v_array,
mod_op => dbms_ldap.MOD_ADD,
mod_type => ‘unicodePwd‘,
-- 这里的参数名一定要是modbval, 否则会编译不过去, 如果采用plsql dev工具自动提示带出来的参数就是modval, 这个坑折腾我老久了
modbval => v_pwd_values
);
......
end;