packageinfo.pl

Print information about a package (Perl). Uses the package manager interface to print information about a package.

use Win32::OLE;
use Win32::OLE::Variant;
my $packageManager = Win32::OLE->new('MiKTeX.PackageManager')
  or die "MiKTeX is not properly installed.\n";
my $packageInfo = $packageManager->GetPackageInfo("$ARGV[0]");
print "$packageInfo->{'deploymentName'}\n";
print "$packageInfo->{'title'}\n";
if ($packageInfo->{'isInstalled'}) {
  my $timeInstalled = Variant(VT_DATE|VT_BYREF,
                              $packageInfo->{'timeInstalled'});
  print "installed on $timeInstalled\n";
} else {
  print "not installed\n";
}