工作与家庭网络切换.bat

@echo off
setlocal enabledelayedexpansion
netsh wlan set hostednetwork mode=disallow %/*承载网络模式不禁止的话不可使用（默认都没有承载模式）*/%
cls

:: =========== 工作网络配置 ===========
set "IP_set=10.64.210.249"
set "MASK_set=255.255.255.128"
set "GATEWAY_set=10.64.210.251"
set "DNS1_set=10.64.208.108"

:LISTEN
 cls
 set /a g=0
 set /a v=0
 set /a line=0
 
 set f_Host_Name=Name
 set f_Desc=Description
 set f_IP_host=IP
 set f_MAC_host=Physical
 
 :: 参数分离
 for /f "tokens=2* delims=:" %%i in ('ipconfig/all^|findstr %f_Desc%') do (
  set /a v+=1
  set /a g+=1
  if !v! equ !g! (
   set /a line+=1
   set Desc_!line!=%%i
  )
 )
 :: 网卡跳转,最多只支持三网卡
 if 1 LEQ %line% (
  if "%Desc_1%" neq "%Desc_1:Network=%" (
   set num=1
  )
 )
 if 2 LEQ %line% (
  if "%Desc_2%" neq "%Desc_2:Network=%" (
   set num=2
  )
 
 )
 if 3 LEQ %line% (
  if "%Desc_3%" neq "%Desc_3:Network=%" (
   set num=3
  )
 )
 
 :: 语言跳转
 if %line% EQU 0 (
  goto LISTCN
 )
 
 if "%num%" LEQ "%line%" (goto GETCRDINFO)
 echo 输入错误,请重新输入.
 pause>nul
 cls
goto LISTEN

:LISTCN
 cls
 set /a g=0
 set /a v=0
 set /a line=0
 
 set f_Host_Name=主机名
 set f_Desc=描述
 set f_IP_host=IPv4
 set f_MAC_host=物理地址
 
 :: 参数分离
 for /f "tokens=2* delims=:" %%i in ('ipconfig/all^|findstr %f_Desc%') do (
  set /a v+=1
  set /a g+=1
  if !v! equ !g! (
   set /a line+=1
   set Desc_!line!=%%i
  )
 )
 :: 网卡跳转,最多只支持三网卡
 if 1 LEQ %line% (
  if "%Desc_1%" neq "%Desc_1:Network=%" (
   set num=1
  )
 )
 if 2 LEQ %line% (
  if "%Desc_2%" neq "%Desc_2:Network=%" (
   set num=2
  )
 
 )
 if 3 LEQ %line% (
  if "%Desc_3%" neq "%Desc_3:Network=%" (
   set num=3
  )
 )
 
 if "%num%" LEQ "%line%" (goto GETCRDINFO)
 echo 输入错误,请重新输入.
 pause>nul
 cls
goto LISTCN

:: 获取网卡路径
:GETCRDINFO
 :: Host_Name
 for /f "tokens=2* delims=:" %%i in ('ipconfig/all^|findstr %f_Host_Name%') do (
  set Host_Name=%%i
 )
 :: IP_host
 set /a k=0
 for /f "tokens=2* delims=:" %%i in ('ipconfig/all^|findstr %f_IP_host%') do (
  set /a k=k+1
  if !k! equ !num! (
   set IP_host=%%i
  )
 )
 :: MAC_host
 set /a k=0
 for /f "tokens=2* delims=:" %%i in ('ipconfig/all^|findstr %f_MAC_host%') do (
  set /a k=k+1
  if !k! equ !num! (
   set MAC_host=%%i
  )
 )
goto SHOW

:SHOW
 :: 过滤字符串
 set Host_Name=%Host_Name: =%
 set IP_host=%IP_host: =%
 set IP_host=%IP_host:(=%
 set IP_host=%IP_host:首选=%
 set IP_host=%IP_host:)=%
 set MAC_host=%MAC_host: =%
 :: 显示信息
 echo Host_Name:[%Host_Name%]
 echo IP_host  :[%IP_host%]
 echo MAC_host :[%MAC_host%]
 :: 对比IP,匹配工作网络则设为动态IP,否则设为工作IP
 if "%IP_host%"=="%IP_set%" (
  echo 网络环境为工作网络
  echo 正在转换为家庭网络...
  echo 正在设置自动IP,请稍等......
  netsh interface ip set address name = "本地连接" source = dhcp
  echo 正在设置自动DNS ,请稍等......
  netsh interface ip set dns "本地连接" source = dhcp 
 ) else (
  echo 网络环境为家庭网络
  echo 正在转换为工作网络...
  echo 正在设置静态IP,请稍等......
  netsh interface ip set address "本地连接" source = static addr = %IP_set% mask=%MASK_set%
  echo 正在设置静态网关,请稍等......
  netsh interface ip set address "本地连接" gateway = %GATEWAY_set% gwmetric =1
  echo 正在设置首选DNS ,请稍等......
  netsh interface ip set dns "本地连接" source = static addr = %DNS1_set%
 )
 echo 转换完成
pause>nul