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