30 lines
495 B
Perl
30 lines
495 B
Perl
|
my ($action);
|
||
|
|
|
||
|
|
###
|
||
|
|
### The presence of a command line parameter means that we should uninstall.
|
||
|
|
###
|
||
|
|
if (@ARGV) {
|
||
|
|
$action = "/u";
|
||
|
|
} else {
|
||
|
|
$action = "";
|
||
|
|
}
|
||
|
|
|
||
|
|
open(FILE, ">>$ENV{'URTINSTALL_LOGFILE'}");
|
||
|
|
while (<DATA>) {
|
||
|
|
chomp;
|
||
|
|
next if (/^$/);
|
||
|
|
print FILE "Registering dll $_ ...\n";
|
||
|
|
system("regsvr32 /s /c $action $_");
|
||
|
|
}
|
||
|
|
close(FILE);
|
||
|
|
|
||
|
|
__END__
|
||
|
|
corperfmonext.dll
|
||
|
|
diasymreader.dll
|
||
|
|
fusion.dll
|
||
|
|
mscordbi.dll
|
||
|
|
mscorie.dll
|
||
|
|
mscorld.dll
|
||
|
|
mscorsec.dll
|
||
|
|
System.EnterpriseServices.Thunk.dll
|