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 ":","公司文件夹"
NetworkDrivesName "文件夹"
所图所示效果
