VBScript for WMI - IMF Counters   

Does anyone know how I can use VBScript to get WMI counters for the 
Intellengent Message Filter (Exchange 2003 SP2)? Thank you.
- Gabe

date: Mon, 10 Apr 2006 02:00:18 -0400   author:   Gabe Matteson

Re: VBScript for WMI - IMF Counters   

You get performance counters using the 
Win32_PerfRawData_MSExchangeUCF_MSExchangeIntelligentMessageFilter class eg

strComputer = "servername"
Set objWMIService = Getobject("winmgmts:{impersonationLevel=impersonate}!\\" 
& strComputer & "\root\CIMV2")
wsql = "Select * from 
Win32_PerfRawData_MSExchangeUCF_MSExchangeIntelligentMessageFilter"
Set colWMIIMF = objWMIService.ExecQuery(wsql,,48)
For Each objWMIIMF in colWMIIMF
 If objWMIIMF.name = "_Total" then
  wscript.echo "Total Number of Messages Scanned : " & 
objWMIIMF.TotalMessagesScannedforUCE
  wscript.echo "Total Number of Messages at Gateway Threshold : " & 
objWMIIMF.TotalUCEMessagesActedUpon
  wscript.echo
  wscript.echo "Number of Mesages with SCL 0 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof0
  wscript.echo "Number of Mesages with SCL 1 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof1
  wscript.echo "Number of Mesages with SCL 2 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof2
  wscript.echo "Number of Mesages with SCL 3 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof3
  wscript.echo "Number of Mesages with SCL 4 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof4
  wscript.echo "Number of Mesages with SCL 5 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof5
  wscript.echo "Number of Mesages with SCL 6 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof6
  wscript.echo "Number of Mesages with SCL 7 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof7
  wscript.echo "Number of Mesages with SCL 8 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof8
  wscript.echo "Number of Mesages with SCL 9 : " & 
objWMIIMF.TotalMessagesAssignedanSCLRatingof9
 end if
next

Cheers
Glen

"Gabe Matteson"  wrote in message 
news:OwJ8KSGXGHA.4976@TK2MSFTNGP03.phx.gbl...
> Does anyone know how I can use VBScript to get WMI counters for the 
> Intellengent Message Filter (Exchange 2003 SP2)? Thank you.
> - Gabe
>

date: Tue, 11 Apr 2006 15:54:01 +1000   author:   Glen Scales [MVP]