写入文件时出现“错误800A0005 - 无效的过程调用或参数”

Question

set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\output.txt", True)

Dim temp, key
temp = "mon pass"
key  = "qswx"
temp = Encrypt(temp,key)

Function encrypt(Str, key)
    ...
    ...
  Next
  encrypt = Newstr
End Function

objFile.WriteLine temp 'Error 800A0005 - Invalid procedure call or argument

上面的代码在最后一行中给出以下错误：

  

erreur 800a0005论证ou appel de procedure错误
  Microsoft VBScript错误'800a0005'
  无效的过程调用或参数

当我使用

时

WScript.Echo temp

效果很好。