[网络连接] [已解决]批处理根据MAC地址修改计算机名、计算机描述

lx427

公司内部全部要重装系统，要求计算机名、计算机描述都要规范，我做了个批处理，经过不断的实践，终于弄出来了，不过有个小小的不足，当同时存在有宽带连接和本地连接时，这个批处理会没有用，因为获取到的MAC地址有两个，而这个批处理默认的会拿宽带的MAC地址去匹配，所以会修改失败，关于这个问题，我发了一个求助贴，
http://www.bathome.net/thread-13159-1-1.html   
请大家指导完善一下，让这个批处理适应能力更强，这个贴子是我几个月前就发了的，自已在这几个月中把这个批处理东拼西凑给弄出来了，哈哈！感谢二楼给我提供的代码，让我在他提供的代码基础上进行了修改才弄出来，也许对于大家来说是再简单不过的事，我对于我等网络管理员来说那就省了不少事，我要说声，谢谢！！
这个是我根据MAC地址修改计算机名  IP的批处理，IP地址是自动获取的，当然还有一个批处理设置静态IP的，根据表中MAC自动设置相应的IP,网关，并指定DNS我到时也会贴出来

@echo off
for /f "tokens=12 delims= " %%i in ('ipconfig /all^|find /i "Physical Address"') do set mac=%%i
for /f "tokens=1,2*" %%i in ('ipconfig /all^|find "Ethernet adapter"')  do set Ethernet=%%k
for /f "tokens=1,2" %%i in ('more /e +13 %0 ^|find /i "%mac:~,-1%"') do set "name=%%i"
for /f "tokens=4" %%j in ('more /e +13 %0 ^|find /i "%mac:~,-1%"') do set "p=%%j"
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\parameters" /v srvcomment /t reg_sz /d %p% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters" /v srvcomment /t reg_sz /d %p% /f >nul 2>nul
netsh interface ip set address "%Ethernet:~,-2%"  source=dhcp
netsh interface ip set dns "%Ethernet:~,-2%" source=dhcp
exit
PC001	192.168.1.100	00-E0-4C-41-11-A6	祥子
PC002	192.168.1.101	00-e0-62-0b-1f-6c	郝文婕
PC003	192.168.1.102	00-e0-62-0b-22-6d	漆浪
PC004	192.168.1.103	00-e0-66-02-b0-1e	彭雅娜
PC005	192.168.1.104	00-e0-66-02-f1-c2	李颖诗
PC006	192.168.1.105	00-e0-66-19-de-e9	陈永行
PC007	192.168.1.106	00-e0-66-02-f4-15	宁智雄
PC008	192.168.1.107	00-e0-66-02-b0-1e	彭雅娜
PC009	192.168.1.108	00-e0-4c-41-11-b3	冯晶晶
PC010	192.168.1.109	00-e0-66-02-df-8c	周国香
PC011	192.168.1.110	00-e0-66-02-dd-d8	邓国花
PC012	192.168.1.111	00-e0-66-0d-71-d9	邱瑾
PC013	192.168.1.112	00-e0-66-19-de-ea	胡孝龙
复制代码

hanyeguxing

仅对楼主提供的代码修改：

@echo off
set "r=HKLM\System\CurrentControlSet\"
set Mask=255.255.255.0
set Gateway=192.168.1.1
set Dns=202.103.96.112
for /f "tokens=1,2* delims=:. " %%a in ('ipconfig /all') do (
        if /i "%%a %%b"=="Physical Address" set Mac=%%c
        if /i "%%a %%b"=="Ethernet adapter" set E=%%c
)
for /f "tokens=1-4" %%a in ('more +19<"%~f0"') do if "%%c"=="%Mac%" set "N=%%a"&set "Ip=%%b"&set "P=%%d"
(
reg add "%r%Control\ComputerName\ActiveComputerName" /v ComputerName /d %N% /f
reg add "%r%Services\Tcpip\Parameters" /v "NV Hostname" /d %N% /f
reg add "%r%Services\Tcpip\Parameters" /v Hostname /d %N% /f
reg add "%r%Services\Tcpip\Parameters" /v srvcomment /d %P% /f
netsh interface ip set address "%E:~,-2%" static %Ip% %Mask% %Gateway% 1
netsh interface ip set dns "%E:~,-2%" static %Dns%
)>nul
exit
PC005        192.168.1.101        00-0f-ea-bc-61-da        A005
PC006        192.168.1.102        00-23-54-d3-ee-95        A006
PC007        192.168.1.103        00-e0-4c-46-c5-59        A007
PC008        192.168.1.104        00-22-15-b6-d0-3c        A008
PC009        192.168.1.106        00-25-11-c5-6d-d7        A009
PC010        192.168.1.107        6c-f0-49-c1-f7-80        A010
PC011        192.168.1.108        00-e0-4c-19-1a-ad        A011
PC012        192.168.1.109        00-1f-c6-a2-86-de        A012
PC013        192.168.1.110        00-23-54-d3-ee-98        A013
PC014        192.168.1.111        00-b0-c4-a1-f5-a0        A014
复制代码

[ 本帖最后由 hanyeguxing 于 2011-1-20 17:44 编辑 ]

lx427

我测试了一下，没有用啊

Batcher

把@echo off删掉，看看执行过程是哪里出错了。