Msft_WmiProvider 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 Msft_WmiProvider 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 Msft_WmiProvider_Counters", "WQL");

foreach my $objItem (in $colItems) {
	print "ProviderOperation_AccessCheck: $objItem->{ProviderOperation_AccessCheck}\n";
	print "ProviderOperation_CancelQuery: $objItem->{ProviderOperation_CancelQuery}\n";
	print "ProviderOperation_CreateClassEnumAsync: $objItem->{ProviderOperation_CreateClassEnumAsync}\n";
	print "ProviderOperation_CreateInstanceEnumAsync: $objItem->{ProviderOperation_CreateInstanceEnumAsync}\n";
	print "ProviderOperation_CreateRefreshableEnum: $objItem->{ProviderOperation_CreateRefreshableEnum}\n";
	print "ProviderOperation_CreateRefreshableObject: $objItem->{ProviderOperation_CreateRefreshableObject}\n";
	print "ProviderOperation_CreateRefresher: $objItem->{ProviderOperation_CreateRefresher}\n";
	print "ProviderOperation_DeleteClassAsync: $objItem->{ProviderOperation_DeleteClassAsync}\n";
	print "ProviderOperation_DeleteInstanceAsync: $objItem->{ProviderOperation_DeleteInstanceAsync}\n";
	print "ProviderOperation_ExecMethodAsync: $objItem->{ProviderOperation_ExecMethodAsync}\n";
	print "ProviderOperation_ExecQueryAsync: $objItem->{ProviderOperation_ExecQueryAsync}\n";
	print "ProviderOperation_FindConsumer: $objItem->{ProviderOperation_FindConsumer}\n";
	print "ProviderOperation_GetObjectAsync: $objItem->{ProviderOperation_GetObjectAsync}\n";
	print "ProviderOperation_GetObjects: $objItem->{ProviderOperation_GetObjects}\n";
	print "ProviderOperation_GetProperty: $objItem->{ProviderOperation_GetProperty}\n";
	print "ProviderOperation_NewQuery: $objItem->{ProviderOperation_NewQuery}\n";
	print "ProviderOperation_ProvideEvents: $objItem->{ProviderOperation_ProvideEvents}\n";
	print "ProviderOperation_PutClassAsync: $objItem->{ProviderOperation_PutClassAsync}\n";
	print "ProviderOperation_PutInstanceAsync: $objItem->{ProviderOperation_PutInstanceAsync}\n";
	print "ProviderOperation_PutProperty: $objItem->{ProviderOperation_PutProperty}\n";
	print "ProviderOperation_QueryInstances: $objItem->{ProviderOperation_QueryInstances}\n";
	print "ProviderOperation_SetRegistrationObject: $objItem->{ProviderOperation_SetRegistrationObject}\n";
	print "ProviderOperation_StopRefreshing: $objItem->{ProviderOperation_StopRefreshing}\n";
	print "ProviderOperation_ValidateSubscription: $objItem->{ProviderOperation_ValidateSubscription}\n";
	print "\n";
	print "########\n";
	print "\n";
}