Question : VBScript Exchange 2003 set user storage limit

Good afternoon,

Is it possible to set a user's Exchange storage limit settings using a VBScript? Explicitly I wish to set the 'Prohibit send and receive at (KB)' option. Also, I wish to set the ALLOW right on the 'Associated external account' option on the SELF user - can this be achieved through a VBScript too?

Regards,

Michael

Answer : VBScript Exchange 2003 set user storage limit

Taken from my article (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/A_2859-VBScript-for-Windows-System-Administrators-Part-2.html) on the topic:

"In ADU&C enter some numbers in the "Issue Warning" box, the "Prohibit Send" box and the "Prohibit Send and Receive" box.  Then, open ADSIEdit and go look for them.  Here's the code:"


HTH,
exx
1:
2:
3:
4:
5:
6:
7:
Set oUser = GetObject("CN=Test User,OU=Employees,DC=mydomain,DC=local")
oUser.mDBStorageQuota = 250000
oUser.mDBOverQuotaLimit = 275000
oUser.mDBOverHardQuotaLimit = 300000
oUser.SetInfo
Random Solutions  
 
programming4us programming4us