Exchange 2007 email flow hourly rate report

Hi Readers,

I have been given a task to create a report that will represent hourly message flow in the entire organizations.

For completing this task I have researched thru the internet so that I can find some thing & dont have to right from the scratch. I came across a good script but that is lacking the functionality I needed so I have massaged it & now it works like a charm.

# ################################################################
# Author: Doug Blanchard
# Description: This report pulls hourly email flow information from Hub Transport server logs
# Security: You may need to run [ Set-ExecutionPolicy Unrestricted ] prior to running this script
# Usage: no arguments needed
# Prerequisites: See PreRequisites section at bottom of script
# Modified – Vikas Sukhija –> Chart the per hourly rates of email flow & modified the email
# function to work with Powershell 1.0.
# Set the variables to zero as the result was erroneous when there multiple HUB servers
# ###############################################################
$error.clear()
$warningpreference = “silentlycontinue”
# ########################################
# List all Functions to be Used in Script
# ########################################
# ~~~~~~~~~~~~~~~~~~~~~~~~
# Hub Transport Stats Function
# ~~~~~~~~~~~~~~~~~~~~~~~~
# Pulls # of messages sent, received, and NDR per hub transport server
# Based on data pulled from http://gsexdev.blogspot.com/2010/05/quck-smtp-bandwidth-usage-script-for.html
Function HubStatsFunc($tlength1,$tlength2)
{
$date = ((get-date).AddHours(-24).ToString(‘yyyy/MM/dd’))
write-host $tlength1 $tlength2
$start = $date+ $tlength1
$end = $date+ $tlength2

$HubSrv = @()
$DomainHash = @{}
$msgIDArray = @{}

get-accepteddomain | ForEach-Object {
if ($_.DomainType -eq “Authoritative”)
{$DomainHash.add($_.DomainName.SmtpDomain.ToString().ToLower(),1)}
}

$hub = Get-TransportServer | Select Name
foreach ($item in $hub)
{

$InternalNum = 0
$ExternalSentNum =0
$ExternalRecNum =0
$InternalSize =0
$ExternalSentSize =0
$ExternalRecSize =0
$DSNCount = 0
Get-MessageTrackingLog -server $item.Name -ResultSize Unlimited -Start $start -End $end | ForEach-Object{
if ($_.EventID.ToString() -eq “SEND” -bor $_.EventID.ToString() -eq “RECEIVE”)
{foreach($recp in $_.recipients)
{if($recp.ToString() -ne “”)
{$unkey = $recp.ToString() + $_.Sender.ToString() + $_.MessageId.ToString()
if ($msgIDArray.ContainsKey($unkey) -eq $false){
$msgIDArray.Add($unkey,1)
$recparray = $recp.split(“@”)
$sndArray = $_.Sender.split(“@”)
if ($_.Sender -ne “”){
if ($DomainHash.ContainsKey($recparray[1])){
if ($DomainHash.ContainsKey($sndArray[1])){
$InternalNum = $InternalNum + 1
$InternalSize = $InternalSize + $_.TotalBytes/1024
}
else{
$ExternalRecNum = $ExternalRecNum + 1
$ExternalRecSize = $ExternalRecSize + $_.TotalBytes/1024
}
}
else{
if ($DomainHash.ContainsKey($sndArray[1])){
$ExternalSentNum = $ExternalSentNum + 1
$ExternalSentSize = $ExternalSentSize + $_.TotalBytes/1024
}
}
}
}
}
}
}
}
$GetDSN = Get-MessageTrackingLog -server $item.Name -EventID DSN -resultSize unlimited | Measure-Object

$DSNCount = $GetDSN.count
$obj = New-Object PSObject
$Obj | Add-Member NoteProperty -Name “Server” -Value $item.Name
$Obj | Add-Member NoteProperty -Name “# Msg Sent/Rcvd Internal” -Value $InternalNum
$Obj | Add-Member NoteProperty -Name “# Msg Sent Internet” -Value $ExternalSentNum
$Obj | Add-Member NoteProperty -Name “# Msg Rcvd Internet” -Value $ExternalRecNum
$Obj | Add-Member NoteProperty -Name “Msg Sent/Rcvd (MB) Internal” -Value ([math]::round($InternalSize/1024,0))
$Obj | Add-Member NoteProperty -Name “Msg Sent (MB) Internet” -Value ([math]::round($ExternalSentSize/1024,0))
$Obj | Add-Member NoteProperty -Name “Msg Rcvd (MB) Internet” -Value ([math]::round($ExternalRecSize/1024,0))
$Obj | Add-Member NoteProperty -Name “Total # of DSN” -Value $DSNCount

$HubSrv += $Obj
}
$HubSrv | ConvertTo-Html | Out-File C:\Temp\hub.tmp
}

