设备需要借助VBS和超级终端烧写固件。
用到命令：setenv serverip 192.168.1.22    设置TFTP服务器地址，也就是电脑地址
           setenv ipaddr 192.168.1.33    设置要烧写固件的设备地址，程序就是从电脑下载到设备
            ping 192.168.1.22            查看设备和电脑之间网络是否畅通
本来用着挺好，电脑设置静态IP地址，但是老是IP地址冲突，只好自动获取IP地址.
自动获取ip地址就出问题了，每变更一次IP地址，我就就修改VBS文件。
所以请高手帮忙给编段代码，可以自动判断当前电脑IP地址，并将设备IP设置在同一网段。
谢谢！
谢谢！

Set WshShell = CreateObject("WScript.Shell")  
Dim CloseTime,i  
CloseTime = 3
For i = CloseTime To 1 Step - 1  
    WshShell.popup "当前时间为" & i,1,"计时",0
    Wscript.Sleep 1000  
next
'上段命令，开启后倒计时，时间为closetime的值。默认为零，不弹出倒计时窗口。'





dim ta,shell,j,showtime
showtime =1
'定义变量，赋值。 j，showtime，变量用于下面的提示框弹出函数。
set shell=wscript.createobject("wscript.shell")







shell.appactivate"115200"
shell.SendKeys "setenv serverip 192.168.1.224"
WScript.Sleep 400

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 600

shell.appactivate"115200"
shell.SendKeys "setenv ipaddr 192.168.1.225"
WScript.Sleep 500

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 600



shell.appactivate"115200"
shell.SendKeys "save"
WScript.Sleep 200

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 200

shell.appactivate"115200"
shell.SendKeys"protect off all"
WScript.Sleep 300

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 4600


shell.appactivate"115200"
shell.SendKeys"erase all"
WScript.Sleep 200

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 10000

shell.appactivate"115200"
MSGBOX("请务必在擦除完成后再点击确定")
shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 200

WScript.Sleep 500
shell.appactivate"115200"
shell.SendKeys "tftp 0x80000000 6004-sz.bin"
WScript.Sleep 100

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 5000

shell.appactivate"115200"
MSGBOX("请务必在写完后再点击确定")
WScript.Sleep 200

shell.appactivate"115200"
shell.SendKeys "re"
WScript.Sleep 200

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 1000
这是我现在使用的VBS文件，请高手帮忙处理下，非常感谢！

需要修改的地方就是IP地址
shell.appactivate"115200"
shell.SendKeys "setenv serverip 192.168.1.224"
WScript.Sleep 400

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 600

shell.appactivate"115200"
shell.SendKeys "setenv ipaddr 192.168.1.225"
WScript.Sleep 500

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 600

如果我换网段了，比如换成192.168.0.1网段了，上面需要改的地方就是192.168.0.225和192.168.0.224

这个VBS不是我写的，我不懂VBS啊，麻烦高手帮我搞定啊，谢谢

哇……你太帅了！！！
再来点修改，应该是我没表达清楚的原因。
不是设置了3个数组获取电脑的IP地址吗，你再增加一个数组，把那个224 去掉。那个192.168.0.224不是固定的，意思就是VBS文件在哪个电脑上运行，它就获取电脑的IP地址放在这一句上：“ shell.SendKeys "setenv serverip 192.168.1.224" ”。

例1：电脑A上运行VBS文件，A电脑的IP地址是：192.168.1.101，那么 那段代码就是：

shell.appactivate"115200"
shell.SendKeys "setenv serverip 192.168.1.101"
WScript.Sleep 400

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 600

shell.appactivate"115200"
shell.SendKeys "setenv ipaddr 192.168.1.(非101的值)"
WScript.Sleep 500

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 600

shell.appactivate"115200"
shell.SendKeys "ping 192.168.1.101"
WScript.Sleep 300

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 200

例2：电脑B上运行VBS文件，B电脑的IP地址是：10.52.1.22，那么 那段代码就是：

shell.appactivate"115200"
shell.SendKeys "setenv serverip 10.52.1.22"
WScript.Sleep 400

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 600

shell.appactivate"115200"
shell.SendKeys "setenv ipaddr 10.52.1.(非22的值)"
WScript.Sleep 500

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 600

shell.appactivate"115200"
shell.SendKeys "ping 10.52.1.22"
WScript.Sleep 300

shell.appactivate"115200"
shell.SendKeys "{ENTER}"
WScript.Sleep 200

麻烦版主lowxiong大人有时间的时候再帮我修改写，谢谢，哈哈！

太棒了！哈哈……非常非常的好，正是我想要的。太感谢你了！