#file.vbs
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set f=fso.opentextfile("d:\11.txt")
s=replace(f.readall,"192.168.1.1","www.baidu.com")'
f.close
set r=fso.opentextfile("d:\11.txt",2,true)
r.write s
Wscript.quit

05-28 12:01