code:

$defprinter=""
select
	case ingroup($group+"med")		$defprinter="\\a06\Elton"
	case ingroup($group+"mis")		$defprinter="\\wheelerc\printer"
	case ingroup($group+"mqa")		$defprinter="\\a06\barbrady"
	case ingroup($group+"oig")		$defprinter="\\a06\elton"
	endselect
if $defprinter<>""
	$printerexists=0	$lptprinter=0	$index=0
	 :printloop
	$printer=enumvalue("$HKCUSMWNTCV\PrinterPorts",$index)
	$printerport=readvalue("$HKCUSMWNTCV\PrinterPorts","$printer")
	if @error=0
		if "$printer"="$defprinter"		$printerexists=1	endif
		if instr("$printerport","LPT")		$lptprinter=1		endif
		$index=$index+1
		goto printloop
		endif
	if $printerexists=0	
		$=addprinterconnection("$defprinter")	
		if $lptprinter=0	
			$=setdefaultprinter("$defprinter")	
			endif	
		endif
	endif

[ 07 February 2002: Message edited by: Radimus ]

_________________________
How to ask questions the smart way <-----------> Before you ask