网络收藏

代码如下。如果我给这个邮箱发封信，并且再用outlook收一下，就ok了。真个奇怪  
  怎么回事呢？  
   
   
  建立  
  set   m   =   getobject("ldap:")  
  set   domain   =   m.opendsobject("ldap://cn=users,   dc=bbtvu,   dc=ah,   dc=cn",   "lc",   "ad",   0)  
  set   user   =   domain.create("user",   "cn=my201")  
  user.put   "samaccountname",   "my201"  
  user.put   "userprincipalname",   "my201@bbtvu.ah.cn"  
  user.setinfo  
   
  取得  
  set   m   =   getobject("ldap:")  
  set   user   =   m.opendsobject("ldap://cn=my201,   cn=users,   dc=bbtvu,   dc=ah,   dc=cn",   "lc",   "ad",   0)  
  set   user   =   domain.create("user",   "cn=my201")  
  user.put   "samaccountname",   "my201"  
  user.put   "userprincipalname",   "my201@bbtvu.ah.cn"  
  user.setinfo  
   
  user.getinfo  
  user.accountdisabled=false  
  user.setpassword   "my201"  
  user.put   "mail",   "my201@bbtvu.ah.cn"  
  user.put   "legacyexchangedn",   "/o=bbtvu/ou=first   administrative   group/cn=recipients/cn=my201"  
   
  建立x.400  
  user.putex   2,   "proxyaddresses",   array("x400:c=us;a=;p=bbtvu;o=exchange;",   "smtp:my201@bbtvu.ah.cn")  
  user.setinfo  
   
  地址簿  
  user.putex   2,   "showinaddressbook",   array("cn=default   global   address   list,cn=all   global   address   lists,cn=address   lists   container,cn=bbtvu,cn=microsoft   exchange,cn=services,cn=configuration,dc=bbtvu,dc=ah,dc=cn",   "cn=cn=all   users,cn=all   address   lists,cn=address   lists   container,cn=bbtvu,cn=microsoft   exchange,cn=services,cn=configuration,dc=bbtvu,dc=ah,dc=cn")  
  user.setinfo  
   
   
   
   
   
   
  user.put   "textencodedoraddress",   "c=us;a=   ;p=bbtvu;o=exchange;s=m;g=y201;"  
  user.put   "autoreplymessage",   "cn=mail,   cn=servers,   cn=configuration,   ou=first   administrative   group,   o=bbtvu"  
  user.put   "mailnickname",   "my201"  
  user.setinfo  
  数据库配额  
  user.put   "mdbusedefaults",   true  
  user.put   "garbagecollperiod",   0  
  user.put   "securityprotocol",   "x00   x00   x00   x00"  
  user.put   "msexchhomeservername",   "/o=bbtvu/ou=first   administrative   group/cn=configuration/cn=servers/cn=mail"  
  user.setinfo  
   
   
  获取sd  
  set   adssectempuser   =   m.opendsobject("ldap://cn=lc,   cn=users,   dc=bbtvu,   dc=ah,   dc=cn",   "lc",   "ad",   0)  
  set   adssectempuser   =   getobject("ldap://cn=lc,   cn=users,   dc=bbtvu,   dc=ah,   dc=cn")  
  set   adstemplateusersd   =   adssectempuser.get("msexchmailboxsecuritydescriptor")  
  set   adstemplatedacl   =   adstemplateusersd.discretionaryacl  
  for   each   adsace   in   adstemplatedacl  
  adsace.trustee   =   "bbtvu\my201"  
  next  
  user.put   "msexchmailboxsecuritydescriptor",   adstemplateusersd  
   
  user.setinfo  
   
 

推荐阅读