问：
您好，脚本专家！如何读取远程计算机上的文本文件？
--BM
答：
您好，BM。我们得承认：我们在利用您和您的问题来达成我们自己的邪恶目的。本周早些时候我们回答了有关如何读取一组文本文件最后一行的问题；在回答中，我们承诺将会说明如何使用FileSystemObject对远程计算机执行同样的功能。这并无恶意，只是为了维护本专栏的精神，除非有人提出有关对远程计算机上的文本文件进行处理的问题，我们是不会做出回答的。于是我们选择了您的问题。
因此，没错，我们在利用您。但如果往好处想，您的问题得到了回答。事实上，让我们先来看一看您的问题。
如您所知，FileSystemObject（用于读写文本文件的对象）的原本用于本地；而事实上，您读过的有关FileSystemObject的任何材料差不多都会煞费苦心地指出，不能对远程计算机使用该对象。尽管事实并非完全如此：那是因为FileSystemObject可以使用UNC路径。假定要读取的文件位于文件共享目录中(atl-fs-01publicmyfile.txt)。在这种情况下，打开和读取文本文件就像下面的代码那样简单：
复制代码 代码如下:
ConstForReading=1
SetobjFSO=CreateObject("Scripting.FileSystemObject")
SetobjTextFile=objFSO.OpenTextFile_
("atl-fs-01publicmyfile.txt",ForReading)
strContents=objTextFile.ReadAll
objTextFile.Close
Wscript.EchostrContents
如您所看到的，我们先是定义一个名为ForReading的常量并将其值设置为1。然后创建FileSystemObject引用，并调用OpenTextFile方法，传递两个参数：要操作的文件的UNC路径及常量ForReading。此时我们已经可以对文件进行所需的任何操作：给您举一个操作文本文件的简单例子：调用ReadAll方法将文件的全部内容读入名为strContents的变量中。然后关闭文件并回显strContents的值，就是这样。
目前，只要待操作的文件位于共享文件夹中，这段代码便很有效。但如果文件不在共享文件夹中，该怎么办呢？在这种情况下，就只能使用管理共享（如C$）。即使尚未共享文件夹C:Public，以下脚本也能够读取文件MyFile.txt：
复制代码 代码如下:
ConstForReading=1
SetobjFSO=CreateObject("Scripting.FileSystemObject")
SetobjTextFile=objFSO.OpenTextFile_
("atl-fs-01C$publicmyfile.txt",ForReading)
strContents=objTextFile.ReadAll
objTextFile.Close
Wscript.EchostrContents
如果不使用管理共享，那多半没什么办法。（除非您真的要做出某些疯狂的举动，如使用WSHController对象。但那就要另当别论了。）
而这便引出了我们的不可告人目的：如何遍历远程文件夹中的所有文件并使用FileSystemObject打开和读取其中的每个文件？嗯，请看下面这种方法：
复制代码 代码如下:
ConstForReading=1
SetobjFSO=CreateObject("Scripting.FileSystemObject")
strComputer="atl-fs-01"
SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")
SetcolFileList=objWMIService.ExecQuery_
("ASSOCIATORSOF{Win32_Directory.Name='C:Logs'}Where"_
&"ResultClass=CIM_DataFile")
ForEachobjFileIncolFileList
strFilePath=""&strComputer&"C$Logs"&_
objFile.FileName&"."&objFile.Extension
SetobjTextFile=objFSO.OpenTextFile(strFilePath,ForReading)
strContents=objTextFile.ReadAll
Wscript.EchostrContents
objTextFile.Close
Next
这段代码的作用是连接到远程计算机atl-fs-01，并检索文件夹C:Logs中所有文件的集合。棘手之处是构建每个文件的路径，那是因为我们需要使用与以下类似的管理共享路径：
atl-fs-01C$LogsMyFile.log
为构建该路径，我们会各使用一些WMI和硬编码：
strFilePath=""&strComputer&"C$Logs"&_
objFile.FileName&"."&objFile.Extension
我们要做的是：
•以一对开头：
•添加计算机名称：atl-fs-01
•添加一个和管理共享路径C$Logs：atl-fs-01C$Logs
•添加WMIFileName属性（只含文件名部分，不含文件扩展名）：atl-fs-01C$LogsMyFile
•在文件名和文件扩展名之间添加句点（因为句点不是WMIExtension属性的一部分）：atl-fs-01C$LogsMyFile.
•添加WMI属性Extension：atl-fs-01C$LogsMyFile.log
这稍显复杂，但它构建了我们需要的UNC路径。而且，每次完成循环时它都会替换新的文件名和新的文件扩展名（计算机名称和文件夹路径从不改变）。于是，我们最终能够打开（并读取）远程文件夹中的每个文件。
顺便向BM表示感谢，感谢您让我们利用您的问题。我们欠您一个人情！
【用vbs读取远程计算机上的文本文件的代码】相关文章：