Hi Everyone

I have created this script that I know works, but for my own benifit I just wanted to know if I have scripted it the best way, or if there would have been a better way to do it.

Thanks

Richard Farthing

code:
 
break on
shell "net use m: /delete"
shell "net use m: \\192.168.137.220\c$ /user:netadmin ******"
if open (3, "m:\Program Files\VERITAS\Backup Exec\NT\Data\Bex00.txt") = 0
$LINE1 = ReadLine(3)+@CRLF
$LINE2= ReadLine(3)+@CRLF
$LINE3= ReadLine(3)+@CRLF
$LINE4= ReadLine(3)+@CRLF
$LINE5= ReadLine(3)+@CRLF
$LINE6= ReadLine(3)+@CRLF
$LINE7= ReadLine(3)+@CRLF
$LINE8= ReadLine(3)+@CRLF
$LINE9= ReadLine(3)+@CRLF
$LINE10= ReadLine(3)+@CRLF
$LINE11= ReadLine(3)+@CRLF
$LINE12= ReadLine(3)+@CRLF
$LINE13= ReadLine(3)+@CRLF
$LINE14= ReadLine(3)+@CRLF
$LINE15= ReadLine(3)+@CRLF
$LINE16= ReadLine(3)+@CRLF
$LINE17= ReadLine(3)+@CRLF
$LINE18= ReadLine(3)+@CRLF
$LINE19= ReadLine(3)+@CRLF
$LINE20= ReadLine(3)+@CRLF
$LINE21= ReadLine(3)+@CRLF
$LINE22= ReadLine(3)+@CRLF
$LINE23= ReadLine(3)+@CRLF
$LINE24= ReadLine(3)+@CRLF
$LINE25= ReadLine(3)+@CRLF
$LINE26= ReadLine(3)+@CRLF
$LINE27= ReadLine(3)+@CRLF
$LINE28= ReadLine(3)+@CRLF
$LINE29= ReadLine(3)+@CRLF
$LINE30= ReadLine(3)+@CRLF
$LINE31= ReadLine(3)+@CRLF
$LINE32= ReadLine(3)+@CRLF
$LINE33= ReadLine(3)+@CRLF
$LINE34= ReadLine(3)+@CRLF
$LINE35= ReadLine(3)+@CRLF
$LINE36= ReadLine(3)+@CRLF
$LINE37= ReadLine(3)+@CRLF
$LINE38= ReadLine(3)+@CRLF
$LINE39= ReadLine(3)+@CRLF
$LINE40= ReadLine(3)+@CRLF
$LINE41= ReadLine(3)+@CRLF
$LINE42= ReadLine(3)+@CRLF
$LINE43= ReadLine(3)+@CRLF
$LINE44= ReadLine(3)+@CRLF
$LINE45= ReadLine(3)+@CRLF
$LINE46= ReadLine(3)+@CRLF
$LINE47= ReadLine(3)+@CRLF
$LINE48= ReadLine(3)+@CRLF
$LINE49= ReadLine(3)+@CRLF
$LINE50= ReadLine(3)+@CRLF
$LINE51= ReadLine(3)+@CRLF
$LINE52 = ReadLine(3)+@CRLF
$LINE53= ReadLine(3)+@CRLF
$LINE54= ReadLine(3)+@CRLF
$LINE55= ReadLine(3)+@CRLF
$LINE56= ReadLine(3)+@CRLF
$LINE57= ReadLine(3)+@CRLF
$LINE58= ReadLine(3)+@CRLF
$LINE59= ReadLine(3)+@CRLF
$LINE60= ReadLine(3)+@CRLF
$LINE61= ReadLine(3)+@CRLF
$LINE62= ReadLine(3)+@CRLF
$LINE63= ReadLine(3)+@CRLF
$LINE64= ReadLine(3)+@CRLF
$LINE65= ReadLine(3)+@CRLF
$LINE66= ReadLine(3)+@CRLF
$LINE67= ReadLine(3)+@CRLF
$LINE68= ReadLine(3)+@CRLF
$LINE69= ReadLine(3)+@CRLF
$LINE70= ReadLine(3)+@CRLF
$LINE71= ReadLine(3)+@CRLF
$LINE72= ReadLine(3)+@CRLF
$LINE73= ReadLine(3)+@CRLF
$LINE74= ReadLine(3)+@CRLF
$LINE75= ReadLine(3)+@CRLF
$LINE76= ReadLine(3)+@CRLF
$LINE77= ReadLine(3)+@CRLF
$LINE78= ReadLine(3)+@CRLF
$LINE79= ReadLine(3)+@CRLF
$LINE80= ReadLine(3)+@CRLF
$LINE81= ReadLine(3)+@CRLF
$LINE82= ReadLine(3)+@CRLF
$LINE83= ReadLine(3)+@CRLF
$LINE84= ReadLine(3)+@CRLF
$LINE85= ReadLine(3)+@CRLF
$LINE86= ReadLine(3)+@CRLF
$LINE87= ReadLine(3)+@CRLF
$LINE88= ReadLine(3)+@CRLF
$LINE89= ReadLine(3)+@CRLF
$LINE90= ReadLine(3)+@CRLF
$LINE91= ReadLine(3)+@CRLF
$LINE92= ReadLine(3)+@CRLF
$LINE93= ReadLine(3)+@CRLF
$LINE94= ReadLine(3)+@CRLF
$LINE95= ReadLine(3)+@CRLF
$LINE96= ReadLine(3)+@CRLF
$LINE97= ReadLine(3)+@CRLF
$LINE98= ReadLine(3)+@CRLF
$LINE99= ReadLine(3)+@CRLF
$LINE100= ReadLine(3)+@CRLF
$LINE101= ReadLine(3)+@CRLF
$LINE102= ReadLine(3)+@CRLF
$LINE103= ReadLine(3)+@CRLF
$LINE104= ReadLine(3)+@CRLF
$LINE105= ReadLine(3)+@CRLF
$LINE106= ReadLine(3)+@CRLF
$LINE107= ReadLine(3)+@CRLF
$LINE108= ReadLine(3)+@CRLF
$LINE109= ReadLine(3)+@CRLF
$LINE110= ReadLine(3)+@CRLF
$LINE111= ReadLine(3)+@CRLF
$LINE112= ReadLine(3)+@CRLF
$LINE113= ReadLine(3)+@CRLF
$LINE114= ReadLine(3)+@CRLF
$LINE115= ReadLine(3)+@CRLF
$LINE116= ReadLine(3)+@CRLF
$LINE117= ReadLine(3)+@CRLF
$LINE118= ReadLine(3)+@CRLF
$LINE119= ReadLine(3)+@CRLF
$LINE120= ReadLine(3)+@CRLF
$LINE121= ReadLine(3)+@CRLF
$LINE122= ReadLine(3)+@CRLF
$LINE123= ReadLine(3)+@CRLF
$LINE124= ReadLine(3)+@CRLF
$LINE125= ReadLine(3)+@CRLF
$LINE126= ReadLine(3)+@CRLF
$LINE127= ReadLine(3)+@CRLF
$LINE128= ReadLine(3)+@CRLF
$LINE129= ReadLine(3)+@CRLF
$LINE130= ReadLine(3)+@CRLF
$LINE131= ReadLine(3)+@CRLF
$LINE132= ReadLine(3)+@CRLF


