VBS中如何替换文本文件中的部分字符？

例如文本文件中的字符为：****....11111
如何将上述文本中的“*”和“.“全部替换为0.求代码？？？

Set fso=Wscript.CreateObject("Scripting.FileSystemObject")

set f=fso.opentextfile("C:\test.txt")

s=replace(f.readall,"被替换的字符", "希望替换的字符")

f.close

set r=fso.opentextfile("C:\test.txt",2,true)

r.write s

Wscript.quit

该脚本是将C盘中的test.txt文件中的所有的被替换的字符替换为希望替换的字符