Win32_PerfFormattedData_MSSQLSERVER perl sample code

The foundations for Manageability in Windows is Windows Management Instrumentation (WMI; formerly WBEM) and WMI extensions for Windows Driver Model (WDM).

ActiveXperts Network Monitor provides the ability to build monitor check routines based on WMI. ActiveXperts has collected more than a hundred WMI samples. You can use these samples as a base for new check routines you can write yourself. The Win32_PerfFormattedData_MSSQLSERVER WMI class can be used in ActiveXperts Network Monitor to monitor your servers.

---

Sample Code

use Win32::OLE('in');

my $computer = ".";

my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_PerfFormattedData_MSSQLSERVER_SQLServerAccessMethods", "WQL");

foreach my $objItem (in $colItems) {
	print "AUcleanupbatchesPersec: $objItem->{AUcleanupbatchesPersec}\n";
	print "AUcleanupsPersec: $objItem->{AUcleanupsPersec}\n";
	print "ByreferenceLobCreateCount: $objItem->{ByreferenceLobCreateCount}\n";
	print "ByreferenceLobUseCount: $objItem->{ByreferenceLobUseCount}\n";
	print "Caption: $objItem->{Caption}\n";
	print "CountLobReadahead: $objItem->{CountLobReadahead}\n";
	print "CountPullInRow: $objItem->{CountPullInRow}\n";
	print "CountPushOffRow: $objItem->{CountPushOffRow}\n";
	print "DeferreddroppedAUs: $objItem->{DeferreddroppedAUs}\n";
	print "DeferredDroppedrowsets: $objItem->{DeferredDroppedrowsets}\n";
	print "Description: $objItem->{Description}\n";
	print "DroppedrowsetcleanupsPersec: $objItem->{DroppedrowsetcleanupsPersec}\n";
	print "DroppedrowsetsskippedPersec: $objItem->{DroppedrowsetsskippedPersec}\n";
	print "ExtentDeallocationsPersec: $objItem->{ExtentDeallocationsPersec}\n";
	print "ExtentsAllocatedPersec: $objItem->{ExtentsAllocatedPersec}\n";
	print "FailedAUcleanupbatchesPersec: $objItem->{FailedAUcleanupbatchesPersec}\n";
	print "Failedleafpagecookie: $objItem->{Failedleafpagecookie}\n";
	print "Failedtreepagecookie: $objItem->{Failedtreepagecookie}\n";
	print "ForwardedRecordsPersec: $objItem->{ForwardedRecordsPersec}\n";
	print "FreeSpacePageFetchesPersec: $objItem->{FreeSpacePageFetchesPersec}\n";
	print "FreeSpaceScansPersec: $objItem->{FreeSpaceScansPersec}\n";
	print "Frequency_Object: $objItem->{Frequency_Object}\n";
	print "Frequency_PerfTime: $objItem->{Frequency_PerfTime}\n";
	print "Frequency_Sys100NS: $objItem->{Frequency_Sys100NS}\n";
	print "FullScansPersec: $objItem->{FullScansPersec}\n";
	print "IndexSearchesPersec: $objItem->{IndexSearchesPersec}\n";
	print "LobHandleCreateCount: $objItem->{LobHandleCreateCount}\n";
	print "LobHandleDestroyCount: $objItem->{LobHandleDestroyCount}\n";
	print "LobSSProviderCreateCount: $objItem->{LobSSProviderCreateCount}\n";
	print "LobSSProviderDestroyCount: $objItem->{LobSSProviderDestroyCount}\n";
	print "LobSSProviderTruncationCount: $objItem->{LobSSProviderTruncationCount}\n";
	print "MixedpageallocationsPersec: $objItem->{MixedpageallocationsPersec}\n";
	print "Name: $objItem->{Name}\n";
	print "PagecompressionattemptsPersec: $objItem->{PagecompressionattemptsPersec}\n";
	print "PageDeallocationsPersec: $objItem->{PageDeallocationsPersec}\n";
	print "PagesAllocatedPersec: $objItem->{PagesAllocatedPersec}\n";
	print "PagescompressedPersec: $objItem->{PagescompressedPersec}\n";
	print "PageSplitsPersec: $objItem->{PageSplitsPersec}\n";
	print "ProbeScansPersec: $objItem->{ProbeScansPersec}\n";
	print "RangeScansPersec: $objItem->{RangeScansPersec}\n";
	print "ScanPointRevalidationsPersec: $objItem->{ScanPointRevalidationsPersec}\n";
	print "SkippedGhostedRecordsPersec: $objItem->{SkippedGhostedRecordsPersec}\n";
	print "TableLockEscalationsPersec: $objItem->{TableLockEscalationsPersec}\n";
	print "Timestamp_Object: $objItem->{Timestamp_Object}\n";
	print "Timestamp_PerfTime: $objItem->{Timestamp_PerfTime}\n";
	print "Timestamp_Sys100NS: $objItem->{Timestamp_Sys100NS}\n";
	print "Usedleafpagecookie: $objItem->{Usedleafpagecookie}\n";
	print "Usedtreepagecookie: $objItem->{Usedtreepagecookie}\n";
	print "WorkfilesCreatedPersec: $objItem->{WorkfilesCreatedPersec}\n";
	print "WorktablesCreatedPersec: $objItem->{WorktablesCreatedPersec}\n";
	print "WorktablesFromCacheRatio: $objItem->{WorktablesFromCacheRatio}\n";
	print "\n";
	print "########\n";
	print "\n";
}