Here is a little nugget we used to use, now everything is handled through GPO but hope this will help you. This script will check the Security group your users belongs to and then if found will map a network printer.. You can add as many security groups and printers under each heading.. Hope this helps you !!
On ERROR RESUME NEXT
Dim objWSHShell 'This is the shell object
Dim objNetwork ' This is our network object
Dim objDomain 'This is our Domain Object
Dim strDomainName 'This is our Domain Name
Dim strUserName 'This is outr user string
Dim objUser 'This is our UserObject
Dim objGroup 'This is our group object
Dim strLowerCaseGroupName 'This String holds the Lower Case group Name
'Create an instance of the Shell
Set objWSHShell = CreateObject("WScript.Shell")
'Create an instance of the Network
Set objNetwork = CreateObject("WScript.Network")
'Automatically find the domain name
Set objDomain = GetObject("LDAP://rootDse")
strDomainName = objDomain.Get("dnsHostName")
'Grab the user name
strUserName = objNetwork.UserName
'Bind to the user object to get user name and check for group memberships later
Set objUser = GetObject("WinNT://" & strDomainName & "/" & strUserName)
'Now check for group memberships and map appropriate drives
For Each objGroup In objUser.Groups
'Get the group name and change it to lowercase
'Note: This can be either Lowercase (LCase) or Uppercase (UCase)
strLowerCaseGroupName = LCase (objGroup.Name)
Select Case strLowerCaseGroupName
'Check for group memberships and take needed action
Case "Claims-Users"
objNetwork.AddWindowsPrinterConnection "\\Server1\PrinterName01", true
objNetwork.AddWindowsPrinterConnection "\\Server1\PrinterName02", true
Case "Service-Users"
objNetwork.AddWindowsPrinterConnection "\\Server1\PrinterName01", True
objNetwork.AddWindowsPrinterConnection "\\Server1\PrinterName02", True
objNetwork.AddWindowsPrinterConnection "\\Server1\PrinterName03", True
Case "Managers"
objNetwork.AddWindowsPrinterConnection "\\Server1\ColorPrinterName01", True
True
End Select
Next
