Question : How to set mailbox size limits on a group?

I see in the Exchange General tab under each user an option to issue warnings or more when the user reaches a certian inbox size. Is there a way to set that to a group?

Answer : How to set mailbox size limits on a group?

D'oh!!

My apologies, there was a typo in that line. It should be "member.mDBUseDefaults" not ..UserDefaults..

Code below

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

           
           
             GroupName = "MyGroup"
IssueWarning = 75000
ProhibitSend = 125000           'enter a 0 if you do not want to set this property
ProhibitSendAndReceive = 175000       'enter a 0 if you do not want to set this Property
Set oNetwork = CreateObject("Wscript.Network")
Domain = oNetwork.UserDomain
GroupDN = GetObjectDN(GroupName,Domain)
Set oGroup = GetObject("LDAP://" & GroupDN)
Set ArrMembers = oGroup.Members
For Each member In ArrMembers
	Member.mDBUseDefaults = False
	Member.mDBStorageQuota = IssueWarning
	If ProhibitSend > 0 Then Member.mDBOverQuotaLimit = ProhibitSend
	If ProhibitSendAndReceive > 0 Then Member.mDBOverHardQuotaLimit = ProhibitSendAndReceive
	Member.setInfo()
Next
 
Function GetObjectDN(strObject, strDomain)
	On Error Resume Next : Err.Clear
	Set objNameTranslate = CreateObject("NameTranslate")
 	objNameTranslate.Init 3, ""
	objNameTranslate.Set 3, strdomain & "\" & strObject
	strObjectDN = objNameTranslate.Get(1)
	If Err.Number <> 0 Then
		strObjectDN = ""
	End If
 	Set objNameTranslate = Nothing
	On Error Goto 0
 	GetObjectDN = strObjectDN
End Function
           
         

Open in New Window Select All