# End Hub Transport Stats Function
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# ~~~~~~~~~~~~~~~~~~~~~~~~
# Send Email Function
# ~~~~~~~~~~~~~~~~~~~~~~~~
# Sends the output file to the administrator
$message = new-object System.Net.Mail.MailMessage(“Script@abcd.com“, “vikas.sukhija@abcd.com“)
$message.IsBodyHtml = $True
$message.Subject = “Daily Messaging Status Report – ” +$(Get-Date -Uformat %D)
$smtp = new-object Net.Mail.SmtpClient(“SMTP relay Server address“)

# End Send Email Function
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~
# #############################
# Powershell Script Starts Here
# #############################

# Create Directory, Tmp, & Output File
# $dirname = “C:\Temp\$(Get-Date -format ‘yyyyMMdd’)”
# New-Item $dirname -itemType directory | out-null

$OutputF = “C:\Temp\DailyReport_$(Get-Date -format ‘yyyyMMdd’).html”
New-Item $OutputF -itemType file | out-null

$Tmp = “C:\temp\$(Get-Date -format ‘yyyyMMdd’).tmp”
If(test-path $Tmp -pathtype leaf){remove-item -path $Tmp -force}
ELSE {New-Item $Tmp -itemType file | out-null}
# Create Array for HTML Output
$output = @()
$output += ‘<html><head><title>Daily Status Report</title></head><body>’
$output += ‘<style>table{border-style:solid;border-width:1px;font-size:8pt;background-color:#ccc;width:100%;}th{text-align:left;}td{background-color:#fff;border-style:solid;border-width:1px;}body{font-family:verdana;font-size:8pt;}h1{font-size:12pt;}h2{font-size:10pt;}</style>’
$output += Get-Date
# Call Hub Stats Function1
write-host “Gathering Message stats…”
$output += ‘<h1>Message Stats</h1>’
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 00:00 to 01:00 ‘
$tlength1 = ” 00:00:00″
$tlength2 = ” 01:00:00″

HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function2
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 01:00 to 02:00 ‘
$tlength1 = ” 01:00:01″
$tlength2 = ” 02:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function3
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 02:00 to 03:00 ‘
$tlength1 = ” 02:00:01″
$tlength2 = ” 03:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function4
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 03:00 to 04:00 ‘
$tlength1 = ” 03:00:01″
$tlength2 = ” 04:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function5
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 04:00 to 05:00 ‘
$tlength1 = ” 04:00:01″
$tlength2 = ” 05:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”
# Call Hub Stats Function6
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 05:00 to 06:00 ‘
$tlength1 = ” 05:00:01″
$tlength2 = ” 06:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function7
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 06:00 to 07:00 ‘
$tlength1 = ” 06:00:01″
$tlength2 = ” 07:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”
# Call Hub Stats Function8
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 07:00 to 08:00 ‘
$tlength1 = ” 07:00:01″
$tlength2 = ” 08:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”
# Call Hub Stats Function9
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 08:00 to 09:00 ‘
$tlength1 = ” 08:00:01″
$tlength2 = ” 09:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”
# Call Hub Stats Function10
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 09:00 to 10:00 ‘
$tlength1 = ” 09:00:01″
$tlength2 = ” 10:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”
# Call Hub Stats Function11
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 10:00 to 11:00 ‘
$tlength1 = ” 10:00:01″
$tlength2 = ” 11:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”
# Call Hub Stats Function12
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 11:00 to 12:00 ‘
$tlength1 = ” 11:00:01″
$tlength2 = ” 12:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function13
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 12:00 to 13:00 ‘
$tlength1 = ” 12:00:01″
$tlength2 = ” 13:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function14
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 13:00 to 14:00 ‘
$tlength1 = ” 13:00:01″
$tlength2 = ” 14:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function15
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 14:00 to 15:00 ‘
$tlength1 = ” 14:00:01″
$tlength2 = ” 15:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function16
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 15:00 to 16:00 ‘
$tlength1 = ” 15:00:01″
$tlength2 = ” 16:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function17
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 16:00 to 17:00 ‘
$tlength1 = ” 16:00:01″
$tlength2 = ” 17:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function18
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 17:00 to 18:00 ‘
$tlength1 = ” 17:00:01″
$tlength2 = ” 18:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function19
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 18:00 to 19:00 ‘
$tlength1 = ” 18:00:01″
$tlength2 = ” 19:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function20
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 19:00 to 20:00 ‘
$tlength1 = ” 19:00:01″
$tlength2 = ” 20:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function21
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 20:00 to 21:00 ‘
$tlength1 = ” 20:00:01″
$tlength2 = ” 21:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function22
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 21:00 to 22:00 ‘
$tlength1 = ” 21:00:01″
$tlength2 = ” 22:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function23
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 22:00 to 23:00 ‘
$tlength1 = ” 22:00:01″
$tlength2 = ” 23:00:00″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Call Hub Stats Function24
write-host “Gathering Message stats…”
$output += ‘Messages sent and received thru Hub Transport servers yesterday between 23:00 to 23:59 ‘
$tlength1 = ” 23:00:01″
$tlength2 = ” 23:59:59″
HubStatsFunc $tlength1 $tlength2
$output += get-content C:\Temp\hub.tmp
$output += “<hr>”

# Finish and call output file
$output += ‘</body></html>’
$output | Out-File $OutputF -Force
# ii $OutputF

# Send email to Exchange Team
write-host “Sending the email…”
$body = get-content $outputF | ForEach-Object {$fullstring = “”} {$fullstring += $_} {$fullstring}
$message.Body = $body
$smtp.Send($message)
# Clean Up
get-childitem c:\temp -include *.tmp -recurse | foreach ($_) {remove-item $_.fullname}

# #############################################################################
# PREREQUISITES FOR SCRIPT!!!!
#   1. Line 117: Update the Email Address information
#   2. Line 120: Update the SMTP server that you want to relay this message through
#   3. C:\Temp drive is used to store tmp files. If this is not sufficient, do find/replace for C:\temp
#   4. Copy the script in c:\temp location to run it without any errors.

###################################################################################

output will be as below :-

hourlymessagerates

4 thoughts on “Exchange 2007 email flow hourly rate report”

Sanjay says:

August 3, 2012 at 3:53 pm

Hi, Can you please share me link of the script as when I save getting error of UNICODE. Once I save with UNICODE it gives me error near ” Regards,

- Vikas Sukhija says:
  
  August 5, 2012 at 8:45 pm
  
  I will upload the script as soon as I get back to my laptop.
  
Vikas Sukhija says:

August 7, 2012 at 2:15 am

I have updated the link to the script in the post.

Neo says:

October 25, 2012 at 3:27 pm

Hi Vikas, I have a requirement to fetch per day statistics for last one month to see the trending and compare bandwidth utilization. I managed to limit this script to run for a specific servers and site but, not too good with scripting for fetching daily value for a month.