Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
open(DBFILE,"<Y:\\tsweb.log")|| die;
while ($line=<DBFILE>) {
...
system "start /max /w $apppath";
system "logoff";
exit;

Select or download this

system "start /max /w $apppath";
system "logoff";