Re: VBScript for WMI - IMF Counters by Glen
Glen
Tue Apr 11 00:54:01 CDT 2006
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" <gmatteson@inquery.nospam.biz> 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
>