function ReplacePrinter($oldprinter, $newprinter, Optional $ForceDefault)
	DIM $objWMIService, $colItems, $objItem, $_

	$objWMIService = GetObject("winmgmts:\\" + @wksta + "\root\cimv2")
	$colItems = $objWMIService.ExecQuery("Select * from Win32_Printer where Network = True",,48)
	For each $objItem in $colItems
		if $objItem.Name = $oldprinter
			$_=addprinterconnection($newprinter) 
			If @error	exit 1		endif
			; if $objItem.Default or $ForceDefault
			if $objItem.attributes & 4 or $ForceDefault
				$_=setdefaultprinter($newprinter)
			endif
			$_=delprinterconnection($oldprinter)
		endif
	next
Endfunction