Найти в Дзене

Удаление всех сетевых папок

Данный скрипт сам удаляет всё подмонтированные сетевые папки.

@set @x=0; /*
@echo off
SetLocal
ver |>NUL find "6." && if "%1" neq "Admin" (
echo. Требуются права Администратора
echo.
pause & cscript.exe //nologo //e:jscript "%~f0" & Exit /B
)

echo.
echo. Скрипт удаления всех сетевых шар
echo.
echo. Список исходных шар:
echo.
net share
for /F "skip=4" %%? in ('net share ^| find /V "Команда выполнена" ^| find /V "The command completed"') do (
net share "%%?" /DELETE
)

echo.
echo. Список исходных шар после удаления:
echo.
net share
echo.
pause

Exit /B

*/new ActiveXObject('Shell.Application').ShellExecute (WScript.ScriptFullName,'Admin','','runas',1);