- 积分
- 264
- 最后登录
- 2024-4-30
- 精华
- 0
- 阅读权限
- 30
- 主题
- 53
- UID
- 470296
- 帖子
- 660
- PB币
- 1124
- 威望
- 0
- 贡献
- 0
- 技术
- 0
- 活跃
- 1472
- UID
- 470296
- 帖子
- 660
- PB币
- 1124
- 贡献
- 0
- 技术
- 0
- 活跃
- 1472
|
48F
发表于 2021-6-11 22:57:39
IP属地广东
|只看该作者
本帖最后由 sdoy 于 2021-6-11 23:08 编辑
@echo off
cd /d %~dp0
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
title --IP自动设置 --
MODE con: COLS=80 lines=30
color 0a
:begin
@rem cls
echo 要把IP设置为办公IP:10.1.86.131,请按 1
echo 要把IP设置为家庭IP:192.168.3.28,请按 2
echo 要退出,请按 3
echo.
choice /c 123450 /n /m " 请选择【1-3】:"
echo %errorlevel%
if %errorlevel% == 1 goto set_ip1_ip
if %errorlevel% == 2 goto set_ip2_ip
if %errorlevel% == 3 goto end
if %times% == 0 (goto vpn_connect) else (goto begin)
:set_ip1_ip
echo IP自动设置开始....
echo.
echo 正在设置IP及子网掩码
netsh interface ipv4 set address "以太网" "static" "10.1.86.131" "255.255.252.0" "10.1.84.1"
netsh interface ip set dns "以太网" static 10.0.0.40 primary validate=no
echo 设置完成
pause
goto end
:set_ip2_ip
echo IP自动设置开始....
echo.
echo 正在设置IP及子网掩码
netsh interface ipv4 set address "以太网" "static" "192.168.3.28" "255.255.255.0" "192.168.3.1"
netsh interface ip set dns "以太网" static 0.0.0.0 primary validate=no
echo 设置完成
pause
goto end
:end
exit
下载附件:
IP修改脚本-win10.zip
(824 Bytes, 下载次数: 7)
|
|