【语言-批处理】自动IP 固定ip 适合笔记本长期频繁的移动地方连接wifi

@echo off 
echo 正在启用超级管理员权限...   
%1 %2  
ver|find "5.">nul&&goto :st  
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :st","","runas",1)(window.close)&goto :eof  
  
:st  
copy "%~0" "%windir%\system32\"  
echo 启用超级管理员权限成功  
rem 修改
mode con cols=60 lines=40
cls
color 3F
echo ****************************************************
echo **          *********        *********        ******
echo ****  *****   ******  ******  *******  ******  *****
echo ****  ******  ******  ******* *******  ******* *****
echo ****  ******  ******  ***************  *************
echo ****  *****  ********   **************   ***********
echo ****       ************     ************     *******
echo ****  ****   **************   *************   ******
echo ****  *****   ***************  **************  *****
echo ****  *****   ******* *******  ****** *******  *****
echo ****  ******   ******  ******  ******  ******  *****
echo **      ******   *****        ********        ******
echo ****************************************************


cls
echo.                                                     
echo   **********         ********         ********      
echo     **     ***      **      **       **      **     
echo     **      **      **       *       **       *     
echo     **      **      **               **             
echo     **     **        ***              ***           
echo     *******           *****             *****       
echo     **    ***              ***              ***     
echo     **     ***              **               **     
echo     **     ***      *       **       *       **     
echo     **      ***     **      **       **      **     
echo   ******      ***    ********         ********       
echo.   
CLS                                                 
echo.                                                     
echo   ****     ****          *******             ********       
echo    **       **         **       **          **      **  
echo    **       **       **           **        **       *  
echo    **       **      **             **       **          
echo    **       **     **               **       ***        
echo    ***********     **               **         *****    
echo    **       **     **               **             ***  
echo    **       **      **             **               **  
echo    **       **       **           **        *       **  
echo    **       **         **       **          **      **  
echo   ****     ****          *******             ********       
echo.                                                    
echo **************************操作列表**************************
echo 操作ID  描述
echo 1       Home - 【WLAN】
echo 2       Rss    【WLAN】
echo 3       Domino 【本地连接】
echo 4       查看设置状态
echo 5       取消倒计时关机
echo 6       退出
echo **************************操作列表**************************

color 1F
echo ***********************适配器名称列表***********************
FOR /F "tokens=2 delims=器:" %%i IN ('ipconfig/all^|find /i "适配器"') DO (
ECHO %%i
)
echo ***********************适配器名称列表***********************


set/p netname=请输入您要修改的网络适配器名称:
color 3F
rem cls

:ipt
set /p choice=参考操作列表，输入操作ID：
if /i %choice%==1 goto st1
if /i %choice%==2 goto st2
if /i %choice%==3 goto st3
if /i %choice%==4 goto st4
if /i %choice%==5 goto st5
if /i %choice%==6 goto end

echo 输入无效请重新输入.

goto ipt

:st1

echo  自动获取IP地址....
netsh interface ip set address name = %netname% source = dhcp >  c:\tmp.txt
for /f "tokens=* delims=" %%1 in (C:\tmp.txt) do  (set STATUS=%%1 )
IF /i "%STATUS%" equ "已在此接口上启用 DHCP。" goto msg1
IF /i "%STATUS%" equ "" goto msg2
goto endstr1

:msg1
pause
color fc
echo 请不要重复设置
goto endstr1

:msg2
pause
color f2
echo 设置成功
goto endstr1

:msgend2
color fc
echo 无信息
goto endstr1

:endstr1

echo   自动获取DNS服务器....
netsh interface ip set dns name = %netname% source = dhcp
Echo 自动获取IP成功……

 


goto ipt

rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>RSS<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
:st2
 echo  手动设置IP地址....
Netsh interface IP Set Addr %netname% Static 172.168.75.35 255.255.255.0 172.168.75.254
 echo  手动设置DNS地址....
Netsh interface IP Set dns %netname% static 172.16.9.101 primary
 echo  手动设置备份DNS地址....
Netsh interface IP add dns %netname% 210.21.196.6
 Echo 设置成功 您的IP为172.168.75.35…… 

goto ipt

REM >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>domino打印机<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
:st3 
set/p ipp=请输入打印机本地连接的IP地址[100,253]:
 echo  手动设置IP地址....
Netsh interface IP Set Addr %ipp% Static 192.168.125.%ipp% 255.255.255.0 192.168.125.254
 Echo 设置成功 您的IP为192.168.125.%ipp% …… 

goto ipt

:st4
ipconfig /all

goto ipt

:st5

goto ipt
:end
REM exit

Pause