' Desc: System stats vbs.
' Author: MJ
' Notes: Just some things I felt are important to have on an overall server.
'

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select ProcessorQueueLength from Win32_PerfRawData_PerfOS_System",,48)
For Each objItem in colItems
    Wscript.Echo "<metric type=" & chr(34) & "IntCounter" & chr(34) & " name=" & chr(34) & "System:ProcessorQueueLength" & chr(34) & " value=" & chr(34)  & CInt(objItem.ProcessorQueueLength) & chr(34) & " />"
Next


Set colItems = objWMIService.ExecQuery("Select Threads from Win32_PerfRawData_PerfOS_System",,48)
For Each objItem in colItems
    Wscript.Echo "<metric type=" & chr(34) & "IntCounter" & chr(34) & " name=" & chr(34) & "System:Threads" & chr(34) & " value=" & chr(34)  & CInt(objItem.Threads) & chr(34) & " />"

Next


' ------------------ Context Switches - Something I think is important to watch! -------------------------------
Set colItems = objWMIService.ExecQuery("Select ContextSwitchesPersec from Win32_PerfFormattedData_PerfOS_System",,48)
' getting initial values
For Each objItem in colItems
    Wscript.Echo "<metric type=" & chr(34) & "IntCounter" & chr(34) & " name=" & chr(34) & "System:ContextSwitchesPersec" & chr(34) & " value=" & chr(34) & CLng(objItem.ContextSwitchesPersec)& chr(34) & " />"
Next