PST Export

.DESCRIPTION

Exports users' mailboxes and/or archives to PST via Exchange. Can accept multiple users. Handles exisiting files and PSTs over 50GB.

.EXAMPLE

.\PSTExport.ps1

.NOTES

Written by Rhys Ferris

Find me on:

LinkedIn: https://www.linkedin.com/in/rhys-ferris-2009ba138/

My Site : https://rhysferris.tech

License:

The MIT License (MIT)

Permission is hereby granted, free of charge, to any person obtaining a copy

of this software and associated documentation files (the "Software"), to deal

in the Software without restriction, including without limitation the rights

to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

copies of the Software, and to permit persons to whom the Software is

furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all

copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE

AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE

SOFTWARE.

#elevate to admin

$currentPrincipal = New-Object Security.Principal.WindowsPrincipal([Security.Principal.WindowsIdentity]::GetCurrent())

if (!($currentPrincipal.IsInRole([Security.Principal.WindowsBuiltInRole]::Administrator))){

write-host "Not running as admin"

Start-Process -FilePath powershell.exe -ArgumentList "-file $PSCommandPath" -verb runAs

return

}else{

write-host "Running as admin"

}

#Required functions snap ins and functions:

Add-PSSnapin Microsoft.Exchange.Management.PowerShell.SnapIn

Add-Type -AssemblyName System.Windows.Forms

Add-Type -AssemblyName System.Drawing

#Multi-line input box

function enter-info

{

$objForm1 = New-Object system.Windows.Forms.Form

$objForm1.Text = "Bulk Entry"

$objForm1.Size = New-Object System.Drawing.Size(300,630)

$objForm1.StartPosition = "CenterScreen"

$objForm1.Topmost = $True

$objForm1.FormBorderStyle = 'FixedToolWindow'

$textbox1label = New-Object System.Windows.Forms.Label

$textbox1label.Location = New-Object System.Drawing.Size(10,10)

$textbox1label.AutoSize = $true

$textbox1label.Text = "Names:"

$textbox1label.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",11,[System.Drawing.FontStyle]::BOLD)

$textbox1Message = New-Object System.Windows.Forms.Label

$textbox1Message.Location = New-Object System.Drawing.Size(10,35)

$textbox1Message.AutoSize = $true

$textbox1Message.Text = "Copy the User Names for the function below. Ensure that no trailing new line is left at the last line."

$textbox1Message.MaximumSize = new-Object System.Drawing.Size(250, 0)

$objTextBox1 = New-Object System.Windows.Forms.TextBox

$objTextBox1.Multiline = $True;

$objTextBox1.Location = New-Object System.Drawing.Size(10,105)

$objTextBox1.Size = New-Object System.Drawing.Size(273,450)

$objTextBox1.Scrollbars = "Vertical"

$AcceptButton = New-Object System.Windows.Forms.Button

$AcceptButton.Location = New-Object System.Drawing.Size(200,570)

$AcceptButton.Size = New-Object System.Drawing.Size(80,23)

$AcceptButton.Text = "Continue"

$AcceptButton.DialogResult=[System.Windows.Forms.DialogResult]::OK

$AbortButton = New-Object System.Windows.Forms.Button

$AbortButton.Location = New-Object System.Drawing.Size(120,570)

$AbortButton.Size = New-Object System.Drawing.Size(80,23)

$AbortButton.Text = "Abort"

$AbortButton.Add_Click({

$objForm1.Close();

$objForm1.Dispose()

$textbox1label.Dispose();

$textbox1Message.Dispose();

$objTextBox1.Dispose();

$AcceptButton.Dispose();

$AbortButton.Dispose();

$global:currentcompcount= 0

})

$AcceptButton.Add_Click({convert-inputtolist;

$objForm1.Close();

$objForm1.Dispose()

$textbox1label.Dispose();

$textbox1Message.Dispose();

$objTextBox1.Dispose();

$AcceptButton.Dispose();

$AbortButton.Dispose();

$global:currentcompcount= 0

})

$objForm1.Controls.Add($objTextBox1)

$objForm1.Controls.Add($AcceptButton)

$objForm1.Controls.Add($AbortButton)

$objForm1.Controls.Add($textbox1label)

$objForm1.Controls.Add($textbox1Message)

$objForm1.ShowDialog()

}

Function convert-inputtolist

{

$global:textboxresults = @()

$global:results = $objTextBox1.text -split '[\n]'

}

