Displaying 1 result from an estimated 1 matches for "strgroupname".
2013 Mar 20
2
Samba4 - mapping Network Drives based on Group membership
...quot;LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
objNetwork.MapNetworkDrive "Z:", "\\10.100.1.128\Public"
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
Select Case strGroupName
Case "HR"
objNetwork.MapNetworkDrive "N:", "\\10.100.1.128\HR"
Case "Engineering"
objNetwork.MapNetworkDrive "y:", "\\10.100.1.128\Engineering"...