Add users and mailboxes in a domain with C #

public int Creatuser (string loginname)
{
String p_strdomainloginname= "admin";
String P_strdomainloginpassword= "";
String P_strdomainname= "myweb.com";
String P_strdcname= "dc=myweb,dc=com";
String P_strservername= "MyWeb";
int returnvalue;

Cdos. Personclass Pcuser;
CDOEXM. IMailboxStore MailBox;
String strldap= "ldap://" + p_strdomainname + "/cn=" + LoginName + ", cn=users," + p_strdcname;
String Strhomemdburl= "ldap://" + p_strdomainname + "/cn=mailbox Store (" + P_strservername + ")," +
"Cn=first Storage Group,cn=informationstore," +
"cn=" + P_strservername + ", Cn=servers,cn=first administrative Group," +
"Cn=administrative Groups,cn=first organization," +
"Cn=microsoft exchange,cn=services,cn=configuration," + p_strdcname;

if (LoginName. LENGTH>0)
{
Try
{
Increase user
Pcuser=new Personclass ();
Pcuser.firstname=loginname;
Pcuser.lastname= "";
pcuser.fields["userAccountControl"].            value=66048; Set this user password never expires
pcuser.fields["userPrincipalName"].            Value=loginname; Set the user's logon account
PcUser.Fields.Update ();
PcUser.DataSource.SaveTo (Strldap,null,adodb. Connectmodeenum.admodereadwrite,
ADODB. Recordcreateoptionsenum.adcreateoverwrite,adodb.
Recordopenoptionsenum.adopensource,p_strdomainloginname,p_strdomainloginpassword);

Add mailbox
mailbox= (IMailboxStore) pcuser.getinterface ("IMailboxStore");
Mailbox.createmailbox (Strhomemdburl);

Pcuser.email= "SMTP:" + loginname + "@" + p_strdomainname;
pcuser.fields["mailnickname"]. Value= "mailnickname" + loginname;
PcUser.Fields.Update ();
PcUser.DataSource.Save ();
returnvalue=1;
}
Catch
{
Returnvalue=-1;
}
}
Else
{
Returnvalue=-1;

}
Return returnvalue;
}
Note the reference to CDOs and CDOEXM.
Welcome to communicate with each other.