Hello BEN, hope you are having a good day :-)!
About: Re: Norton batch

12 Jun 04 16:48, BEN RITCHEY wrote to PAUL QUINN:

 BR>
 BR>>> I'm trying to add an automated/Batch weekly task that will run
 BR>>> Norton Disk Doctor against all DOS drives (under MS-DOS 6.22).

I used this when I ran a BNU Binkley Squish Maximus system under
DV/QEMM. DOS 6.2 so not much different.

Change to suit your needs if necessary.
Be aware of split lines.

{at}ECHO OFF
cls
echo.| date | find "Current" >> $$$.bat
echo set d1=%%4 > current.bat
call $$$
if exist $$$.bat del $$$.bat > nul
if exist current.bat del current.bat > nul
set d2=%d1%
set x=x
:nest
set x=%x%x
for %%y in (/%d2%) do set d1=%%y
for %%y in (/%d2%) do if not %%y==%d1% set %x%=%%y
set d2=%d1%
if not %x%==xxxxxx goto nest
set m=%xx%%xxx%
set d=%xxxxx%%xxxxxx%
for %%y in (d1 d2 x xx xxx xxxx xxxxx xxxxxx) do set %%y=
if %m%==01 set m=Jan
if %m%==02 set m=Feb
if %m%==03 set m=Mar
if %m%==04 set m=Apr
if %m%==05 set m=May
if %m%==06 set m=Jun
if %m%==07 set m=Jul
if %m%==08 set m=Aug
if %m%==09 set m=Sep
if %m%==10 set m=Oct
if %m%==11 set m=Nov
if %m%==12 set m=Dec
if "%1"=="" goto start
for %%y in (m M) do if "%1"=="/%%y" goto maintain
cls
echo Command line parameter usage:
echo.
echo REPAIR /M
echo.
echo.
goto end
:START
cd\
CLS
ECHO
ÉÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍ»
ECHO  º²²²±±±°°°³ °°°±±±²²²            M E N U               ²²²±±±°°°
³°°°±±±²²²º
ECHO
ÌÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍ͹
ECHO  º ²²²  APPLICATIONS ²²² º ²²²   %m% %d%   ²²² º ²²²
UTILITIES       ²²² º
ECHO
ºÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͺ
ECHO  º                       º                    º
º
ECHO  º   A      MAINTAIN     º                    º    G      FORMAT
A: 720      º
ECHO  º   B      FIX MESS     º                    º    H      FORMAT
A: 1.44     º
ECHO  º   C      TC           º                    º    I      FORMAT
B: 360      º
ECHO  º   D      TERMAIL      º                    º    J      FORMAT
B: 1.20     º
ECHO  º   E      UNDELETE     º                    º    K      COPY A:
TO A:      º
ECHO  º   F      SPEEDISK     º                    º    L      COPY B:
TO B:      º
ECHO  º                       º                    º    M      EDITOR
º
ECHO  º                       º                    º
º
ECHO
ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
ECHO  º°°°±±±²²²    ²²²±±±°°°       X  E X I T              °°°±±±²²²
²²²±±±°°°º
ECHO
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
CALL CHOICE: /CABCDEFGHIJKLMX
CLS
IF ERRORLEVEL 14 GOTO EXIT
IF ERRORLEVEL 13 GOTO EDIT
IF ERRORLEVEL 12 GOTO COPYB
IF ERRORLEVEL 11 GOTO COPYA
IF ERRORLEVEL 10 GOTO FOR12
IF ERRORLEVEL 9 GOTO FOR36
IF ERRORLEVEL 8 GOTO FOR14
IF ERRORLEVEL 7 GOTO FOR72
IF ERRORLEVEL 6 GOTO SPEEDISK
IF ERRORLEVEL 5 GOTO UNDELETE
IF ERRORLEVEL 4 GOTO TERMAIL
IF ERRORLEVEL 3 GOTO NC
IF ERRORLEVEL 2 GOTO FIXMESS
IF ERRORLEVEL 1 GOTO MAINTAIN
:MAINTAIN
scan /adl /all /clean /report c:\storage\%m%%d%.txt
cd\nu
ndd c: d: e: f: g: h: i: /complete /report c:\storage\ndd%m%%d%.txt
for %%y in (c: d: e: f: g: h: i: ) do speedisk %%y /f
if "%1"=="" goto start
GOTO end
:FIXMESS
for %%y in (matrix bad_msgs local reqfile localbuy localevt) do sqfix
i:\echo\%%y
for %%y in (localbbs 3405buy 3405chat arj asp comm cdrom desq) do
sqfix i:\echo\%%y
for %%y in (science sharwre tech virus terminat homecook lora) do
sqfix i:\echo\%%y
for %%y in (compress maccomm drtydzn virusinf virusnfo sharesup) do
sqfix i:\echo\%%y
for %%y in (sipaa jobs jobsnow qmodusr) do sqfix i:\echo\%%y
GOTO START
:NC
cd t-nc
tc.exe
GOTO START
:TERMAIL
j:
cd\ter400\termail
tm.exe
c:
GOTO START
:UNDELETE
cd\nu
unerase
GOTO START
:SPEEDISK
cd\nu
speedisk
GOTO START
:FOR72
format a: /f:720 /u /autotest
goto start
:FOR14
format a: /u /autotest
goto start
:FOR36
format b: /f:360 /u /autotest
goto start
:FOR12
format b: /u /autotest
goto start
:copya
diskcopy a: a:
goto start
:copyb
diskcopy b: b:
goto start
:EDIT
edit.exe
goto start
:EXIT
set m=
set d=
CLS
rem CALL BOOT
:END

Written on 13 Jun 04 at 11:14 MST

We are a fine board trying to make it better.
Hope this helps.  Keep us posted.

http:///www.pris.bc.ca/ghannah
ghannah{at}pris.bc.ca
Cheers! 
Gord
-=Team OS/2=-

--- GoldED/2 3.0.1