Win32_PerfFormattedData_UGTHRSVC 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_UGTHRSVC 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_UGTHRSVC_SearchGatherer", "WQL");

foreach my $objItem (in $colItems) {
	print "ActiveQueueLength: $objItem->{ActiveQueueLength}\n";
	print "AdminClients: $objItem->{AdminClients}\n";
	print "AllNotificationsReceived: $objItem->{AllNotificationsReceived}\n";
	print "Caption: $objItem->{Caption}\n";
	print "DelayedDocuments: $objItem->{DelayedDocuments}\n";
	print "Description: $objItem->{Description}\n";
	print "DocumentEntries: $objItem->{DocumentEntries}\n";
	print "DocumentsDelayedRetry: $objItem->{DocumentsDelayedRetry}\n";
	print "DocumentsFiltered: $objItem->{DocumentsFiltered}\n";
	print "DocumentsFilteredRate: $objItem->{DocumentsFilteredRate}\n";
	print "DocumentsSuccessfullyFiltered: $objItem->{DocumentsSuccessfullyFiltered}\n";
	print "DocumentsSuccessfullyFilteredRate: $objItem->{DocumentsSuccessfullyFilteredRate}\n";
	print "ExtNotificationsRate: $objItem->{ExtNotificationsRate}\n";
	print "ExtNotificationsReceived: $objItem->{ExtNotificationsReceived}\n";
	print "FilteringThreads: $objItem->{FilteringThreads}\n";
	print "FilterObjects: $objItem->{FilterObjects}\n";
	print "FilterProcessCreated: $objItem->{FilterProcessCreated}\n";
	print "FilterProcesses: $objItem->{FilterProcesses}\n";
	print "FilterProcessesMax: $objItem->{FilterProcessesMax}\n";
	print "Frequency_Object: $objItem->{Frequency_Object}\n";
	print "Frequency_PerfTime: $objItem->{Frequency_PerfTime}\n";
	print "Frequency_Sys100NS: $objItem->{Frequency_Sys100NS}\n";
	print "Heartbeats: $objItem->{Heartbeats}\n";
	print "HeartbeatsRate: $objItem->{HeartbeatsRate}\n";
	print "IdleThreads: $objItem->{IdleThreads}\n";
	print "Name: $objItem->{Name}\n";
	print "NotificationSources: $objItem->{NotificationSources}\n";
	print "NotificationsRate: $objItem->{NotificationsRate}\n";
	print "PerformanceLevel: $objItem->{PerformanceLevel}\n";
	print "Reasontobackoff: $objItem->{Reasontobackoff}\n";
	print "ServerObjects: $objItem->{ServerObjects}\n";
	print "ServerObjectsCreated: $objItem->{ServerObjectsCreated}\n";
	print "ServersCurrentlyUnavailable: $objItem->{ServersCurrentlyUnavailable}\n";
	print "ServersUnavailable: $objItem->{ServersUnavailable}\n";
	print "StemmersCached: $objItem->{StemmersCached}\n";
	print "SystemIOtrafficrate: $objItem->{SystemIOtrafficrate}\n";
	print "ThreadsAccessingNetwork: $objItem->{ThreadsAccessingNetwork}\n";
	print "Threadsblockedduetobackoff: $objItem->{Threadsblockedduetobackoff}\n";
	print "ThreadsInPlugins: $objItem->{ThreadsInPlugins}\n";
	print "TimeOuts: $objItem->{TimeOuts}\n";
	print "Timestamp_Object: $objItem->{Timestamp_Object}\n";
	print "Timestamp_PerfTime: $objItem->{Timestamp_PerfTime}\n";
	print "Timestamp_Sys100NS: $objItem->{Timestamp_Sys100NS}\n";
	print "WordBreakersCached: $objItem->{WordBreakersCached}\n";
	print "\n";
	print "########\n";
	print "\n";
}