手机
当前位置:查字典教程网 >脚本专栏 >vbs >用vbs实现的确定共享文件夹的本地路径?
用vbs实现的确定共享文件夹的本地路径?
摘要:如何确定共享文件夹的本地路径?问:您好,脚本专家!如果有UNC路径(例如server1test),可以使用脚本确定共享文件夹(例如C:Scr...

如何确定共享文件夹的本地路径?

问:

您好,脚本专家!如果有UNC路径(例如server1test),可以使用脚本确定共享文件夹(例如C:ScriptsTest文件夹)的本地路径吗?

--JVK

答:

您好,JVK。是的,您说得没错

噢,对了;我们几乎忘了。您能使用脚本确定共享文件夹的本地路径吗?您当然可以(尽管我们不知道为什么在棒球赛季期间还有人有闲心做这些)。但如果这确实是您想要做的,那么这就告诉您该如何去做:

复制代码 代码如下:

strPath="atl-fs-01public"

strPath=Replace(strPath,"","")

arrPath=Split(strPath,"")

strComputer=arrPath(0)

strShare=arrPath(1)

SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")

SetcolItems=objWMIService.ExecQuery_

("Select*FromWin32_ShareWhereName='"&strShare&"'")

ForEachobjItemincolItems

Wscript.EchoobjItem.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方法检索该计算机上的所有共享文件夹的集合:

SetcolItems=objWMIService.ExecQuery_

("Select*FromWin32_ShareWhereName='"&strShare&"'")

好主意:我们没有获得所有共享文件夹,对吗?相反,我们只获得了Name属性等于strShare变量的值的那些共享文件夹。(在您打一会盹的功夫,strShare等于public,也就是我们所要的共享文件夹名称。)接下来要做的就是建立一个ForEach循环来遍历集合(因为在一台计算机上的共享文件夹名称必须唯一,所以该集合中将只有一项),然后回显Path属性的值。您可能已经猜到了,Path属性告诉我们atl-fs-01上的文件夹的本地路径:

D:ScriptsPublic

这就是您要获得一个UNC路径并确定本地文件夹路径需要做的一切。

【用vbs实现的确定共享文件夹的本地路径?】相关文章:

用vbs实现定时运行web文件的方法

用vbs实现枚举网络连接的代码

多进程的实现投票的vbs脚本

用VBScript实现压缩目录中的所有文件(Zip)

使用vbs下载文件的代码加强版

用vbs从本地 Administrators 组中删除组

用vbs实现禁用服务

用vbs读取Excel文件的函数代码

用vbs实现判断计算机是笔记本还是台式机的代码

用VBScript写合并文本文件的脚本

精品推荐
分类导航