批处理快速改IP地址及计算机名

wangxiqiang

复制下面全部代码保存为.bat批处理即可：

@echo off
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
echo 请求管理员权限...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
:
@echo off & setlocal enabledelayedexpansion
color 2e
title=新机快速设置向导v0.2          ByurSun
echo.==================================
echo.= 欢迎使用新机快速设置向导v0.2   =
echo.=                      ByurSun =
echo.==================================
echo.本程序用于快速设置IPv4协议及计算机名
echo —————————————————
echo. 正在抓取网卡名称……
set m=0
for /f "tokens=1* delims=," %%a in ('Getmac /v /nh /fo csv') do (
set /a m+=1
set "name!m!=%%a"
set "name=%name:~1,-1%"
)
:Select_Card
echo. & echo 1:!name1! & echo 2:!name2! & echo 3:!name3! & echo 4:!name4! & echo 5:!name5! & echo.
set /p "Select_Card=选择网卡[显示五张]:"
if "%Select_Card%" == "1" ( set card=!name1! ) else (
if "%Select_Card%" == "2" ( set card=!name2! ) else (
if "%Select_Card%" == "3" ( set card=!name3! ) else (
if "%Select_Card%" == "4" ( set card=!name4! ) else (
if "%Select_Card%" == "5" ( set card=!name5! ) else ( echo. & echo 未键入任何参数! & pause>nul & cls & goto :Select_Card )))))
echo —————————————————
set /p home=请输入IP地址第三段:192.168.
echo —————————————————
set /p ip=请输入IP地址第四段:192.168.%home%.
echo —————————————————
set /p jfh=请输入计算机名前缀:
echo —————————————————
set ipaddress=192.168.%home%.%ip%
set mask=255.255.255.0
set gateway=192.168.%home%.254
set dns=119.29.29.29
set it=%jfh%%ip%

echo 即将设置以下信息
echo 网卡名称        IP地址                子网掩码        默认网关        首选DNS                计算机名
echo %card%        %ipaddress%        %mask%        %gateway%        %dns%        %it%
echo —————————————————
pause

echo 正在设置IPv4信息......
netsh interface ip set address name=%card% source=static addr=%ipaddress% mask=%mask% gateway=%gateway% 1
echo 正在设置DNS信息......
netsh interface ip set dns name=%card% source=static addr=%dns%

echo 正在修改计算机名......
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %it% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %it% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %it% /f >nul 2>nul

netsh interface ip show config name=%card%
echo 您当前的计算机名为 %COMPUTERNAME%
echo 程序执行完毕
pause




由于本人管机房滴，交换机没有dhcp服务只能手动设置IP地址，无奈百度好久才收集了这一套批处理。
该批处理支持：
1.自动获取管理员权限
2.自定义选择网卡(当前写法只显示5张，可自行DIY)

目前该批处理改完计算机名后批处理里的新计算机名需要重启后才能获取到。

Hafo

干货！！！！
膜拜

hao9i

能否麻烦楼主将代码以代码模式发出，有些代码被转义成表情符号了

常常喜乐

修改IP很方便

kristywoof

批处理显示的画面是什么样的？

wtycrj1

谢谢分享！学习了。

东瞻西望

感谢分享

zqhua

谢谢分享！学习了。

297182

干货。。。