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

 

:start
CLS
COLOR 2f
:: 使用COLOR命令對控制臺輸出顏色進行更改
mode con cols=56 lines=20
:: MODE語句為設(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ù)字，按回車繼續(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è)置中，請稍候
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è)置中，請稍候
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      '保持原來的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      '只修改第一個網(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
'機器名頭
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