用vbs实现的确定共享文件夹的本地路径？

如何确定共享文件夹的本地路径？
问：
您好，脚本专家！如果有 unc 路径（例如 \\server1\test），可以使用脚本确定共享文件夹（例如 c:\scripts\test 文件夹）的本地路径吗？
-- jvk
答：
您好，jvk。是的，您说得没错
噢，对了；我们几乎忘了。您能使用脚本确定共享文件夹的本地路径吗？您当然可以（尽管我们不知道为什么在棒球赛季期间还有人有闲心做这些）。但如果这确实是您想要做的，那么这就告诉您该如何去做：

strpath = "\\atl-fs-01\public" 
strpath = replace(strpath, "\\", "") 
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, "\\", "")
执行这行代码后，变量 strpath 将等于 atl-fs-01\public。这意味着，我们可以使用 split 函数将此值分成数组：
arrpath = split(strpath, "\")
根据 \ 进行分离后，我们最终得到由两项数据组成的数组：
? atl-fs-01
? public
不用说，这就是我们要找的两条信息：计算机名称和共享文件夹名称。明确这一点后，我们将数组中的第一项（项 0）赋给名为 strcomputer 的变量，将第二项（项 1）赋给名为 strshare 的变量：
strcomputer = arrpath(0)
strshare = arrpath(1)
那么，现在我们是不是到了比较困难的部分？不管您相信与否，这正是比较困难的部分；在这以后，我们只需使用标准的 wmi 脚本。我们首先连接到远程计算机上的 wmi 服务。（哪个远程计算机？就是 atl-fs-01，该计算机的名称存储在名为 strcomputer 的变量中。）然后，我们使用 execquery 方法检索该计算机上的所有共享文件夹的集合：
set colitems = objwmiservice.execquery _
    ("select * from win32_share where name = '" & strshare & "'")
好主意：我们没有获得所有共享文件夹，对吗？相反，我们只获得了 name 属性等于 strshare 变量的值的那些共享文件夹。（在您打一会盹的功夫，strshare 等于 public，也就是我们所要的共享文件夹名称。）接下来要做的就是建立一个 for each 循环来遍历集合（因为在一台计算机上的共享文件夹名称必须唯一，所以该集合中将只有一项），然后回显 path 属性的值。您可能已经猜到了，path 属性告诉我们 atl-fs-01 上的文件夹的本地路径：
d:\scripts\public
这就是您要获得一个 unc 路径并确定本地文件夹路径需要做的一切。