|
|
楼主 |
发表于 2021-11-30 19:03:30
|
显示全部楼层
完整的如下,但不起作用 - @echo off
- %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("""%~f0""","::",,"runas",1)(close)&exit /b
- setlocal enabledelayedexpansion
- cd /d "%~dp0"
- set dzzfc0= ==========================================================
- set dzzfc1=\\shanghai-fs\doc
- set dzzfc2=\\beijing-fs\doc
- set dzzfc3=\\guangzhou-fs\doc
- :DZENV
- echo %dzzfc0%
- echo 是否需要自动创建网络驱动器【U:】?
- echo 无需设置环境请直接按"回车"
- echo 键入"1" 切换到 上海
- echo 键入"2" 切换到 北京
- echo 键入"3" 切换到 广州
- set /p input=请输入需要切换环境的相应数字:
- for %%i in (1 2 3) do (
- if "%input%"=="%%i" (
- if exist U: (
- choice /c:YN /m "已经存在【U:】驱动器,是否需要覆盖?"
- if errorlevel 2 goto END
- net use U: /delete
- )
- net use U: !dzzfc%%i!
- setx ENV_ROOT U: /m
- echo 已配置到网络驱动器【U:】!
- )
- )
- goto END
- :END
- echo %dzzfc0%
- pause
- goto:eof
复制代码 |
|