Need to get Windows Updates via Perl? Here's the way I did it:
use Win32::OLE qw(in);
use Data::Dumper;
my $updateOLE = Win32::OLE->new('Microsoft.Update.Session') or die "ERROR creating Microsoft.Update.Session\n";
my $updateSearcher = $updateOLE->CreateUpdateSearcher or die "ERROR creating CreateUpdateSearcher\n";
$updateSearcher->SetProperty('Online', 1); # set to 1 to check online for updates, 0 to not check online. seems to default to online.
my $queryResult = $updateSearcher->Search("IsInstalled = 0 and IsHidden = 0");
my $updates = $queryResult->Updates;
my @updates;
foreach my $update (in $updates)
{
my $info = {};
$info->{UpdateId} = $update->Identity->UpdateID;
$info->{Title} = $update->Title;
$info->{Description} = $update->Description;
$info->{RebootRequired} = $update->RebootRequired;
$info->{ReleaseNotes} = $update->ReleaseNotes;
$info->{EulaText} = $update->EulaText;
$info->{EulaAccepted} = $update->EulaAccepted;
push(@{$info->{Category}}, {Name => $_->Name, CategoryID=> $_->CategoryID}) foreach (in $update->Categories);
push(@{$info->{MoreInfoUrl}}, $_) foreach (in $update->MoreInfoUrls);
push(@{$info->{KBArticleID}}, $_) foreach (in $update->KBArticleIDs);
push(@{$info->{SecurityBulletinID}}, $_) foreach (in $update->SecurityBulletinIDs);
push(@{$info->{SupersededUpdateID}}, $_) foreach (in $update->SupersededUpdateIDs);
push(@updates, $info);
}
print Dumper(\@updates)
