@echo off
::chcp 1251>Nul
goto UseDiskZ
:ReUseDiskZ
if exist R: (net use R: /delete /yes)
if %delay% neq 0 (ping -n %delay% -w 1000 localhost>nul)
:UseDiskZ
echo Подключение R: ...
chcp 1251>Nul

...

Ссылка на полный скрипт будет в комментарии.