Day: July 3, 2008

I just have to share this with you, as I was quite impressed by how quick I knocked this script up.  Basically I wanted to see how much email was queued up on my Exchange 2003 servers.  I had a feeling that a WMI object existed so I ran scriptomatic on a server a behold under rootMicrosoftExchangeV2 was Exchange_SMTPQueue.

So the rest was easy.  Using the built in Powershell command Get-WmiObject I was able to query an Exchange 2003 server for it’s SMTP queues and message count:

Get-WmiObject -namespace “rootMicrosoftExchangeV2” Exchange_SMTPQueue -computername

So now all I needed to do was give it a list of servers to run this against.  I came up with this.  Now c:ps_PublicFolderServerList.txt is a CSV file with two columns, ServerName and Version.  Version can be Exchange2000, Exchange2003 or Exchange2007

$Servers = Import-Csv “c:ps_PublicFolderServerList.txt”

$Server = $Servers | Sort-Object $_.ServerName
$AllQ = @()
$SrvList = @()
ForEach ($Server in $Servers)
{
    If ($Server.version -eq “Exchange2003”)
    {
        $Srv = $Server.ServerName
        Write-host “Checking .. $Srv”
        $AllQ += Get-WmiObject -namespace “rootMicrosoftExchangeV2” Exchange_SMTPQueue -computername $Srv | where {$_.MessageCount -gt 0} | select VirtualMachine, QueueName, MessageCount
    }
}
$AllQ = $AllQ | Sort-Object $_.MessageCount

ForEach ($q in $AllQ)
{

    Write-Host $q.VirtualMachine -NonewLine
    Write-host “: Q Name=” -NonewLine
    Write-Host $q.QueueName -NoNewLine
    Write-host “: ” -NonewLine
    Write-host $q.MessageCount
}

Now if you have a mixed 2003/2007 environment, you can use the exchange snapin to dynamically get the Exchange 2003 servers.  That looks like this, you can see the difference at the top.  Now all I need is this in a GUI (I done this too and will blog later)

$Server = $Servers | Sort-Object $_.ServerName
$AllQ = @()
$SrvList = @()

$Servers = Get-ExchangeServer | where {$_.IsExchange2007OrLater -eq $False}
$Servers = $Servers | Sort-Object $_.Name
ForEach ($Server in $Servers)
{
    $tmpMSXVer = $Server.AdminDisplayVersion.ToString()   
    IF ($tmpMSXVer.IndexOf(“6.5 (“) -ge 0)
    {
        $Srv = $Server.Name

        Write-host “Checking .. $Srv”
        $AllQ += Get-WmiObject -namespace “rootMicrosoftExchangeV2” Exchange_SMTPQueue -computername $Srv | where {$_.MessageCount -gt 0} | select VirtualMachine, QueueName, MessageCount
    }
}

$AllQ = $AllQ | Sort-Object $_.MessageCount

ForEach ($q in $AllQ)
{

    Write-Host $q.VirtualMachine -NonewLine
    Write-host “: Q Name=” -NonewLine
    Write-Host $q.QueueName -NoNewLine
    Write-host “: ” -NonewLine
    Write-host $q.MessageCount
}

Post using Windows Live Writer via my HTC Shift