通过adsi创建exchange2000用户的问题---向高手求救

wzg2000 2003-03-13 11:51:51

域：mmm.com
域控制器：it-3.mmm.com
exchange2000装在it-3 上
我要创建一个 jack的用户，然后给该用户分配一个邮箱

以下是我精简的代码：

Dim objMailbox As CDOEXM.IMailboxStore
Set dom = GetObject("LDAP://ou=IT,dc=mmm,dc=com")

Set ouser = dom.Create("user", "cn=jack")
ouser.Put "sAMAccountName", "jack"

ouser.SetInfo

Set objMailbox = ouser

objMailbox.CreateMailbox "LDAP://cn=jack,CN=Mailbox Store(IT-3),CN=First Storage Group,CN=InformationStore,CN=it-3,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=mmm,CN=Microsoft Exchange,CN=Services,CN=Configuration,dc=mmm,dc=com"

objUser.SetInfo

执行后，能创建jack的用户，可执行到 objMailbox.CreateMailbox 时报错
错误提示为：
实时错误，"-2147016656(80072030)'
在服务器上没有这样一个对象：

facility:ldap provide
ID no: 80072030
microsoft cdo for exchange management

还望高手指点,谢谢

...全文