当前位置: 移动技术网 > IT编程>脚本编程>VBScript > 用vbs实现的确定共享文件夹的本地路径?

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

2017年12月12日  | 移动技术网IT编程  | 我要评论

课件ppt模板下载,97密桃,蔡铁刚

如何确定共享文件夹的本地路径?
问:
您好,脚本专家!如果有 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 路径并确定本地文件夹路径需要做的一切。

如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复

相关文章:

验证码:
移动技术网