Win32-CodecFile - WMI Perl sample
The foundations for Manageability in Windows 2019/2016/2012/2008 and Windows 10/7/XP are 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.
On this site, you can find many WMI samples.
The Win32_CodecFile WMI class can be used in ActiveXperts Network Monitor to monitor your servers.
Win32-CodecFile
Description
The Win32_CodecFile WMI class represents the audio or video codec installed on the computer system. Codecs convert one media format type to another, typically a compressed format to an uncompressed format. The name codec is derived from a combination of compress and decompress. For example, a codec can convert a compressed format such as MS-ADPCM to an uncompressed format such as PCM, which most audio hardware can play directly.
Example(s)
use strict; use Win32::OLE('in'); use constant wbemFlagReturnImmediately => 0x10; use constant wbemFlagForwardOnly => 0x20; my @computers = ("DELL17"); foreach my $computer (@computers) { print "\n"; print "==========================================\n"; print "Computer: $computer\n"; print "==========================================\n"; my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n"; my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_CodecFile", "WQL", wbemFlagReturnImmediately | wbemFlagForwardOnly); foreach my $objItem (in $colItems) { print "AccessMask: $objItem->{AccessMask}\n"; print "Archive: $objItem->{Archive}\n"; print "Caption: $objItem->{Caption}\n"; print "Compressed: $objItem->{Compressed}\n"; print "CompressionMethod: $objItem->{CompressionMethod}\n"; print "CreationClassName: $objItem->{CreationClassName}\n"; print "CreationDate: $objItem->{CreationDate}\n"; print "CSCreationClassName: $objItem->{CSCreationClassName}\n"; print "CSName: $objItem->{CSName}\n"; print "Description: $objItem->{Description}\n"; print "Drive: $objItem->{Drive}\n"; print "EightDotThreeFileName: $objItem->{EightDotThreeFileName}\n"; print "Encrypted: $objItem->{Encrypted}\n"; print "EncryptionMethod: $objItem->{EncryptionMethod}\n"; print "Extension: $objItem->{Extension}\n"; print "FileName: $objItem->{FileName}\n"; print "FileSize: $objItem->{FileSize}\n"; print "FileType: $objItem->{FileType}\n"; print "FSCreationClassName: $objItem->{FSCreationClassName}\n"; print "FSName: $objItem->{FSName}\n"; print "Group: $objItem->{Group}\n"; print "Hidden: $objItem->{Hidden}\n"; print "InstallDate: $objItem->{InstallDate}\n"; print "InUseCount: $objItem->{InUseCount}\n"; print "LastAccessed: $objItem->{LastAccessed}\n"; print "LastModified: $objItem->{LastModified}\n"; print "Manufacturer: $objItem->{Manufacturer}\n"; print "Name: $objItem->{Name}\n"; print "Path: $objItem->{Path}\n"; print "Readable: $objItem->{Readable}\n"; print "Status: $objItem->{Status}\n"; print "System: $objItem->{System}\n"; print "Version: $objItem->{Version}\n"; print "Writeable: $objItem->{Writeable}\n"; print "\n"; } }sub WMIDateStringToDate(strDate) { return "blah"; }