MiKTeX 2.9
findpk.pl

Find a Pk font (Perl) Uses the FindPkFont() method to locate a Pk font file.

use Win32::OLE;
use Win32::OLE::Variant;
my $session = Win32::OLE->new('MiKTeX.Session')
  or die "MiKTeX is not properly installed.\n";
my $path = Variant(VT_BSTR|VT_BYREF, '');
if ($session->FindPkFile($ARGV[0], $ARGV[1], $ARGV[2], $path)) {
  print "$path\n";
}