ping -n %del_time% -w 1 127.0.0.1 > nul

@echo off
if .%scan_run%.==.. goto set_delayed_env

call :comp_list >$temp1$.txt
for /f %%a in ($temp1$.txt) do (
  call :dump_comp %%a
)

del $temp1$.txt

goto end

:comp_list
net view|find "\\"
goto end

:dump_comp
set comp_to_scan=%1

net view %comp_to_scan%|find "Disk">$temp2$.txt
for /f "tokens=*" %%a in ($temp2$.txt) do (
  set stemp=%%a
  set stemp=!stemp:~0,-24!
  dir /b /s %comp_to_scan%\!stemp!
)

del $temp2$.txt

goto end

:set_delayed_env
set scan_run=true
cmd.exe /v:on /c %0

:end

@echo off
set str_to_upcase=this is a test (проверка)
find "dummy" "1:\%str_to_upcase%" >$temp$.txt 2>&1
for /f "delims=\ tokens=1,2*" %%a in ($temp$.txt) do set str_result=%%b
del $temp$.txt
echo %str_to_upcase%
echo %str_result%

@echo off
call :print %%%%
call :print %%%%1 echo.%%%%2
goto :eof
:print
echo.%2@echo off
echo.%2call :print %1%1%1%1
echo.%2call :print %1%1%1%11 echo.%1%1%1%12
echo.%2goto :eof
echo.%2:print