Avatar billede martinm Nybegynder
20. august 2004 - 09:48 Der er 4 kommentarer

VB.NET og oprettelse på MS Exchange Server

Hej,

Er der nogen, der har erfaringer med at oprette brugere på en Exchange Server (samt lægge dem i grupper osv.) fra en VB.NET applikation?

Jeg har hørt noget om CDO, men hvilken rolle spiller det her?
Avatar billede arne_v Ekspert
20. august 2004 - 14:47 #1
CDO er et bibliotek som kan bruges til at tilgå Exchange med.
Avatar billede arne_v Ekspert
20. august 2004 - 14:50 #3
De ting som koden i de link gør er ikke det du spørger om.

Men de viser at man kan snakke med en exchange server via CDO.

Du må så finde noget CDO dokumentation og læse om hvordan man opretter
brugere og placerer dem i grupper.
Avatar billede martinm Nybegynder
25. august 2004 - 16:23 #4
Jeg fandt ud af, at det var nok for mig at oprette brugere i ADet med de rette properties for at få det til at virke!

Dog er jeg stødt ind i et andet problem: Jeg benytter følgende kode for at kontrollere, om en bruger eksisterer i en organisatorisk enhed på ADet:

    Public Function IsUserInOrganization(ByVal LDAP As String, ByVal username As String) As Boolean
        Dim objSearch As New DirectorySearcher
        objSearch.SearchRoot = New DirectoryEntry(LDAP, "Administrator", "xxx")
        objSearch.Filter = "(&(objectclass=user)(objectcategory=person))"
        objSearch.SearchScope = SearchScope.Subtree
        objSearch.PropertiesToLoad.Add("cn")
        'objSearch.PropertiesToLoad.Add("Page Size = 2000")
      'objSearch.SizeLimit = 500

        Dim colQueryResults As SearchResultCollection

        colQueryResults = objSearch.FindAll()
        Dim s As String() = colQueryResults.PropertiesLoaded()

        Dim objResult As SearchResult
        Dim i As Integer = 0

        For Each objResult In colQueryResults
            Console.WriteLine(objResult.Properties("cn")(0) & " i " & i) '& " props " & s(i))
            If username = objResult.Properties("cn")(0) Then
                Return True
            End If
            i = i + 1
        Next

        Return False
    End Function

Dog returnerer søgningen kun 1000 elementer(brugere) selvom der er over det dobbelte i ADet!! Der er lidt om problemstillingen via Google, men jeg er ikke faldet over en løsning. Hvorfor denne 100 elementers grænse???

Nogen, der kan hjælpe!?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester