Dim objNetwork
Dim WshShell
Dim strUserName
Dim strGroups
Set objNetwork = CreateObject("Wscript.Network")
Set WshShell = CreateObject("Wscript.Shell")
'
Set objNetwork = CreateObject("WScript.Network")
strUserName =objNetwork.UserName
' objNetwork.MapNetworkDrive "R:", "\\server\share1"
' objNetwork.MapNetworkDrive "U:", "\\server\share2"
' objNetwork.MapNetworkDrive "S:", "\\server\share3"
' objNetwork.MapNetworkDrive "T:", "\\server\share4"
' objNetwork.MapNetworkDrive "Z:", "\\server\share5"
'
' Set ADSysInfo = CreateObject("ADSystemInfo")
' Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
' strGroups = LCase(Join(CurrentUser.MemberOf))
'
'===========================================================
'Added by Wilbur Longwisch 2007/09/12
'http://www.rlmueller.net/MemberOf.htm
'group membership checking for drive L if part of the group
'===========================================================
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
strAdsPath = "LDAP://" & strUserDN
Set objGroup = GetObject("LDAP://cn=GROUPNAME,OU=Groups,OU=OrganizationalUnit2,OU=OrganizationalUnit1,DC=subdomain,DC=maindomain,DC=com")
If (objGroup.IsMember(strAdsPath) = True) Then
WShShell.Run("\\server\netlogon\mapdrive.vbs L: \\server\share\subdirectory")
Else
'
'Remove the ' mark to list all the groups if someone is not a member of GROUPNAME
'
' call Checkgroups
End if
WSCript.Quit
Sub Checkgroups
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
arrGroups = objUser.memberOf
If IsEmpty(arrGroups) Then
Wscript.Echo "Member of no groups"
ElseIf (TypeName(arrGroups) = "String") Then
Wscript.Echo "Member of group " & arrGroups
Else
For Each strGroup In arrGroups
Wscript.Echo "Member of group " & strGroup
Next
End If
End Sub
get the map drive vbs script here.