Contact Info

Crumbtrail

ActiveXperts.com » Administration » Scripts » WMI » Perl

Win32_Service - WMI sample in Perl

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_Service WMI class can be used in ActiveXperts Network Monitor to monitor your servers.


Win32_Service

Description

The Win32_Service WMI class represents a service on a Windows computer system. A service application conforms to the interface rules of the Service Control Manager (SCM) and can be started by a user automatically at system boot through the Services control panel utility, or by an application that uses the service functions included in the Windows API. Services can execute even when no user is logged on to the system.

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_Service", "WQL",
                  wbemFlagReturnImmediately | wbemFlagForwardOnly);

   foreach my $objItem (in $colItems) {
      print "AcceptPause: $objItem->{AcceptPause}\n";
      print "AcceptStop: $objItem->{AcceptStop}\n";
      print "Caption: $objItem->{Caption}\n";
      print "CheckPoint: $objItem->{CheckPoint}\n";
      print "CreationClassName: $objItem->{CreationClassName}\n";
      print "Description: $objItem->{Description}\n";
      print "DesktopInteract: $objItem->{DesktopInteract}\n";
      print "DisplayName: $objItem->{DisplayName}\n";
      print "ErrorControl: $objItem->{ErrorControl}\n";
      print "ExitCode: $objItem->{ExitCode}\n";
      print "InstallDate: $objItem->{InstallDate}\n";
      print "Name: $objItem->{Name}\n";
      print "PathName: $objItem->{PathName}\n";
      print "ProcessId: $objItem->{ProcessId}\n";
      print "ServiceSpecificExitCode: $objItem->{ServiceSpecificExitCode}\n";
      print "ServiceType: $objItem->{ServiceType}\n";
      print "Started: $objItem->{Started}\n";
      print "StartMode: $objItem->{StartMode}\n";
      print "StartName: $objItem->{StartName}\n";
      print "State: $objItem->{State}\n";
      print "Status: $objItem->{Status}\n";
      print "SystemCreationClassName: $objItem->{SystemCreationClassName}\n";
      print "SystemName: $objItem->{SystemName}\n";
      print "TagId: $objItem->{TagId}\n";
      print "WaitHint: $objItem->{WaitHint}\n";
      print "\n";
   }
}sub WMIDateStringToDate(strDate)
{
   return "blah";
}