：转载时请以超链接形式标明文章原始出处和作者信息及

通过脚本, 自动生成网络驱动器. 但是有时候也会遇到映射的文件夹的名称被修改了, 导致网络驱动器无法打开. 这该怎么办?

1. 自动生成网络驱动器, 这样的脚本很多,例举一个个人认为不错的,

Option Explicit
On Error Resume Next
   dim foldername,wshnetdisk,oshell,suser,onet,pop,wshshell
        foldername = "\\server\01-HR"
        set wshnetdisk = Wscript.CreateObject("Wscript.Network" )
        Set WshShell = Wscript.CreateObject("Wscript.Shell" )
        set onet = createobject("Wscript.Network" )
        set oshell = createobject("shell.application" )
            suser=onet.username
            WshNetdisk.MapNetworkDrive "Z:", foldername,true
            oshell.namespace("Z:\" ).self.name="xxx Share"
Wscript.quit

2. 文件夹名称修改了原来是"01-HR", 现在改成"01-HR&Admin", 用户大喊, 共享盘上不去了, IT回眸一笑, 分析如下,

如果单纯把以上的脚本foldername = "\\server\01-HR"修改为"01-HR&Admin", 是无法实现加载新脚本的目的的.

但是如果把WshNetdisk.MapNetworkDrive "Z:", foldername,true
             oshell.namespace("Z:\" ).self.name="xxx Share"

修改为: WshNetdisk.MapNetworkDrive "Y:", foldername,true
            oshell.namespace("Y:\" ).self.name="xxx Share"

这样就生成了一个新的网络驱动器Y, 与Z盘共存. 用户不会满意.

搜索再搜索!

路子有了, 删掉驱动器Z, 再生成驱动器Y. OK. 那就简单了,执行如下脚本,

{dy}步__________________

on Error resume Next
Set wshNetwork = WSCript.Createobject("WScript.Network")
   wshNetwork.RemoveNetworkdrive "Z:", True, True

第二步_________________

Option Explicit
On Error Resume Next
   dim foldername,wshnetdisk,oshell,suser,onet,pop,wshshell
        foldername = "\\server\01-HR&Admin"
        set wshnetdisk = Wscript.CreateObject("Wscript.Network" )
        Set WshShell = Wscript.CreateObject("Wscript.Shell" )
        set onet = createobject("Wscript.Network" )
        set oshell = createobject("shell.application" )
            suser=onet.username
            WshNetdisk.MapNetworkDrive "Y:", foldername,true
            oshell.namespace("Y:\" ).self.name="xxx Share"