错误800A01A8需要对象;我有一个字符串

Question

在此VBScript代码Set dataRequest = objStream.ReadText的末尾出现错误

  

需要对象'[string：“＆lt; STATUS＆gt;＆lt; IP＆gt;”]'
  代码800A01A8

我不知道如何告诉dataRequest是一个字符串。

Dim dataRequest
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\status.xml", 1)
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 2
objStream.CharSet = "ASCII"
objStream.Open
objStream.WriteText objFile.ReadAll
objStream.Position = 0
Set dataRequest = objStream.ReadText