如何映射基于用户所在组的网络驱动器

1、On Error Resume Next

 

Set objSysInfo = CreateObject("ADSystemInfo")

 

Set objNetwork = CreateObject("Wscript.Network")

 

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 "Finance Users"

objNetwork.MapNetworkDrive "X:", " \\atl-fs-01\finance " ,true

 

Case "Human Resource Users"

objNetwork.MapNetworkDrive "X:", " \\atl-fs-01\hr "  ,true

 Case "Manufacturing Users"

objNetwork.MapNetworkDrive "X:", " \\atl-fs-01\manufacturing " ,true

 

Case "Shipping and Receiving Users"

objNetwork.MapNetworkDrive "X:", " \\atl-fs-01\shipping "  ,true

 

End  Select

 

Next

 

2、

On Error Resume Next

 

Dim objNetwork

Dim ObjFSO

Dim strUserPath

Dim strUserName

Dim oShell

Dim strDriveLetter1,strDriveLetter2,strDriveLetter3,strDriveLetter4,strDriveLetter5

Dim strRemotePath1,strRemotePath2,strRemotePath3,strRemotePath4,strRemotePath5

 

Set objSysInfo = CreateObject("ADSystemInfo")

Set objNetwork = CreateObject("Wscript.Network")

Set ObjFSO = CreateObject("Scripting.FileSystemObject")

Set oShell= CreateObject("Shell.Application")

 

strUserPath = "LDAP://" & objSysInfo.UserName

Set objUser = GetObject(strUserPath)

 

strDriveLetter1 = "P:"
strRemotePath1 = " \\chafile01\DeptFolders "

 

strDriveLetter2 = "X:"
strRemotePath2 =  " \\chafile01\public "

 

strDriveLetter3 = "U:"
strRemotePath3 =  " \\chafile1\ "

 

strDriveLetter4 = "I:"
strRemotePath4 = " \\chafile1\it$ "

 

strDriveLetter5 = "S:"
strRemotePath5 = " \\chafile01\scan$ "

 

if(ObjFSO.DriveExists("P:"))then
objNetwork.RemoveNetworkDrive"P:",true
end if

 

if(ObjFSO.DriveExists("X:"))then
objNetwork.RemoveNetworkDrive"X:",true
end if

 

if(ObjFSO.DriveExists("U:"))then
objNetwork.RemoveNetworkDrive"U:",true
end if

 

if(ObjFSO.DriveExists("I:"))then
objNetwork.RemoveNetworkDrive"I:",true
end if

 

if(ObjFSO.DriveExists("S:"))then
objNetwork.RemoveNetworkDrive"S:",true
end if

 

For Each strGroup in objUser.MemberOf
   

 strGroupPath = "LDAP://" & strGroup
   

 Set objGroup = GetObject(strGroupPath)
  

  strGroupName = objGroup.CN

   

 Select Case strGroupName 
    

Case "CHA" 

 

strUserName = objNetwork.UserName
           

objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath3 & strUserName &"$"

'给每个用户建一个以 "AD用户名$" 命名的隐藏个人文件夹
           

oShell.NameSpace("U:\").Self.Name="个人网络文件夹"

 

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 ,true
           

oShell.NameSpace("P:\").Self.Name="部门网络文件夹"

           

objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2 ,true
           

 oShell.NameSpace("X:\").Self.Name="公共网络文件夹"

           

 objNetwork.MapNetworkDrive strDriveLetter5, strRemotePath5 ,true
           

 oShell.NameSpace("S:\").Self.Name="扫描件网络存储区"

         

 case "CHA-IT"          
           

 objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath4 ,true
           

oShell.NameSpace("I:\").Self.Name="IT部网络文件夹"

End select

next

 

Set objSysInfo = nothing

Set objNetwork = nothing

Set ObjFSO = nothing

Set oShell = nothing

Set objUser = nothing

Set objGroup = nothing