'=======================================
===================================
'checkmailboxquotas.vbs /f:c:\docs\Quotas.txt
'
' NAME: CheckMailboxQuotas.vbs
'
' AUTHOR: Bharat Suneja , Exchangepedia
' DATE : 12/15/2006
'
' COMMENT:
'Checks users' mailbox quotas if set individually, else checks quotas on Mailbox Store
'and on any Mailbox Store policies (System Policies) that apply mailbox limits to a
'Store. Output to file using /f: switch with filename/path - e.g.
'checkmailboxquotas.vbs /f:c:\docs\Quotas.txt
'Suppress console output using /s switch - combine with output to file.
'Help with /help switch.
'=======================================
===================================
'Pickup Named Arguments
Set colNamedArguments = WScript.Arguments.Named
strOutputFile = colNamedArguments.Item("f")
strNoConOutput = colNamedArguments.Item("s")
strHelp = colNamedArguments.Item("help")
'Detect help and write help text to console
WriteHelp
Const Textmode = 1
'Get AD Path
Set objRootDSE = GetObject("LDAP://rootDSE")
strDomainContext = objRootDSE.Get("defaultNamingContext")
'WScript.Echo "strDomainContext: " & strDomainContext '#debug remove
strADsPath = "LDAP://" & objRootDSE.Get("defaultNamingContext")
Set objDomain = GetObject(strADsPath)
Wscript.Echo strADsPath
'Setup ADODB connection
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
'Get Mailbox Stores - msExchPrivateMDB
'Execute search command to look for Organization
objCommand.CommandText = _
"<LDAP://CN=Microsoft Exchange,CN=Services,CN=Configuration," & strDomainContext & ">" & ";(&(objectClass=msExchPrivateMDB)(!obje
ctClass=msExchPrivateMDBPolicy))" & ";distinguishedName,name,msExchPolicyLis
t,mDBStorageQuota,mDBOverQuotaLimit,mDBO
verHardQuotaLimit" & _
";subtree"
'Execute search to get Recordset
Set objStoresRS = objCommand.Execute
'# If no mailboxe Stores found
' WScript.Echo "AD Search for mailbox stores completed" '#debug remove
If objStoresRS.RecordCount = 0 Then
strOutput = strOutput & VbCrLf & "No Mailbox Stores found!"
WScript.Echo strOutput
' WScript.Quit
Else
strOutput = strOutput & VbCrLf & "Mailbox Stores found: " & objStoresRS.RecordCount
' WScript.Echo strOutput '#debug remove
'Create Dictionary object here
Set objStoresDictionary = CreateObject("Scripting.Dictionary")
objStoresDictionary.CompareMode = Textmode
' WScript.Echo "Dictionary Created" '#debug remove
'Enumerate Stores
While Not objStoresRS.EOF
Set objStore = GetObject("LDAP://" & objStoresRS.Fields("distinguishedName") & "")
WScript.Echo "Bound to Store: " & objStore.cn
strStoreNameDictEntry = objStore.cn 'Get Store CN for Dictionary
'Check Store for Policy
If IsArray(objStoresRS.Fields("msExchPolicy
List")) Then
WScript.Echo "Store has Policy!" '#debug remove
For Each strPolicyDN In objStoresRS.Fields("msExchPolicyList").v
alue
Set objPolicy = GetObject ("LDAP://" & strPolicyDN & "")
WScript.Echo "Policy Name: " & objPolicy.cn
'Check Policy for Quota limits
If IsEmpty(objPolicy.mDBStorageQuota) Then 'mDBOverQuotaLimit mDBOverHardQuotaLimit
WScript.Echo "Policy does not have Mailbox Quota"
strStoreDictEntry = strStoreDictEntry & "#null"
Else
WScript.Echo "Policy Mailbox Quota: " & objPolicy.mDBStorageQuota
strStoreDictEntry = strStoreDictEntry & "#" & objPolicy.mDBStorageQuota
End If
If IsEmpty(objPolicy.mDBOverQuotaLimit) Then ' mDBOverHardQuotaLimit
WScript.Echo "Policy does not have Mailbox Over Quota Limit"
strStoreDictEntry = strStoreDictEntry & "#null"
Else
WScript.Echo "Policy Mailbox Over Quota Limit: " & objPolicy.mDBOverQuotaLimit
strStoreDictEntry = strStoreDictEntry & "#" & objPolicy.mDBOverQuotaLimit
End If
If IsEmpty(objPolicy.mDBOverHardQuotaLimit)
Then '
WScript.Echo "Policy does not have Mailbox Over Hard Quota Limit"
strStoreDictEntry = strStoreDictEntry & "#null"
Else
WScript.Echo "Policy Mailbox Over Hard Quota Limit: " & objPolicy.mDBOverHardQuotaLimit
strStoreDictEntry = strStoreDictEntry & "#" & objPolicy.mDBOverHardQuotaLimit
End If
'End Policy Quota Check
strStoreDictEntry = strStoreDictEntry & "#Policy" & "#" & objPolicy.cn
objStoresDictionary.Add strStoreNameDictEntry, strStoreDictEntry
' WScript.Echo "Dict count: " & objStoresDictionary.Count
Next 'Move to Next Policy
Else
WScript.Echo "#No Policy" '#debug remove
'Check Store Quotas Here
If IsEmpty(objStore.mDBStorageQuota) Then 'mDBOverQuotaLimit mDBOverHardQuotaLimit
WScript.Echo "Store does not have Mailbox Quota"
strStoreDictEntry = strStoreDictEntry & "#null"
Else
WScript.Echo "Store Mailbox Quota: " & objStore.mDBStorageQuota
strStoreDictEntry = strStoreDictEntry & "#" & objStore.mDBStorageQuota
End If
If IsEmpty(objStore.mDBOverQuotaLimit) Then ' mDBOverHardQuotaLimit
WScript.Echo "Store does not have Mailbox Over Quota Limit"
strStoreDictEntry = strStoreDictEntry & "#null"
Else
WScript.Echo "Store Mailbox Over Quota Limit: " & objStore.mDBOverQuotaLimit
strStoreDictEntry = strStoreDictEntry & "#" & objStore.mDBOverQuotaLimit
End If
If IsEmpty(objStore.mDBOverHardQuotaLimit) Then '
WScript.Echo "Store does not have Mailbox Over Hard Quota Limit"
strStoreDictEntry = strStoreDictEntry & "#null"
Else
WScript.Echo "Store Mailbox Over Hard Quota Limit: " & objStore.mDBOverHardQuotaLimit
strStoreDictEntry = strStoreDictEntry & "#" & objStore.mDBOverHardQuotaLimit
End If
'End Store Quota Check
strStoreDictEntry = strStoreDictEntry & "#Store#"
WScript.Echo "dictStoreNameDictEntry: Key:" & strStoreNameDictEntry & " - strStoreDictEntry: " & strStoreDictEntry
objStoresDictionary.Add strStoreNameDictEntry, strStoreDictEntry
End If 'End Check for Policy
' WScript.Echo "DictionaryEntry: " & strStoreDictEntry '#debug remove
WScript.Echo "Stores in Dictionary: " & objStoresDictionary.Count
strStoreNameDictEntry = Null
strStoreDictEntry = Null
WScript.Echo "----------------------"
objStoresRS.MoveNext
Wend
End If
'---------------------------------------
----------------------------------------
----------------------------------------
------------
'Part 2 of script - checks users
'Execute search command to look for Organization
objCommand.CommandText = _
"<" & strADsPath & ">" & ";(&(objectClass=user)(homeMDB=*)(!CN=Sy
stemMailbox{*}))" & ";distinguishedName,name,mDBStorageQ
uota,mDBOverQuotaLimit,mDBOverHardQuotaL
imit" & _
";subtree"
'Execute search to get Recordset
Set objUsersRS = objCommand.Execute
strOutput = strOutput & VbCrLf & strTitle & VbCrLf & "===================================
="
'# If no mailboxes found
If objUsersRS.RecordCount = 0 Then
WScript.Echo "No mailboxes found!"
' WriteFile
WScript.Quit
Else
strOutput = strOutput & VbCrLf & "Mailboxes found: " & objUsersRS.RecordCount
strOutput = strOutput & VbCrLf & "--------------------------" & VbCrLf
strOutput = strOutput & "All limits are in Kilobytes (KB)" & VbCrLf
strOutput = strOutput & "User#Store#Limit#Stop Send (mDBOverQuota)#Stop Receive (mDBOverHardQuotaLimit)#Set On#Policy Name" & VbCrLf
While Not objUsersRS.EOF
'# Check if mailbox bypasses Store/Policy limits
Set objUser = GetObject("LDAP://" & objUsersRS.Fields("distinguishedName") & "")
'Get users' homeMDB
strHomeMDB = objUser.homeMDB
Set objHomeMDB = GetObject("LDAP://" & strHomeMDB & "")
strHomeMDBCn = objHomeMDB.cn
'# Check if User does not have default limits (does not bypass Store/Policy)
If objUser.mDBUseDefaults Then
strUserStatus = strUserLimit & objUser.displayName & "#"
'Check Dictionary for Store
If objStoresDictionary.Exists(strHomeMDBCn)
Then
' WScript.Echo "Exists"
strToAdd =strHomeMDBCn & objStoresDictionary.Item(strHomeMDBCn)
' WScript.Echo "strToAdd: " & strToAdd
strUserStatus = strUserStatus & strToAdd
Else
WScript.Echo "Store does not exist in Dictionary"
End If
Else
strUserStatus = strUserLimit & objUser.displayName & "#" & strHomeMDBCn & "#"
'Check users for individual limits
If IsEmpty(objUser.mDBStorageQuota) Then ' mDBOverHardQuotaLimit
strUserLimit = strUserLimit & "null#"
Else
strUserLimit = strUserLimit & objUser.mDBStorageQuota & "#"
End If
If IsEmpty(objUser.mDBOverQuotaLimit) Then ' mDBOverHardQuotaLimit
strUserLimit = strUserLimit & "null#"
Else
strUserLimit = strUserLimit & objUser.mDBOverQuotaLimit & "#"
End If
If IsEmpty(objUser.mDBOverHardQuotaLimit) Then '
strUserLimit = strUserLimit & "null#"
Else
strUserLimit = strUserLimit & objUser.mDBOverHardQuotaLimit & "#"
End If
strUserLimit = strUserLimit & "User#"
End If 'Ends Bypass Check
strOutput = strOutput & strUserStatus & strUserLimit & VbCrLf
'Empty variables here
strUserLimit = Null
strToAdd = Null
strHomeMDBCn = Null
objUsersRS.MoveNext 'Move to next user
Wend 'End While EOF for UsersRS
WriteCon
WriteFile
End If
'=======================================
================
' FUNCTIONS
'=======================================
================
Sub WriteFile
'Open new text file, write info, close file
If IsEmpty(strOutputFile) Then
WScript.Echo "No file output"
Else
Set objFSO = CreateObject("Scripting.FileSystemObject"
)
Set objFile = objFSO.CreateTextFile(strOutputFile)
'Write Stuff
objFile.WriteLine strOutput
'Close text file
objFile.Close
End If
End Sub
'---------------------------------
'SUB Write Console
Sub WriteCon
If Not colNamedArguments.Exists("s") Then
WScript.echo strOutput
Else
WScript.Echo "No console output"
End If
End Sub
'------------------
SUB WriteHelp
If colNamedArguments.Exists("help") Then
strHelpText = "USAGE: showMailboxQuotas.vbs" & VbCrLf & "OPTIONAL Arguments: /s:y - no console output" & VbCrLf & _
"/f:Output_File_Name.txt - writes output to txt file in the argument" & VbCrLf & "/help - help text" & VbCrLf & _
"showMailboxQuotas.vbs /f:c:\MailboxLimits.txt /s:y - produces " & VbCrLf & "file MailboxLimits.txt " & " and no console output"
WScript.Echo strHelpText
WScript.Quit
End If
End Sub
![[info]](http://l-stat.livejournal.com/img/userinfo.gif?v=92.1){kind=small}
