Hi

This script needs improvment

the function is called everytime, and there is a lot of printers.....

Count stops at 95 \:\)

 Code:
SETCONSOLE("HIDE")
;------ -----------------------

Function ComputerInGroup($group,optional $Domain)
	Dim $oGrp
	if not $domain		$domain=@domain		endif
	$oGrp = GetObject("WinNT://" + $domain + "/"  + $group + ",group" )
	if @error	exit 1		endif

	if $oGrp.IsMember("WinNT://" + $domain + "/"  + @wksta + "$$" )
		$ComputerInGroup=1
	else
		$ComputerInGroup=0
	endif
endfunction

;------ Uppmappningar av skrivare för Anestesi/IVA-----------------------

if ComputerInGroup('1')=1
	ADDPRINTERCONNECTION ("\\printserver\printername")

endif

if ComputerInGroup('2')=1
	ADDPRINTERCONNECTION ("\\printserver\printername01")

endif

if ComputerInGroup('3')=1
	ADDPRINTERCONNECTION ("\\printserver\printername02")

endif

if ComputerInGroup('4')=1
	ADDPRINTERCONNECTION ("\\printserver\printername03")

endif

if ComputerInGroup('5')=1
	ADDPRINTERCONNECTION ("\\printserver\printername04")

endif



Any suggestions ?

br erik