MiKTeX 2.9
|
Print setup info (Perl) Uses the session interface to retrieve information about the MiKTeX setup.
use Win32::OLE; my $session = Win32::OLE->new('MiKTeX.Session') or die "MiKTeX is not properly installed.\n"; my $setupInfo = $session->GetMiKTeXSetupInfo(); print "MiKTeX: $setupInfo->{'version'}\n"; if ($setupInfo->{'sharedSetup'}) { print "SharedSetup: yes\n"; } else { print "SharedSetup: no\n"; } print "BinDir: $setupInfo->{'binDirectory'}\n"; for ($r = 0; $r < $setupInfo->{'numRoots'}; $r += 1) { my $rootDirectory = $session->GetRootDirectory($r); print "Root$r: $rootDirectory\n"; } print "Install: $setupInfo->{'installRoot'}\n"; print "UserData: $setupInfo->{'userDataRoot'}\n"; print "UserConfig: $setupInfo->{'userConfigRoot'}\n"; if ($setupInfo->{'sharedSetup'}) { print "CommonData: $setupInfo->{'commonDataRoot'}\n"; print "CommonConfig: $setupInfo->{'commonConfigRoot'}\n"; }