Win32_PerfRawData_DataMCUPerf 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_PerfRawData_DataMCUPerf 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_PerfRawData_DataMCUPerf_LCDATAMCU00DataMCUConferences", "WQL");

foreach my $objItem (in $colItems) {
	print "Caption: $objItem->{Caption}\n";
	print "DATAMCU000Conferences: $objItem->{DATAMCU000Conferences}\n";
	print "DATAMCU001ConferencesPersec: $objItem->{DATAMCU001ConferencesPersec}\n";
	print "DATAMCU002ConnectedUsers: $objItem->{DATAMCU002ConnectedUsers}\n";
	print "DATAMCU003ConnectedUsersPersec: $objItem->{DATAMCU003ConnectedUsersPersec}\n";
	print "DATAMCU004ConnectedPresenters: $objItem->{DATAMCU004ConnectedPresenters}\n";
	print "DATAMCU005ConnectedPresentersPersec: $objItem->{DATAMCU005ConnectedPresentersPersec}\n";
	print "DATAMCU006ReceivedResources: $objItem->{DATAMCU006ReceivedResources}\n";
	print "DATAMCU007ReceivedResourcesPersec: $objItem->{DATAMCU007ReceivedResourcesPersec}\n";
	print "DATAMCU008Slides: $objItem->{DATAMCU008Slides}\n";
	print "DATAMCU009SlidesPersec: $objItem->{DATAMCU009SlidesPersec}\n";
	print "DATAMCU010ImageSlides: $objItem->{DATAMCU010ImageSlides}\n";
	print "DATAMCU011ImageSlidesPersec: $objItem->{DATAMCU011ImageSlidesPersec}\n";
	print "DATAMCU012PollSlides: $objItem->{DATAMCU012PollSlides}\n";
	print "DATAMCU013PollSlidesPersec: $objItem->{DATAMCU013PollSlidesPersec}\n";
	print "DATAMCU014WebSlides: $objItem->{DATAMCU014WebSlides}\n";
	print "DATAMCU015WebSlidesPersec: $objItem->{DATAMCU015WebSlidesPersec}\n";
	print "DATAMCU016TextSlides: $objItem->{DATAMCU016TextSlides}\n";
	print "DATAMCU017TextSlidesPersec: $objItem->{DATAMCU017TextSlidesPersec}\n";
	print "DATAMCU018ApplicationSharingSlides: $objItem->{DATAMCU018ApplicationSharingSlides}\n";
	print "DATAMCU019ApplicationSharingSlidesPersec: $objItem->{DATAMCU019ApplicationSharingSlidesPersec}\n";
	print "DATAMCU020DocumentPresentationSlides: $objItem->{DATAMCU020DocumentPresentationSlides}\n";
	print "DATAMCU021DocumentPresentationSlidesPersec: $objItem->{DATAMCU021DocumentPresentationSlidesPersec}\n";
	print "DATAMCU022MediaSlides: $objItem->{DATAMCU022MediaSlides}\n";
	print "DATAMCU023MediaSlidesPersec: $objItem->{DATAMCU023MediaSlidesPersec}\n";
	print "DATAMCU024Blockedfiles: $objItem->{DATAMCU024Blockedfiles}\n";
	print "DATAMCU025BlockedfilesPersec: $objItem->{DATAMCU025BlockedfilesPersec}\n";
	print "DATAMCU026Complianceerrors: $objItem->{DATAMCU026Complianceerrors}\n";
	print "DATAMCU027UploadedDataSize: $objItem->{DATAMCU027UploadedDataSize}\n";
	print "DATAMCU028Totalsizeofhandoutsuploaded: $objItem->{DATAMCU028Totalsizeofhandoutsuploaded}\n";
	print "DATAMCU029Totalnumberofhandoutsuploaded: $objItem->{DATAMCU029Totalnumberofhandoutsuploaded}\n";
	print "DATAMCU030TotalnumberofhandoutsuploadedPersec: $objItem->{DATAMCU030TotalnumberofhandoutsuploadedPersec}\n";
	print "DATAMCU031Resourcesoverconferencespacelimit: $objItem->{DATAMCU031Resourcesoverconferencespacelimit}\n";
	print "DATAMCU032ResourcesoverconferencespacelimitPersec: $objItem->{DATAMCU032ResourcesoverconferencespacelimitPersec}\n";
	print "DATAMCU033Resourcestoobig: $objItem->{DATAMCU033Resourcestoobig}\n";
	print "DATAMCU034ResourcestoobigPersec: $objItem->{DATAMCU034ResourcestoobigPersec}\n";
	print "DATAMCU035NumberofSessionControllers: $objItem->{DATAMCU035NumberofSessionControllers}\n";
	print "DATAMCU036NumberofRegisteredSessions: $objItem->{DATAMCU036NumberofRegisteredSessions}\n";
	print "DATAMCU037NumberofStoppingSessions: $objItem->{DATAMCU037NumberofStoppingSessions}\n";
	print "DATAMCU038NumberofUnhandledApplicationException: $objItem->{DATAMCU038NumberofUnhandledApplicationException}\n";
	print "DATAMCU039NumberofContentExpirationException: $objItem->{DATAMCU039NumberofContentExpirationException}\n";
	print "DATAMCU040Sessionqueuesload: $objItem->{DATAMCU040Sessionqueuesload}\n";
	print "DATAMCU041Sessionqueuesstate: $objItem->{DATAMCU041Sessionqueuesstate}\n";
	print "DATAMCU042NumberofNotaContentFolderErrors: $objItem->{DATAMCU042NumberofNotaContentFolderErrors}\n";
	print "DATAMCU043NumberofErrorstoCreateContentFolder: $objItem->{DATAMCU043NumberofErrorstoCreateContentFolder}\n";
	print "DATAMCU044NumberofErrorstoCreateContentFile: $objItem->{DATAMCU044NumberofErrorstoCreateContentFile}\n";
	print "DATAMCU045NumberofResourceFilesParsingFailures: $objItem->{DATAMCU045NumberofResourceFilesParsingFailures}\n";
	print "DATAMCU046NumberofFailuresBecauseofInvalidInternalDownloadURL: $objItem->{DATAMCU046NumberofFailuresBecauseofInvalidInternalDownloadURL}\n";
	print "DATAMCU047NumberofFailuresBecauseofInvalidExternalDownloadURL: $objItem->{DATAMCU047NumberofFailuresBecauseofInvalidExternalDownloadURL}\n";
	print "DATAMCU048NumberofFailuresBecauseofEmptyListofProxies: $objItem->{DATAMCU048NumberofFailuresBecauseofEmptyListofProxies}\n";
	print "DATAMCU049MaximumaveragetimeonconferencequeueforLDMmessages: $objItem->{DATAMCU049MaximumaveragetimeonconferencequeueforLDMmessages}\n";
	print "DATAMCU050MinimumaveragetimeonconferencequeueforLDMmessages: $objItem->{DATAMCU050MinimumaveragetimeonconferencequeueforLDMmessages}\n";
	print "DATAMCU051AveragetimequeuedindataMcuforLDMmessages: $objItem->{DATAMCU051AveragetimequeuedindataMcuforLDMmessages}\n";
	print "DATAMCU052Maximumlengthofconferencequeues: $objItem->{DATAMCU052Maximumlengthofconferencequeues}\n";
	print "DATAMCU053Miniumumlengthofconferencequeues: $objItem->{DATAMCU053Miniumumlengthofconferencequeues}\n";
	print "DATAMCU054Averagelengthofconferencequeues: $objItem->{DATAMCU054Averagelengthofconferencequeues}\n";
	print "Description: $objItem->{Description}\n";
	print "Frequency_Object: $objItem->{Frequency_Object}\n";
	print "Frequency_PerfTime: $objItem->{Frequency_PerfTime}\n";
	print "Frequency_Sys100NS: $objItem->{Frequency_Sys100NS}\n";
	print "Name: $objItem->{Name}\n";
	print "Timestamp_Object: $objItem->{Timestamp_Object}\n";
	print "Timestamp_PerfTime: $objItem->{Timestamp_PerfTime}\n";
	print "Timestamp_Sys100NS: $objItem->{Timestamp_Sys100NS}\n";
	print "\n";
	print "########\n";
	print "\n";
}