'First make sure all variables are dimensioned.
'This isn't necessary for functionality; it's for coding discipline only.
Option Explicit
'dimension all our variables
dim objNetwork
dim strDriveLetter, strRemotePath, strUser, strGrp
dim strGroupADSPath, strUserADSPath, grp

'This script will use the MapNetworkDrive method
'for each network drive mapped.

'We'll be using the Wscript.Network Object to enumerate the user as well as to map drives.
'We only need to instantiate it once at the beginning.
Set objNetwork = Wscript.CreateObject("Wscript.Network")

'First let's get the user name since we'll use it for mapping the home directory
'as well as checking group memberships.  
strUser = objNetwork.UserName

'In just about every network at least two drives are mapped:
'One for the user's home directory, and one for an organizational public share.
'We'll map those first since they don't depend on group memberships.

'User Drive to U:
'strDriveLetter = "U:"
'strRemotePath = "\\yourservername"
'objNetwork.MapNetworkDrive strDriveLetter, strRemotePath & "\" & strUser

'PublicShare Drive to P:
strDriveLetter = "P:"
strRemotePath = "\\server10\Staff"
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath 


'next we'll enumerate groups and map drives for specific departmental memberships
'The code to check for memberships and map the drives is in a subroutine called IsMember.
'All we have to do is copy the same block over again for each group membership we want to check.
'The block only needs to set the string values for the group name, the desired drive letter, and the share path.
'Then it calls the IsMember subroutine down below.

'V: for members of admin   
strGrp="admin"
strDriveLetter = "V:"
strRemotePath = "\\server10\Sage"
IsMember

'W: for members of hoyalog
strGrp="hoyalog"
strDriveLetter = "W:"
strRemotePath = "\\server10\Hoyalog"
IsMember


'X: for members of focus
strGrp="focus"
strDriveLetter = "X:"
strRemotePath = "\\server10\FocusData"
IsMember

'Y: for members of clinical
strGrp="clinical"
strDriveLetter = "Y:"
strRemotePath = "\\server10\ClinicalImages"
IsMember

'Z: for members of focus
strGrp="focus"
strDriveLetter = "Z:"
strRemotePath = "\\server10\PracticeDocuments"
IsMember


'Repeat for as many private groups and their respective enumerated shares as you wish.

'We're done with the login script.
'Let's tidy up variables first to make sure we're not leaving anything behind.
objNetwork = ""
strDriveLetter = ""
strRemotePath = ""
strUser = ""
strGrp = ""
strGroupADSPath = ""
strUserADSPath = ""
grp = ""
'That's all.  Close the script processor.
wscript.quit


sub IsMember
'set the directory service path to enumerate the group
strGroupADSPath = "WinNT://JONESANDJONES/" & strGrp & ",group"
'poll the PDC for the group
set grp = GetObject(strGroupADSPath)
'set the user directory service path to enumerate the user
strUserADSPath = "WinNT://JONESANDJONES/" & strUser
'Check membership in the group.  
If (grp.IsMember(strUserADSPath)) Then
    'map the drive
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
End If
'clean up variables for next group check.
strGrp = ""
strDriveLetter = ""
strRemotePath = ""
'Rinse, lather and repeat this code as many times as needed.
End sub

Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User
Shell Folders\Personal", "H:\"
'WSHShell.RegWrite
'"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User
'Shell Folders\My Pictures", "H:\My Pictures"