code:

---

;*******************************************
; Network Drive Mappings by Group Membership
;*******************************************
If InGroup('Domain Users') 
? 'I: (\\Sussex-FS-1\General)'
	Use I: '\\Sussex-FS-1\General'
? 'P: (\\Sussex1\Users\@USERID)'
	Use P: '\\Sussex1\USERS\@USERID'
? 'S: (\\Sussex1\Shared)'
	Use S: '\\Sussex1\Shared'
EndIf 

If InGroup('Information Systems') 
? 'W: (\\Sussex-FS-2\Information Systems)'
	Use W: '\\Sussex-FS-2\Information Systems' 
EndIf

If InGroup('Mapping And Addressing')
? 'G: (\\Sussex-FS\Global)'
	Use G: '\\Sussex1\Global'
? 'R: (\\Sussex-FS\ReAddressing)'
	Use R: '\\Sussex1\ReAddressing'
? 'V: (\\Sussex-FS\View)'
	Use V: '\\Sussex1\View'
? 'Z: (\\Sussex-fs-1\Aerial_Photos)'
	Use Z: '\\Sussex-fs-1\Aerial_Photos'
EndIf

---

code:

---

;************************************
;Printer Mappings by Group Membership
;************************************
If InGroup('Information Systems')
$RC=AddPrinterConnection("\\Sussex-DC2\IS HP LaserJet 4100tn")  
If $RC=0      
	? "Adding printer, IS HP LaserJet 4100tn"    
$RC=AddPrinterConnection("\\Sussex-DC2\IS HP Color LaserJet 4550")  
If $RC=0      
	? "Adding printer, IS HP Color LaserJet 4500"    
Else      
	? "$$RC = "+$RC      
	? "@@Error = "+@Error      
	? "@@SError = "+@SError  
EndIf   
EndIf

---