On Error Resume Next
' Get essential objects
Set objNetwork = CreateObject("Wscript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")
Set oShell = CreateObject("Shell.Application")
strUserDN = objSysInfo.userName
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)
Set objUser = GetObject("LDAP://" & strUserDN)
' Map user home directory.
strHomeShare = objUser.homeDirectory
strHomeDrive = objUser.homeDrive
objNetwork.MapNetworkDrive strHomeDrive, strHomeShare
strHomeShare = objUser.homeDirectory
strHomeDrive = objUser.homeDrive
objNetwork.MapNetworkDrive strHomeDrive, strHomeShare
' 删除原来的磁盘
objNetwork.RemoveNetworkDrive "Z:",true,true
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")
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"
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"
转载于:https://blog.51cto.com/48672/195868