:: v 2.0 Lee Pfeffeman - FHC Computer Specialist Lodi, CA
:: email = lodifhc at pacbell dot net
:: http://home.pacbell.net/lodifhc/desktop.htm
:: This bat file tests for the existance of Ancestral File on a file
:: server. If found FS is configured for operation from the file server.
:: Otherwise an attempt is made to reconnect to shared directories.
:: If unsuccessful, FS is configured for operation from CD.
:: N:\ is the path to the Ancestral File directory on the server
:: c:\pas is the path to the PAS directory on the client
:: c:\pasconfig\std is the path for cd operation files
:: c:\pasconfig\net is the path for network operation files
:: c:\pasconfig directory is approx 200 KB
:: client10 is the file server
@echo off
If EXIST N:\Af_vocab GOTO :fileserver
:: attempt to restore network connections
net use n: \\client10\af /yes
net use | find "OK" > NUL
if errorlevel 1 goto :usecd
net use o: \\client10\fhlc /yes
net use | find "FHLC" > NUL
if errorlevel 1 goto :usecd
net use p: \\client10\igi /yes
net use | find "IGI" > NUL
if errorlevel 1 goto :usecd
net use t: \\client10\igia /yes
net use | find "IGIA" > NUL
if errorlevel 1 goto :usecd
net use q: \\client10\mi /yes
net use | find "MI" > NUL
if errorlevel 1 goto :usecd
net use r: \\client10\scr /yes
net use | find "SCR" > NUL
if errorlevel 1 goto :usecd
net use s: \\client10\ssn97 /yes
net use | find "SSN97" > NUL
if errorlevel 1 goto :usecd
ECHO all connections restored
GOTO :fileserver
:usecd
copy c:\pasconfig\std\pas.ini c:\pas\pas.ini /V /Y
copy c:\pasconfig\std\pasetup.txt c:\pas\pasetup.txt /V /Y
copy c:\pasconfig\std\tr\rgns1.tbl c:\pas\tr\rgns1.tbl /y /v
copy c:\pasconfig\std\tr\rgns1.bak c:\pas\tr\rgns1.bak /y /v
copy c:\pasconfig\std\tr\regions.tbl c:\pas\tr\regions.tbl /y /v
copy c:\pasconfig\std\tr\regions.bak c:\pas\tr\regions.bak /y /v
copy c:\pasconfig\std\ss\platter.txt c:\pas\ss\platter.txt /y /v
copy c:\pasconfig\std\scr\regions.tbl c:\pas\scr\regions.tbl /y /v
copy c:\pasconfig\std\oi\regions.tbl c:\pas\oi\regions.tbl /y /v
copy c:\pasconfig\std\oi\regions.add c:\pas\oi\regions.add /y /v
copy c:\pasconfig\std\lc\startup c:\pas\lc\startup /y /v
copy c:\pasconfig\std\igi\regions.tbl c:\pas\igi\regions.tbl /y /v
copy c:\pasconfig\std\igi\regions.add c:\pas\igi\regions.add /y /v
copy c:\pasconfig\std\af\plat2net.tbl c:\pas\af\plat2net.tbl /y /v
copy c:\pasconfig\std\af\plat2net.bak c:\pas\af\plat2net.bak /y /v
del c:\pasconfig\use.net
ECHO FS is configured for CD
GOTO :end
:fileserver
If EXIST c:\pasconfig\use.net GOTO :netfiles
copy c:\pasconfig\net\pas.ini c:\pas\pas.ini /V /Y
copy c:\pasconfig\net\pasetup.txt c:\pas\pasetup.txt /V /Y
copy c:\pasconfig\net\tr\rgns1.tbl c:\pas\tr\rgns1.tbl /y /v
copy c:\pasconfig\net\tr\rgns1.bak c:\pas\tr\rgns1.bak /y /v
copy c:\pasconfig\net\tr\regions.tbl c:\pas\tr\regions.tbl /y /v
copy c:\pasconfig\net\tr\regions.bak c:\pas\tr\regions.bak /y /v
copy c:\pasconfig\net\ss\platter.txt c:\pas\ss\platter.txt /y /v
copy c:\pasconfig\net\scr\regions.tbl c:\pas\scr\regions.tbl /y /v
copy c:\pasconfig\net\oi\regions.tbl c:\pas\oi\regions.tbl /y /v
copy c:\pasconfig\net\oi\regions.add c:\pas\oi\regions.add /y /v
copy c:\pasconfig\net\lc\startup c:\pas\lc\startup /y /v
copy c:\pasconfig\net\igi\regions.tbl c:\pas\igi\regions.tbl /y /v
copy c:\pasconfig\net\igi\regions.add c:\pas\igi\regions.add /y /v
copy c:\pasconfig\net\af\plat2net.tbl c:\pas\af\plat2net.tbl /y /v
copy c:\pasconfig\net\af\plat2net.bak c:\pas\af\plat2net.bak /y /v
::create use.net file to signal fileserver configuration
ECHO network files are loaded > c:\pasconfig\use.net
:netfiles
ECHO FS is configured for network
:end
C:\PAS\PAS.EXE