手机
当前位置:查字典教程网 >脚本专栏 >vbs >用vbs找到映射到共享的所有驱动器并重新映射它们
用vbs找到映射到共享的所有驱动器并重新映射它们
摘要:问:您好,脚本专家!如何找到映射到server1share的所有启动器,并将它们重新映射到server2share?--HT-S答:你好,H...

问:

您好,脚本专家!如何找到映射到server1share的所有启动器,并将它们重新映射到server2share?

--HT-S

答:

你好,HT-S。您知道,不久前MalcolmGladwell出版了一本书,书名为《TheTippingPoint》。简单来说,该书做出了一种假设:某一事物可能在很长一段时间内被忽略,但是当这种忽略至少达到所谓的引爆点时,这个原来无人问津的事物就会忽然变成一种名副其实的时尚。就好像一夜之间它就从一件您从未听说的事物变得似乎随处可见。

这是个有趣的假设,我们似乎在用于映射和取消映射网络驱动器的脚本上看到了这种现象。我们发布“您好,脚本专家!”专栏已经一年多了,而从未提及网络驱动器,并且似乎没有人注意这个问题。然后,突然之间,关于映射和取消映射网络驱动器的问题纷至沓来。我们在几周前回答了第一个这种问题,现在又来回答另一个问题,我们有一个收件箱全都是其他关于网络驱动器的问题。先是呼啦圈,然后是喇叭裤,现在轮到网络驱动器了。自己去想吧。

那么重新映射网络驱动器如何呢?嗯,不论是好是坏,并没有可以自动重新映射网络驱动器的方法;因此,我们不得不退而求其次找出其他解决方法。但这并不是太槽糕:我们可以找到符合条件的所有驱动器,取消映射这些驱动器,然后将每个驱动器重新映射到新的位置。

当然,这听起来挺复杂,但实际上很简单。以下脚本可用来查找映射到server1share的所有驱动器,并将这些驱动器重新映射到server2share:

SetobjNetwork=CreateObject("Wscript.Network")

SetcolDrives=objNetwork.EnumNetworkDrives

Fori=0tocolDrives.Count-1Step2

IfcolDrives.Item(i+1)="server1share"Then

strDriveLetter=colDrives.Item(i)

objNetwork.RemoveNetworkDrivestrDriveLetter

objNetwork.MapNetworkDrivestrDriveLetter,"server2share"

EndIf

Next

该脚本将首先创建Wscript.Network对象实例。我们应当注意到了,无论何时当我们要映射或取消映射网络驱动器时,都需要使用WindowsScriptHost,这是因为WMI没有任何映射或取消映射驱动器的方法。没关系,这只不过意味着我们的脚本必须在本地计算机上运行。通常情况下都不能针对远程计算机来使用WSH方法。这是一个您不得不面临的限制。(有一个方法可解决此问题:将该脚本作为登录脚本运行。登录脚本将始终在本地运行。)

创建Network对象之后,调用EnumNetworkDrives方法,以便返回计算机上的所有已映射网络驱动器的集合:

SetcolDrives=objNetwork.EnumNetworkDrives

这将使我们亲眼见到那个被称为已映射网络驱动器集合的奇特的小东西。今天我们就不详细介绍此集合的体系结构了,请参阅关于网络驱动器的上一个专栏。只需说明每个已映射的驱动器实际占用此集合中的两项:第一项为驱动器号,第二项为UNC路径。如果计算机上有三个已映射的驱动器,则集合内容将如下所示:

X:

server1share1

Y:

server2share2

Z:

server3share3

这就是我们必须使用看起来这么奇怪的ForNext循环来遍历集合的原因,此代码行使我们在集合中每隔一项就跳过一项,进而确保我们仅查看各个驱动器号项:

Fori=0tocolDrives.Count-1Step2

然后,对于每个驱动器号,我们需要确定相应的UNC路径是否为server1share1。请记住,如果查看集合中的0项(集合中的第一项的索引号为0),则看到的是驱动器号,相应的UNC路径将为该索引号(0)加1。因此,我们用如下代码来确定第一个驱动器是否正好被映射到server1share1:

IfcolDrives.Item(i+1)="server1share"Then

让我们假定就是这样。在这种情况下,我们需要获取驱动器号(0项),并将该值存储在名为strDriveLetter的变量中。然后,调用RemoveNetworkDrive方法来取消映射该驱动器,再调用MapNetworkDrive方法将同一驱动器号重新映射到新的共享:

objNetwork.MapNetworkDrivestrDriveLetter,"server2share"

不,这并不是所谓的“引爆点”,因为您刚刚推翻了试图遵循这一切的想法。我们知道是有点混乱,但这是由于已映射网络驱动器集合的特殊构造方式而造成的。如果这对于您没有任何意义,尽管忽略它好了,您应当看到事情整体上是有逻辑性的。也许,是有点混乱的逻辑,但仍然是逻辑。

因为这一点比较费解,所以我们举了一个最简单的例子:将名为server1share的共享重新映射到名为server2share的共享。当然还可以将server1上的任何共享重新映射到server2上任何名称相似的共享。但是这对于今天来说可能有点过多了。但是,如果您感兴趣,只需要让我们知道,我们会在不久以后重新关注此主题。

【用vbs找到映射到共享的所有驱动器并重新映射它们】相关文章:

用vbs确定用户的登录名的代码

使用 iisweb.vbs 列出网站的方法

用vbs记录屏幕保护程序的开始时间和结束时间

用vbs得到计算机的 IP 地址

用VBS脚本删除指定以外的文件或文件夹

使用vbs脚本定时删除N天前的文件

一个用vbs查找硬盘所有分区中的指定程序的代码

用vbs实现注册表开关的脚本

vbs 查找硬盘分区中指定扩展名文件的实现代码

使用 iisweb.vbs 删除网站的方法(支持批量删除)

精品推荐
分类导航