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

On Error Resume Next
Set SF = CreateObject("Scripting.FileSystemobject")
Set WN = CreateObject("WScript.Network")
wscript.sleep 2500

sDrive="z:"

If SF.DriveExists(sDrive & "\") = True Then WN.RemoveNetworkDrive sDrive
WN.MapNetworkDrive sDrive,"\\datacenter\XXXX中心","XXXX中心"
WN.NameSpace(DrivesName).Self.Name = NewNetworkName


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

Set objNet = CreateObject("Wscript.Network")
Set objNetdrv = objnet.EnumNetworkDrives 

'删除所有映射网络驱动器
If SF.DriveExists(sDrive & "\") = True Then WN.RemoveNetworkDrive sDrive
 
'第二部分：等待第一部分删除所有映射网络驱动器完成，约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 "\\datacenter\XXXX中心","z:","XXXX中心"