1strInputFileName = Wscript.Arguments(0) 2strOutputFileName = Wscript.Arguments(1) 3strOldText = Wscript.Arguments(2) 4strNewText = Wscript.Arguments(3) 5 6Set objFSO = CreateObject("Scripting.FileSystemObject") 7Set objFile = objFSO.OpenTextFile(strInputFileName, 1) 8 9strText = objFile.ReadAll 10objFile.Close 11strNewText = Replace(strText, strOldText, strNewText) 12 13Set objFile = objFSO.OpenTextFile(strOutputFileName, 2, True) 14objFile.Write strNewText 15objFile.Close 16