@echo offsetlocal enabledelayedexpansiontitle 修改本機IP地址 by:小小滄海20130409:initcls&echo ――――――――――――――自動修改本機IP地址――――――――――――――rem 系統版本，值可為Windows7或是WindowsXP，或是auto（表示自動獲取）set SYSVER=autorem 要更改的網卡名稱，auto表示自動獲取第一塊“以太網適配器”set ETH=autorem IP來源，值僅為兩個static和dhcp，ques表示詢問，由使用者填寫rem 靜態IP請填寫static，從網關自動獲取IP請填寫dhcpset IPSOURCE=quesrem 要改成的IP地址，ques同上set IPADDR=quesrem 要改成的子網掩碼，ques同上set MASK=quesrem 要使用的默認網關，ques同上set GATEWAY=quesrem DNS模式，值僅為兩個static和dhcprem 靜態DNS請填寫static，從網關自動獲取DNS請填寫dhcpset DNSSOURCE=quesrem 要使用的首選DNS，ques同上set DNS1=quesrem 要使用的備用DNS，ques同上set DNS2=quesset LOG=%TEMP%/changeIP_log.txtecho 運行日期:%date% %time%>%LOG%:startrem ===============使用者填寫參數值=======================rem 自動獲取系統版本，結果為 Windows7 或是 WindowsXP(只測試了這兩個系統)if "%SYSVER%"=="auto" (  set /p=正在自動獲取系統版本...<nul  for /f "skip=1 tokens=2-3 delims= " %%i in ('wmic os get caption') do set SYSVER=%%i%%j  if /i "!SYSVER!"=="Windows7" (    echo 成功！[Win7]  ) else (    if /i "!SYSVER!"=="WindowsXP" (      echo 成功！[WinXP]    ) else (      echo [!SYSVER!]      echo 【注意】非Win7和XP系統不保證能執行成功！&pause>nul    )  ))rem 自動獲取網卡名稱if "%ETH%"=="auto" (  echo 正在自動獲取網絡適配器信息...  set index=0  set select=1  for /f "skip=3 tokens=4* delims= " %%i in ('netsh interface ipv4 show interfaces^|find /i /v "Loopback"') do (    set /a index=!index!+1    set ethname=%%j    echo [!index!]!ethname!  )  if !index!==1 (    set ETH=!ethname!  ) else ( if !index! GTR 1 (    :select    set /p=請選擇要設置的網卡編號:<nul    set select=0&set /p select=    if /i !select! LSS 1 goto select    if /i !select! GTR !index! goto select    set index=0    for /f "skip=3 tokens=4* delims= " %%i in ('netsh interface ipv4 show interfaces^|find /i /v "Loopback"') do (      set /a index=!index!+1      if !index!==!select! (        set ETH=%%j      )    )  ))  if "!ETH!"=="auto" (    echo 自動獲取網卡名稱失敗，請右鍵編輯本批處理，手動填寫網卡名稱！&pause>nul&exit  ) else (    rem set/p=[!ETH!]<nul    echo 成功！  )):quesIPif "%IPSOURCE%"=="ques" (  echo →請填寫【IP地址來源】^(值僅為兩個static和dhcp，直接回車為static^)  set /p IPSOURCE=  if "!IPSOURCE!"=="ques" set IPSOURCE=static  if /i "!IPSOURCE!" NEQ "static" (if /i "!IPSOURCE!" NEQ "dhcp" (    set IPSOURCE=static    echo IP來源填寫錯誤，將變更為static模式    pause>nul  )))if /i "%IPSOURCE%"=="dhcp" goto quesDNSif "%IPADDR%"=="ques" (  echo →請填寫【IP地址】^(直接回車為192.168.1.100^)  set /p IPADDR=  if "!IPADDR!"=="ques" set IPADDR=192.168.1.100)if "%MASK%"=="ques" (  echo →請填寫【子網掩碼】^(直接回車為255.255.255.0^)  set /p MASK=  if "!MASK!"=="ques" set MASK=255.255.255.0)if "%GATEWAY%"=="ques" (  echo →請填寫【默認網關】^(直接回車為192.168.1.1^)  set /p GATEWAY=  if "!GATEWAY!"=="ques" set GATEWAY=192.168.1.1):quesDNSif "%DNSSOURCE%"=="ques" (  echo →請填寫【DNS來源】^(值僅為兩個static和dhcp，直接回車為static^)  set /p DNSSOURCE=  if "!DNSSOURCE!"=="ques" set DNSSOURCE=static  if /i "!DNSSOURCE!" NEQ "static" (if /i "!DNSSOURCE!" NEQ "dhcp" (    set DNSSOURCE=static    echo DNS來源填寫錯誤，將變更為static模式    pause>nul  )))if /i "%DNSSOURCE%"=="dhcp" goto checkInfoif "%DNS1%"=="ques" (  echo →請填寫【首選DNS地址】^(直接回車為8.8.8.8^)  set /p DNS1=  if "!DNS1!"=="ques" set DNS1=8.8.8.8)if "%DNS2%"=="ques" (  echo →請填寫【備用DNS地址】^(直接回車為8.8.4.4^)  set /p DNS2=  if "!DNS2!"=="ques" set DNS2=8.8.4.4):checkInfoclsecho 即將應用以下配置：call :showInfoecho 請確認信息是否正確，輸入Y繼續，輸入N退出，輸入Q顯示本機網絡信息set choose=nul&set /p choose=if /i "%choose%"=="nul" goto checkInfoif /i "%choose%"=="N" exitif /i "%choose%"=="Q" call :getInfo & pause & goto checkInfoif /i "%choose%" NEQ "Y" goto checkInfoecho ★注意★請關閉防火墻或允許所有彈出的安全軟件提示，否則無法成功執行！:changeIPrem 通過dhcp刪除原有IP配置echo →設置"%ETH%"的IP源為DHCP，以刪除原有IP地址 >>%LOG%netsh -c interface ip set address name="%ETH%" source=dhcp >>%LOG%if /i "%IPSOURCE%"=="static" (  echo →設置IP為"%IPADDR%"，掩碼為"%MASK%"，網關為"%GATEWAY%" >>%LOG%  netsh -c interface ip set address name="%ETH%" source=static address="%IPADDR%" mask="%MASK%" gateway="%GATEWAY%" gwmetric=1 >>%LOG%)rem 刪除原有DNS配置echo →刪除原有DNS配置 >>%LOG%netsh -c interface ip delete dns "%ETH%" all >>%LOG%if /i "%DNSSOURCE%"=="static" (  echo →設置首選DNS為%DNS1% >>%LOG%  netsh -c interface ip add dns name="%ETH%" addr="%DNS1%" index=1 >>%LOG%  echo →設置備用DNS為%DNS2% >>%LOG%  netsh -c interface ip add dns name="%ETH%" addr="%DNS2%" index=2 >>%LOG%  rem ↑此處可繼續增加多個DNS服務器地址) else (if /i "%DNSSOURCE%"=="dhcp" (  echo →設置DNS為DHCP模式 >>%LOG%  netsh -c interface ip set dns name="%ETH%" dhcp >>%LOG%)):endclsrem echo 【要設定的信息】rem call :showInfoecho 【當前本機信息】call :getInfoecho ======================================echo 如果上下一致則說明修改成功！echo 如果不一致則請查看日志文件！echo 輸入L查看日志文件，輸入E退出程序。set choose=nul&set /p choose=if /i "%choose%"=="L" start %LOG%&goto endif /i "%choose%"=="E" exitif /i "%choose%"=="nul" goto endecho 程序執行結束，按任意鍵退出...pause>nulexit:showInfoecho 【本機系統】：%SYSVER%echo 【網卡名稱】：%ETH%echo 【IP來源 】：%IPSOURCE%if "%IPSOURCE%"=="static" (  echo 【IP地址 】：%IPADDR%  echo 【子網掩碼】：%MASK%  echo 【默認網關】：%GATEWAY%)echo 【DNS來源 】：%DNSSOURCE%if "%DNSSOURCE%"=="static" (  echo 【首選DNS 】：%DNS1%  echo 【備用DNS 】：%DNS2%)rem goto :eof等于返回returngoto :eof:getInfonetsh -c interface ip show address name="%ETH%"netsh -c interface ip show dns name="%ETH%"goto :eof:windows7==============================================接口 "本地連接" 的配置  DHCP 已啟用:            否  IP 地址:              192.168.1.253  子網前綴:             192.168.1.0/24 (掩碼 255.255.255.0)  默認網關:             192.168.1.1  網關躍點數:            1  InterfaceMetric:          20    接口 "本地連接" 的配置  靜態配置的 DNS 服務器:      8.8.8.8                   8.8.4.4  用哪個前綴注冊:          只是主要

