通过组策略映射网络驱动器并实现更名

最终的脚本如下所示：

 

'第一部分：删除所有映射网络驱动器 

 

Set objNet = CreateObject("Wscript.Network")

Set objNetdrv = objnet.EnumNetworkDrives 

'删除所有映射网络驱动器

For i = 0 to objNetdrv.Count - 1 Step 2

    objnet.RemoveNetworkDrive objNetdrv.Item(i),True,True

Next

 

'第二部分：等待第一部分删除所有映射网络驱动器完成，约1秒钟

 

WScript.Sleep 1000

 

'第三部分：映射并重命名网络驱动器 

 

 

'  映射过程    映射路径         映射盘符名     新的映射名称
Private Function NetworkDrivesName(NetworkPath, DrivesName, NewNetworkName) 

    Set objNetwork = CreateObject("Wscript.Network")

    Set objShell = CreateObject("Shell.Application")

    Set colDrives = objNetwork.EnumNetworkDrives

 

    '映射网络驱动器

    objNetwork.MapNetworkDrive DrivesName, NetworkPath

 

    '重新命名       

    objShell.NameSpace(DrivesName).Self.Name = NewNetworkName

 

End Function

 

NetworkDrivesName "\\server\CorpFS","z:","公司文件夹"

NetworkDrivesName "\\Server\Contoso","y:","Test文件夹"

所图所示效果：