mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
495 B
29 lines
495 B
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
|