From 08aaecb40c2b7f21b208909324748e231662a8cb Mon Sep 17 00:00:00 2001
From: AdminDroid <49208841+admindroid-community@users.noreply.github.com>
Date: Tue, 30 Mar 2021 20:31:34 +0530
Subject: [PATCH] Archive Mailbox Size Report

Archive Mailbox Size Report
---
 .../GetArchiveMailboxSize.ps1                 | 189 ++++++++++++++++++
 1 file changed, 189 insertions(+)
 create mode 100644 Archive Mailbox Size Report/GetArchiveMailboxSize.ps1

diff --git a/Archive Mailbox Size Report/GetArchiveMailboxSize.ps1 b/Archive Mailbox Size Report/GetArchiveMailboxSize.ps1
new file mode 100644
index 0000000..c12b7df
--- /dev/null
+++ b/Archive Mailbox Size Report/GetArchiveMailboxSize.ps1	
@@ -0,0 +1,189 @@
+<#
+=============================================================================================
+Name:           Exchange Online Archive MAilbox Size Report
+Description:    This script exports Exchange Online Archive Mailbox sizes to CSV
+Version:        1.0
+Website:        o365reports.com
+Script by:      O365Reports Team
+For detailed script execution: https://o365reports.com/2021/03/30/export-office-365-archive-mailbox-size-report-using-powershell
+============================================================================================
+#>
+
+param
+(
+    [string] $UserName = $null,
+    [string] $Password = $null,
+    [Switch] $UserMBOnly,
+    [Switch] $SharedMBOnly,
+    [Switch] $AutoExpandingArchiveEnabled,
+    [String] $MBIdentityFile
+)
+
+function CSVImport {
+ $IdentityList = Import-Csv -Header "IdentityValue" $MBIdentityFile
+ foreach($MailboxDetails in $IdentityList) {
+  $currIdentity = $MailboxDetails.IdentityValue
+  if($null -eq $WhereObjectCheck) 
+  {
+   $UserData = Get-Mailbox -Identity $currIdentity -Archive -ErrorAction SilentlyContinue
+  }
+  else 
+  {
+   $UserData = Get-Mailbox -Identity $currIdentity -Archive -ErrorAction SilentlyContinue | Where-Object $WhereObjectCheck
+  }
+  if($null -eq $UserData) 
+  {
+   Write-Host $currIdentity mailbox is not archive enabled/Invalid.
+  }
+  else 
+  {
+   ExportOutput
+  }
+ }
+}
+function ExportOutput {
+ $ArchiveMailboxSize = ((Get-MailboxStatistics -Identity $UserData.Alias -Archive -WarningAction SilentlyContinue).TotalItemSize)
+ if($null -ne $ArchiveMailboxSize) 
+ {
+  $ArchiveMailboxSize = $ArchiveMailboxSize.ToString().split("()")
+  $ArchiveMailboxSizeRounded = $ArchiveMailBoxSize | Select-Object -Index 0
+  $ArchiveMailboxSizeBytes = ($ArchiveMailBoxSize | Select-Object -Index 1).ToString().Split(" ") | Select-Object -Index 0
+ }
+ else
+ {
+  $ArchiveMailboxSizeRounded = $ArchiveMailboxSizeBytes = "0"
+ }
+ if($UserData.AutoExpandingArchiveEnabled -eq $True)
+ {
+  $AutoExpandArchive = "Enabled"
+ }
+ else
+ {
+  $AutoExpandArchive = "Disabled" 
+ }
+ $CurrExportValue = $UserData.DisplayName
+ $ArchiveQuotaSize = ($UserData.ArchiveQuota).ToString().split("()") | Select-Object -Index 0
+ $ArchiveWarningQuotaSize = ($UserData.ArchiveWarningQuota).ToString().split("()") | Select-Object -Index 0
+
+ $global:ReportSize = $global:ReportSize + 1
+ Write-Progress -Activity "Exporting $CurrExportValue`n Processed Mailbox count: $global:ReportSize" -Status "Preparing Report"
+
+ #Export output to CSV
+ $ExportResult = @{'DisplayName' = $UserData.DisplayName; 'Email Address' = $UserData.UserPrincipalName; 'Recipient Type' = $UserData.RecipientTypeDetails; 'Archive Name' = $UserData.ArchiveName; 'Archive Mailbox Size' = $ArchiveMailboxSizeRounded; 'Archive Mailbox Size(Bytes)' = $ArchiveMailboxSizeBytes; 'Archive Quota' = $ArchiveQuotaSize; 'Archive Warning Quota'= $ArchiveWarningQuotaSize; 'Archive Status' = $UserData.ArchiveStatus; 'Archive State'= $UserData.ArchiveState; 'Auto Expanding Archive' = $AutoExpandArchive }
+ $ExportResults = New-Object PSObject -Property $ExportResult
+ $ExportResults | Select-Object 'DisplayName', 'Email Address', 'Recipient Type', 'Archive Name', 'Archive Mailbox Size', 'Archive Mailbox Size(Bytes)', 'Archive Quota','Archive Warning Quota','Archive Status','Archive State', 'Auto Expanding Archive' | Export-csv -path $ExportCSVFileName -NoType -Append
+}
+
+#Checking Exchange Online PowerShell Module Availability
+$Exchange = (get-module ExchangeOnlineManagement -ListAvailable).Name
+if($Exchange -eq $null) 
+{
+ Write-host "Important: Module ExchangeOnline is unavailable. It is mandatory to have this module installed in the system to run the script successfully." 
+ $confirm = Read-Host Are you sure you want to install module? [Y] Yes [N] No  
+ if($confirm -match "[yY]") 
+ { 
+  Write-host "Installing ExchangeOnlineManagement"
+  Install-Module ExchangeOnlineManagement -Repository PSGallery -AllowClobber -Force
+  Write-host "Required Module is installed in the machine Successfully"
+ }
+ else
+ { 
+  Write-host "Exiting. `nNote: Exchange module must be available in your system to run the script" 
+  Exit 
+ } 
+}
+
+#Storing credential in script for scheduling purpose/Passing credential as parameter
+if(($UserName -ne "") -and ($Password -ne "")) 
+{   
+ $SecuredPassword = ConvertTo-SecureString -AsPlainText $Password -Force   
+ $Credential = New-Object System.Management.Automation.PSCredential $UserName, $SecuredPassword 
+ Connect-ExchangeOnline -Credential $Credential -ShowProgress $false | Out-Null
+}
+else 
+{
+ Connect-ExchangeOnline
+}
+Write-Host "Exchange PowerShell Connected Successfully"
+#End of Connecting Exchange Online
+
+$ExportCSVFileName = ".\ArchiveMailboxSizeReport_$((Get-Date -format MMM-dd` hh-mm` tt).ToString()).csv"
+
+Write-Host Generating report...
+#filtering the conditions based on the User Input param
+$WhereObjectCheck = $null
+if($UserMBOnly.IsPresent -or $SharedMBOnly.IsPresent)
+{
+ $RecipientFilterVal = 'UserMailbox'
+ if($SharedMBOnly.IsPresent) 
+ {
+  $RecipientFilterVal = 'SharedMailbox'
+ }
+ if($AutoExpandingArchiveEnabled.IsPresent) 
+ {
+  $WhereObjectCheck = { ($_.RecipientTypeDetails -eq $RecipientFilterVal) -and ($_.AutoExpandingArchiveEnabled -eq $true) }
+ } 
+ else 
+ {
+  $WhereObjectCheck = { $_.RecipientTypeDetails -eq $RecipientFilterVal }
+ }
+}
+elseif($AutoExpandingArchiveEnabled.IsPresent)
+{
+    $WhereObjectCheck = { $_.AutoExpandingArchiveEnabled -eq $true }
+}
+
+$global:ReportSize =0
+
+#Check for input file
+if ([string]$MBIdentityFile -ne "") 
+{ 
+ CSVImport
+}
+
+#Generating all Archive Mailbox Size report
+else 
+{
+ if ($null -eq $WhereObjectCheck) 
+ {
+  $AllValidMailboxes = Get-Mailbox -ResultSize Unlimited -Archive
+ }
+#Generating Specific Archive Mailbox Size report on checking Where condition
+ else 
+ {
+  $AllValidMailboxes = Get-Mailbox -ResultSize Unlimited -Archive | Where-Object $WhereObjectCheck
+ }
+ foreach($UserData in $AllValidMailboxes) 
+ {
+  ExportOutput
+ }
+}
+
+<#if($global:ReportSize -eq 0)
+{
+ Write-Host "There is no Archive Mailbox to return" 
+}
+else
+{
+ Write-Host "The output file contains $global:ReportSize mailboxes."
+}
+#>
+
+#Open output file after execution
+if((Test-Path -Path $ExportCSVFileName) -eq "True") 
+{ 
+ Write-Host "The output file contains $global:ReportSize mailboxes."
+ Write-Host "The Output file available in $ExportCSVFileName" -ForegroundColor Green 
+ $prompt = New-Object -ComObject wscript.shell    
+ $userInput = $prompt.popup("Do you want to open output file?",` 0,"Open Output File",4)    
+ If ($userInput -eq 6)    
+ {    
+  Invoke-Item "$ExportCSVFileName"
+ }  
+}
+else
+{
+ Write-Host "There is no Archive Mailbox to return" 
+}
+
+Disconnect-ExchangeOnline -Confirm:$false | Out-Null
\ No newline at end of file