function BigPST{

param([string]$user,[bool]$archive)

$userCreatedDate = (get-aduser -Identity $user -Properties WhenCreated).WhenCreated

do{

$continue = $true

$data = Read-Host -Prompt "Start date in format MM/DD/YYYY (Press Enter to Accept Account Creation Date of $($userCreatedDate.ToString('MM/dd/yyyy')))"

if ($data -eq ""){

#default value

$startDate = $userCreatedDate

continue

}

if ($data -notmatch '(0[1-9]|1[0-2])/(0[1-9]|[12][0-9]|3[01])/(19|20)\d{2}'){

Write-Warning "Input Validation Failed. Please Try Again."

$continue = $false

continue

}

$tempDate = [datetime]$data

if ($tempDate -lt ([datetime]'1/1/1980')){

Write-warning "Start Date older than 1980. Cowerdly refusing to continue."

$continue = $false

continue

}

$startDate = $tempDate

}while(!$continue)

do{

$continue = $true

$data = Read-Host -Prompt "End date in format MM/DD/YYYY (Press Enter to Accept Today)"

if ($data -eq ""){

$endDate = get-date

continue

}

if ($data -notmatch '(0[1-9]|1[0-2])/(0[1-9]|[12][0-9]|3[01])/(19|20)\d{2}'){

Write-Warning "Input Validation Failed. Please Try Again."

$continue = $false

continue

}

$tempDate = [datetime]$data

if ($tempDate -lt ([datetime]'1/1/1980')){

Write-warning "End Date older than 1980. Cowderly refusing to continue."

$continue = $false

continue

}

$endDate = $tempDate

}while(!$continue)

do{

$continue = $true

$Divisions = (Read-Host "How many output files?")

if ($Divisions -notmatch '^\d+ ){

#not a positive integer

Write-Warning "Please input a positive integer"

$continue = $false

}

}while(!$continue)

#Determine Split Dates

$days = (New-TimeSpan -Start $startDate -End $endDate).Days

$Interval = [int]($days/$Divisions)

$middleDate = $startDate

$dates = @(); $dates+=$startDate

for($i=0; $i -lt $Divisions; $i++){

$middleDate = $middleDate.AddDays($Interval)

#write-host $middleDate

$dates += $middleDate

}

#set the day of month to 1 for pretty splits (except the last date)

for($i=0; $i -lt $divisions-1; $i++){

$dates[$i] = $dates[$i].AddDays(-($dates[$i].day-1))

}

#add one day to end date incase it's before noon

$dates[-1] = $dates[-1].AddDays(1)

#start the exports

for($i=0; $i -lt $Divisions; $i++){

$startDateFormatted = $dates[$i].ToString("MM/dd/yyyy");$startDateFormatted2 = $dates[$i].ToString("MM-dd-yyyy")

$endDateFormatted = $dates[$i+1].ToString("MM/dd/yyyy");$endDateFormatted2 = $dates[$i+1].ToString("MM-dd-yyyy")

$command = "New-MailboxExportRequest -ContentFilter `"(Received -ge '$startDateFormatted') -and (Received -lt '$endDateFormatted')`" -Mailbox $user -FilePath `"\\$ENV:COMPUTERNAME\C$\DATA\RESTORE\Work\Archive\$user($startDateFormatted2-$endDateFormatted2).pst`""

if ($archive){

$command += " -IsArchive:`$true"

}

write-host "Executing `"$command`""

Invoke-Expression -Command $command

}

Write-Host "******************"

Write-Host "*** PST Export ***"

Write-Host "******************"

Write-Host "***Version 3.2***`n"

$Ticket = Read-Host -Prompt "Enter the Ticket Number (no spaces)"

$NewDate = Get-Date

$DatetoDelete = $NewDate.AddDays(-60)

$Confidential = Read-Host -Prompt 'Is this is operation confidential? Type y for yes or anything else for no'

cd C:\Utilities\PSTExport\

#Checks if operation is confidential or not

If ($Confidential -eq 'y')

{

Write-Host "This operation is confidential and will therefore not be logged, all output will be limited to this window."

$Logging = $false

}

#Starts logging if not confidential

ElseIf ($Confidential -ne 'y')

{

Write-Host "This operation is NOT confidential and will be logged"

$Logging = $true

start-transcript -path ".\Logs\PSTExport_${Ticket}.txt"

}

Write-Host ""

#Deleting PST files from the 'Work' directory that are older than 60 days

Get-ChildItem -Path C:\DATA\RESTORE\work\*.pst | Where-Object {$_.LastWriteTime -lt $DatetoDelete} | Remove-Item

#Prompt for confirmation of exports

$cancelPressed = enter-info

if($cancelPressed -eq "Cancel"){

return

}

$users = $global:results

Write-Host "Do you want to export a PST for the following user(s)?"

Write-Host ""

$users

Write-Host ""

Write-Host Press CTRL-C to cancel.

Pause

Write-Host ""

#Select what to export

Write-Host "What would you like to export?

1. Mailbox Only

2. Archive Only

3. Both Mailbox and Archive"

do{

$Continue = $true

try{

[int]$selection = read-host "Enter 1-3"

}catch{

$Continue = $false

}

}while (($selection -lt 1) -or ($selection -gt 3) -or !$Continue)

write-host "You selected $selection"

foreach($user in $users){

$user = $user.trim()

$userobj = Get-ADUser -Identity $user

$filename = "$($userobj.GivenName)_$($userobj.Surname)"

if (($selection -eq 1) -or ($selection -eq 3)){

#check size of mailbox

try{

$MailboxSize = Get-MailboxStatistics -erroraction stop -Identity $user | select -ExpandProperty TotalItemSize | select -ExpandProperty Value

if ($MailboxSize -gt 49GB){

Write-Warning "Mailbox for $user is $MailboxSize. Proceeding to set up split PSTs"

BigPST($user,$false)

}else{

$failed=$false

if (Test-Path "\\$env:COMPUTERNAME\c$\data\restore\work\$filename-mailbox.pst"){

write-host "File already exists for $user MAILBOX. Attempting to remove"

try{remove-item -Path "\\$env:COMPUTERNAME\c$\data\restore\work\$filename-mailbox.pst" -ErrorAction Stop}

catch{write-warning "Failed to clear existing MAILBOX file, please try to remove and re-attempt starting export.";$failed = $true}

}

if(!$failed){

$warningpreference = 'silentlycontinue'

New-MailboxExportRequest -mailbox $user -FilePath "\\$env:COMPUTERNAME\c$\data\restore\work\$filename-mailbox.pst" -BadItemLimit unlimited -AcceptLargeDataLoss -BatchName "Mailbox" | Out-Null

write-host "Started MAILBOX export for $user"

$warningpreference = 'continue'

}

}catch{

Write-Warning "Can't find mailbox for user $user. Skipping."

}

if (($selection -eq 2) -or ($selection -eq 3)){

#check size of Archive

try{

$ArchiveSize = Get-MailboxStatistics -erroraction stop -Identity $user -Archive | select -ExpandProperty TotalItemSize | select -ExpandProperty Value

}catch{

Write-Warning "No archive found for $user. Continuing"

continue

}

if ($ArchiveSize -gt 49GB){

Write-Warning "Archive for $user is more than 49 GB. Proceeding to set up split PSTs"

BigPST($user,$true)

}else{

if (Test-Path "\\$env:COMPUTERNAME\c$\data\restore\work\archive\$filename-archive.pst"){

write-host "File already exists for $user ARCHIVE. Attempting to remove"

try{remove-item -Path "\\$env:COMPUTERNAME\c$\data\restore\work\archive\$filename-archive.pst" -ErrorAction Stop}

catch{write-warning "Failed to clear existing ARCHIVE file, please try to remove and re-attempt starting export.";continue}

}

$warningpreference = 'silentlycontinue'

New-MailboxExportRequest -mailbox $user -FilePath "\\$env:COMPUTERNAME\c$\data\restore\work\archive\$filename-archive.pst" -IsArchive:$true -BadItemLimit unlimited -AcceptLargeDataLoss -BatchName "Archive" | Out-Null

write-host "Started ARCHIVE export for $user"

$warningpreference = 'continue'

}

Write-Host ""

Write-Host "The PST file(s) is located here: \\$env:COMPUTERNAME\c$\data\restore\work and/or \\$env:COMPUTERNAME\c$\data\restore\work\archive"

Write-Host ""

#Sends email if this is not a confidential operation

If($Logging)

{

stop-transcript | Out-Null

$user = get-aduser -Identity $env:USERNAME -Properties DisplayName | select -ExpandProperty DisplayName

$smtpServer="mail.example.com" # SMTP server Must allow relaying

$Sender="SMAS PST Exports<user@email.example.com>"

$Recipient="user@email.example.com","otheruser@email.example.com"

$Subject="PST Export Log - Ticket $Ticket"

$LogData = Get-Content -raw ".\Logs\PSTExport_${Ticket}.txt"

$Body="PST Export Log File - Ticket: $Ticket PST Export started by: $user Logs:<pre>$LogData</pre>"

Send-MailMessage -To $Recipient -From $Sender -Subject $Subject -Body $Body -BodyAsHtml -Priority Normal -SmtpServer $smtpServer #-Attachments $Attachments

}

Else

{

Clear-Content "C:\Utilities\PSTExport\mailboxes.csv"

Write-Host "This is a confidential operation, input file has been cleared"

}

Pause