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

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

@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);