On Error Resume Next
Dim objSysInfo
Dim objNetwork
Dim ObjFSO
Dim oShell
WScript.Sleep 5000
Set objSysInfo = Wscript.CreateObject(“ADSystemInfo”)
Set objNetwork = Wscript.CreateObject(“Wscript.Network”)
Set oShell = Wscript.CreateObject(“Shell.Application”)
Set ObjFSO = Wscript.CreateObject(“Scripting.FileSystemObject”)
strUserPath = “LDAP://” & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
For Each strGroup in objUser.MemberOf
strGroupPath = “LDAP://” & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
Select Case strGroupName
‘判断用户所属组
Case “FIN_ALL”
‘判断盘符是否存在，若存在则断开
If(ObjFSO.DriveExists(“S:”))then
objNetwork.RemoveNetworkDrive”S:”,true
End If
WScript.Sleep 1000
‘添加网络磁盘
objNetwork.MapNetworkDrive “S:”, “contosofsdepartmentfin”
WScript.Sleep 1000
‘更名网络磁盘
oShell.NameSpace(“S:”).Self.Name = “Department”
Case “GM_ALL”
If(ObjFSO.DriveExists(“S:”))then
objNetwork.RemoveNetworkDrive”S:”,true
End If
WScript.Sleep 1000
objNetwork.MapNetworkDrive “S:”, “contosofsdepartmentceo”
WScript.Sleep 1000
oShell.NameSpace(“S:”).Self.Name = “Department”
Case “IT_ALL”
If(ObjFSO.DriveExists(“S:”))then
objNetwork.RemoveNetworkDrive”S:”,true
End If
WScript.Sleep 1000
objNetwork.MapNetworkDrive “S:”, “contosofsdepartmentIS&T”
WScript.Sleep 1000
oShell.NameSpace(“S:”).Self.Name = “Department”
End Select
‘添加通用磁盘
Next
‘判断盘符是否存在，若存在则断开
If(ObjFSO.DriveExists(“X:”))then
objNetwork.RemoveNetworkDrive”X:”,true
End If
WScript.Sleep 1000
objNetwork.MapNetworkDrive “X:”, “contosofstransfer”
WScript.Sleep 1000
oShell.NameSpace(“X:”).Self.Name = “Transfer”
癹冬阁版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权 , 转载请注明AD 域环境下映射网络磁盘 VBS 脚本！
