Win32_PingStatus - WMI sample in Perl

The foundations for Manageability in Windows 7/2008/Vista/XP/2000 and Millennium Edition/'98 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.


Win32_PingStatus

Description

Example(s)

use strict;
use Win32::OLE('in');

use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

my @computers = ("\localhost");
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_PingStatus", "WQL",
                  wbemFlagReturnImmediately | wbemFlagForwardOnly);

   foreach my $objItem (in $colItems) {
      print "Address: $objItem->{Address}\n";
      print "BufferSize: $objItem->{BufferSize}\n";
      print "NoFragmentation: $objItem->{NoFragmentation}\n";
      print "PrimaryAddressResolutionStatus: $objItem->{PrimaryAddressResolutionStatus}\n";
      print "ProtocolAddress: $objItem->{ProtocolAddress}\n";
      print "ProtocolAddressResolved: $objItem->{ProtocolAddressResolved}\n";
      print "RecordRoute: $objItem->{RecordRoute}\n";
      print "ReplyInconsistency: $objItem->{ReplyInconsistency}\n";
      print "ReplySize: $objItem->{ReplySize}\n";
      print "ResolveAddressNames: $objItem->{ResolveAddressNames}\n";
      print "ResponseTime: $objItem->{ResponseTime}\n";
      print "ResponseTimeToLive: $objItem->{ResponseTimeToLive}\n";
      print "RouteRecord: " . join(",", (in $objItem->{RouteRecord})) . "\n";
      print "RouteRecordResolved: " . join(",", (in $objItem->{RouteRecordResolved})) . "\n";
      print "SourceRoute: $objItem->{SourceRoute}\n";
      print "SourceRouteType: $objItem->{SourceRouteType}\n";
      print "StatusCode: $objItem->{StatusCode}\n";
      print "Timeout: $objItem->{Timeout}\n";
      print "TimeStampRecord: " . join(",", (in $objItem->{TimeStampRecord})) . "\n";
      print "TimeStampRecordAddress: " . join(",", (in $objItem->{TimeStampRecordAddress})) . "\n";
      print "TimeStampRecordAddressResolved: " . join(",", (in $objItem->{TimeStampRecordAddressResolved})) . "\n";
      print "TimestampRoute: $objItem->{TimestampRoute}\n";
      print "TimeToLive: $objItem->{TimeToLive}\n";
      print "TypeofService: $objItem->{TypeofService}\n";
      print "\n";
   }
}