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?
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.
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!?