00001 use Win32::OLE; 00002 my $session = Win32::OLE->new('MiKTeX.Session') 00003 or die "MiKTeX is not properly installed.\n"; 00004 my $setupInfo = $session->GetMiKTeXSetupInfo(); 00005 print "MiKTeX: $setupInfo->{'version'}\n"; 00006 if ($setupInfo->{'sharedSetup'}) { 00007 print "SharedSetup: yes\n"; 00008 } else { 00009 print "SharedSetup: no\n"; 00010 } 00011 print "BinDir: $setupInfo->{'binDirectory'}\n"; 00012 for ($r = 0; $r < $setupInfo->{'numRoots'}; $r += 1) { 00013 my $rootDirectory = $session->GetRootDirectory($r); 00014 print "Root$r: $rootDirectory\n"; 00015 } 00016 print "Install: $setupInfo->{'installRoot'}\n"; 00017 print "UserData: $setupInfo->{'userDataRoot'}\n"; 00018 print "UserConfig: $setupInfo->{'userConfigRoot'}\n"; 00019 if ($setupInfo->{'sharedSetup'}) { 00020 print "CommonData: $setupInfo->{'commonDataRoot'}\n"; 00021 print "CommonConfig: $setupInfo->{'commonConfigRoot'}\n"; 00022 }