If Left($Line100,11)="Job Ended: "
$JobEnded=SubStr($Line100,12)
EndIf
If Left($Line101,11)="Job Ended: "
$JobEnded=SubStr($Line101,12)
EndIf
If Left($Line102,11)="Job Ended: "
$JobEnded=SubStr($Line102,12)
EndIf
If Left($Line103,11)="Job Ended: "
$JobEnded=SubStr($Line103,12)
EndIf
If Left($Line104,11)="Job Ended: "
$JobEnded=SubStr($Line104,12)
EndIf
If Left($Line105,11)="Job Ended: "
$JobEnded=SubStr($Line105,12)
EndIf
If Left($Line106,11)="Job Ended: "
$JobEnded=SubStr($Line106,12)
EndIf
If Left($Line107,11)="Job Ended: "
$JobEnded=SubStr($Line107,12)
EndIf
If Left($Line108,11)="Job Ended: "
$JobEnded=SubStr($Line108,12)
EndIf
If Left($Line109,11)="Job Ended: "
$JobEnded=SubStr($Line109,12)
EndIf
If Left($Line110,11)="Job Ended: "
$JobEnded=SubStr($Line110,12)
EndIf
If Left($Line111,11)="Job Ended: "
$JobEnded=SubStr($Line111,12)
EndIf
If Left($Line112,11)="Job Ended: "
$JobEnded=SubStr($Line112,12)
EndIf
If Left($Line113,11)="Job Ended: "
$JobEnded=SubStr($Line113,12)
EndIf
If Left($Line114,11)="Job Ended: "
$JobEnded=SubStr($Line114,12)
EndIf
If Left($Line115,11)="Job Ended: "
$JobEnded=SubStr($Line115,12)
EndIf
If Left($Line116,11)="Job Ended: "
$JobEnded=SubStr($Line116,12)
EndIf
If Left($Line117,11)="Job Ended: "
$JobEnded=SubStr($Line117,12)
EndIf
If Left($Line118,11)="Job Ended: "
$JobEnded=SubStr($Line118,12)
EndIf
If Left($Line119,11)="Job Ended: "
$JobEnded=SubStr($Line119,12)
EndIf
If Left($Line120,11)="Job Ended: "
$JobEnded=SubStr($Line120,12)
EndIf
If Left($Line121,11)="Job Ended: "
$JobEnded=SubStr($Line121,12)
EndIf
If Left($Line122,11)="Job Ended: "
$JobEnded=SubStr($Line122,12)
EndIf
If Left($Line123,11)="Job Ended: "
$JobEnded=SubStr($Line123,12)
EndIf
If Left($Line124,11)="Job Ended: "
$JobEnded=SubStr($Line124,12)
EndIf
If Left($Line125,11)="Job Ended: "
$JobEnded=SubStr($Line125,12)
EndIf
If Left($Line126,11)="Job Ended: "
$JobEnded=SubStr($Line126,12)
EndIf
If Left($Line127,11)="Job Ended: "
$JobEnded=SubStr($Line127,12)
EndIf
If Left($Line128,11)="Job Ended: "
$JobEnded=SubStr($Line128,12)
EndIf
If Left($Line129,11)="Job Ended: "
$JobEnded=SubStr($Line129,12)
EndIf
If Left($Line130,11)="Job Ended: "
$JobEnded=SubStr($Line130,12)
EndIf
If Left($Line131,11)="Job Ended: "
$JobEnded=SubStr($Line131,12)
EndIf
If Left($Line132,11)="Job Ended: "
$JobEnded=SubStr($Line132,12)
EndIf


