Glenn, I like the way that script runs I haven't figured out how to pull a list of printers with it because it looks like you'll have to stick to the single $networks and $printers veriables. Would something like this work (i can't get it to so i'm asking hehe)

 Code:
For $I = 0 to UBound($Networks)
  If InSubnet($MyIP, $Networks[$I])
    'My ip address (' $MyIP ') exists in network $I (' $Networks[$I] ')' ?
	select
		case $network = 192.168.15.0/24
		$location = "site A"
		case $network = 192.168.16.0/24
		$location = "site B"
	endselect
    'Mapping printer ' ?
	select
	     case $Location = "Site A"
		@ldrive + "\scripts\siteaprnt.kix"
			? "Added Site A Printers"
		endif
		;Or any style of adding a printer that you recommend
		case @location = "Site B"
		IF ADDPRINTERCONNECTION ("\\server\printer2") = 0 
			? "Added Printer2"
		endif
	$Mapped = 1
  EndIf
Next

If Not $Mapped
  'No printers were mapped!' ?
EndIf


I'll go with any way you suggest to do the printers I'm just using what little i know.

thanks again.