vbs 读取远程计算机上文本文件的脚本

发布时间:2020-07-23编辑:脚本学堂
使用vbs脚本读取远程计算机上的文本文件,有需要的朋友可以参考下。

使用vbs脚本读取远程计算机上的文本文件,有需要的朋友可以参考下。

我们知道,在vbscript中,FileSystemObject(用于读写文本文件的对象)原本用于本地;不过,由于FileSystemObject 可以使用 UNC 路径。假设要读取的文件位于文件共享目录中 (atl-fs-01publicmyfile.txt)。在这种情况下,打开和读取文本文件就变得相当简单了:
 

复制代码 代码示例:
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("atl-fs-01publicmyfile.txt", ForReading)
strContents = objTextFile.ReadAll
objTextFile.Close
Wscript.Echo strContents

先是定义一个名为 ForReading 的常量并将其值设置为 1。然后创建 FileSystemObject 引用,并调用 OpenTextFile 方法,传递两个参数:要操作的文件的 UNC 路径及常量 ForReading。此时已经可以对文件进行所需的任何操作:举一个操作文本文件的简单例子:调用 ReadAll 方法将文件的全部内容读入名为 strContents 的变量中。然后关闭文件并回显 strContents 的值。
只要待操作的文件位于共享文件夹中,这段代码便很有效。
但如果文件不在共享文件夹中,该怎么办呢?在这种情况下,就只能使用管理共享(如 C$)。即使尚未共享文件夹 C:Public,以下脚本也能够读取文件 MyFile.txt:
 

复制代码 代码示例:
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("atl-fs-01C$publicmyfile.txt", ForReading)
strContents = objTextFile.ReadAll
objTextFile.Close
Wscript.Echo strContents

如果不使用管理共享,那多半没什么办法。(除非您真的要做出某些疯狂的举动,如使用 WSHController 对象。但那就要另当别论了。)
如何遍历远程文件夹中的所有文件并使用 FileSystemObject 打开和读取其中的每个文件?
 

复制代码 代码示例:
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
strComputer = "atl-fs-01"
Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")
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 中所有文件的集合。棘手之处是构建每个文件的路径,那是因为我们需要使用与以下类似的管理共享路径:
 

复制代码 代码示例:
atl-fs-01C$LogsMyFile.log
 

为构建该路径,我们会各使用一些 WMI 和硬编码:
 

复制代码 代码示例:
strFilePath = "" & strComputer & "C$Logs" & _
objFile.FileName & "." & objFile.Extension
 

我们要做的是:
1、以一对 开头:
2、添加计算机名称:atl-fs-01
3、添加一个 和管理共享路径 C$Logs:atl-fs-01C$Logs
4、添加 WMI FileName 属性(只含文件名部分,不含文件扩展名):atl-fs-01C$LogsMyFile
5、在文件名和文件扩展名之间添加句点(因为句点不是 WMI Extension 属性的一部分):atl-fs-01C$LogsMyFile.
6、添加 WMI 属性 Extension:atl-fs-01C$LogsMyFile.log
虽然看起来略显复杂了,但它构建了我们需要的 UNC 路径。
而且,每次完成循环时它都会替换新的文件名和新的文件扩展名(计算机名称和文件夹路径从不改变)。
于是,我们最终能够打开(并读取)远程文件夹中的每个文件。

好了,有关如何用vbs读取远程计算机上文本文件的方法,就介绍到这里了,祝大家学习愉快。