用vbs实现的确定共享文件夹的本地路径？
网络编程
如何确定共享文件夹的本地路径？
问：
您好，脚本专家！如果有 UNC 路径（例如 \server1test），可以使用脚本确定共享文件夹（例如 C:ScriptsTest 文件夹）的本地路径吗？
-- JVK
答：
您好，JVK。是的，您说得没错
噢，对了；我们几乎忘了。您能使用脚本确定共享文件夹的本地路径吗？您当然可以（尽管我们不知道为什么在棒球赛季期间还有人有闲心做这些）。但如果这确实是您想要做的，那么这就告诉您该如何去做：
正如您所见，我们首先使用了一个典型 UNC 路径：\atl-fs-01public。顺便提一下，我们将该路径存储在名为 strPath 的变量中。有了这个路径名称之后，我们必须做两件事。首先，我们必须将计算机名称 (atl-fs-01) 与共享名称 (public) 分开。之后，我们必须连接到计算机 atl-fs-01，确定 public 文件夹的本地路径。那将会有多难？一点也不难。
特别是对于我们这些刚刚设法战胜了“无敌”对手的脚本编写者。我们还没说吧？最后得分是 4 比 2，尽管我们打得不那么好。肯定是教练非常好 …
让我们言归正传吧。首先，我们必须去掉 UNC 路径之前的 \。虽然还有其他若干方法，我们只需使用 Replace 函数将出现的每个 \ 替换为空内容：
strPath = Replace(strPath, "\", "")
执行这行代码后，变量 strPath 将等于 atl-fs-01public。这意味着，我们可以使用 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:ScriptsPublic
这就是您要获得一个 UNC 路径并确定本地文件夹路径需要做的一切。
问：
您好，脚本专家！如果有 UNC 路径（例如 \server1test），可以使用脚本确定共享文件夹（例如 C:ScriptsTest 文件夹）的本地路径吗？
-- JVK
答：
您好，JVK。是的，您说得没错
噢，对了；我们几乎忘了。您能使用脚本确定共享文件夹的本地路径吗？您当然可以（尽管我们不知道为什么在棒球赛季期间还有人有闲心做这些）。但如果这确实是您想要做的，那么这就告诉您该如何去做：
strPath = "\atl-fs-01public"
strPath = Replace(strPath, "\", "")
arrPath = Split(strPath, "")
strComputer = arrPath(0)
strShare = arrPath(1)
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_Share Where Name = '" & strShare & "'")
For Each objItem in colItems
Wscript.Echo objItem.Path
Next
正如您所见，我们首先使用了一个典型 UNC 路径：\atl-fs-01public。顺便提一下，我们将该路径存储在名为 strPath 的变量中。有了这个路径名称之后，我们必须做两件事。首先，我们必须将计算机名称 (atl-fs-01) 与共享名称 (public) 分开。之后，我们必须连接到计算机 atl-fs-01，确定 public 文件夹的本地路径。那将会有多难？一点也不难。
特别是对于我们这些刚刚设法战胜了“无敌”对手的脚本编写者。我们还没说吧？最后得分是 4 比 2，尽管我们打得不那么好。肯定是教练非常好 …
让我们言归正传吧。首先，我们必须去掉 UNC 路径之前的 \。虽然还有其他若干方法，我们只需使用 Replace 函数将出现的每个 \ 替换为空内容：
strPath = Replace(strPath, "\", "")
执行这行代码后，变量 strPath 将等于 atl-fs-01public。这意味着，我们可以使用 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:ScriptsPublic
这就是您要获得一个 UNC 路径并确定本地文件夹路径需要做的一切。
用vbs检索在运行对话框中键入的一系列命令的代码
问：您好，脚本专家！有时，我在运行对话框中键入了多个命令，随后想要对其进行检索。我知道我最近使用过的命令缓存在某个地方，因为当我开始
编写可以打开文本文件并打乱在该文件中所找到的单词顺序的vbs脚本
问：您好，脚本专家！我女儿有一种闪卡式程序，它能够获取文本文件中的单词列表。我如何编写一个脚本，使其能够打开该文件并自动打乱单词列表
在 HTA 中暂停脚本的方法
问：您好，脚本专家！如何在HTA中暂停脚本？--TJ答：您好，TJ。您知道，从古至今，人们已经花费了巨大的时间和精力来探索生命的意义。脚本专家却
编辑：一起学习网
标签：脚本,路径,共享文件夹,名称,变量