Looking at building some automated mailbox management solutions and was trying to figure out to the best way (in VB.Net) to enumerate the available storage groups and determine the number of mailboxes currently allocated to each of them. I've seen a number of code snippets that are partial solutions, but most of them are either bit of VB or WMI and we're trying to do everything in .net (but not c#) Cheers, Erik
There are a few ways you could go with this you could use an Interop and use CDOEXM and then use the System.Management namespace to do some WMI. Or you can do it all with the System.Directoryservices namespace the thing to remember is that mailboxes are contained in mailstores and mailstores within Storage groups. So to get the total number of mailboxes in a storage group you need to add all the mailstore counts together something like this should work okay. Sub Main() Dim strservername As String = "servername" Dim RootDSE As New System.DirectoryServices.DirectoryEntry("LDAP://RootDSE") Dim RootPath As String = "LDAP://" + RootDSE.Properties("configurationNamingContext").Value Dim ConfigContainer As New System.DirectoryServices.DirectoryEntry(RootPath) Dim ConfigSearcher As New System.DirectoryServices.DirectorySearcher(ConfigContainer) ConfigSearcher.Filter = "(&(objectCategory=msExchExchangeServer)cn=" & strservername & ")" ConfigSearcher.SearchScope = System.DirectoryServices.SearchScope.Subtree Dim result As System.DirectoryServices.SearchResult = ConfigSearcher.FindOne() Dim colsgroups As DirectoryServices.SearchResultCollection Dim sresult As DirectoryServices.SearchResult Dim colmstores As DirectoryServices.SearchResultCollection Dim sresult1 As DirectoryServices.SearchResult Dim proparray() As String Dim stcount As Int32 colsgroups = searchcontainer(result.Properties("distinguishedName")(0).ToString(), "(objectCategory=msExchStorageGroup)") For Each sresult In colsgroups Console.WriteLine(sresult.GetDirectoryEntry().Properties("cn").Value) colmstores = searchcontainer(sresult.Properties("distinguishedName")(0).ToString(), "(objectCategory=msExchPrivateMDB)") stcount = 0 For Each sresult1 In colmstores Console.WriteLine(" " + sresult1.GetDirectoryEntry().Properties("cn").Value) Console.WriteLine(" Number of Mailboxes: " & sresult1.GetDirectoryEntry().Properties("homeMDBBL").Count) stcount = stcount + sresult1.GetDirectoryEntry().Properties("homeMDBBL").Count Next Console.WriteLine("Total Number of Mailboxes in Storage Group: " & stcount) Console.WriteLine("") Next End Sub Function searchcontainer(ByVal srvPath As String, ByVal strfilter As String) Dim ldapPath As String = "LDAP://" + srvPath Dim ServerContainer As New System.DirectoryServices.DirectoryEntry(ldapPath) Dim ServerSearcher As New System.DirectoryServices.DirectorySearcher(ServerContainer) ServerSearcher.Filter = strfilter ServerSearcher.SearchScope = System.DirectoryServices.SearchScope.Subtree ServerSearcher.PropertiesToLoad.Add("cn") ServerSearcher.PropertiesToLoad.Add("distinguishedName") ServerSearcher.PropertiesToLoad.Add("homeMDBBL") Dim colsrvresult As System.DirectoryServices.SearchResultCollection = ServerSearcher.FindAll() Return colsrvresult End Function Cheers Gen "Erik" wrote in message news:2AA04767-81A0-450C-B87C-05957C28481C@microsoft.com... > Looking at building some automated mailbox management solutions and was > trying to figure out to the best way (in VB.Net) to enumerate the > available > storage groups and determine the number of mailboxes currently allocated > to > each of them. > > I've seen a number of code snippets that are partial solutions, but most > of > them are either bit of VB or WMI and we're trying to do everything in .net > (but not c#) > > Cheers, > > Erik
Looks like the sort of thing I was looking for - I'll go give that a spin and see where it gets me. Much appreciated... Erik "Glen Scales [MVP]" wrote: > There are a few ways you could go with this you could use an Interop and use > CDOEXM and then use the System.Management namespace to do some WMI. Or you > can do it all with the System.Directoryservices namespace the thing to > remember is that mailboxes are contained in mailstores and mailstores within > Storage groups. So to get the total number of mailboxes in a storage group > you need to add all the mailstore counts together something like this should > work okay. > > Sub Main() > Dim strservername As String = "servername" > Dim RootDSE As New > System.DirectoryServices.DirectoryEntry("LDAP://RootDSE") > Dim RootPath As String = "LDAP://" + > RootDSE.Properties("configurationNamingContext").Value > Dim ConfigContainer As New > System.DirectoryServices.DirectoryEntry(RootPath) > Dim ConfigSearcher As New > System.DirectoryServices.DirectorySearcher(ConfigContainer) > ConfigSearcher.Filter = "(&(objectCategory=msExchExchangeServer)cn=" > & strservername & ")" > ConfigSearcher.SearchScope = > System.DirectoryServices.SearchScope.Subtree > Dim result As System.DirectoryServices.SearchResult = > ConfigSearcher.FindOne() > Dim colsgroups As DirectoryServices.SearchResultCollection > Dim sresult As DirectoryServices.SearchResult > Dim colmstores As DirectoryServices.SearchResultCollection > Dim sresult1 As DirectoryServices.SearchResult > Dim proparray() As String > Dim stcount As Int32 > colsgroups = > searchcontainer(result.Properties("distinguishedName")(0).ToString(), > "(objectCategory=msExchStorageGroup)") > For Each sresult In colsgroups > Console.WriteLine(sresult.GetDirectoryEntry().Properties("cn").Value) > colmstores = > searchcontainer(sresult.Properties("distinguishedName")(0).ToString(), > "(objectCategory=msExchPrivateMDB)") > stcount = 0 > For Each sresult1 In colmstores > Console.WriteLine(" " + > sresult1.GetDirectoryEntry().Properties("cn").Value) > Console.WriteLine(" Number of Mailboxes: " & > sresult1.GetDirectoryEntry().Properties("homeMDBBL").Count) > stcount = stcount + > sresult1.GetDirectoryEntry().Properties("homeMDBBL").Count > Next > Console.WriteLine("Total Number of Mailboxes in Storage Group: " > & stcount) > Console.WriteLine("") > Next > > End Sub > > Function searchcontainer(ByVal srvPath As String, ByVal strfilter As > String) > Dim ldapPath As String = "LDAP://" + srvPath > Dim ServerContainer As New > System.DirectoryServices.DirectoryEntry(ldapPath) > Dim ServerSearcher As New > System.DirectoryServices.DirectorySearcher(ServerContainer) > ServerSearcher.Filter = strfilter > ServerSearcher.SearchScope = > System.DirectoryServices.SearchScope.Subtree > ServerSearcher.PropertiesToLoad.Add("cn") > ServerSearcher.PropertiesToLoad.Add("distinguishedName") > ServerSearcher.PropertiesToLoad.Add("homeMDBBL") > Dim colsrvresult As System.DirectoryServices.SearchResultCollection > = ServerSearcher.FindAll() > Return colsrvresult > End Function > > Cheers > Gen > > > "Erik" wrote in message > news:2AA04767-81A0-450C-B87C-05957C28481C@microsoft.com... > > Looking at building some automated mailbox management solutions and was > > trying to figure out to the best way (in VB.Net) to enumerate the > > available > > storage groups and determine the number of mailboxes currently allocated > > to > > each of them. > > > > I've seen a number of code snippets that are partial solutions, but most > > of > > them are either bit of VB or WMI and we're trying to do everything in .net > > (but not c#) > > > > Cheers, > > > > Erik > > >
