欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

歡迎來到入門教程網(wǎng)!

vb

當(dāng)前位置:主頁 > 軟件編程 > vb >

用vbs讀取遠(yuǎn)程計算機(jī)上的文本文件的代碼

來源:本站原創(chuàng)|時間:2020-01-10|欄目:vb|點擊: 次

問:
您好,腳本專家!如何讀取遠(yuǎn)程計算機(jī)上的文本文件?
-- BM
答:
您好,BM。我們得承認(rèn):我們在利用您和您的問題來達(dá)成我們自己的邪惡目的。本周早些時候我們回答了有關(guān)如何讀取一組文本文件最后一行的問題;在回答中,我們承諾將會說明如何使用 FileSystemObject 對遠(yuǎn)程計算機(jī)執(zhí)行同樣的功能。這并無惡意,只是為了維護(hù)本專欄的精神,除非有人提出有關(guān)對遠(yuǎn)程計算機(jī)上的文本文件進(jìn)行處理的問題,我們是不會做出回答的。于是我們選擇了您的問題。
因此,沒錯,我們在利用您。但如果往好處想,您的問題得到了回答。事實上,讓我們先來看一看您的問題。
如您所知,F(xiàn)ileSystemObject(用于讀寫文本文件的對象)的原本用于本地;而事實上,您讀過的有關(guān) FileSystemObject 的任何材料差不多都會煞費苦心地指出,不能對遠(yuǎn)程計算機(jī)使用該對象。盡管事實并非完全如此:那是因為 FileSystemObject 可以使用 UNC 路徑。假定要讀取的文件位于文件共享目錄中 (\\atl-fs-01\public\myfile.txt)。在這種情況下,打開和讀取文本文件就像下面的代碼那樣簡單:

復(fù)制代碼 代碼如下:

Const ForReading = 1 
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 的常量并將其值設(shè)置為 1。然后創(chuàng)建 FileSystemObject 引用,并調(diào)用 OpenTextFile 方法,傳遞兩個參數(shù):要操作的文件的 UNC 路徑及常量 ForReading。此時我們已經(jīng)可以對文件進(jìn)行所需的任何操作:給您舉一個操作文本文件的簡單例子:調(diào)用 ReadAll 方法將文件的全部內(nèi)容讀入名為 strContents 的變量中。然后關(guān)閉文件并回顯 strContents 的值,就是這樣。
目前,只要待操作的文件位于共享文件夾中,這段代碼便很有效。但如果文件不在共享文件夾中,該怎么辦呢?在這種情況下,就只能使用管理共享(如 C$)。即使尚未共享文件夾 C:\Public,以下腳本也能夠讀取文件 MyFile.txt:
復(fù)制代碼 代碼如下:

Const ForReading = 1 
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 對象。但那就要另當(dāng)別論了。)
而這便引出了我們的不可告人目的:如何遍歷遠(yuǎn)程文件夾中的所有文件并使用 FileSystemObject 打開和讀取其中的每個文件?嗯,請看下面這種方法:
復(fù)制代碼 代碼如下:

Const ForReading = 1 
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 

這段代碼的作用是連接到遠(yuǎn)程計算機(jī) atl-fs-01,并檢索文件夾 C:\Logs 中所有文件的集合。棘手之處是構(gòu)建每個文件的路徑,那是因為我們需要使用與以下類似的管理共享路徑:
\\atl-fs-01\C$\Logs\MyFile.log
為構(gòu)建該路徑,我們會各使用一些 WMI 和硬編碼:
strFilePath = "\\" & strComputer & "\C$\Logs\" & _
    objFile.FileName & "." & objFile.Extension
我們要做的是:
• 以一對 \ 開頭: \\
• 添加計算機(jī)名稱:\\atl-fs-01
• 添加一個 \ 和管理共享路徑 C$\Logs\:\\atl-fs-01\C$\Logs\
• 添加 WMI FileName 屬性(只含文件名部分,不含文件擴(kuò)展名):\\atl-fs-01\C$\Logs\MyFile
• 在文件名和文件擴(kuò)展名之間添加句點(因為句點不是 WMI Extension 屬性的一部分):\\atl-fs-01\C$\Logs\MyFile.
• 添加 WMI 屬性 Extension:\\atl-fs-01\C$\Logs\MyFile.log
這稍顯復(fù)雜,但它構(gòu)建了我們需要的 UNC 路徑。而且,每次完成循環(huán)時它都會替換新的文件名和新的文件擴(kuò)展名(計算機(jī)名稱和文件夾路徑從不改變)。于是,我們最終能夠打開(并讀?。┻h(yuǎn)程文件夾中的每個文件。
順便向 BM 表示感謝,感謝您讓我們利用您的問題。我們欠您一個人情!

上一篇:用vbs 實現(xiàn)從剪貼板中抓取一個 URL 然后在瀏覽器中打開該 Web 站點

欄    目:vb

下一篇:用vbs確定用戶的登錄名的代碼

本文標(biāo)題:用vbs讀取遠(yuǎn)程計算機(jī)上的文本文件的代碼

本文地址:http://mengdiqiu.com.cn/a1/vb/7867.html

網(wǎng)頁制作CMS教程網(wǎng)絡(luò)編程軟件編程腳本語言數(shù)據(jù)庫服務(wù)器

如果侵犯了您的權(quán)利,請與我們聯(lián)系,我們將在24小時內(nèi)進(jìn)行處理、任何非本站因素導(dǎo)致的法律后果,本站均不負(fù)任何責(zé)任。

聯(lián)系QQ:835971066 | 郵箱:835971066#qq.com(#換成@)

Copyright © 2002-2020 腳本教程網(wǎng) 版權(quán)所有