@Echo Off
TITLE  武林網(wǎng)ip設(shè)置器

:start
CLS
COLOR 2f
:: 使用COLOR命令對(duì)控制臺(tái)輸出顏色進(jìn)行更改
mode con cols=56 lines=20
:: MODE語(yǔ)句為設(shè)定窗體的寬和高
: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= 輸入數(shù)字，按回車(chē)?yán)^續(xù) :
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 正在設(shè)置中，請(qǐng)稍候
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 設(shè)置成功 192.168.0.99
PAUSE >nul
Goto sc_main
:sc_ip1
cls
echo 正在設(shè)置中，請(qǐng)稍候
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 設(shè)置成功 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      '保持原來(lái)的ip，如果需要修改ip為192.168.0.200：strIPAddress = Array("192.168.0.200")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.254")     '修改網(wǎng)關(guān)為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      '只修改第一個(gè)網(wǎng)卡的設(shè)置
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
'機(jī)器名頭
head="B"
'ip頭
iphead="192.168.131"
ipgate="192.168.131"

dim i
i=inputbox("輸入機(jī)器序號(hào)(2-254)")
if i="" then
msgbox "Error: 序號(hào)不正確！"
else
dim shell
set shell = CreateObject("WScript.Shell")

'修改計(jì)算機(jī)名
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