Why write this one? Just create another store!

PS, your code blocks are FUBAR on FireFox!

T

One word on why I wrote that “Standard Edition!” Ok, two words. Standard edition can’t have more than one mbx store. Get off your enterprise butt sometime!

How are things up in mid town? Down here, they are asking us to fill out this air quality report, on the first day where the Smog is actually at warning levels for sensitive groups!

I am thinking that you are modifying the help text in the script. You must provide command line arguments to the script like so:

modmbxperms.vbs /ou:“ou=Southwest Sales,ou=sales”
/warn:80000 /nosend:90000 /disable:100000

Thats all on one line. You can not just double-click the script to run it, must be at the command line, because you need the arguments.

Of course you could just create a new .cmd file, edit it, paste in your typical modification and save it. Then just double click that when needed.

Sorry, but I still can’t get it to work.

I think I’ve tried just about all I can think of.

Let me outline my steps so maybe you can point out what I’m doing wrong.
First I’m pasting this text into Notepad:

‘ Written by: Stacy Spear (Darkstar 3D)
‘ Date: April 30, 2007
‘ This code modifies the mailbox size limits of an entire container or OU. Run the command without arguments to get a help display
‘ Version History
‘1.0 - Original

‘Argument Check
If Wscript.Arguments.Named(”ou”) = “GP Testing Only” or Wscript.Arguments.Named(”warn”) = “800″ or Wscript.Arguments.Named(”nosend”) = “900″ or Wscript.Arguments.Named(”disable”) = “1000″ Then ‘Check for the named arguments
‘Send help message if arguments is not correct
Wscript.echo “You must specifiy the target OU and the sizes for Warning, Nosend,”
Wscript.echo “and Disable using syntax like this:”
Wscript.echo
Wscript.echo “modmbxperms.vbs /ou:”"GP Testing Only”" /warn:800 /nosend:900 /disable:1000″
Wscript.echo “Account running this script MUST have enough AD rights to make these changes”
Wscript.Quit
End If

‘Connect to AD
Set RootDSE = GetObject(”LDAP://RootDSE”)
strDomain = RootDSE.Get(”DefaultNamingContext”)
ou = Wscript.Arguments.Named(”ou”) & “,” & strDomain ‘ Build the LDAP connection string for the OU or container

‘Copy arguments to variables for ease of use
warn = Wscript.Arguments.Named(”warn”)
nosend = Wscript.Arguments.Named(”nosend”)
disable = Wscript.Arguments.Named(”disable”)

‘Query AD for members of the OU
Set objGroup = GetObject(”LDAP://” & ou)

‘Update AD for each user in the OU
For each objUser in objGroup
If objUser.class=”user” then
objUser.mDBUseDefaults = False ‘Toggle the switch for “Use Mailbox Store Defaults” to off
objUser.Put “mDBStorageQuota”, warn ‘ Warning Limit
objUser.Put “mDBOverQuotaLimit”, nosend ‘Nosend Limit
objUser.Put “mDBOverHardQuotaLimit”, disable ‘Disable Mailbox Limit
objUser.SetInfo ‘Write object to AD
intCounter = intCounter +1 ‘Increment the counter
End if
next
WScript.Echo intCounter & ” Limits Changed ”
WScript.Quit

Then I am saving the file as Gptestingonly.vbs and running it from a command prompt (Start–>Run “cmd”) then I am running it from the root of the c drive by typing “Gptestingonly.vbs”. This gives me an error message such as “Expected Then in line…..” or “;” or something similar.

What am I doing wrong?