存为.vbs运行。以下代码查找server文件bg=开头的文本替换成bg=192.168.1.189
set fso=wscript.createobject("scripting.FileSystemobject")
set f=fso.opentextfile("server")
dim arr,s
arr=split(f.readall,vbCrlf)
for i=0 to ubound(arr)
if i>0 then s = s & vbcrlf
if Instr(arr(i),"bg=")>0 then '查找bg=开头的文本
s = s & "bg=192.168.1.189" '替换bg=开头的文本一行为bg=192.168.1.189
Else
s = s & arr(i)
End if
Next
f.close
set r=fso.opentextfile("server",2, true) '查找server文件
r.write s
Wscript.quit
