IP might work (if grouped by subnets), but it would be very static not quite reliable, particularly at corp where there are many IP printers in same subnet and additionally, there would be a IP topo overhaul required to put each office on seperate subnet...

You did mention exactly what I want to do. I want to take your printer list UDF and modify it so that each "enumerated" printer makes a list choice in the list box, they simply choose the printer and the script sets the default...I already started working on the list box as follows...(idon't know how to do that nifty code snippet thing ya'll do)

-----

$root=createobject("KiXGUI.Desktop")

$frmSample=$root.createform("frmSample","Company",200,100,400,180)
$Listbox=$frmSample.addlistbox("lstbox",20,40,250,100)
$listbox.onchange="Lstbox_change"
$=$frmSample.addlabel("lblBox","Please Select your desired default printer for this session...",7,10,400,30)
$Listbox.additem("Printer1")
$Listbox.additem("Printer2")
$Listbox.additem("Printer3")
$Listbox.additem("Printer4")
$Listbox.additem("Printer5")
$Listbox.additem("Printer5")
$Listbox.additem("Printer6")
$Listbox.additem("Printer7")
$Listbox.additem("Printer8")
$Listbox.additem("Printer9")
$Listbox.additem("Printer10")
$Listbox.additem("Printer11)
$Listbox.additem("Printer12")
$Listbox.additem("Printer13")
$Listbox.additem("Printer14")
$Listbox.additem("Printer15")
$Listbox.additem("Printer16")
$Listbox.additem("Printer17")
$Listbox.additem("Printer18")
$Listbox.additem("Printer19")
$Listbox.additem("Printer20")
$Listbox.additem("Printer21")
$Listbox.additem("Printer22")
$Listbox.additem("Printer23")
$Listbox.additem("Printer24")
$frmsample.visible=1

;while $frmSample.visible=1
$=execute($frmsample.lastevent)
;loop

;quit()


function Lstbox_change
$frmsample.controls("txtBox").caption=$Listbox.item($Listbox.listindex)
endfunction

$printerchoice=$Listbox.item($Listbox.listindex)

If SetDefaultPrinter ("\\Servername\$printerchoice") = 0
? "Default Printer was successfully mapped to $printerchoice"
Else
? "There was an error mapping your default printer."
Endif

Exit