I was helping a project team implement ZL Tech's (zlti.com) archiving with folks from Honda (Honda.com) and ViewPointe (Viewpointe.com) and found myself getting metrics every couple of hours. Which got really annoying pretty fast... And, so the following bit of code helped me to let other folks do the same as needed.
Have Fun! : )
The Output...
PS D:\data\scripts\ps-notes> ./MailStats.ps1
Start: 13:09:57.0831
Host Drive Size GB Free GB
=============== ===== ========== ==========
AMnotes01 F: 150.00 28.19
Mailbox Size MB Doc Count
=============== ========== ==========
mail1.box 12,336 6
mail2.box 4,884 4
mail3.box 4,727 4
mail4.box 4,651 4
--------------- ---------- ----------
Totals 26,598 4
Elapsed Time: 00:00:17.0125
The Code...
## MailStats.ps1
## First Code 07:05:20.0415
## initial runtime 00:00:48.0165
##
$dtStart = (get-date)
"Start: "+($dtStart.Hour.ToString()).PadLeft(2,"0")+":"+($dtStart.Minute.ToString()).PadLeft(2,"0")+":"+($dtStart.Second.ToString()).PadLeft(2,"0")+"."+($dtStart.Millisecond.ToString()).PadLeft(4,"0")
$StartPath = Get-Location
## Vars to set
$LocalDataDir = 'C:\Program Files (x86)\IBM\Lotus\Notes\Data' ## your local Notes data dir
$DominoServiceName = 'UserSMTPgw01/SRV/AM/MyCompany' ## your Notes/Domino Server
$HostName = 'AMnotes29' ## the host name that the Domino service runs on
$HostDataDir = 'f$\notes\data\' ## the rest of the unc path to the Domino services' data dir
$HostDataDrive = 'F:' ## drive where the Domino services' data dir is on
$UNCMailboxPath = '\\'+$HostName+'\'+$HostDataDir+'mail*.box'
$MailBoxes = Get-ChildItem -Path $UNCMailboxPath
Set-Location $LocalDataDir
$Notes = New-Object -ComObject Lotus.NotesSession
$Notes.Initialize()
$HostMBDisk = Get-WmiObject Win32_LogicalDisk -ComputerName $HostName | where {$_.DeviceID -eq 'F:'} | Select-Object Size,FreeSpace
Write-output ""
Write-Output "Host Drive Size GB Free GB"
Write-Output "=============== ===== ========== =========="
Write-Output ( $HostName.PadRight(15)+' ' `
+$HostDataDrive.PadLeft(5)+' ' `
+("{0:N2}" -f ($HostMBDisk.Size/1GB)).ToString().PadLeft(10)+' ' `
+("{0:N2}" -f ($HostMBDisk.FreeSpace/1GB)).ToString().PadLeft(10))
Write-output ""
Write-Output " Mailbox Size MB Doc Count"
Write-Output " =============== ========== =========="
$TotSize = 0
$TotDocs = 0
foreach ($mailbox in $MailBoxes) {
$dbMB = $Notes.GetDatabase($DominoServiceName, $mailbox.name.ToString(), 1)
if ($dbMB -ne $null) {
$colAllDocs = $dbMB.AllDocuments
Write-output ( " " `
+$mailbox.name.ToString().PadRight(15)+' ' `
+("{0:N0}" -f ($dbMB.Size/1MB)).ToString().padleft(10)+' ' `
+($colAllDocs.Count.ToString().padleft(10)))
$TotSize = $TotSize + $dbMB.Size
$TotDocs = $colAllDocs.Count
$colAllDocs = $null
} else {
$strStatus = 'No Mailbox'
}
$dbMb = $null
}
Write-Output " --------------- ---------- ----------"
Write-output ( ' Totals ' `
+("{0:N0}" -f ($TotSize/1MB)).ToString().padleft(10)+' ' `
+($TotDocs.ToString().padleft(10)))
Write-output ""
Set-Location $StartPath
$dtDiff = (New-Timespan -Start $dtStart -End (Get-Date))
"Elapsed Time: "+($dtDiff.Hours.ToString()).PadLeft(2,"0")+":"+($dtDiff.Minutes.ToString()).PadLeft(2,"0")+":"+($dtDiff.Seconds.ToString()).PadLeft(2,"0")+"."+($dtDiff.Milliseconds.ToString()).PadLeft(4,"0")
$TotSize = $null
$TotDocs = $null
$dbMB = $null
$Notes = $null
$StartPath = $null
$dtStart = $null
