Recipe 578917 revision 1

use warnings;
use strict;
use Win32::OLE('in');
use constant wbemFlagReturnImmediately  => 0x10;
use constant wbemFlagForwardOnly        => 0x20;

getHotfixes(".");

sub getHotfixes {
  my $computer = shift;
  my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
  my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_QuickFixEngineering","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);

  foreach my $objItem (in $colItems){
    print "$objItem->{HotFixID}," unless ($objItem->{HotFixID}=~/File 1/);
    #print "Name: $objItem->{Name}\n";
    #print "Description: $objItem->{Description}\n";
    #print "Caption: $objItem->{Caption}\n";
    #print "CS Name: $objItem->{CSName}\n";
    #print "Fix Comments: $objItem->{FixComments}\n";
    #print "Install Date: $objItem->{InstallDate}\n";
    #print "Installed By: $objItem->{InstalledBy}\n";
    #print "Installed On: $objItem->{InstalledOn}\n";
    #print "Service Pack In Effect: $objItem->{ServicePackInEffect}\n";
    #print "Status: $objItem->{Status}\n";
    #print "\n";
  }
}

• « Back to Recipe 578917

History

• revision 1 (9 years ago)