[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 4 天前 18:40 | 只看该作者

[网络连接] [分享]单网卡环境，ip地址自动获取，或者固定ip地址的批处理

win系统测试通过。

ip地址-固定修改为（192.168.8.20）
  1. @echo off

  2. title IP设置

  3. mode con lines=7 cols=50

  4. setlocal enabledelayedexpansion

  5. color a

  6. 

  7. 

  8. set ip=192.168.8.20

  9. set mask=255.255.255.128

  10. set "gateway=192.168.8.1"

  11. 

  12. set  "DNS1= "

  13. set  "DNS2= "

  14. set isIP=false

  15. 

  16. set "online="

  17. set "tips="

  18. set "s="

  19. 

  20. :input_ip

  21. cls

  22. echo.&echo.

  23. 

  24. call :check_ip

  25. if "%isIP%" == "false" cls &echo.&echo.&echo.&echo %s%%s%IP地址格式不正确，按任意键返回重新输入！ & pause >nul & goto input_ip

  26. 

  27. for /f "delims=" %%i in ('ipconfig^|find "以太网"') do (

  28.   set name=%%i

  29.   set name=!name:~7,-1!

  30.   for /f "delims=" %%i in ('netsh interface show interface "!name!" ^| find "已连接"') do set "online=!online! ^"!name!^""

  31. )

  32. 

  33. for %%i in (!online!) do (

  34.   set /a c+=1

  35.   set "lan!c!=%%i"

  36. )

  37. 

  38. if !c! == 1 call :set_ip !lan1! & goto :eof

  39. 

  40. :choose

  41. set /a c+=5

  42. mode con lines=!c! cols=50

  43. cls

  44. echo.&echo %s%已连网的网卡：

  45. for %%i in (!online!) do (set /a n+=1&echo %s%%s%!n!.%%~i)

  46. echo.

  47. set /p choose=%s%请选择给哪个网卡设置IP地址:

  48. if "%choose%" == "" set "n=" & goto :choose

  49. if not defined lan%choose% set "n=" & goto :choose

  50. call :set_ip !lan%choose%!

  51. 

  52. :check_ip

  53. if "%ip%" == "" set "isIP=false" & exit /b

  54. for /f "tokens=1-5 delims=." %%i in ("%ip%") do (

  55.   if "%ip:~-1%" == "." set "isIP=false" & exit /b

  56.   if "%%m" neq "" set "isIP=false" & exit /b

  57.   if %%i  leq 0 set "isIP=false" & exit /b

  58.   if %%i  gtr 252 set "isIP=false" & exit /b

  59.   if %%j  leq 0 set "isIP=false" & exit /b

  60.   if %%j  gtr 252 set "isIP=false" & exit /b

  61.   if %%k  leq 0 set "isIP=false" & exit /b

  62.   if %%k gtr 252 set "isIP=false" & exit /b

  63.   if %%l  leq 1 set "isIP=false" & exit /b

  64.   if %%l  gtr 252 set "isIP=false" & exit /b

  65.   set "isIP=true" & exit /b

  66. )

  67. 

  68. :set_ip

  69. netsh interface ipv4 set address "%~1" static %ip% %mask% %gateway% 1 >nul

  70. netsh interface ipv4 add dns "%~1" %DNS1% index=1 >nul

  71. netsh interface ipv4 add dns "%~1" %DNS2% index=2 >nul

  72. cls&echo.&echo.&echo %s%%s%%s%%s%IP设置完成，按任意键退出！ & pause >nul & goto :eof
复制代码
收藏 分享

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
2楼
发表于 4 天前 18:40 | 只看该作者
ip地址-自动获取
  1. @echo off & setlocal enabledelayedexpansion

  2. echo 代码开始

  3. 

  4. echo 65001编码获取： > nul

  5. chcp 65001 >nul

  6. 

  7. for /f "delims=" %%a in ('netsh interface show interface^|more +3') do (

  8.     set "str=%%a"

  9.     for /f "tokens=*" %%b in ("!str:~46!") do set interfaceName=%%b

  10. )

  11. 

  12. rem 代码保存为ansi编码的bat文件--显示乱码

  13. rem 代码保存为编码utf-8编码的bat文件--正常

  14. echo,网卡名称: "%interfaceName%"

  15. pause & cls

  16. 

  17. chcp 936 > nul

  18. echo 936编码输出： > nul

  19. 

  20. rem 代码保存为ansi编码的bat文件---正常

  21. rem 代码保存为编码utf-8编码的bat文件--显示乱码

  22. echo,网卡名称: "%interfaceName%"

  23. pause & cls

  24. 

  25. set "macname=%interfaceName%"

  26. 

  27. netsh int ip set dns "%macname%" dhcp >nul

  28. netsh int ip set address name="%macname%" source=dhcp

  29. netsh interface ip set wins name="%macname%" source=dhcp

  30. 

  31. ipconfig /renew & cls & ipconfig /flushdns & cls

  32. echo 设置成功。& 1pause & cls & exit /b
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
3楼
发表于 4 天前 18:41 | 只看该作者
ip地址-自动获取
  1. @ECHO off

  2. 

  3. echo 65001编码获取： > nul

  4. chcp 65001 >nul

  5. 

  6. reg query "HKU\S-1-5-19" >nul 2>&1 || (echo 请右键“以管理员身份运行”&echo.&pause&exit /b 1)

  7. 

  8. REM 获取联网网卡名称，并重置ip-dns等地址为自动获取

  9. for /f tokens^=2^ delims^=^" %%i in ('netsh interface ip show address') do (set "macname=%%i"

  10. goto:Next)

  11. :Next

  12. 

  13. chcp 936 > nul

  14. echo 936编码输出： > nul

  15. 

  16. echo 网卡名称："%macname%"

  17. pause & cls

  18. 

  19. netsh int ip set dns "%macname%" dhcp >nul

  20. netsh int ip set address name="%macname%" source=dhcp

  21. netsh interface ip set wins name="%macname%" source=dhcp

  22. 

  23. ipconfig /renew & cls & ipconfig /flushdns & cls

  24. echo 设置成功。& 1pause & cls & exit /b
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
4楼
发表于 4 天前 18:41 | 只看该作者
ip地址-自动获取
  1. @ECHO off

  2. 

  3. echo 65001编码获取： > nul

  4. chcp 65001 >nul

  5. 

  6. :Netsh_Interface_Show_Interface

  7.  set "Netsh_N="&&for /f "skip=3 tokens=1-3,* delims=	 " %%w in ('"Netsh.exe Interface Show Interface"')do set/a "Netsh_N+=1"&&for /f %%n in ('"call echo,%%Netsh_N%%"')do set "Netsh_Connect_%%n=%%w	%%x	%%y	%%z"

  8.  for /f "tokens=1,* delims==" %%i in ('set Netsh_Connect_')do for /f "tokens=1-3,* delims=	" %%w in ("%%j")do (

  9.   Netsh.exe interface Ip Set Address Name="%%z" Source=dhcp

  10.   Netsh.exe interface Ip Set DnsServers Name="%%z" Source=dhcp

  11.  )

  12. pause

  13. ipconfig /renew & cls & ipconfig /flushdns & cls

  14. 

  15. goto:eof
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
5楼
发表于 4 天前 18:42 | 只看该作者
显示IP-DNS地址等信息。
  1. @ECHO off

  2. 

  3. REM 显示IP-DNS等配置信息

  4. ipconfig /all|findstr "[0-9]*\.[0-9]*\."

  5. echo    计算机名--------------------------: %computername%

  6. echo ----------------------------------------------------------

  7. echo                                         ↑ 本机网络配置信息

  8. 

  9. pause
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
6楼
发表于 4 天前 18:42 | 只看该作者
计算机名-手动修改
  1. @echo off

  2. set /p name=输入计算机名，按回车键：

  3. echo %name%

  4. 1pause

  5. 

  6. 

  7. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" /v "ComputerName" /t reg_sz /d %name% /f >nul 2>nul

  8. reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v "ComputerName" /t reg_sz /d %name% /f >nul 2>nul

  9. reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul

  10. reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "Hostname" /t reg_sz /d %name% /f >nul 2>nul

  11. reg add "HKLM\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName" /v "ComputerName" /t REG_SZ /d "%name%" /f

  12. reg add "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters" /v "NV Hostname" /t REG_SZ /d "%name%" /f

  13. reg add "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters" /v "Hostname" /t REG_SZ /d "%name%" /f

  14. reg add "HKLM\SYSTEM\ControlSet002\Control\ComputerName\ComputerName" /v "ComputerName" /t REG_SZ /d "%name%" /f

  15. 

  16. 

  17. 

  18. exit
复制代码

TOP

返回列表