GET PERFMON DATA

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

GET PERFMON DATA

Logged in as: Guest

arrSession:exec spGetSession 2,16,46704

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> GET PERFMON DATA
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

GET PERFMON DATA - 5/7/2007 3:04:14 AM

4scriptmoni

Posts: 192
Score: 0
Joined: 5/3/2007
Status: offline

This is a simple VBS that gather Information from PERFMON counters.
As a daily routine we check some perfmon counters of SQL servers and I thought interested to share...
Also adopt the Timer!
Yes, scriptomatic was used again and again. yes, it works for MULTIPLE remote servers, just change
the arrComupters!
enjoy it:

[/b] On Error Resume Next Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 arrComputers = Array("LOCALHOST") 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" [b]

_____________________________

Enterprise Microsoft Scripts
Exchange, Login/Logout Monitor,TS, Monitoring, Security, AD, etc...
http://www.felipeferreira.net