System.Runtime.InteropServices.COMException

Hej alle,

I forbindelse med oprettelse af postkasser på Exchange Server 2003 får jeg følgende exception:

Exception trace: at CDOEXM.IMailboxStore.CreateMailbox(String HomeMDBURL) at TestAD.Module1.CreateUser(String username, String pathUsers, String adUser
name, String adPassword) in C:\Documents and Settings\Administrator\Desktop\Test
AD\Module1.vb:line 289 exception System.Runtime.InteropServices.COMException (0x
80072030): There is no such object on the server.
  at CDOEXM.IMailboxStore.CreateMailbox(String HomeMDBURL)
  at TestAD.Module1.CreateUser(String username, String pathUsers, String adUser
name, String adPassword) in C:\Documents and Settings\Administrator\Desktop\Test
AD\Module1.vb:line 289

Jeg har kæmpet længe med dette, men har selvsagt ikke fundet en løsning; er der nogen der kan hjælpe?

Koden er:
.....
        Dim user As DirectoryEntry
        Try
            Dim folder As DirectoryEntry = New DirectoryEntry(pathUsers, adUsername, adPassword, AuthenticationTypes.Secure)

            Dim flags As Integer
            'Prepare user flags
            flags = 0
            flags = flags And Not ADS_UF_ACCOUNTDISABLE
            flags = flags Or ADS_UF_PASSWD_NOTREQD
            flags = flags Or ADS_UF_DONT_EXPIRE_PASSWD
            flags = flags And ADS_UF_NORMAL_ACCOUNT

            user = folder.Children.Add("CN=" + username, "user")
            user.Properties("mailnickname").Add(username) ' alias
            user.Properties("userAccountControl").Add(flags)
            user.Properties("sAMAccountName").Add(username)
            user.Properties("displayname").Add("Test")
            user.Properties("givenName").Add("Johnny") 'firstname
            user.Properties("sn").Add("XX") ' lastname
            user.Properties("initials").Add("JX") ' initialer
            user.Properties("title").Add("Mester") ' title
            user.Properties("company").Add("ITS") ' company
            user.Properties("mail").Add("sd@sd.ocm") ' company
user.CommitChanges()

            mailboxStore = user.NativeObject
            mailboxStore.CreateMailbox("LDAP://UDV01/CN=Mailbox Store (UDV01),CN=First Storage Group,CN=InformationStore,CN=UDV01,CN=Servers,CN=First Administrative Group,CN=MyOrg,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=it,DC=local")
user.CommitChanges()

Brugeren oprettes fint, men mailen ej :-((