If Left($Line100,23)="Job completion status: "
$JobStatus=SubStr($Line100,24)
EndIf
If Left($Line101,23)="Job completion status: "
$JobStatus=SubStr($Line101,24)
EndIf
If Left($Line102,23)="Job completion status: "
$JobStatus=SubStr($Line102,24)
EndIf
If Left($Line103,23)="Job completion status: "
$JobStatus=SubStr($Line103,24)
EndIf
If Left($Line104,23)="Job completion status: "
$JobStatus=SubStr($Line104,24)
EndIf
If Left($Line105,23)="Job completion status: "
$JobStatus=SubStr($Line105,24)
EndIf
If Left($Line106,23)="Job completion status: "
$JobStatus=SubStr($Line106,24)
EndIf
If Left($Line107,23)="Job completion status: "
$JobStatus=SubStr($Line107,24)
EndIf
If Left($Line108,23)="Job completion status: "
$JobStatus=SubStr($Line108,24)
EndIf
If Left($Line109,23)="Job completion status: "
$JobStatus=SubStr($Line109,24)
EndIf
If Left($Line110,23)="Job completion status: "
$JobStatus=SubStr($Line110,24)
EndIf
If Left($Line111,23)="Job completion status: "
$JobStatus=SubStr($Line111,24)
EndIf
If Left($Line112,23)="Job completion status: "
$JobStatus=SubStr($Line112,24)
EndIf
If Left($Line113,23)="Job completion status: "
$JobStatus=SubStr($Line113,24)
EndIf
If Left($Line114,23)="Job completion status: "
$JobStatus=SubStr($Line114,24)
EndIf
If Left($Line115,23)="Job completion status: "
$JobStatus=SubStr($Line115,24)
EndIf
If Left($Line116,23)="Job completion status: "
$JobStatus=SubStr($Line116,24)
EndIf
If Left($Line117,23)="Job completion status: "
$JobStatus=SubStr($Line117,24)
EndIf
If Left($Line118,23)="Job completion status: "
$JobStatus=SubStr($Line118,24)
EndIf
If Left($Line119,23)="Job completion status: "
$JobStatus=SubStr($Line119,24)
EndIf
If Left($Line120,23)="Job completion status: "
$JobStatus=SubStr($Line120,24)
EndIf
If Left($Line121,23)="Job completion status: "
$JobStatus=SubStr($Line121,24)
EndIf
If Left($Line122,23)="Job completion status: "
$JobStatus=SubStr($Line122,24)
EndIf
If Left($Line123,23)="Job completion status: "
$JobStatus=SubStr($Line123,24)
EndIf
If Left($Line124,23)="Job completion status: "
$JobStatus=SubStr($Line124,24)
EndIf
If Left($Line125,23)="Job completion status: "
$JobStatus=SubStr($Line125,24)
EndIf
If Left($Line126,23)="Job completion status: "
$JobStatus=SubStr($Line126,24)
EndIf
If Left($Line127,23)="Job completion status: "
$JobStatus=SubStr($Line127,24)
EndIf
If Left($Line128,23)="Job completion status: "
$JobStatus=SubStr($Line128,24)
EndIf
If Left($Line129,23)="Job completion status: "
$JobStatus=SubStr($Line129,24)
EndIf
If Left($Line130,23)="Job completion status: "
$JobStatus=SubStr($Line130,24)
EndIf
If Left($Line131,23)="Job completion status: "
$JobStatus=SubStr($Line131,24)
EndIf
If Left($Line132,23)="Job completion status: "
$JobStatus=SubStr($Line132,24)
EndIf


If redirectoutput("\\fps\admin\AdminLogs\Backup.log") = 0 ; to a file
?"*****************************************************"
?""
"$line2"?
"$line3"?
"$line4"?
"$line5"?
"Job Status: $JobEnded"?
"Job completion status: $JobStatus"?
?"*****************************************************"
?""
Endif
If redirectoutput("") = 0 ; back to the console
Endif

close (3)
else
endif

del "m:\Program Files\VERITAS\Backup Exec\NT\Data\Bex00.txt"