[alpap]

присвоится пустое значение? »

вам megaloman, который раз уже говорил, при таком (неправильном) написании переменных там никогда не будет пусто, вот пример, тут еще ничего нигде не присваивалось

Код:

@echo off
set "SOSTOYANIE=%%e" set "BUKVA=%%f" set "SHARA-NAME=%%g"
echo %SOSTOYANIE%
echo %BUKVA%
echo %SHARA-NAME%
pause

видно и так из кода что работает только первая переменная, вернее тут есть только единственная, если разберетесь - поймете
---
и вывод при правильном написании

Код:

@echo off
set "SOSTOYANIE=%%e"& set "BUKVA=%%f"& set "SHARA-NAME=%%g"
echo %SOSTOYANIE%
echo %BUKVA%
echo %SHARA-NAME%
pause

[epoddubniy]

alpap, megaloman, возможно я не совсем правильно изложил, о чем хотел поинтересоваться в предыдущем посте.
Код я отредактировал с учетом поправок. Если \\srv-public\public подключена, то все - отрабатывает отлично, вопросов - нет. Если \\srv-public\public не подключена то не отрабатывает. получилось следующее (\\srv-public\public не подключена):

Код:

set "SHARA=\\srv-public\public"

for /F "tokens=1,2,3,4,5,6" %%e in ('net use ^| findstr.exe /i "%SHARA%"') do set "SHARA4F=%%e %%f %%g %%h %%i %%j"  & set "SOSTOYANIE=%%e" & set "BUKVA=%%f" & set "SHARA-NAME=%%g"

rem сетевая шара заведомо отключена, findstr.exe в выводе команды net use не найдет строку с \\srv-public\public и вернет пустое
rem значение (?), следовательно токены %%e %%f %%g %%h %%i %%j будут содержать пустую строку (?), следовательно
rem переменные SHARA4F, SOSTOYANIE, BUKVA, SHARA-NAME будут "пустые" (?) следовательно это условие IF "%SHARA4F%"=="" call :procedura должно отработать и 
rem должна выполнится процедура
rem net use %bukva% /delete /yes 
rem net use Z: %SHARA% /Persistent:Yes

IF "%SHARA4F%"=="" call :procedura
IF "%SHARA4F%"=="" echo "kyky"

:procedura
net use %bukva% /delete /yes 
net use Z: %SHARA% /Persistent:Yes

В результате ни
IF "%SHARA4F%"=="" call :procedura
IF "%SHARA4F%"=="" echo "kyky"
не отработали

Также попробовал выполнить пошаговую отладку, результат излагаю ниже:

Код:

C:\Users\adm>net use * /delete
В списке нет элементов.


C:\Users\adm>net use
Новые подключения будут запомнены.

В списке нет элементов.


C:\Users\adm>set "SHARA=\\srv-public\public"

C:\Users\adm>for /F "tokens=1,2,3,4,5,6" %e in ('net use ^| findstr.exe /i "%SHARA%"') do set "SHARA4F=%e %f %g %h %i %j"  & set "SOSTOYANIE=%e" & set "BUKVA=%f" & set "SHARA-NAME=%g"

C:\Users\adm>IF "%SHARA4F%"=="" echo "kyky"

C:\Users\adm>

[alpap]

вот так должно работать

Код:

@echo off
set "SHARA=\\srv-public\public"

for /F "tokens=1-6" %%e in ('net use ^| findstr.exe /i "%SHARA%"') do (
  set "SHARA4F=%%e %%f %%g %%h %%i %%j"
  set "SOSTOYANIE=%%e"
  set "BUKVA=%%f"
  set "SHARA-NAME=%%g"
)

IF "%SHARA4F%"=="" (
  echo "%SHARA4F%" - NULL
) else (
  call :procedura "%SHARA%" "%BUKVA%"
)
pause
exit

:procedura
  net use "%~2" /delete /yes 
  net use Z: "%~1" /Persistent:Yes
exit /b

[epoddubniy]

alpap, не получилось

[megaloman]

Лучше бы Вы описали задачу, а не приводили своё решение. »

Да откажитесь Вы наконец от For, разбор токенов для Net Use неоднозначен в разных ситуациях.

Вот вывод Net Use

Код:

Новые подключения будут запомнены.


Состояние   Локальный  Удаленный                 Сеть

-------------------------------------------------------------------------------
OK           K:        \\Сервер\Test1      Microsoft Windows Network
OK                     \\Сервер\Test1      Microsoft Windows Network
Команда выполнена успешно.

Вот тестовый код:

Код:

@Echo Off
	Set "SHARA=\\Сервер\Test1"

	for /F "tokens=1-6" %%e in ('net use ^| findstr.exe /i "%SHARA%"') do (
  		Echo set "SHARA4F=%%e %%f %%g %%h %%i %%j"
  		Echo set "SOSTOYANIE=%%e"
  		Echo set "BUKVA=%%f"
  		Echo set "SHARA-NAME=%%g"
)
Exit /B

Вот его вывод:

Код:

set "SHARA4F=OK K: \\Сервер\Test1 Microsoft Windows Network"
set "SOSTOYANIE=OK"
set "BUKVA=K:"
set "SHARA-NAME=\\Сервер\Test1"
set "SHARA4F=OK \\Сервер\Test1 Microsoft Windows Network "
set "SOSTOYANIE=OK"
set "BUKVA=\\Сервер\Test1"
set "SHARA-NAME=Microsoft"

Никак не пойму, что не устроило в моём решении? Разве что желание доделать своё ...

[alpap]

alpap, не получилось »

я не могу гадать на кофейной гуще
я просил в п8 показать вывод, можете аккуратно замазать конфиденциальные данные. но так чтобы видно было пробелы.
и просто вывод: net use

[megaloman]

epoddubniy, Если хочется For c токенами

Код:

@Echo Off
	Set "MyRemote=\\Сервер\Test2"
	Set "MyLocal=K:"

	Set "Status=" &Set "Local=" &Set "Remote=" &Set "Network="

	For /F "tokens=1-6 delims= " %%i in ('net use ^| findstr.exe /i "%MyRemote%"') Do If Not "%%n"=="" (
		Set "Status=%%i" &Set "Local=%%j" &Set "Remote=%%k" &Set "Network=%%l %%m %%n"
		GoTo :Continue
		) Else (
		Set "Status=%%i" &Set "Remote=%%j" &Set "Network=%%k %%l %%m"
	)
	:Continue

	If "%Remote%"=="" (Echo "%MyRemote%" не подключен) Else (Echo Status="%Status%"  Local="%Local%" Remote="%Remote%" Network="%Network%")

	If /I "%MyLocal%"=="%Local%" If /I "%MyRemote%"=="%Remote%" Exit /B 0

	>nul 2>&1 Net Use %MyLocal% /Delete /Y
	>nul 2>&1 Net Use %MyRemote% /Delete /Y
	Net Use %MyLocal% %MyRemote%
Exit /B

Но, чтобы не городить огород, примитивное, но, ИМХО, надёжное решение:

Код:

@Echo Off
	Set "MyRemote=\\Сервер\Test1"
	Set "MyLocal=K:"
	
	Set "Mask=Моя папка или файл на сетевом диске которая там обязательно присутствует"

	>nul 2>&1 Dir "%MyLocal%\%Mask%" ||(
		>nul 2>&1 Net Use %MyLocal% /Delete /Y
		>nul 2>&1 Net Use %MyRemote% /Delete /Y
		Net Use %MyLocal% %MyRemote%
	)
Exit /B