Win32_PerfFormattedData_WSearchIdxPi 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_WSearchIdxPi 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_WSearchIdxPi_SearchIndexer", "WQL");

foreach my $objItem (in $colItems) {
	print "ActiveConnections: $objItem->{ActiveConnections}\n";
	print "Caption: $objItem->{Caption}\n";
	print "CleanWidSets: $objItem->{CleanWidSets}\n";
	print "Description: $objItem->{Description}\n";
	print "DirtyWidSets: $objItem->{DirtyWidSets}\n";
	print "DocumentsFiltered: $objItem->{DocumentsFiltered}\n";
	print "Frequency_Object: $objItem->{Frequency_Object}\n";
	print "Frequency_PerfTime: $objItem->{Frequency_PerfTime}\n";
	print "Frequency_Sys100NS: $objItem->{Frequency_Sys100NS}\n";
	print "IndexSize: $objItem->{IndexSize}\n";
	print "L0IndexesWordlists: $objItem->{L0IndexesWordlists}\n";
	print "L0MergeFlushCount: $objItem->{L0MergeFlushCount}\n";
	print "L0MergeFlushSpeedAverage: $objItem->{L0MergeFlushSpeedAverage}\n";
	print "L0MergeFlushSpeedLast: $objItem->{L0MergeFlushSpeedLast}\n";
	print "L0MergesflushesNow: $objItem->{L0MergesflushesNow}\n";
	print "L1MergeCount: $objItem->{L1MergeCount}\n";
	print "L1MergesNow: $objItem->{L1MergesNow}\n";
	print "L1MergeSpeedaverage: $objItem->{L1MergeSpeedaverage}\n";
	print "L1MergeSpeedlast: $objItem->{L1MergeSpeedlast}\n";
	print "L2MergeCount: $objItem->{L2MergeCount}\n";
	print "L2MergesNow: $objItem->{L2MergesNow}\n";
	print "L2MergeSpeedaverage: $objItem->{L2MergeSpeedaverage}\n";
	print "L2MergeSpeedlast: $objItem->{L2MergeSpeedlast}\n";
	print "L3MergeCount: $objItem->{L3MergeCount}\n";
	print "L3MergesNow: $objItem->{L3MergesNow}\n";
	print "L3MergeSpeedaverage: $objItem->{L3MergeSpeedaverage}\n";
	print "L3MergeSpeedlast: $objItem->{L3MergeSpeedlast}\n";
	print "L4MergeCount: $objItem->{L4MergeCount}\n";
	print "L4MergesNow: $objItem->{L4MergesNow}\n";
	print "L4MergeSpeedaverage: $objItem->{L4MergeSpeedaverage}\n";
	print "L4MergeSpeedlast: $objItem->{L4MergeSpeedlast}\n";
	print "L5MergeCount: $objItem->{L5MergeCount}\n";
	print "L5MergesNow: $objItem->{L5MergesNow}\n";
	print "L5MergeSpeedaverage: $objItem->{L5MergeSpeedaverage}\n";
	print "L5MergeSpeedlast: $objItem->{L5MergeSpeedlast}\n";
	print "L6MergeCount: $objItem->{L6MergeCount}\n";
	print "L6MergesNow: $objItem->{L6MergesNow}\n";
	print "L6MergeSpeedaverage: $objItem->{L6MergeSpeedaverage}\n";
	print "L6MergeSpeedlast: $objItem->{L6MergeSpeedlast}\n";
	print "L7MergeCount: $objItem->{L7MergeCount}\n";
	print "L7MergesNow: $objItem->{L7MergesNow}\n";
	print "L7MergeSpeedaverage: $objItem->{L7MergeSpeedaverage}\n";
	print "L7MergeSpeedlast: $objItem->{L7MergeSpeedlast}\n";
	print "L8MergeCount: $objItem->{L8MergeCount}\n";
	print "L8MergesNow: $objItem->{L8MergesNow}\n";
	print "L8MergeSpeedaverage: $objItem->{L8MergeSpeedaverage}\n";
	print "L8MergeSpeedlast: $objItem->{L8MergeSpeedlast}\n";
	print "MasterIndexLevel: $objItem->{MasterIndexLevel}\n";
	print "MasterMergeProgress: $objItem->{MasterMergeProgress}\n";
	print "MasterMergesNow: $objItem->{MasterMergesNow}\n";
	print "MasterMergestoDate: $objItem->{MasterMergestoDate}\n";
	print "Name: $objItem->{Name}\n";
	print "PersistentIndexes: $objItem->{PersistentIndexes}\n";
	print "PersistentIndexesL1: $objItem->{PersistentIndexesL1}\n";
	print "PersistentIndexesL2: $objItem->{PersistentIndexesL2}\n";
	print "PersistentIndexesL3: $objItem->{PersistentIndexesL3}\n";
	print "PersistentIndexesL4: $objItem->{PersistentIndexesL4}\n";
	print "PersistentIndexesL5: $objItem->{PersistentIndexesL5}\n";
	print "PersistentIndexesL6: $objItem->{PersistentIndexesL6}\n";
	print "PersistentIndexesL7: $objItem->{PersistentIndexesL7}\n";
	print "PersistentIndexesL8: $objItem->{PersistentIndexesL8}\n";
	print "Queries: $objItem->{Queries}\n";
	print "QueriesFailed: $objItem->{QueriesFailed}\n";
	print "QueriesSucceeded: $objItem->{QueriesSucceeded}\n";
	print "ShadowMergeLevels: $objItem->{ShadowMergeLevels}\n";
	print "ShadowMergeLevelsThreshold: $objItem->{ShadowMergeLevelsThreshold}\n";
	print "Timestamp_Object: $objItem->{Timestamp_Object}\n";
	print "Timestamp_PerfTime: $objItem->{Timestamp_PerfTime}\n";
	print "Timestamp_Sys100NS: $objItem->{Timestamp_Sys100NS}\n";
	print "UniqueKeys: $objItem->{UniqueKeys}\n";
	print "WorkItemsCreated: $objItem->{WorkItemsCreated}\n";
	print "WorkItemsDeleted: $objItem->{WorkItemsDeleted}\n";
	print "\n";
	print "########\n";
	print "\n";
}