快速业务通道

用vbs读取远程计算机上的文本文件的代码

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
问:
您好,脚本专家!如何读取远程计算机上的文本文件?
--BM
答:
您好,BM。我们得承认:我们在利用您和您的问题来达成我们自己的邪恶目的。本周早些时候我们回答了有关如何读取一组文本文件最后一行的问题;在回答中,我们承诺将会说明如何使用FileSystemObject对远程计算机执行同样的功能。这并无恶意,只是为了维护本专栏的精神,除非有人提出有关对远程计算机上的文本文件进行处理的问题,我们是不会做出回答的。于是我们选择了您的问题。
因此,没错,我们在利用您。但如果往好处想,您的问题得到了回答。事实上,让我们先来看一看您的问题。
如您所知,FileSystemObject(用于读写文本文件的对象)的原本用于本地;而事实上,您读过的有关FileSystemObject的任何材料差不多都会煞费苦心地指出,不能对远程计算机使用该对象。尽管事实并非完全如此:那是因为FileSystemObject可以使用UNC路径。假定要读取的文件位于文件共享目录中(\\atl-fs-01\public\myfile.txt)。在这种情况下,打开和读取文本文件就像下面的代码那样简单:
复制代码 代码如下:

ConstForReading=1
SetobjFSO=CreateObject("Scripting.FileSystemObject")
SetobjTextFile=objFSO.OpenTextFile_
("\\atl-fs-01\public\myfile.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-01\C$\public\myfile.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&"\root\cimv2")
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-01\C$\Logs\MyFile.log
为构建该路径,我们会各使用一些WMI和硬编码:
strFilePath="\\"&strComputer&"\C$\Logs\"&_
objFile.FileName&"."&objFile.Extension
我们要做的是:
•以一对\开头:\\
•添加计算机名称:\\atl-fs-01
•添加一个\和管理共享路径C$\Logs\:\\atl-fs-01\C$\Logs\
•添加WMIFileName属性(只含文件名部分,不含文件扩展名):\\atl-fs-01\C$\Logs\MyFile
•在文件名和文件扩展名之间添加句点(因为句点不是WMIExtension属性的一部分):\\atl-fs-01\C$\Logs\MyFile.
•添加WMI属性Extension:\\atl-fs-01\C$\Logs\MyFile.log
这稍显复杂,但它构建了我们需要的UNC路径。而且,每次完成循环时它都会替换新的文件名和新的文件扩展名(计算机名称和文件夹路径从不改变)。于是,我们最终能够打开(并读取)远程文件夹中的每个文件。
顺便向BM表示感谢,感谢您让我们利用您的问题。我们欠您一个人情!

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号