@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