Q：
如何通过组策略映射网络驱动器并实现更名？

A：
最终角本如下所示：

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

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文件夹"