利用vbs自动修改ip的代码

''/////主程序
dimmsginf,machname''定义变量:对话框，机器名
msginf=msgbox("生成注册表文件，是否继续?",65,"getreg")''信息提示
ifmsginf=1then''如果按确定，则

machname=inputon()''用函数inputon()分析

ifmachname<>"quit"then''如果返回值不等于"quit"，则
setreg(machname)''运行函数setreg()生成注册表ip.reg
endif
endif

''///生成计算机名
functioninputon()''函数inputon()
dimt''变量
whiletrue''循环直到退出函数
t=inputbox("按一下规则输入："&chr(13)&chr(13)&"第1位代表机房号"&chr(13)&"第2、3位代表机器号"&chr(13)&"教师机用00代表"&chr(13)&"如：123代表1号机房23号机"&chr(13)&"请确保输入正确！！","请输入3位机器标识！","")''输入机算机名，默认值为空
ift=""then''如果t等于空（按了取消键），则
inputon="quit"''返回值为"quit"
exitfunction''退出程序
endif
iflen(t)=3then''计算机号的长度为3位
ifCint(t)>=100andCint(t)<580then''验证
inputon=t''返回需要的计算机名
exitfunction
endif
endif
wend
endfunction

''///生成注册文件
subsetreg(t)''生成注册表,t为机器号
Dimfso,f1,f2,lt,rt''变量
dimipv,gateway,lan''ip，网关，工作组
lt=cint(left(t,1))''机号左1位数字值
rt=cint(right(t,2))''机号右两位数字值

iflt=1orlt=2then''判断网关
gateway="192.168.1.254"
else
gateway="192.168.3.254"
endif

iflt=1then''1号机房
lan="S01"
ipv="192.168.1."
ifrt=0then''教师机
ipv=ipv+"100"
else''学生机
ipv=ipv+Cstr(rt)
endif
endif

iflt=2then''2号机房
lan="S02"
ipv="192.168.1."
ifrt=0then''教师机
ipv=ipv+"200"
else''学生机
rt=rt+100
ipv=ipv+Cstr(rt)
endif
endif

iflt=3then''3号机房
lan="S03"
ipv="192.168.3."
ifrt=0then''教师机
ipv=ipv+"80"
else''学生机
ipv=ipv+Cstr(rt)
endif
endif

iflt=4then''4号机房
lan="S04"
ipv="192.168.3."
ifrt=0then''教师机
ipv=ipv+"160"
else''学生机
rt=rt+80
ipv=ipv+Cstr(rt)
endif
endif

iflt=5then''5号机房
lan="S05"
ipv="192.168.3."
ifrt=0then''教师机
ipv=ipv+"240"
else''学生机
rt=rt+160
ipv=ipv+Cstr(rt)
endif
endif


Setfso=CreateObject("Scripting.FileSystemObject")
iffso.fileexists("e:\ip.reg")then
setf2=fso.getfile("e:\ip.reg")
f2.delete
endif''如果存在ip.reg，先删了

setf1=fso.CreateTextFile("e:\ip.reg",True)''建立文件ip.cfg
''f1.WriteLine("REGEDIT4")''以下为生成注册表
f1.WriteLine("WindowsRegistryEditorVersion5.00")
f1.WriteBlankLines(1)
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName]")
f1.WriteLine(chr(34)&"ComputerName"&chr(34)&"="&chr(34)&t&chr(34))''计算机名
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]")
f1.WriteLine(chr(34)&"IPAddress"&chr(34)&"="&chr(34)&ipv&chr(34))''IP
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]")
f1.WriteLine(chr(34)&"DefaultGateway"&chr(34)&"="&chr(34)&gateway&chr(34))''网关
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]")
f1.WriteLine(chr(34)&"IPMask"&chr(34)&"="&chr(34)&"255.255.255.0"&chr(34))''子网掩码
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]")
f1.WriteLine(chr(34)&"Comment"&chr(34)&"="&chr(34)&t&chr(34))''计算机说明
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]")
f1.WriteLine(chr(34)&"ComputerName"&chr(34)&"="&chr(34)&t&chr(34))''计算机名
f1.WriteLine("[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]")
f1.Writeline(chr(34)&"Workgroup"&chr(34)&"="&chr(34)&lan&chr(34))''工作组
endsub