Vbscript 打开并写入2个文件

我需要为打开一个文件创建一个脚本（

Server.txt

→ 设置所有服务器名称的内容）并使用服务器名称创建日志文件（例如：

Server1.txt

）。之后，我需要

WriteLine

在这个日志文件中检索脚本的结果注册表值

我有一个脚本用于检索所有注册表值，但我需要使用ServerName创建每个文件日志

我想在关闭一个文件之前不能使用两个

Opentextfile

我们能帮我吗

这是我用于测试的代码：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Servers.txt")
Do Until objFile.AtEndOfStream
    strComputer = objFile.ReadLine
Set objFile2 = objFSO.CreateTextFile(strComputer & ".txt",True)
set objHtml=objFSO.OpenTextFile(objFile2,8,true)
objHtml.WriteLine Now() & VbTab & RegResultQuery
objHtml.Close
Loop

---

您可以调用

OpenTextFile

两次，但是如果不先关闭同一个文件，就不能打开同一个文件两次。但据我所知，您不需要打开文件两次

CreateTextFile

已经返回了文件的句柄，因此您可以在整个循环中简单地使用

objFile2

。

读取引用：第一个参数应该是标识要打开的文件的字符串表达式，但是

objFile2

是以前使用

CreateTextFile

方法定义的文本流对象。请阅读并遵循如何创建一个！