vbs 读取远程计算机上文本文件的脚本
使用vbs脚本读取远程计算机上的文本文件，有需要的朋友可以参考下。
我们知道，在vbscript中，FileSystemObject（用于读写文本文件的对象）原本用于本地；不过，由于FileSystemObject 可以使用 UNC 路径。假设要读取的文件位于文件共享目录中 (\\atl-fs-01\public\myfile.txt)。在这种情况下，打开和读取文本文件就变得相当简单了：
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("\\atl-fs-01\public\myfile.txt", ForReading)
strContents = objTextFile.ReadAll
objTextFile.Close
Wscript.Echo strContents
先是定义一个名为 ForReading 的常量并将其值设置为 1。然后创建 FileSystemObject 引用，并调用 OpenTextFile 方法，传递两个参数：要操作的文件的 UNC 路径及常量 ForReading。此时已经可以对文件进行所需的任何操作：举一个操作文本文件的简单例子：调用 ReadAll 方法将文件的全部内容读入名为 strContents 的变量中。然后关闭文件并回显 strContents 的值。
只要待操作的文件位于共享文件夹中，这段代码便很有效。
但如果文件不在共享文件夹中，该怎么办呢？在这种情况下，就只能使用管理共享（如 C$）。即使尚未共享文件夹 C:\Public，以下脚本也能够读取文件 MyFile.txt：
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("\\atl-fs-01\C$\public\myfile.txt", ForReading)
strContents = objTextFile.ReadAll
objTextFile.Close
Wscript.Echo strContents
如果不使用管理共享，那多半没什么办法。（除非您真的要做出某些疯狂的举动，如使用 WSHController 对象。但那就要另当别论了。）
如何遍历远程文件夹中的所有文件并使用 FileSystemObject 打开和读取其中的每个文件？
Set objFSO = CreateObject("Scripting.FileSystemObject")
strComputer = "atl-fs-01"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='C:\Logs'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In colFileList
strFilePath = "\\" & strComputer & "\C$\Logs\" & _
objFile.FileName & "." & objFile.Extension
Set objTextFile = objFSO.OpenTextFile(strFilePath, ForReading)
strContents = objTextFile.ReadAll
Wscript.Echo strContents
objTextFile.Close
Next
这段代码的作用是连接到远程计算机 atl-fs-01，并检索文件夹 C:\Logs 中所有文件的集合。棘手之处是构建每个文件的路径，那是因为我们需要使用与以下类似的管理共享路径：
为构建该路径，我们会各使用一些 WMI 和硬编码：
objFile.FileName & "." & objFile.Extension
我们要做的是：
1、以一对 \ 开头： \\
2、添加计算机名称：\\atl-fs-01
3、添加一个 \ 和管理共享路径 C$\Logs\：\\atl-fs-01\C$\Logs\
4、添加 WMI FileName 属性（只含文件名部分，不含文件扩展名）：\\atl-fs-01\C$\Logs\MyFile
5、在文件名和文件扩展名之间添加句点（因为句点不是 WMI Extension 属性的一部分）：\\atl-fs-01\C$\Logs\MyFile.
6、添加 WMI 属性 Extension：\\atl-fs-01\C$\Logs\MyFile.log
虽然看起来略显复杂了，但它构建了我们需要的 UNC 路径。
而且，每次完成循环时它都会替换新的文件名和新的文件扩展名（计算机名称和文件夹路径从不改变）。
于是，我们最终能够打开（并读取）远程文件夹中的每个文件。
好了，有关如何用vbs读取远程计算机上文本文件的方法，就介绍到这里了，祝大家学习愉快。
您可能感兴趣的文章：
vbs 读取远程计算机上文本文件的脚本
VBS脚本运行库手册(9)-读取文本文件
VBS脚本运行库手册(1)-磁盘操作
VBS脚本运行库手册(11)-追加文本
VBS脚本运行库手册(5)-复制和移动文件
访问外部文本文件的vbs方法及例子
dos进程查看(tasklist)与停止命令(taskkill)
用vbs生成若干个随机数并写入txt文件中的代码
VBS脚本运行库手册(2)-管理文件夹
VBS 添加右键以计算文件MD5值的代码(图文)