Работа с сетевыми дисками - CMD/BAT - Ответ 7457696

echo БУДЕТ ПРОВЕДЕНА ПРОВЕРКА ПОДКЛЮЧЕНИЯ К СЕТЕВЫМ ДИСКАМ... 
@echo.
pause
::ПИШЕМ В ЛОГ ДАННЫЕ NET USE 
net use>log.txt
cls
@echo.
::ИЩЕМ В ЛОГАХ ИНТЕРЕСУЮЩИЕ СТРОКИ И ЗАГОНЯЕМ В ФАЙЛЫ
findstr проекты log.txt>>PROping.txt
findstr документы log.txt>>DOCping.txt
::ГОТОВИМ ПЕРЕМЕННЫЕ ИЗ НАЙДЕННЫХ СТРОК
for /f %%Q in ('find /v /c "" ^<PROping.txt') do set psearch=%%Q
for /f %%U in ('find /v /c "" ^<DOCping.txt') do set dsearch=%%U
::ВЫКОВЫРИВАЕМ НУЖНОЕ МЕСТО В СТРОКЕ И ЗАГОНЯЕМ В ПЕРЕМЕННУЮ
SetLocal EnableDelayedExpansion
for /f "usebackq delims=" %%a in ("PROping.txt") do set presult=%%a
for /f "usebackq delims=" %%a in ("DOCping.txt") do set dresult=%%a
set pre=%presult:~13,1%
set dre=%dresult:~13,1%
del PROping.txt
del DOCping.txt
del log.txt
if '%psearch%' GEQ '1' (
echo СЕТЕВОЙ ДИСК "ПРОЕКТЫ" ПОДКЛЮЧЕН - %pre%
goto start
) else (
echo ПОДКЛЮЧИТЕ СЕТЕВОЙ ДИСК "ПРОЕКТЫ"
goto mont
)
@echo.
if '%dsearch%' GEQ '1' (
echo СЕТЕВОЙ ДИСК "ДОКУМЕНТЫ" ПОДКЛЮЧЕН - %dre%
goto start
) else (
echo ПОДКЛЮЧИТЕ СЕТЕВОЙ ДИСК "ДОКУМЕНТЫ"
goto mont
)
pause>nul

:mont
@ECHO.
ECHO НИЖЕ ВЫ МОЖЕТЕ СМОНТИРОВАТЬ НЕДОСТАЮЩИЙ ДИСК.
@echo.
echo ДИСК С ПРОЕКТАМИ -   [1]
echo ДИСК С ДОКУМЕНТАМИ - [2]
echo ДИСК СО СКАНЕРОМ -   [3]
echo ВЫХОД ИЗ НАСТРОЕК -  [4]
@echo.
@echo.
set /p variant="КАКОЙ ДИСК МОНТИРОВАТЬ?"
if '%variant%'=='1' goto hdp
if '%variant%'=='2' goto hdd
if '%variant%'=='3' goto hds
if '%variant%'=='4' goto start
@echo.
:hdp
set /p hdp="УКАЖИТЕ БУКВУ ДИСКА С ПРОЕКТАМИ:"
net use %hdp%: \\192.168.1.3\проекты /persistent:yes
goto options
:hdd
set /p hdd="УКАЖИТЕ БУКВУ ДИСКА С ДОКУМЕНТАМИ:"
net use %hdd%: \\192.168.1.3\документы /persistent:yes
goto options
:hds
set /p hds="УКАЖИТЕ БУКВУ ДИСКА СКАНЕРА:"
net use %hds%: \\192.168.1.3\Scan /persistent:yes
goto options