用vbs實現的確定共享文件夾的本地路徑？

2019-10-26 17:58:56

字體：大中小

來源：轉載

供稿：網友

如何確定共享文件夾的本地路徑？
問：
您好，腳本專家！如果有 UNC 路徑（例如 //server1/test），可以使用腳本確定共享文件夾（例如 C:/Scripts/Test 文件夾）的本地路徑嗎？
-- JVK
答：
您好，JVK。是的，您說得沒錯
噢，對了；我們幾乎忘了。您能使用腳本確定共享文件夾的本地路徑嗎？您當然可以（盡管我們不知道為什么在棒球賽季期間還有人有閑心做這些）。但如果這確實是您想要做的，那么這就告訴您該如何去做：
復制代碼代碼如下:

strPath = "http://atl-fs-01/public"
strPath = Replace(strPath, "http://", "")
arrPath = Split(strPath, "/")
strComputer = arrPath(0)
strShare = arrPath(1)
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_Share Where Name = '" & strShare & "'")
For Each objItem in colItems
Wscript.Echo objItem.Path
Next

正如您所見，我們首先使用了一個典型 UNC 路徑：//atl-fs-01/public。順便提一下，我們將該路徑存儲在名為 strPath 的變量中。有了這個路徑名稱之后，我們必須做兩件事。首先，我們必須將計算機名稱 (atl-fs-01) 與共享名稱 (public) 分開。之后，我們必須連接到計算機 atl-fs-01，確定 public 文件夾的本地路徑。那將會有多難？一點也不難。
特別是對于我們這些剛剛設法戰勝了“無敵”對手的腳本編寫者。我們還沒說吧？最后得分是 4 比 2，盡管我們打得不那么好。肯定是教練非常好 …
讓我們言歸正傳吧。首先，我們必須去掉 UNC 路徑之前的 //。雖然還有其他若干方法，我們只需使用 Replace 函數將出現的每個 // 替換為空內容：
strPath = Replace(strPath, "http://", "")
執行這行代碼后，變量 strPath 將等于 atl-fs-01/public。這意味著，我們可以使用 Split 函數將此值分成數組：
arrPath = Split(strPath, "/")
根據 / 進行分離后，我們最終得到由兩項數據組成的數組：
? atl-fs-01
? public
不用說，這就是我們要找的兩條信息：計算機名稱和共享文件夾名稱。明確這一點后，我們將數組中的第一項（項 0）賦給名為 strComputer 的變量，將第二項（項 1）賦給名為 strShare 的變量：
strComputer = arrPath(0)

上一篇：vbs腳本病毒生成器下載

下一篇：用vbs讀取文本文件的最后一行