title: vbscript replace text - one works two breaks the whole thing
body: <p>I want this script to replace two values in the same text file instead of one.  However, if I uncomment line 12, it breaks the script.  Do I have to make this into a loop, or can I do multiple replaces?</p>
  
  <pre><code>Sub ReplaceTxt()
  'Writes values we got earlier to our unattend file       '
  Const ForReading = 1
  Const ForWriting = 2
  
     Set objFSO = CreateObject("Scripting.FileSystemObject")
     Set objFile = objFSO.OpenTextFile(strSIFpath, ForReading)
  
     strText = objFile.ReadAll
     objFile.Close
     strNewText = Replace(strText, "***COMPNAME***", strCompname)
   '  strNewText = Replace(strText, "***Winkey***", strPoductkey)    '
  
     Set objFile = objFSO.OpenTextFile("C:\$WIN_NT$.~BT\winnt.sif", ForWriting)
     objFile.WriteLine strNewText
     objFile.Close
  End Sub
  </code></pre>