‘==========
Option Explicit
Dim objPrinter
Set objPrinter = CreateObject(“WScript.Network”)
objPrinter.SetDefaultPrinter “\\printserver\2ndfloor_T654”
‘=========

This is a script that I use in Active Directory GPO to set a printer to the group the AD users are in.  Once a user gets assigned to the group the policy runs on bootup.