IpAuto 【 一个轻松设置上百台机子 ip 的脚本 】【ALLyeSNO】

 一般我们为企业 或者 网吧做网络工程的时候 最后ghost系统 以后就要设置ip

手工设置ip是很累得 且花时间 ，有人说，为什么不用dhcp自动分配啊，因为很多企业 和 网吧

要求对每台机进行编号 ，虽然dhcp是按顺序分配ip，但是你永远不知道分配的ip是不是对应位置编号

所以我就写了这个脚本来完成任务，只要事先在母盘 修改好 ip前三组 子网 网关 以及dns

剩下的最后一组ip 则只要按照提示输入即可 ，脚本设置完以后会重启 并删除源程序 不会对机子

造成任何安全上的问题 或者 故障

下面是源程序

@echo off
del/f pcrename.vbs>nul 2>nul
title IpAuto 1.0 BY allyesno http://blog.csdn.net/freexploit/
cls
echo 功能：自动设置子网，网关，DNS，计算机主机名
echo.
echo 例子 : 192.168.8.123,那么本地计算机号码则为123
echo.
set/p ip=请输入本地计算机号码 :
echo.
echo 正在设置ip,可能需要 5 分钟 请稍候......

::下面的子网/网关/ip 更改为本网吧的 ip/子网/网关

netsh int ip set add name="本地连接" static 192.168.5.%ip% 255.255.0.0 192.168.5.1 0
netsh int ip set add name="本地连接" static 192.168.5.%ip% 255.255.0.0 192.168.5.1 0
echo 设置ip完毕!
echo.
echo 正在设置DNS,请稍候.....

::下面的 DNS IP 请更改为本网吧的 DNS IP

netsh int ip set dns name="本地连接" source=static 202.103.176.22
netsh int ip add dns name="本地连接" 202.103.176.28 index=2
echo 设置DNS完毕!
echo.
echo 正在设置计算机名称,请稍后......

::修改计算机名称模块

echo set obj     = getobject( "winmgmts://./root/cimv2" )>pcrename.vbs
echo set list    = obj.execquery( "select * from win32_computersystem" )>>pcrename.vbs
echo for each x in list>>pcrename.vbs
echo     x.rename( wscript.arguments.item( 0 ) )>>pcrename.vbs
echo next>>pcrename.vbs

::下面的 公司编号 请修改为本网吧的计算机名字

cscript //nologo pcrename.vbs 公司编号%ip%
echo.
echo 设置计算机名称完毕!
echo.
echo 现在重启系统，让网卡设置生效
shutdown -r -f -t 10
del/f pcrename.vbs
del %0