@echo offmode con cols=70 lines=38color atitle D-小蘇-學習-Bat-快速修改本地IP地址:ShowReadmeclsecho.echo *********************學習-Bat-快速修改本地IP地址**********************echo.echo 實現功能（以下情況下測試通過）：echo 1.多連接名稱：自動獲取網絡連接名稱echo 2.多連接屬性：有線連接，無線連接，虛擬連接echo 3.多操作系統：Windows XP，Windows 7 / 8.1echo 4.多網絡連接：無線連接2個，有線連接1個，VMware連接2個echo 5.區域的DNS：判斷計算機可以連接互聯網則采用當前DNS設置echo 6.空格名稱：VMware Virtual Ethernet Adapter for VMnet1echo 7.優化設置：優化選擇步驟，添加選擇序號，保存配置內容echo 8.設置方法：可轉換Netsh interface ip set 和WMIC nicconfig echo 9.獲取優化：判斷網關值，存儲有效的網關值以打開路由器設置頁echo.echo *********************學習-Bat-快速修改本地IP地址**********************ping -n 1 127.1 >nul:Set_localTempsetlocal enabledelayedexpansionver | find "6." > NUL &&(cls&echo. &echo -------------------------------當前系統為 Windows 7以上系統 &Set "WindowsVer=Windows 7" &goto :Set_NetConnectionID)cls&echo. &echo -------------------------------當前系統不是 Windows 7以上系統 &Set "WindowsVer=WindowsXP" &goto :Set_NetConnectionID:Set_NetConnectionIDrem 獲取設置網絡連接名稱clsecho.echo *************選擇網絡連接名稱*****************IN %WindowsVer%**********echo.set "str=DefaultIPGateway^,IPAddress^,DNSServerSearchOrder^,IPSubnet^,DHCPEnabled"for /f "skip=1tokens=1*" %%i in ('wmic Nic where "Manufacturer<>'Microsoft' and NetConnectionStatus='2'" get Index^,NetConnectionID^') do (  for /f "tokens=1* delims=:" %%j in ("%%j") do (    set $%%i=%%jEcho %%i_%%j>>適配器_Index_Name.txtecho. echo 適配器_ID_Index： %%i echo 適配器_名_NName： %%j    for /f "tokens=1-3delims={}," %%a in ('wmic Nicconfig where "Index='%%i'" get %str% /value') do (      for /f %%c in (%%c) do if /i "%%a" == "DNSServerSearchOrder=" set "DNS2=%%c"      for /f %%c in ("%%a%%~b") do set "%%c"    )    if /i "!DHCPEnabled!" == "TRUE" (     echo 適配器_IP_模式 ： 自動    ) else echo 適配器_IP_模式 ： 手動 IF not defined Net_IP set Net_IP=!IPAddress! echo 適配器_IP_地址 ： !IPAddress! Net_IP_地址 : !Net_IP!IF not defined Net_MASK set Net_MASK=!IPSubnet! Rem 判斷是否存在值，以解決之后Net_MASK賦值為空的情況，保證Net_MASK存在值echo 適配器_子網掩碼： !IPSubnet!  Net_子網掩碼: !Net_MASK!IF not defined Net_gateway set Net_gateway=!DefaultIPGateway!    echo 適配器_默認網關： !DefaultIPGateway!  Net_默認網關: !Net_gateway!IF not defined Net_dnsPra set Net_dnsPra=!DNSServerSearchOrder!echo 適配器_首選_DNS： !DNSServerSearchOrder!  Net_首選_DNS: !Net_dnsPra!    IF defined dns2 set Net_dns2=!DNS2! &echo 適配器_配用_DNS ：!DNS2!  Net_配用_DNS: !Net_dns2!  ))echo. echo. echo ************************選擇網絡連接名稱*****************************(for /f "tokens=1* delims=:" %%a in ('findstr /n .* 適配器_Index_Name.txt') do echo ID_%%a_%%b)>適配器_ID_Index_Name.txtREM 生成選擇結構，添加序號ID_，避免純查找數字序號會關鍵詞的查找重復for /f "tokens=2-4 delims=_" %%a in (適配器_ID_Index_Name.txt) do (set NetConID=%%a   set NetConnectionID_Index=%%bset NetConnectionName_Index=%%cecho 適配器ID：!NetConID! 標號Index：!NetConnectionID_Index! 名稱：!NetConnectionName_Index!)echo *************選擇網絡連接名稱*****************IN %WindowsVer%***********:Set_Net_AskEcho.echo.set /p NetConID=選擇需要配置 適配器 對應 數字ID :if /i "%NetConID%" == "q" exitecho.echo.set NetConnectionName_Index=for /f "tokens=2-4 delims=_" %%a in ('findstr "ID_%NetConID%" 適配器_ID_Index_Name.txt') do (setlocal enabledelayedexpansion  set NetConnectionID_Index=%%b set NetConnectionName_Index=%%cecho 當前選擇適配器ID：!NetConID! 標號Index：!NetConnectionID_Index! 名稱：!NetConnectionName_Index!)if "%NetConnectionName_Index%" == "" (echo 選擇選項超出范疇 ... &ping -n 3 127.1>nul &goto Set_Net_Ask) else (set net_interface=%NetConnectionName_Index% &echo 名稱：!net_interface! )if exist 適配器_Index_Name.txt (del /a /f /s /q 適配器_Index_Name.txt) else echo 適配器_Index_Name.txt文件夾不存在if exist 適配器_ID_Index_Name.txt (del /a /f /s /q 適配器_ID_Index_Name.txt) else echo 適配器_ID_Index_Name.txt文件夾不存在ping -n 1 127.1>nul:Set_RamdonIPRem 如果計算機可以連接互聯網，判斷網絡DNS、網關是否可用，可以連接互聯網則只改IP，啟用當前區域DNS...Rem 獲得可上網IP前三位，設置為隨機IP前三位if "%Net_IP%" == "" (echo 設置Net_IP &set Net_IP=192.168.1.128) for /f "tokens=1-4 delims=/." %%a in ("%Net_IP%") do (set IPa_=%%a.%%b.%%c)set /a IPb_=%random%%%255+3set "net_IPnew=%IPa_%.%IPb_%"echo 隨機IP前三位[%IPa_%]  生成隨機IP [%net_IPnew%]ping 127.0.0.1 -n 1 >nul 1>nulping www.baidu.com &echo %errorlevel%if %errorlevel% equ 1 goto:Set_Net_Set_NoHaveif %errorlevel% equ 0 goto:Set_Net_Set_Have:Set_Net_Set_HaveEcho 當前計算機可以連通互聯網...啟用當前區域DNS...set Net_Ping=1set Net_IP_Diy=%net_IPnew%Rem 當前IP地址ping -n 1 127.0.0.1>nulgoto DiyCHOICE:Set_Net_Set_NoHaveEcho 當前計算機無法連通互聯網...set Net_Ping=0set Net_IP_Diy=%net_IPnew%set "Net_MASK=255.255.255.0"set "Net_gateway=192.168.1.1"set "Net_dnsPra=202.100.192.68"set "Net_dns2=202.100.199.8"ping -n 1 127.0.0.1>nulgoto DiyCHOICE:DiyCHOICEclsecho.echo ****************************IP快速切換程序***************************echo.echo 當前選擇網絡連接：echo  ID：%NetConID%  名稱：%net_interface%echo.echo.echo --------------1.修改為隨機IP---------------------%Net_IP_Diy%echo --------------2.設自動獲取IP---------------------XXX.XXX.X.XXXecho --------------3.手動設網關IP---------------------192.XXX.X.XXXecho --------------4.查看網絡設置---------------------%Net_IP%echo --------------5.設置路由器頁---------------------%Net_gateway%echo.echo --------------r.重啟網卡-------------------------x.退出程序---echo.echo.echo **** IN %WindowsVer% *******************************Tools By S34205****echo.echo.echo.if "%Net_Ping%" == "1" (echo 當前計算機可以連接互聯網，啟用當前區域DNS...) else (echo 當前計算機無法連接互聯網，可能需要設置您區域DNS....)echo 隨機的IP:[%Net_IP_Diy%]echo 子網掩碼:[%Net_MASK%]echo 默認網關:[%Net_gateway%]echo 首選DNS:[%Net_dnsPra%]IF defined dns2 echo 備用DNS:[%Net_dns2%]echo.echo.ping -n 1 127.1 >nul echo.:Diysetchoiceset /p SetChoice_C= 請輸入操作：Echo.Echo.IF NOT "%SetChoice_C%"=="" SET SetChoice_C=%SetChoice_C:~0,1%if /i "%SetChoice_C%"=="1" goto Static_ipif /i "%SetChoice_C%"=="2" goto DHCP_ipif /i "%SetChoice_C%"=="3" goto Diy_ipif /i "%SetChoice_C%"=="4" goto Look_ipif /i "%SetChoice_C%"=="5" goto Set_Moden_Webif /i "%SetChoice_C%"=="r" goto rebootnetif /i "%SetChoice_C%"=="x" goto ENDecho 輸入的選擇超出范圍...ping -n 3 127.1>nul goto DiyCHOICE:Static_ipecho.echo 設置隨機IP：[%Net_IP_Diy%] ...REM netsh interface ip set address name="%net_interface%" source=static addr=%Net_IP_Diy% mask=%net_MASK%REM echo 設置IP成功...REM Echo 設置網關... REM netsh interface ip set address name="%net_interface%" gateway=%Net_gateway% gwmetric=1 REM echo 設置DNS...REM netsh interface ip set dns name="%net_interface%" static addr=%Net_dnsPra% register=PRIMARYREM netsh interface ip add dns name="%net_interface%" addr=%Net_dns2% index=2wmic nicconfig where index=%NetConnectionID_Index% call enablestatic(%Net_IP_Diy%),(%net_MASK%)wmic nicconfig where index=%NetConnectionID_Index% call setgateways(%Net_gateway%)wmic nicconfig where index=%NetConnectionID_Index% call setdnsdomain(%Net_dnsPra%)　　wmic nicconfig where index=%NetConnectionID_Index% call SetDNSServerSearchOrder(%Net_dns2%)goto Set_IP_Done:DHCP_ipecho. echo 正在設置IP為自動獲取,請等待...REM echo 設置IP中...REM netsh interface ip set address name="%net_interface%" source=dhcpREM echo 設置網關成功...設置DNS中... REM netsh interface ip set dns "%net_interface%" source=dhcpwmic path Win32_NetworkAdapterConfiguration.index=%NetConnectionID_Index% call enabledhcpwmic path Win32_NetworkAdapterConfiguration.index=%NetConnectionID_Index% call SetDNSServerSearchOrder()goto Set_IP_Done:Diy_ipset/p Net_IP_Diy=請輸入IP地址 XXX.XXX.XXX.XXX：set/p Net_gateway=請輸入網關地址 XXX.XXX.XXX.XXX： set/p Net_dnsPra=請輸入主dns地址 XXX.XXX.XXX.XXX: REM netsh interface ip set address name="%net_interface%"source=static addr=%Net_IP_Diy% mask=255.255.255.0 REM netsh interface ip set address name="%net_interface%" gateway=%Net_gateway% gwmetric=0 REM netsh interface ip set dns name="%net_interface%" source=static addr=%Net_dnsPra% register=PRIMARY wmic nicconfig where index=%NetConnectionID_Index% call enablestatic(%Net_IP_Diy%),(%net_MASK%)wmic nicconfig where index=%NetConnectionID_Index% call setgateways(%Net_gateway%)wmic nicconfig where index=%NetConnectionID_Index% call setdnsdomain(%Net_dnsPra%)　　wmic nicconfig where index=%NetConnectionID_Index% call SetDNSServerSearchOrder(%Net_dns2%)goto Set_IP_Done:Look_ipEcho.if "%LookNum%" == "2" (Echo 打開：控制面板-網絡連接...ping -n 1 127.1>nulstart control ncpa.cplEcho 說明：開啟環境延遲第二次Bat運行適配器屬性不會改變，所以第二次次信息查看需要手動查看屬性... &Echo.echo,前次%net_interface%地址的IP:%IPAddress% &echo,前次%net_interface%子網掩碼:%IPSubnet% &echo,前次%net_interface%默認網關:%DefaultIPGateway% ping -n 6 127.1>nul &goto Set_IP_Done)set LookNum=1set /a LookNum+=1Echo 查看網絡連接%net_interface%的屬性：set "w1=wmic nic where "NetConnectionID="%net_interface%"" get Index"for /f %%a in ('%w1% ^| findstr /b [0-9]') do set "n=%%a"set "w2=wmic nicconfig where "Index='%n%'" get DefaultIPGateway^,IPAddress^,IPSubnet"for /f tokens^=1-2delims^={^" %%a in ('%w2% /value^|find "."')do set "%%a%%b"echo,%net_interface%地址的IP:%IPAddress%echo,%net_interface%子網掩碼:%IPSubnet%echo,%net_interface%默認網關:%DefaultIPGateway%ping -n 6 127.1>nulgoto Set_IP_Done:rebootnetecho 重啟網卡中...請稍等...ping -n 3 127.1>nulnetsh interface set interface "%net_interface%" disablednetsh interface set interface "%net_interface%" enablegoto Set_IP_Done:Set_Moden_WebEcho 需要修改%net_interface%IP為網關地址段[%Net_gateway%]...set /p SetChoice_Web=是(1) 否(2) 返回(3)  : Echo.IF NOT "%SetChoice_Web%"=="" SET SetChoice_Web=%SetChoice_Web:~0,1%if /i "%SetChoice_Web%"=="1" goto Set_web_ipif /i "%SetChoice_Web%"=="2" goto Set_no_web_ipif /i "%SetChoice_Web%"=="2" goto DiyCHOICEecho 輸入的選擇超出范圍...ping -n 3 127.1>nul goto :Set_Moden_Web:Set_web_ipRem 獲得網關前三位，設置為IP前三位，如果不存在則創建if "%Net_gateway%" == "" (echo 設置Net_gateway &set Net_gateway=192.168.1.1) for /f "tokens=1-4 delims=/." %%a in ("%Net_gateway%") do (set Set_web_IPa_=%%a.%%b.%%c)set /a Set_web_IPb_=%random%%%255+3set "Set_web_net_IPnew=%Set_web_IPa_%.%Set_web_IPb_%"echo IP前三位:%Set_web_IPa_%   后一位：%Set_web_IPb_%echo 正在設置%net_interface%為網關IP[%Set_web_net_IPnew%]......wmic nicconfig where index=%NetConnectionID_Index% call enablestatic(%Set_web_net_IPnew%),(%net_MASK%)echo 已經設置%net_interface%為網關IP[%Set_web_net_IPnew%]......goto :Set_no_web_ip:Set_no_web_ipEcho 當前網關為：%Net_gateway% ，正在打開 http://%Net_gateway% ....ping %Net_gateway% >nulstart "%programfiles%/Internet Explorer/iexplore" http://%Net_gateway%ping -n 3 127.1>nulgoto :Set_IP_Done:Set_IP_Doneecho.echo OK,設置完成...ping -n 1 127.1>nul echo OK,任務完成,返回選擇菜單...ping -n 1 127.1>nul GOTO DiyCHOICE:endecho **********************退出......................*********************Endlocalping -n 3 127.1>nulexit

@echo offfor /f "delims=" %%a in ('wmic NIC where "NetEnabled='TRUE'" get MACAddress^,NetConnectionID /value^|find "="') do set %%afor /f "delims=" %%a in ('wmic NICCONFIG where "MACAddress='%MACAddress%'" get IPAddress /value^|find "="') do set %%afor /f "delims={," %%a in ("%IPAddress%") do set ip=%%~afor /f "tokens=1-4 delims=." %%a in ("%ip%") do set last=%%decho;%ip%echo;%last%echo;%NetConnectionID%netsh interface ipv4 set address name="本地連接" addr=192.168.1.%last% mask=255.255.255.0 gwmetric=30netsh interface ipv4 add address name="本地連接" addr=192.168.2.%last% mask=255.255.255.0 gateway=192.168.2.1 gwmetric=1exit