On Error Resume Next
' Get essential objects
Set objNetwork = CreateObject("Wscript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")
Set oShell = CreateObject("Shell.Application")
strUserDN = objSysInfo.userName
' Bind to the user object.
Set objUser = GetObject("LDAP://" & strUserDN)
' Map user home directory.
strHomeShare = objUser.homeDirectory
strHomeDrive = objUser.homeDrive
objNetwork.MapNetworkDrive strHomeDrive, strHomeShare
' 删除原来的磁盘
objNetwork.RemoveNetworkDrive "Z:",true,true
' List all the other map drives
drv=array( _
        "O:", _
        "P", _
        "Q, _
        "R", _
        "S")
map=array( _
        " \\192.168.1.2\wjgx", _
        " \\MyServer\Share2", _
        " \\MyServer\Share3", _
        " \\MyServer\Share4", _
        " \\MyServer\Share5")
' Map other common directories
WScript.Echo drv.Count
Do until i = 5
     objNetwork.MapNetworkDrive drv(i), map(i)
     i = i + 1
loop
'Change UNC
     oShell.NameSpace("O:\").Self.Name="网络盘1"
     oShell.NameSpace("P:\").Self.Name="网络盘2"
     oShell.NameSpace("Q:\").Self.Name="网络盘3"
     oShell.NameSpace("R:\").Self.Name="网络盘4"
     oShell.NameSpace("S:\").Self.Name="网络盘5"