@Echo Off TITLE  编程素材网ip设置器 :start CLS COLOR 2f :: 使用COLOR命令对控制台输出颜色进行更改 mode con cols=56 lines=20 :: MODE语句为设定窗体的宽和高 :sc_main echo       ------------------------------------------- echo.&echo. echo             0.192.168.0.99 & echo. echo             1.192.168.1.99 & echo. echo             q.退出 & echo.&echo.&echo.&echo.&echo.&echo. set "select=" set/p select= 输入数字，按回车继续 : if "%select%"=="0" (goto sc_ip0) if "%select%"=="1" (goto sc_ip1) if "%select%"=="Q" (goto sc_exit) :sc_exit exit goto :eof :sc_ip0 cls echo 正在设置中，请稍候 Netsh interface IP Set Address "本地连接" Static 192.168.0.99 255.255.255.0 192.168.0.1 1 Netsh interface IP set dns "本地连接" static 192.168.0.1 primary echo 设置成功 192.168.0.99 PAUSE >nul Goto sc_main :sc_ip1 cls echo 正在设置中，请稍候 Netsh interface IP Set Address "本地连接" Static 192.168.1.99 255.255.255.0 192.168.1.1 1 Netsh interface IP set dns "本地连接" static 192.168.1.1 primary echo 设置成功 192.168.1.99 PAUSE >nul Goto sc_main

changeip.vbsstrComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _     ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter in colNetAdapters sip=objNetAdapter.IPAddress strIPAddress = sip      '保持原来的ip，如果需要修改ip为192.168.0.200：strIPAddress = Array("192.168.0.200") strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.0.254")     '修改网关为192.168.0.254 strGatewayMetric = Array(1)     errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)     errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)     If errEnable = 0 Then         WScript.Echo "The IP address has been changed."     Else         WScript.Echo "The IP address could not be changed."     End If     exit for      '只修改第一个网卡的设置 Next

'VBS修改IP function transh(s) if isnumeric(s) then if len(s)=1 then    transh="00" & s elseif len(s)=2 then    transh="0" & s elseif len(s)=3 then    transh=s end if else    transh="" end if end function dim head '机器名头 head="B" 'ip头 iphead="192.168.131" ipgate="192.168.131" dim i i=inputbox("输入机器序号(2-254)") if i="" then msgbox "Error: 序号不正确！" else dim shell set shell = CreateObject("WScript.Shell") '修改计算机名 shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", head & transh(i) ,"REG_SZ" shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", head & transh(i) ,"REG_SZ" shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", head & transh(i) ,"REG_SZ" '修改IP shell.run "netsh interface ip set address 本地连接 static " & iphead & "." & i & " 255.255.255.0 " & ipgate & ".252 1" 'msgbox "OK"         shell.run "netsh interface ip set address 本地连接 static " & iphead & "." & i & " 255.255.255.0 " & ipgate & ".252 1" 'msgbox "OK"         shell.run "netsh interface ip set address 本地连接 static " & iphead & "." & i & " 255.255.255.0 " & ipgate & ".252 1" 'msgbox "OK" end if