服务器脚本修改,使用脚本自动修改ip设置

'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