I have a very limted knowledge of scrupting using VBS however I was able to piece together the below script but it will only map a single network drive
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 "AOD Users"
objNetwork.MapNetworkDrive "M:", "\\QPRCAOD01\AOD"
How can I expand on this so that it will map more than one drive> For example I would like to map up to five different drive letters using one script. One drive would map to M, one to S, one to T, and another to H. A user who is a mamber for the drives M,S, and T would get those drives only but not the T abd H drives.
Any help would be appreciated