Thanks for the help on this. After further investigation i found that changing the HPLASER value would not help. It appear that the program read the default printer and the adds it to the INIPTPDRIVER registry key (hope my terminology is correct) and then sets the value to "" so i have changed the script to replace the "" with "PPII" here is the code. i added the call to the udf is that needed?
Code:

	Call w:\arrayenumvalue.udf
	$Print='HKEY_CURRENT_USER\Software\Meditech\Wrkstn\INIPTPDRIVER'
	$values=arrayenumvalue($Print)
		For Each $value In $values
		$data=ReadValue($Print,$value)
		If Left($data,1)=''
		$rc=WriteValue($Print,$value,'PPII','REG_SZ')
		EndIf
	Next

Thank again. This place is awesome!!!!!