Hi,
I eventually worked out what I was doing wrong and have got it
to work. That is creating a mailbox for exchange. Fairly Simple
really.
dim obj as iadscontainer
dim mobj as cdoexm.imailboxstore
set obj = getobject("LDAP://"; & Server & "/cn=" & UserName & _
"cn=users" & Domain ' as dc=x,dc=y,dc=z
' Your site as in x.y.z eg host.microsoft.com
set mobj = obj ' overlay mailbox to user container.
mobj.createmailbox "LDAP://cn=mailbox store (" & exServer & ")" & _
"cn=first storage group,cn=information store," & _
"cn=" & exserver & ",cn=servers," & _
"cn=first administration group,cn=administrative group," & _
"cn=" & ExchangeOrganization & ",cn=microsoft exchange," & _
"cn=services,cn=configuration," & Domain
' Exchange Organization appears in Exchange system managers
' Exchange Server is the targeted exchange box to create mailbox
obj.setinfo ' write cached data back to active directory.
set obj = nothing
set mobj = nothing
There you have it! Quite simple really.
Robert.
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
