On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("FBCDST10C02")
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="
'test timer
Dim t1
t1 = Timer




   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_PerfOS_Processor where PercentProcessorTime <> ''", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly  )
'

   For Each objItem In colItems
      WScript.Echo "CPU->PercentProcessorTime: " & objItem.PercentProcessorTime
    Exit For
   Next
   


Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_PerfOS_System where ProcessorQueueLength <> ''", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
                                          
  For Each objItem In colItems
 			WScript.Echo "System->ProcessorQueueLength: " & objItem.ProcessorQueueLength
 			Exit For
  Next
  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_MSSQLI1_MSSQLI1BufferManager where Freepages <> ''", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
   For Each objItem In colItems
  		WScript.Echo "SQL Buffer->Freepages:   " & objItem.Freepages
	Exit For
	Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_MSSQLI1_MSSQLI1GeneralStatistics where UserConnections <> ''", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)	
	For Each objItem In colItems
		WScript.Echo "SQL General->UserConnections: " & objItem.UserConnections
		Exit For
	Next
	
	
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_MSSQLI1_MSSQLI1MemoryManager", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

	For Each objItem In colItems
	 WScript.Echo "SQL Memory->MemoryGrantsPending: " & objItem.MemoryGrantsPending
	Exit For
	Next
Next 'Servers list
RunTime = Timer  - t1
RunTime = Left(RunTime, 3)
wscript.echo ""
wscript.echo "Runned in: " & RunTime & " seconds"